Ветвления в среде программирования Turbo Pascal

в — н — о —с — т — ь);

б) конечность
(черенок — нос — ять);

в) понятность
(пан — ять — нос — ть);

ребусах?

ель);

б) ученик
(кузнечик);

в) директор
(д — игрек — рот);

г) завуч
(зав — у — ч);

(цинк — л);

в) ветвление
(в — е — т —

в — л — е — н — и — е);

г) повторение
(повар — сани).

— ча — ло);
в) вывод
(в — ы — в

— о — д);

г) конец
(конь — ц);

д) соединитель
(с — о —единица — ель);

е) комментарий
(комета — торий).

(a, b);
S:=a*b;
P:=2*(a+b);
Writeln (‘площадь прямоугольника равна’, S);
Writeln (‘периметр прямоугольника равен’, Р);
End.
Даны

стороны прямоугольника a и b. Найти его площадь S, и периметр Р.

С ошибками

Правильно

куба S.
Program kub;
Var a, S, V: integer;
Begin
Writeln (‘Введите сторону куба’);
Readln

(a);

S=6*sqrt(a);

V=a*a*a;

Writeln (‘площадь поверхности равна’, S);

Writeln (‘объем куба равен’, P);

End.

Program kub;

Var a, S, V: integer;

Begin

Writeln (‘Введите сторону куба’);

Readln (a);

S:=6*sqr(a);

V:=a*a*a;

Writeln (‘площадь поверхности равна’, S);

Writeln (‘объем куба равен’, V);

End.

Правильно

С ошибками

вариантов программы.


если логическое_условие верно,
то выполняется оператор_1 ,
иначе оператор_2;
if

логическое_условие
then оператор_1
else оператор_2;

Перед else точка с запятой не ставится!

или равно,
>= больше или равно,
= равно,
не равно.

Логическое выражение

not логическое отрицание (НЕ),
and логическое умножение

(И),
or логическое сложение (ИЛИ),
xor исключающее ИЛИ
Порядок действий:
отрицание, умножение, сложение, операции отношений.

else ;
Типы ветвлений
Формат полного оператора ветвления:

ветвления:

один оператор, а несколько, то эти операторы заключают в операторные

скобки: begin … end
Конструкция такого вида: Begin <последовательность операторов> end относится к составным операторам.
Операторы ветвления могут быть вложены друг в друга, желательно только следить за тем, чтобы then и else одного и того же оператора располагались друг под другом.

Варианты:
Если x=5, y=8, то max=8
Если x=6, y=1, то max=6
Если

x=5, y=5, то max=5

Пример:

числа’);
Readln (x, y);
if x >=y then max:=x

else max:=y;
Writeln (‘наибольшее = ’,max);
End.

Задача

прибавить к нему 1, в противном случае вычесть из него

два. Вывести полученное число.
2. Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т. е. имеют ли они равные площади.

для решения задачи, представленной в карточке.