Работа с текст. файлом, проверка значений в нем.

[Vishez]

Задание :
Дана информация об учениках класса некоторой школы. Она содержит сведения об имени и фамилии ученика, его отметки в последней четверти. Определить, сколько учеников класса не имеют отметок ниже четырех, и вывести список этих учеников.


Мой пример текстового файла :
4 3
Ветеранов 5 2 3
Алибаркин 4 5 5
Веселая 3 4 5
Кримухин 5 5 5
т.е. 4 фамилии, 3 экзамена.

Собственно сама прога:

 
var i,j,m,n,k: integer;
f: TextFile;
Oif: array [1..30] of string;// массив, который мы выводим
Fio: array [1..30] of string;// исходный массив фамилий из файла
Oc: array [1..30,1..5] of integer;//массив оценок
begin
AssignFile (f,Fio);
Reset(f);
Readln(f,n,m);
for i:=1 to n do
begin
Readln(f,Fio[i]);//читаем фамилии
k:=0;//обнуляем счетчик
for j:=1 to m do
begin
Readln(f,Oc[i,j]);//читаем оценки
If Oc[i,j] >=4 then k:=k+1;//проверяем, какие оценки больше 4, если есть, то счетчик + 1

end;
If k:=m then Oif[i]:=Fio[i];//если счетчик норм то фамилия проходит
end;
//вывести Oif;
end;
end.

Но по-моему я точно что-то забыл... Ибо не работает -)

[Vishez]

Вывод фамилии, наскока я понял, в мемо.

[Vishez]

Что, никто не знает? -((

[Carbon]

Фамилии находятся в одной строке с оценками, следовательно readln загоняет всю строку в фамилию прямо с оценками.

Выход: переместить оценки на следующую строку и поменять

Readln(f,Oc[i,j]);//читаем оценки

на

Read(f,Oc[i,j]);//читаем оценки

[Vishez]

Хм. Не понял )

[Carbon]

readln считывает всю строку.

Поэтому получилось:
1 фамилия

Ветеранов 5 2 3

1 оценка

Алибаркин 4 5 5

2 оценка

Веселая 3 4 5

3 оценка

Кримухин 5 5 5

[Vishez]

Кк, понятно...
Не поможешь дописать её до конца полностью, чтоб работала?

[Carbon]

  var i,j,m,n,k,cnt,oc: integer;
       f: TextFile;
       Oif: array [1..30] of string;// массив, который мы выводим
       Fio: array [1..30] of string;// исходный массив фамилий из файла

begin

cnt:=0; //Количество записей в Oif

AssignFile (f,Fio);
Reset(f);

Readln(f,n,m);

for i:=1 to n do
begin

Readln(f,Fio[i]);//читаем фамилии

k:=0;//обнуляем счетчик

for j:=1 to m do
begin

Read(f,oc);//читаем оценки
If oc >=4 then k:=k+1;//проверяем, какие оценки больше 4, если есть, то  счетчик + 1

end;

If k=m then 
begin

cnt:=cnt+1;
Oif[cnt]:=Fio[i];//если счетчик норм то фамилия проходит

end;
end;

for i:=1 to cnt do
Writeln(Oif[i]);

end.

Вроде должно работать...

[Vishez]

Не-а -(
Ни в какую.

[bill]

У меня есть похожая программа дома. Просто скинь мне сообщение по почте чтобы я не забыл если чё. izgonitel@yandex.ru