Записать 10 одинаковых строк в файл.

[Roman1295]

Код работает, но в блокноте отображает крякозябры: собственно, хочу спросить, может что неверно в написании?

var f1: file of string;
x: string; i:integer;
begin
Assign(F1, 'D:\2.txt');
rewrite(f1);
readln(x);
For i:=1 to 10 do
write(f1,x);
close(f1);
end.

[Sciv]

В написании все верно, все дело в кодировке. Оригинальный Турбо/Борланд Паскаль был прогой досовской, соответственно работал только с ДОС-кодировкой. Если открыть файл не блокнотом, а Texter'ом, или любым редактором, поддерживающим смену кодировок, то текст будет нормальным

[whatever]

Добавлю, что можно относительно нормально открыть и блокнотом, просто нужно сменить шрифт на Terminal. "Относительно" потому, что file of strings, а не text.

[Serge_Bliznykov]

угу. согласен. я бы так предложил написать:

var 
  f1: text;
  x: string; i:integer;
begin
  Assign(F1, 'D:\2.txt');
  rewrite(f1);
  readln(x);
  For i:=1 to 10 do
    writeln(f1,x);
  close(f1);
end.

ну и замечание насчёт досовской кодировки (она же 866, она же OEM) в силе - файл получится именно в DOS кодировке.