Home
О нас
Products
Services
Регистрация
Войти
Поиск
martiemiliya
@martiemiliya
August 2022
1
63
Report
Помогите ,пожалуйста ,составить программу в Паскале + блок-схема.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
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
More Questions From This User
See All
martiemiliya
August 2022 | 0 Ответы
pochemu galogeny znachitelno luchshe rastvoryayutsya v takih rastvoritelyah kak chetyryo
Answer
martiemiliya
August 2022 | 0 Ответы
1 zadacha pozhalujsta srochno reshite
Answer
martiemiliya
August 2022 | 0 Ответы
pomogitepozhalujsta s programmoj v paskale blok shema
Answer
martiemiliya
August 2022 | 0 Ответы
esli dvuznachnoe chislo razdelit na proizvedenie ego cifrto v chastnom poluchitsyab4b233f8d78b6e4d8357fb867f98c49a 58
Answer
martiemiliya
August 2022 | 0 Ответы
tex pa otvet vyrazite v kubicheskih metrah
Answer
martiemiliya
August 2022 | 0 Ответы
tex]...
Answer
martiemiliya
August 2022 | 0 Ответы
tex i s mnogogrannika izobrazhennogo na risunke vse dvugrannye ugly mnogogrann
Answer
martiemiliya
August 2022 | 0 Ответы
v treugolnike abc ugol s raven 36 gradusov a bissektrisy ad i be peresekayutsya
Answer
martiemiliya
August 2022 | 0 Ответы
tex 2reshit uravnenie u 9y5cos2x 3najti ekstremumy funkcii z3x3y 9x
Answer
martiemiliya
August 2022 | 0 Ответы
12period poluraspada odnogo elementa t15 sutokvtorogo elementa t28 sutok op
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
Report "Помогите ,пожалуйста ,составить программу в Паскале + блок-схема..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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