Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.01.2013, 16:36   #1
arnold
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 21
Радость Программа подсчета

Цитата:
label m;
var c,a: integer;
begin
c:=0; {Обнуляем счетчик}
m: ReadLn(a); {Вводим очередное число}
if a>0 then c:=c+1;
WriteLn('Из них положительных - ' ,c);
goto m
end.
Вот код программы которая при вводе числа подсчитывает сколько введено положительных чисел. Почему она считает все числа?

Последний раз редактировалось arnold; 02.01.2013 в 16:42.
arnold вне форума Ответить с цитированием
Старый 02.01.2013, 22:42   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Не подтверждаю.
Вот результаты отработки:
Цитата:
1
╚ч эшї яюыюцшЄхы№э√ї - 1
2
╚ч эшї яюыюцшЄхы№э√ї - 2
3
╚ч эшї яюыюцшЄхы№э√ї - 3
-5
╚ч эшї яюыюцшЄхы№э√ї - 3
-6
╚ч эшї яюыюцшЄхы№э√ї - 3
7
╚ч эшї яюыюцшЄхы№э√ї - 4
Все правильно.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 02.01.2013, 22:51   #3
arnold
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 21
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Не подтверждаю.
Вот результаты отработки:

Все правильно.
Что за крякозябры
arnold вне форума Ответить с цитированием
Старый 02.01.2013, 23:14   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Цитата:
Что за крякозябры
В консоли кодировка cp866, а в программе строка в cp1251.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 02.01.2013, 23:36   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Что за крякозябры
Я не в паскале проверял. Бывает )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 03.01.2013, 14:20   #6
arnold
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 21
По умолчанию

На pascalabcnet даже при вводе отрицательных и нуля пишет их к положительным. Как такое может быть?
arnold вне форума Ответить с цитированием
Старый 03.01.2013, 14:57   #7
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Ох уж эти недопаскальнеты. Путём наблюдения видно, что реадлн второй раз не срабатывает (почему надо спросить у разработчиков). Замени ReadLn на Read.
А лучше поставь FreePascal + IDE Geany
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа подсчета слов ( с ++ ) TyT34 Помощь студентам 2 16.12.2012 23:38
Программа подсчета суммы ряда Lilen Паскаль, Turbo Pascal, PascalABC.NET 2 04.10.2012 20:19
Программа для подсчета PaladinRus Помощь студентам 1 17.07.2010 07:11
(Delphi)-Программа подсчета стоимости поездки. Kable-28 Помощь студентам 1 31.05.2010 21:19