в чём ошибка???

Question

в чём ошибка???

Марина Долгова Знаток (311), на голосовании 10 лет назад

var f1,f2:text;
s:string;
c:char;
begin
assign(f1,'in.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
writeln('Введите букву');readln(c);
while not eof(f1) do
begin
readln(f1,s);
if s[1]=c then writeln(f2,s)
end;
close(f1);
close(f2);
end.

Answer 1

#Steep Boy# Ученик (110) 10 лет назад

хз.... не понятно что написано...

Answer 2

Нужно создать файл in.txt в той папке, где находится программа.

P.S. Всё работает как часы. Сравнивать так можно, потому что s[1] - это обычный char.

Answer 3

Ошибок нет
Нужные строки исправно копирует из первого файла во второй

Answer 4

Нельзя так читать 1 символ. Сделайте c:char строкой и сравниваете ее первым символом.

Answer 5

1. Компилятор сам должен выдавать в какой строке ошибка при компиляции.
2. Не тратьте время зря, учите Си или питон, будете много денег получать, я гарантирую это.

Answer 6

вот программа, осталось прочитать и распечатать f2
uses crt;
var f1,f2:text;
s:string;
i:integer;
c:char;
begin
assign(f1,'in.txt');
assign(f2,'out.txt');

rewrite(f1);
rewrite(f2);
for i:=1 to 5 do begin
readln (s);
write(f1,s);
end;
close(f1);
reset(f1);
writeln('Введите букву');readln(c);
while not eof(f1) do
begin
readln(f1,s);
if s[1]=c then writeln(f2,s)
end;
close(f1);
close(f2);
end.