ПОЗДРАВЛЯЮ СДАВШИХ ЗАЧЁТ. ВЫ,
КАК ВСЕГДА, МОЛОДЦЫ!!!
Увы, но не у всех правильно
работает программа, а кто-то с ней не справился. Не огорчайтесь- бывает.
Возможно не получили достаточной
информации. Но это дело поправимое.
Просмотрите все пройденные уроки ещё
раз. Если поняли, что необходимо
всё повторить, - так и поступите. Уже
хорошо.
Ну, а сейчас подсказка. Синтаксически оператор условия IF имеет другое название - условный оператор. Выглядит следующим образом:
If <условие> then <оператор1> else <оператор2> ; (оператор полной формы)
If <условие> then <оператор> ; (оператор сокращенной формы)
Оператор выполняется следующим образом. Сначала вычисляется выражение, записанное в условии. В результате его вычисления получается значение, если оно истинно, то выполняется оператор 1, если результат ложный, то выполняется оператор 2 или оператор, следующий за оператором IF. Операторы IF могут быть вложенными.
Пример. Составить алгоритм и программу вычисления частного двух целых чисел. Решение:
program delenie;
uses crt;
var a, b : integer;
D : real ;
begin
clrScr ; {оператор очистки экрана}
writeln ( ' Введите значение делимого А ');
readln (a);
writeln ( 'Введите значение делителя В ' );
readln (b);
if b=0 then writeln ('на ноль делить нельзя ')
else begin {начало составного оператора}
D := a / b ;
writeln ('Частное чисел равно', D );
end; { конец составного оператора}
end.
Я думаю, что теперь стали понятны ошибки.
Прекрасно, помнит, что всё познается через труд, через преодоление ошибок , через процесс решения задач.
Всё понятно? Уже поправили свою программу. Тогда попробую запутать простым примером из учебника 9 класса. Программа "БИТ" с вложенными ветвлениями.
Program BIT2; var a, b, c, d: real; begin readln(a, b, c); if a>b then if a>c then d:=a else d:=b else if b>c then d:=b else d:=c; writeln(d) end.
Успехов.
| 
