Пример 3. Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути
Условные операторы перехода.
Условный оператор состоит из ключевого слова if, после которого идет логическое выражение, ключевого слова then и оператор. После оператора может следовать ключевое слово else и снова оператор.
if < условие > then < оператор 1> else < оператор 2 >.
Простой оператор.
Сложный оператор.
Условный оператор:
Пример 1.
uses Crt;
Var
a: real;
Begin
Writeln('Введите число 10 = ');
Readln(a);
if a=10 then
Writeln('Молодец! Ваше число равно 10!')
Else
Writeln(‘Ваше число не равно 10!');
End.
Пример 2.
Заданы длины сторон треугольника, определить, является ли этот треугольник прямоугольным.
Program 3;
Uses Crt;
Var a, b, c: real;
Begin
Readln (a, b,с);
if a*a + b*b = c*c then
writeln (‘треугольник прямоугольный’)
Else
writeln (‘треугольник не прямоугольный’);
End.
Пример 3. Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути.
У Ивана-Царевича есть три варианта дальнейшего пути: Поиск по сайту:
|