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

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

martiemiliya @martiemiliya

August 2022 1 88 Report

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

Answers & Comments

Gleb1Kosyrev

Verified answer

//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта
//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

0 votes Thanks 0

Answers & Comments

Verified answer

Почему галогены значительно лучше растворяются в таких растворителях, как четырё...

1 задача пожалуйста срочно решите...

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

Если двузначное число разделить на произведение его цифр,то в частном получится ...

tex] Па? Ответ выразите в кубических метрах...

tex]...

tex] и С многогранника, изображенного на рисунке. Все двугранные углы многогранн...

В треугольнике ABC угол С равен 36 градусов ,а биссектрисы AD и BE пересекаются ...

tex] 2)Решить уравнение: у''-9y=5cos2x 3)Найти экстремумы функции : z=3x³+3y³-9x...

12)Период полураспада одного элемента Т1=5 суток,второго элемента Т2=8 суток. Оп...

рекомендуемые вопросы

Helpful Links

Helpful Social