Размер шрифта
A- A+
Межбуквенное растояние
Цвет сайта
A A A A
Изоображения
Дополнительно

Урок 3 - пример решения на составной оператор

     Пример 1.  Пусть дано некоторое целое число. Составить программу, которая выводит на экран монитора сообщение о том, какое это число: положительное либо отрицательное. И если это число положительное, уменьшает его в 2 раза, в противном случае возводит его в квадрат.

Решение:

program chislo;
  var a:integer; r:real;
begin
  write('а='); readln(a);
  if a > 0
    then
      begin
        writeln('положительное');
        r:=a/2;                                  
     end
 else
     begin
       writeln('отрицательное');
       r:=a*a;
     end;
  write ('r=', r)   
 end.

Разделы сайта