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

Помогите ,пожалуйста ,составить программу в Паскале + блок-схема.
Гость
Ответ(ы) на вопрос:
Гость
//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта //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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы