Технологии

• Всего ответов: 1


Глазов Эмиль Юрьевич
3-й в
43 отзыва
Program Nua; //Название программы можно указать вместо NUA
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. //Конец программы
апрель 6, 2016 г.
Ответ понравился автору
Лучший ответ по мнению автора