Ошибка, которая не видна

[gleensande]

И снова здравствуйте!
Была написана программа по такому условию:

"Даны массивы:
N1, ... , N10 - наименования предприятий;
F1, ... , F10- фонды заработной платы.
Вывести два списка: 1-й - предприятия, у которых фонд меньше среднего по всей группе;
2-й - предприятия, у которых фонд меньше 250000 р"

Она выглядит так:

program pr44_9;
const 
  m=10;
var
  n: array[1..m] of string;
  f: array[1..m] of integer;
  s: real;
  i: integer;
begin
	writeln('Введите наименования предприятий ');
	for i:=1 to m do
		read(n[i]);
	writeln('Введите их фонды заработной платы ');
	for i:=1 to m do
		read(f[i]);
	s:=0;
	for i:=1 to m do 
		s:=s+f[i];
	s:=s/m; 
	writeln('');
	writeln('1. Список предприятий, у которых фонд меньше среднего: ');
	for i:=1 to m do 
		if f[i]<s then 
			write(n[i],' ');
	writeln('');		
	writeln('2. Список предприятий, у которых фонд меньше 250000: ');
	for i:=1 to m do 
		if f[i]<250000 then 
			write(n[i],' ');		
end.

Почему-то программа выводит все, кроме самого важного - того, что в циклах. В PascalABC не выдает никакую ошибку, просто не выводит нужное. В Turbo - выдает какие-то совершенно рандомные, на мой взгляд, ошибки. То пишет, что line is too long, то выдает ошибку синтаксиса или несответствие типов при обнулении переменной s...

И заранее большое спасибо!

[FPaul]

при чтении строк замените read на readln.

[gleensande]

Сообщение от FPaul

при чтении строк замените read на readln.

Точно, недавно было то же самое, но память подводит. Спасибо огромное, все заработало.
А Вы случайно не знаете, почему так происходит?

[ViktorR]

Знаю, но ...
Заходим в раздел литературы, качаем Т.А. Павловская, Программирование на ЯВУ. Находим ответ.


Как-то так, ...

[Alex11223]

Сообщение от ViktorR

Знаю, но ...
Заходим в раздел литературы, качаем Т.А. Павловская, Программирование на ЯВУ. Находим ответ.


Как-то так, ...

А лучше сразу нормальную книгу.
Например из этого списка http://stackoverflow.com/a/388282/964478

И если уж качать, а не брать в библиотеке или покупать, то лучше с торрентов, а не с помоек типа депозитфайлса, куда ведут почти все ссылки в "разделе литературы".

UPD: ой, показалось, что тема в С++ разделе. Но тема с литературой все равно не торт.

[Serge_Bliznykov]

Alex11223, а Вы со списком ничего не напутали?
Уверены, что в книгах по C++ найдётся ответ, чем в Turbo Pascal (Pascal) в консоли отличается read() от readln() ?!

[FPaul]

Сообщение от gleensande

почему так происходит?

program test;

var
  s1, s2: string;
begin
  Read(s1);
  Read(s2);
  writeln('---------------------');
  writeln('"', s1, '"');
  writeln('"', s2, '"');
end.

Потому, что read(s1) вводит символы в s1 до символов перевода строки. Сами символы перевода строки оставляет в буфере клавиатуры.
Следующий read(s2) также вводит символы в s2 до символов перевода строки, но буфер уже содержит в начале перевод строки, ввод сразу завершается. Как результат, в s2 пустая строка.

Чтобы извлечь перевод строки из буфера - readln.

[gleensande]

Спасибо, стало гораздо понятнее!