|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
07.06.2011, 13:02 | #1 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 3
|
Нужно исправить текст программы на Pascale
Задача: Разработать приложение, определяющее самый жаркий и самый холодный день прошедшей недели, если известна среднесуточная температура за каждый день
вот текст программы который получился у меня, но проблема в том что в конце он выводит только самыы холодныц день, а про жаркий не слова program pogoda; type mas = array [1..7] of integer; var m:mas; i, max,min:integer; begin for i:=1 to 7 do begin writeln('введите среднесучтоную температуру ',i,' дня'); readln (m[i]); end; for i:=1 to 7 do begin if m[i] < min then min:=m[i]; if m[i] > max then max:= m[i]; end; for i:=1 to 7 do begin if m[i]=min then writeln ( i, ' -й день был самый холодный'); if m[i]=max then writeln ( i, '-й день был самый жаркий'); end; readln end. |
07.06.2011, 13:10 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Перед циклом, в котором ищите их, max:=m[1] и аналогично минимум.
upd: Но вам нужна не температура, а номер дня. Поэтому в другую переменную присваивайте индекс (когда найден новый макс или мин) и потом его выводите (без последнего цикла). upd2: Хотя и так должно работать. Просто min у вас = 0 (в Паскале не инициализированным переменным присваивается 0), а у вас видимо все температуры были больше 0.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. Последний раз редактировалось Alex11223; 07.06.2011 в 13:21. |
07.06.2011, 13:22 | #3 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 3
|
Спасибо большое, все работает
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужно написать текст программы,а так всё сделано. | анастасия05 | Помощь студентам | 0 | 30.05.2011 15:16 |
нужно распределить текст программы на группы | bigsan | Общие вопросы Delphi | 1 | 19.12.2010 18:55 |
!!Нужно вписать еще одну ошибку в текст программы!! | nici1991 | Помощь студентам | 6 | 17.06.2010 04:06 |
Люди...Помогите решить задачи на Pascale....Срочно очень нужно) | Яков Repby | Помощь студентам | 0 | 08.06.2009 00:45 |
Как сделать мигающий текст в Pascale??? | Danilyuk | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 31.05.2008 17:57 |