if(f<0) or(g<0) then begin

begin

tx;

readln(a, b);

pl(a, b);

end;

Замечание. При решении этой задачи необходимо проверять введенные пользователем числа (они не должны быть отрицательными, иначе работа программы прервется).

Составим процедуру проверки:

procedure error (f, g: integer);

begin

if(f< 0) or(g< 0) then begin

writeln(‘стороны прямоугольника не могут быть отрицательными’);

halt; //прерывание программы

end;

В итоге у нас получилась программа:

program pr;

uses crt;

var a, b

: integer; p: real; i: integer;

//--------Текст-----------------

procedure tx;

begin

writeln;

writeln('Вычисление: ');

write('Введите стороны a, b: ');

end;

//-------Площадь-----------------------

procedure pl(c, d: integer);

var S: word;

begin

S: =c*d;

writeln('площадь прямоугольника со сторонами ', c, ' и ', d, ' = ', S);

end;

//-----------Ошибка-------------------

procedure error (f, g: integer);

begin

if(f< 0) or(g< 0) then begin

writeln ('Стороны прямоугольника могут быть только положительными! ');

halt;

end;

//Главная программа

begin

fori: =1 to3 do

begin

tx;

readln(a, b);

error(a, b);

pl(a, b);

end;

end.

Запишите эту программу в конспект урока.

Преимущества:

- Программы, написанные с участием подпрограмм, легче тестировать и отлаживать, у них более четкая логическая структура.

- Самостоятельный характер подпрограмм позволяет поручать их составление различным программистам. Так осуществляется разделение работы по программированию и, тем самым, ускоряется ее завершение;

- Использование подпрограмм позволяет экономить память. Память для хранения переменных, использующихся в подпрограмме, выделяется только на время ее работы и высвобождается, как только ее выполнение заканчивается.

Пример 3. Составить программу обмена местами двух чисел с=5 и d=7.

program obmenDan;

uses crt;

var c, d: integer;

//обмен

procedure obmen ( a, b: integer);

var m: integer;

⇐ Предыдущая 1 234 5 6 Следующая ⇒