Новые сообщения · Правила  
Страница 1 из 3123»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ПОМОГИТЕ ОЧЕНЬ НУЖНО!!! ПОЖАЛУЙСТА (РЕШИТЬ В ПАСКАЛЕ!!!)
ПОМОГИТЕ ОЧЕНЬ НУЖНО!!! ПОЖАЛУЙСТА
Известна температура каждого дня апреля. Определить самую тёплую декаду (в апреле 3 декады по 10 дней), указав её среднюю температуру. Учесть, что таких декад может быть несколько. Для каждой из самых тёплых декад определить среднюю температуру.(построить блок-схему)
1 | Автор: DenisKa06011 | 2011-05-15, 01:47   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2011-05-15, 09:40   |  Репутация: [ + 211 ]
Ты хоть иногда првоеряеш свои коды в программе? )) Циклы будут работать криво. Первый цикл работает от 1 до 10, второй от 10 до 20. 10 входит и в первый цикл и во второй, с 20 тоже самое. В итоге у тебя в первой декаде - 10 дней, во второй - 22, в третей - 21 ))
3 | Автор: HWOARANG | 2011-05-15, 15:59   |  Репутация: [ + 20 ]
Нет конечно)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-05-15, 19:11   |  Репутация: [ + 211 ]
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. А вот блок-схему уж как-то сами.


Меня все время преследуют умные мысли... но я быстрее!!!
5 | Автор: guru | 2011-05-16, 02:02   |  Репутация: [ + 8 ]
а почему декад не 3? =) в месяце 3 декады по 10 дней (грубо говоря), так же как в году 4 квартала и т.д.
а ты сделал поиск не самой теплой декады а самых теплых 10 дней идущих подряд.


If you can't make it GOOD make it LOOK GOOD. B.Gates
6 | Автор: DoVe | 2011-05-16, 10:01   |  Репутация: [ + 48 ]
ухух

guru что-то намутил там))

Как только графы выучу пересмотрю ещё раз свой код:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2011-05-16, 10:12   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
Как только графы выучу

? а зачем тут графы?


If you can't make it GOOD make it LOOK GOOD. B.Gates
8 | Автор: DoVe | 2011-05-16, 11:16   |  Репутация: [ + 48 ]
Та тут они не зачем:)

Просто я сейчас ними решил заняться, а потом уже буду помогать кому-то тут:)
Так-что у кого-нибудь есть шанс меня догнать по репутации:):)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
9 | Автор: Berestovskiy | 2011-05-16, 11:28   |  Репутация: [ + 211 ]
Quote (DoVe)
а ты сделал поиск не самой теплой декады а самых теплых 10 дней идущих подряд.
а это разве не декада 10 идущих подряд дней?


Меня все время преследуют умные мысли... но я быстрее!!!
10 | Автор: guru | 2011-05-16, 13:01   |  Репутация: [ + 8 ]
Нет, декада это с первого по 10-ый, с 10-го по 20-ый и с 20-го по 30-тый

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
11 | Автор: Berestovskiy | 2011-05-16, 14:24   |  Репутация: [ + 211 ]
спасибо ребят. только какой правильный вариант теперь?
12 | Автор: DenisKa06011 | 2011-05-18, 18:32   |  Репутация: [ + 0 ]
Первый вроде бы правильный, только циклы исправь в нем. Второй цикл от 11 до 20, третий от 21 до 30.
13 | Автор: HWOARANG | 2011-05-18, 20:34   |  Репутация: [ + 20 ]
как узнать что программка работает? я совсем на разбираюсь
14 | Автор: DenisKa06011 | 2011-05-19, 22:52   |  Репутация: [ + 0 ]
Так-же как и узнать температура Адронного колайдера при разгоне в 65 м/с - спросить экспертов..т.е. тебе сказали (читай пост HWOARANG`a)

Если препод не приймет - тогда узнай в чём именно ошибка и мы исправим..


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
15 | Автор: Berestovskiy | 2011-05-19, 23:31   |  Репутация: [ + 211 ]
окей.
16 | Автор: DenisKa06011 | 2011-05-20, 14:56   |  Репутация: [ + 0 ]
Обращайся ещё:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
17 | Автор: Berestovskiy | 2011-05-20, 16:52   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
17 | Автор: Berestovskiy | 2011-05-20, 16:52   |  Репутация: [ + 211 ]
мне бы ещё блок-схему нарисовать ) ну ладно, это я как нибудь сам попробую.
18 | Автор: DenisKa06011 | 2011-05-21, 16:39   |  Репутация: [ + 0 ]
будут проблемы с нарисованием - обращайся)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
19 | Автор: Berestovskiy | 2011-05-21, 20:03   |  Репутация: [ + 211 ]
все таки есть проблемы с на рисованием у меня. ни кто не может из моих помочь)
Сможешь нарисовать? )
20 | Автор: DenisKa06011 | 2011-05-24, 14:06   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ПОМОГИТЕ ОЧЕНЬ НУЖНО!!! ПОЖАЛУЙСТА (РЕШИТЬ В ПАСКАЛЕ!!!)
Страница 1 из 3123»
Поиск: