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

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

martiemiliya @martiemiliya

August 2022 1 67 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

pochemu galogeny znachitelno luchshe rastvoryayutsya v takih rastvoritelyah kak chetyryo

1 zadacha pozhalujsta srochno reshite

pomogitepozhalujsta s programmoj v paskale blok shema

esli dvuznachnoe chislo razdelit na proizvedenie ego cifrto v chastnom poluchitsyab4b233f8d78b6e4d8357fb867f98c49a 58

tex pa otvet vyrazite v kubicheskih metrah

tex]...

tex i s mnogogrannika izobrazhennogo na risunke vse dvugrannye ugly mnogogrann

v treugolnike abc ugol s raven 36 gradusov a bissektrisy ad i be peresekayutsya

tex 2reshit uravnenie u 9y5cos2x 3najti ekstremumy funkcii z3x3y 9x

12period poluraspada odnogo elementa t15 sutokvtorogo elementa t28 sutok op

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

Helpful Links

Helpful Social