Исходник маленькой программы базового уровня, задача которой - нахождение площади круга по заданному пользователем радиусу. Использует оператор умножения. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.
Исходный код программы:
1-й вариант программы:
const Pi = 3.1415; //Указание значения числа Пи
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: '); //Диалог пользователя
readln(r); //Считывание значения радиуса
S := Pi*r*r; //Вычисление площади
writeln('Площадь круга равна ',S); //Вывод значения
end. //Конец программыВ данном варианте программы используется описание константы и дальнейшее её использование в программе.
2- вариант программы:
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: '); //Диалог пользователя
readln(r); //Считывание значения радиуса
S:=3,1415*sqr(r); //Нахождение площади круга
writeln('Площадь круга равна ',S); //Вывод значения
end. //Конец программы
В этом варианте программы не используется константа, а умножается сразу на число, и сочетание r*r заменено на sqr(r) - возведение в квадрат.
P.S. В исходнике эти две программы "слиты" в одну. Второй вариант закомментирован, нужно удалить нужные строки для его работы.
Скачать исходник: ploshadkrug.pas