Процедура вычисления площади круга - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Что я сделал неправильно? Для примера брал алгоритм здесь http://interacia.net/Progi/Zadachi/i...oc%2FProc4.pas Ругается на 17 строчку. Не может записать и прочитать

Решение задачи: «Процедура вычисления площади круга»

textual
Листинг программы
program area_crc;
uses crt;
procedure circ(rad:real; var Area:real);
begin
Area:=pi*rad*rad;
writeln('Площадь круга ',Area:0:2);
end;
 
var i:byte;
    Area,rad:real;
begin
clrscr;
for i:=1 to 3 do
 begin
  write('Ввод радиуса: ');
  readln(rad);
  circ(rad,Area); //процедура не функция, и вызывают ее так
 end;
end.

Объяснение кода листинга программы

  1. Создается программа area_crc.
  2. Используется библиотека crt.
  3. Определяется процедура circ, которая принимает радиус круга и переменную для хранения площади в качестве параметров.
  4. Вычисляется площадь круга по формуле S = π r r и присваивается переменной Area.
  5. Выводится значение площади круга с помощью функции writeln.
  6. Определяется переменная i типа byte.
  7. Определяется переменная Area типа real.
  8. Определяется переменная rad типа real.
  9. Запускается цикл for от 1 до 3.
  10. В каждой итерации цикла считывается радиус круга с помощью функции readln.
  11. Вызывается процедура circ с радиусом круга и переменной Area в качестве аргументов.
  12. Конец программы.

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы