Question

Помогите ,пожалуйста ,составить программу в Паскале + блок-схема.

Answer 1

//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта
//Pascal ABC.NET v3.1 сборка 1219

Var s:real; i,j,d1,d2,r1,r2,k:integer;

function Simple(d,r:integer):real;
begin
Simple:=sqr(d)*(r-1130)*9.8/(18*0.6);
end;


begin
 k:=0;
 read(d1,d2,r1,r2);
 for i:=d1 to d2 do
  begin
   for j:=r1 to r2 do
    begin
     s:=s+Simple(i,j);
     inc(k);
    end;
  end;
s:=s/k;
writeln(s);
end.

Пример ввода:
1
5
2
4
Пример вывода:
-11249.1296296296