🗊Презентация Вложенные условные операторы

Категория: Устройства и комплектующие
Нажмите для полного просмотра!
Вложенные условные операторы, слайд №1Вложенные условные операторы, слайд №2Вложенные условные операторы, слайд №3Вложенные условные операторы, слайд №4Вложенные условные операторы, слайд №5
Скачать
Вы можете ознакомиться и скачать презентацию на тему Вложенные условные операторы. Доклад-сообщение содержит 5 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1


Вложенные условные операторы
Описание слайда:
Вложенные условные операторы

Слайд 2


program zadanie1; program zadanie1; uses crt; var x, y: real; begin ClrScr; write('x='); readln(x); write('y='); readln(y); if (x>0) and (y>0) then write('Первая четверть') else if (x>0) and (y<0) then write('Четвертая четверть') else if (x<0) and (y>0) then write('Вторая четверть') else if (x<0) and (y<0) then write('Третья четверть') else write('На оси') end.
Описание слайда:
program zadanie1; program zadanie1; uses crt; var x, y: real; begin ClrScr; write('x='); readln(x); write('y='); readln(y); if (x>0) and (y>0) then write('Первая четверть') else if (x>0) and (y<0) then write('Четвертая четверть') else if (x<0) and (y>0) then write('Вторая четверть') else if (x<0) and (y<0) then write('Третья четверть') else write('На оси') end.

Слайд 3


program zadanie_2; program zadanie_2; uses crt; var a, b, c: real; begin ClrScr; write(' Три стороны a, b, c '); readln(a, b, c); if (a+b>c) and (a+c>b) and (b+c>a) then begin if (a=b) and (b=c) and (a=c) then write(Равносторонний ') else if (a=b) and (a<>c) or (b<>c) and (a=c) or (a<>b) and (b=c) then write('Равнобедренный') else write('Разносторонний'); end else write('Невозможно построить треугольник'); end.
Описание слайда:
program zadanie_2; program zadanie_2; uses crt; var a, b, c: real; begin ClrScr; write(' Три стороны a, b, c '); readln(a, b, c); if (a+b>c) and (a+c>b) and (b+c>a) then begin if (a=b) and (b=c) and (a=c) then write(Равносторонний ') else if (a=b) and (a<>c) or (b<>c) and (a=c) or (a<>b) and (b=c) then write('Равнобедренный') else write('Разносторонний'); end else write('Невозможно построить треугольник'); end.

Слайд 4


program zadanie_3a; program zadanie_3a; uses crt; var x, y, z: real; begin ClrScr; write(‘Введите x, y, z '); readln(x, y, z); if (x+y+z)>(x*y*z) then write('max(x+y+z, xyz)+3=', x+y+z+3) else if (x+y+z)<(x*y*z) then write('max(x+y+z, xyz)+3=', x*y*z+3) else write('Нет max'); end.
Описание слайда:
program zadanie_3a; program zadanie_3a; uses crt; var x, y, z: real; begin ClrScr; write(‘Введите x, y, z '); readln(x, y, z); if (x+y+z)>(x*y*z) then write('max(x+y+z, xyz)+3=', x+y+z+3) else if (x+y+z)<(x*y*z) then write('max(x+y+z, xyz)+3=', x*y*z+3) else write('Нет max'); end.

Слайд 5


program zadanie_3b; program zadanie_3b; uses crt; var x, y, z: real; begin ClrScr; write(‘Введите x, y, z '); readln(x, y, z); if sqr(x)+sqr(y)> sqr(y)+sqr(z) then write('min(sqr(x)+sqr(y), sqr(y)+sqr(z))-4=', sqr(x)+sqr(y)-4) else if sqr(x)+sqr(y)< sqr(y)+sqr(z) then write('min(sqr(x)+sqr(y), sqr(y)+sqr(z))-4=', sqr(y)+sqr(z)-4) else write('Нет min'); end.
Описание слайда:
program zadanie_3b; program zadanie_3b; uses crt; var x, y, z: real; begin ClrScr; write(‘Введите x, y, z '); readln(x, y, z); if sqr(x)+sqr(y)> sqr(y)+sqr(z) then write('min(sqr(x)+sqr(y), sqr(y)+sqr(z))-4=', sqr(x)+sqr(y)-4) else if sqr(x)+sqr(y)< sqr(y)+sqr(z) then write('min(sqr(x)+sqr(y), sqr(y)+sqr(z))-4=', sqr(y)+sqr(z)-4) else write('Нет min'); end.

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию