Предмет: Информатика, автор: vadbodnar300

Пожалуйста помогите составить программу для нахождения Периметра и площади прямоугольника!!!СРОЧНО НАДО!!!!!


FunSociety: Или на другом языке программирования составить?
vadbodnar300: да
vadbodnar300: Спасибо большое!
vadbodnar300: вы мне очень помогли!
FunSociety: На здоровье

Ответы

Автор ответа: FunSociety
1
Program SP;
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.

Похожие вопросы
Предмет: Математика, автор: Аноним
Предмет: Математика, автор: dgavryukhova