|
ПОМОГИТЕ ОЧЕНЬ НУЖНО!!! ПОЖАЛУЙСТА
|
|
|
Известна температура каждого дня апреля. Определить самую тёплую декаду (в апреле 3 декады по 10 дней), указав её среднюю температуру. Учесть, что таких декад может быть несколько. Для каждой из самых тёплых декад определить среднюю температуру.(построить блок-схему)
|
|
|
|
var
a:array[1..30]of integer;
i,p,pmax:integer;
begin
for i:=1 to 30 do
read(a[i]);
for i:=1 to 10 do
p:=p+a[i];
if p>pmax then pmax:=p;
p:=0;
for i:=10 to 20 do
p:=p+a[i];
if p>pmax then pmax:=p;
p:=0;
for i:=20 to 30 do
p:=p+a[i];
if p>pmax then pmax:=p;
p:=0;
writeln('Самая тёплая декада: ',pmax);
write('Её средняя температура: ',pmax/10);
end. "Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Ты хоть иногда првоеряеш свои коды в программе? )) Циклы будут работать криво. Первый цикл работает от 1 до 10, второй от 10 до 20. 10 входит и в первый цикл и во второй, с 20 тоже самое. В итоге у тебя в первой декаде - 10 дней, во второй - 22, в третей - 21 ))
|
|
|
|
Нет конечно)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Code
uses crt;
var
a:array[1..30]of integer;
i,j,n,p,pmax, pfirst:integer;
begin
clrscr;
for i:=1 to 30 do read(a[i]);
pmax:=0;
for i:=1 to 20 do
begin
p:=0;
n:=i+9;
for j:=i to n do
begin
p:=p+a[j];
if p>pmax then
begin
pmax:=p;
pfirst:=i;
end;
end;
end;
writeln('Самая тёплая декада c: ',pfirst,' по ',pfirst+10,'апреля. ');
write('Её средняя температура: ',pmax/10);
readln;
end.
вот решил вспомнить паскаль, исправленый код Berestovskiy, определяет самую теплую декаду из 20 случаев. Вобще как не странно их не 3. А вот блок-схему уж как-то сами.
Меня все время преследуют умные мысли... но я быстрее!!!
|
|
|
|
а почему декад не 3? =) в месяце 3 декады по 10 дней (грубо говоря), так же как в году 4 квартала и т.д.
а ты сделал поиск не самой теплой декады а самых теплых 10 дней идущих подряд.
If you can't make it GOOD make it LOOK GOOD. B.Gates
|
|
|
|
|
ухух guru что-то намутил там)) Как только графы выучу пересмотрю ещё раз свой код:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Как только графы выучу
? а зачем тут графы?
If you can't make it GOOD make it LOOK GOOD. B.Gates
|
|
|
|
|
Та тут они не зачем:) Просто я сейчас ними решил заняться, а потом уже буду помогать кому-то тут:)
Так-что у кого-нибудь есть шанс меня догнать по репутации:):)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (DoVe) а ты сделал поиск не самой теплой декады а самых теплых 10 дней идущих подряд.
Меня все время преследуют умные мысли... но я быстрее!!!
|
|
|
|
Нет, декада это с первого по 10-ый, с 10-го по 20-ый и с 20-го по 30-тый
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
спасибо ребят. только какой правильный вариант теперь?
|
|
|
|
|
Первый вроде бы правильный, только циклы исправь в нем. Второй цикл от 11 до 20, третий от 21 до 30.
|
|
|
|
|
как узнать что программка работает? я совсем на разбираюсь
|
|
|
|
|
Так-же как и узнать температура Адронного колайдера при разгоне в 65 м/с - спросить экспертов..т.е. тебе сказали (читай пост HWOARANG`a) Если препод не приймет - тогда узнай в чём именно ошибка и мы исправим..
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Обращайся ещё:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
мне бы ещё блок-схему нарисовать ) ну ладно, это я как нибудь сам попробую.
|
|
|
|
будут проблемы с нарисованием - обращайся)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
все таки есть проблемы с на рисованием у меня. ни кто не может из моих помочь)
Сможешь нарисовать? )
|
|
|
|
