Предмет: Информатика,
автор: vadbodnar300
Пожалуйста помогите составить программу для нахождения Периметра и площади прямоугольника!!!СРОЧНО НАДО!!!!!
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: nagumanovaadelya53
Предмет: Математика,
автор: evelinaradomsky
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Deniskasper
Предмет: Математика,
автор: dgavryukhova