ИНФОРМАТИКА. делать в Паскале.

Даны стороны прямоугольника. Найти его площадь и периметр.
05.04.16
1 ответ

Лучший ответ по мнению автора

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. //Конец программы
06.04.16
Лучший ответ по мнению автора

Глеб Черняк

Сейчас на сайте
Глеб Черняк
Глеб Черняк
Эксперт месяца
Читать ответы

Александр

Сейчас на сайте
Читать ответы

Майкл

Сейчас на сайте
Читать ответы
Посмотреть всех экспертов из раздела Технологии