Процедура вычисления площади круга - 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.
Объяснение кода листинга программы
- Создается программа
area_crc
. - Используется библиотека
crt
. - Определяется процедура
circ
, которая принимает радиус круга и переменную для хранения площади в качестве параметров. - Вычисляется площадь круга по формуле S = π r r и присваивается переменной
Area
. - Выводится значение площади круга с помощью функции
writeln
. - Определяется переменная
i
типаbyte
. - Определяется переменная
Area
типаreal
. - Определяется переменная
rad
типаreal
. - Запускается цикл
for
от 1 до 3. - В каждой итерации цикла считывается радиус круга с помощью функции
readln
. - Вызывается процедура
circ
с радиусом круга и переменнойArea
в качестве аргументов. - Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д