Программа нахождения площади круга

Программа нахождения площади круга

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

Исходный код программы:

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
Автор: Zed от 2012-05-07 21:56:49   Просмотров: 18942

Теги: Паскаль исходник Pascal sqr