Инструкция if

К заданию

Вариант 1:

if  условие
    then
          begin
                (* Эти инструкции выполняются, если условие истинно*)
          end
    else
           begin
                (*Эти инструкции выполняются, если условие ложно*)
           end;

Вариант 2:

if условие
    then
          begin
                (* Эти инструкции выполняются, если условие истинно*)
          end;

Примечания:
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.
Перед else точка с запятой (;) не ставится!

Пример 1:

VAR
  a:integer;
BEGIN
  writeln('Решите этот пример и введите ответ:');
  write('12+6=');
  readln(a);							{ввод ответа}
  if a=18 then writeln('Ответ правильный!');	{это сам опреатор if}
END.

Пример 2:

VAR
  a:integer;
BEGIN
  writeln('Решите этот пример и введите ответ:');
  write('12+6=');
  readln(a);
  if a=18 then writeln('Ответ правильный!')
  else writeln('Ответ не верный!');
END.

Пример 3:

VAR
  a:integer;
BEGIN
  writeln('Решите этот пример и введите ответ:');
  write('12+6=');
  readln(a);
  if a=18 then writeln('Ответ правильный!') else 
   begin					{начало составного оператора}
   writeln('Ответ не верный!');
   writeln('Правильный ответ - ', 12+6);
   end;						{конец составного оператора}
END.


Подробнее...
К заданию
 
Наверх