Вычисление площади и периметра прямоугольника на Pascal

Вычисление площади и периметра прямоугольника на Pascal

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

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

Program SandP; //Название программы
var //Описание переменных
  x,y: real; // Стороны прямоугольника
  S: real;   // Площадь прямоугольника
  P: real;   // Периметр прямоугольника 
 
procedure RectSP(a,b: real; var S,P:real); //Процедура
begin
  S := a * b; //Нахождение площади
  P := a + b; //Нахождение суммы
end;

begin //Начало основной части программы
  writeln('Введите стороны прямоугольника: '); //Диалог с пользователем
  readln(x,y); //Считывание сторон
  RectSP(x,y,S,P); //Вызов процедуры  
  writeln('Площадь равна ',S); //Вывод площади
  writeln('Периметр равен ',P); //Вывод периметра
end. //Конец программы


Скачать исходник: sandp.pas
Автор: Zed от 2012-04-08 12:57:42   Просмотров: 40612

Теги: Паскаль Pascal исходник подпрограммы