|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2020, 22:39 | #1 |
Новичок
Джуниор
Регистрация: 29.04.2020
Сообщений: 3
|
Задача Паскаль
Добрый вечер, помогите пожалуйста
Требуется написать программу которая запрашивает числа с клавиатуры до тех пор, пока введенное число не будет больше суммы чисел или количество чисел не превысит 10 Вот код написанный Но там почему-то игнорирует условие что если число веденное превысит сумму чисел то завершить прогу? Помогите если знаете причину этого program Project1; var Chislo: real; Count: longint; sum: real; begin Count:= 0; {sum:= 0;} writeln('Введите числа: '); repeat readln(Chislo); inc(Count); sum:= sum + chislo; until (Chislo > sum) or (Count > 10); writeln('Программа закончила работу, сумма:',sum); readln; end. |
30.04.2020, 11:31 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Потому что введённое число суммируется вначале, поэтому сумма всегда будет больше введённого числа. Ну разве что отрицательные вводить. Попробуй : -5, 3. И зачем закомментил обнуление суммы - оно нужно.
|
04.05.2020, 10:38 | #3 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача паскаль | pomni | Помощь студентам | 9 | 29.05.2014 16:00 |
Задача на Паскаль | Лена104 | Помощь студентам | 1 | 22.12.2011 02:20 |
ЗАДАЧА ПО ПАСКАЛЬ | Katafrakt | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.04.2011 18:41 |
Задача на Паскаль | WitaliG | Помощь студентам | 7 | 22.12.2010 18:05 |
Задача на Паскаль | n1ce > Kuzia | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 26.01.2009 18:01 |