Презентация на тему: «Условный оператор на языке Pascal»

№
пп

Алгоритмом называется:
А. последовательность точных команд
Б. любая последовательность команд

Алгоритмы, написанные на специальных языках, предназначенные для ввода в ЭВМ, называются…
А. блок-схемами
Б. программами

Блок-схемы – это…
А. инструкции на языках программирования
Специальные
Б. структуры в виде связанных линями блоков с командами

Прямоугольник используется для обозначения
А. выполняемых действий
Б. конца программы

Ромб используется для обозначения
А. проверки условия
Б. выполняемых действий

Укажите знак присваивания
А. : =
Б. =

1.

Program <имя программы>;

2.

3.

4.

5.

6.

Program MaxOfTWo;
Var ………..;
Begin
Readln………
if ……… then begin
Writeln………
end
else begin
Writeln…………
end
End.

Program MaxOfTWo;
Var a,b:integer;
Begin
readln(a,b)
if a>b then begin
writeln(a)
end
else begin
writeln(b)
end
End.

Формулировка. Даны вещественные числа a, b и c, причем a отлично от 0. Решить квадратное уравнение ax2 + bx + c = 0 или сообщить о том, что действительных решений нет.
Решение. Из алгебры известно, что:
Квадратное уравнение ax2 + bx + c = 0, выражение D = b2 – 4ac – дискриминант:
– если D > 0, имеет два решения:   ,  ;
– если D = 0, имеет единственное решение:  ;
– если D < 0, не имеет действительных решений.

program QuadraticEquation;
Var: a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if …..then begin
if …..then begin
x1 :=
x2 := .;
writeln('x1 = ‘, x2 = ')
end
else begin
x1 :=
writeln('x = ', )
end
end
else begin
writeln('No real solutions!');
end
end.

Вычислить дискриминант( задаем вещественную переменную d типа real)
Проверяем имеет ли уравнение действительные решения( задаем Х1 и Х2 типа real)
Если дискриминант <> 0, то вычисляем единственное решение. Если же действительных решений нет, то выводим сообщение об этом.

program QuadraticEquation;
Var: a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ‘, x2 = ')
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', )
end
end
else begin
writeln('No real solutions!');
end
End.

Три нерасшифрованных блока представляют собой стандартные операторы вывода. Разберем их подробнее:
1)      При выводе двух корней выражение будет выглядеть следующим образом:
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2);
2) При выводе одного корня – все то же самое, только выводится один корень:
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2);
3)      При отсутствии действительных корней выводим сообщение:
writeln('No real solutions!');

В итоге внутренний условный оператор с телом включительно будет выглядеть так:

Program MaxOfTWo;
Var a,b:integer;
Begin
readln(a,b)
if a>b then begin
writeln(a)
end
else begin
writeln(b)
end
End.

program QuadraticEquation;
Var: a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = , x2 = ', )
end
else begin
x1 := -(b / 2 * a);
writeln('x = ‘)
end
end
else begin
writeln('No real solutions!');
end
end.

program MaxOfThree;
Var a, b, c: integer; 
begin
readln(a, b, c);
if a > b then begin
if a > c then begin
writeln(a)
end
else begin
writeln(c)
end
end
else begin
if b > c then begin
writeln(b)
end
else begin
writeln(c)
end
end
end.