процедуры и функции с параметрами

@Ирина240393 · Регистрация: 08.11.2010

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

Найти среднее арифметическое всех целых чисел от А до В двумя способами: используя процедуры и функции с параметрами

@SuPeR XaKer · 08.11.2010, 17:45

Pascal

Uses
 CRT;
Var
 a,b:integer;
 k:real;
 
procedure tabl(Var c,d:integer;Var l:real);
Var
 i,kol:integer;
 sum,sr:real;
begin
sum:=0;
kol:=0;
for i:=c to d do
begin
 inc(kol);
 sum:=sum+i;
 writeln(i);
end;
sr:=sum/kol;
l:=sr;
end;
 
begin
ClrScr;
repeat
 readln(a,b);
until a<=b;
tabl(a,b,k);
writeln('Sr:=',k);
readln;
end.

@Ирина240393 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 7
		1
	процедуры и функции с параметрами 08.11.2010, 16:48. Показов 1364. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое всех целых чисел от А до В двумя способами: используя процедуры и функции с параметрами 0

	08.11.2010, 17:45

процедуры и функции с параметрами

Решение