Подсчитать суму площадей двух прямоугольников, для которых заданы их стороны

@Марина911 · Регистрация: 09.09.2010

Author24 — интернет-сервис помощи студентам

Процедури и функции должны находиться в одном файле.
Подсчитать суму площадей двух прямоугольников,для которых заданы их стороны.

@Puporev · 09.10.2010, 15:57

Сообщение от Марина911

Процедури и функции должны находиться в одном файле.

В одном файле с программой, или в отдельном файле-модуле?

@Марина911 · 09.10.2010, 21:14 **[ТС]**

В одном файле с программой.

@Puporev · 09.10.2010, 21:37

Pascal

uses crt;
procedure Vvod(var a,b:real;n:byte);
begin
writeln('Введите длины сторон прямоугольника ',n);
readln(a,b);
end;
function Plosh(a,b:real):real;
begin
Plosh:=a*b;
end;
function Summa(s1,s2:real):real;
begin
Summa:=s1+s2;
end;
var a1,b1,s1,a2,b2,s2:real;
begin
clrscr;
Vvod(a1,b1,1);
s1:=Plosh(a1,b1);
writeln('Площадь=',s1:0:2);
Vvod(a2,b2,2);
s2:=Plosh(a2,b2);
writeln('Площадь=',s2:0:2);
write('Сумма площадей=',Summa(s1,s2):0:2);
readln
end.

@Марина911 1 / 1 / 0 Регистрация: 09.09.2010 Сообщений: 36
		1
	Подсчитать суму площадей двух прямоугольников, для которых заданы их стороны 09.10.2010, 15:49. Показов 1368. Ответов 3 Метки нет (Все метки) Процедури и функции должны находиться в одном файле. Подсчитать суму площадей двух прямоугольников,для которых заданы их стороны. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.10.2010, 15:57	2
	Сообщение от Марина911 Процедури и функции должны находиться в одном файле. В одном файле с программой, или в отдельном файле-модуле? 0

@Марина911 1 / 1 / 0 Регистрация: 09.09.2010 Сообщений: 36
	09.10.2010, 21:14 [ТС]	3
	В одном файле с программой. 0

	09.10.2010, 21:37

Подсчитать суму площадей двух прямоугольников, для которых заданы их стороны

Решение