задачи на "файлы"

[eoln]

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

не работает она!

Дык ведь суббота же.

Попробую угадать варианты почему не работает:
1) при копипасте в файле in.dat пробелы в начале файла появляются
2) файл out.dat пустой (это потому, что в файле in.dat нет строки с баллом 4,5) Кстати, наверное, тут в задаче имелось ввиду что балл 4,5 и выше...
3) мигает чёрное окно и изчезает, а надо чтобы ещё на экране были видны букавки

Photolife, если рабочая программа не работает, то следует задуматься о причине...

[BDA]

Uses CRT;
var
f1,f2:textfile;
s:string;
f:real;
a:integer;
BEGIN
assign(f1,'in.dat');
assign(f2,'out.dat');
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
	readln(f1,s);
	val(copy(s,pos(' ',s)+1,length(s)-pos(' ',s)),f,a);
	if f=4.5 then
	begin
		writeln(f2,copy(s,1,pos(' ',s)-1));
		writeln(copy(s,1,pos(' ',s)-1));
	end;
end;
close(f1);
close(f2);
readln;
END.

Да, на экран забыл распечатать

[Photolife]

textfile; не верный тип, и к тому же надо ещё ввести данные в первый файл

[BDA]

Да, наверное, тип text.
И, да, данные нужно вводить (не из программы).
Ошибки в синтаксисе допускаю из-за того, что у меня нету Паскаля (он не работает "без бубна" на Win7).
Исправить синтаксически ошибки - несложная задача , особенно когда паскалевский компилятор подсказывает строчку и код ошибки.

[Photolife]

работает поскаль на вин 7 без бубна=) ПоскальАВС

[BDA]

Настоящий паскаль, это Turbo Pascal 7.0 1992 года выпуска
Синтаксис графического режима отличается у Турбо Паскаля и ПаскальАБС, поэтому я им почти не пользуюсь (в следующий раз буду писать паскалевские проги не в Дельфи, а в ПаскальАБС).