Основные алгоритмические конструкции. Команда ветвления

Июль 30, 2022

Главная
Информатика
Основные алгоритмические конструкции. Команда ветвления

Содержание

2. Оператор IF Если в зависимости от первоначального условия должны выполняться различные выражения, то мы будем использовать
3. Оператор IF
4. Пример задачи: Даны три числа. Найти максимальное. var max,x,y,z:real; Begin writeln(' Введите три числа '); readln(x,y,z);
5. Пример задачи: Составить программу решающую квадратное уравнение. var a,b,c:integer; x,d,x1,x2:real; Begin writeln('введите коэффициенты а,b,c'); readln(a,b,c); d:=b*b-4*a*c;
6. Вопрос 1
7. Вопрос 2 Найти и исправить ошибки в записи оператора ветвления: if x>=y then x:=0; y:=0; else
8. Задача №1. Даны три числа. Возвести в квадрат те из них, которые положительны. Остальные оставить без
9. Задача №2-4. Даны три числа. Найти минимум. Является ли число кратным трём. Даны два числа а,b.
11. Скачать презентацию

Слайд 2

Оператор IF
Если в зависимости от первоначального условия должны выполняться различные

выражения, то мы будем использовать условный оператор.
Структура условного оператора:
if < условие> then <оператор 1 > else < оператор 2 >
if < условие> then <оператор >
if then else – зарезервированные слова (если, то, иначе)

Слайд 3

Оператор IF

Слайд 4

Пример задачи: Даны три числа. Найти максимальное.
var max,x,y,z:real;
Begin
writeln(' Введите три

числа ');
readln(x,y,z);
if x>y then max:=x else max:=y;
if z>max then max:=z;
writeln('большее из трёх =',max);
End.
var x,y,z:real;
Begin
writeln(' Введите три числа ');
readln(x,y,z);
if (x>y) and (x>z) then
writeln('большее из трёх =',x)
else if (y>x) and (y>z) then
writeln('большее из трёх =',y)
else
writeln('большее из трёх =',z);
End.

Слайд 5

Пример задачи: Составить программу решающую квадратное уравнение.

var a,b,c:integer; x,d,x1,x2:real;
Begin
writeln('введите коэффициенты

а,b,c');
readln(a,b,c);
d:=b*b-4*a*c; {вычисление дискриминанта}
if d<0 then
writeln('уравнение не имеет корней');
if d=0 then
begin
writeln('уравнение имеет 1 корень');
x:=-b/(2*a);
writeln('x= ',x);
end;

if d>0 then
begin
writeln('уравнение имеет 2 корня');
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1);
writeln('x2= ',x2);
end;
End.

Слайд 6