Question

В цикле записать в файл числа от 1 до 10 (каждое — в своей строке), а затем их считать и отобразить на экране. Дополните код: var filetext: text; a:string; i:integer; begin assign(filetext,'c:\text.txt'); rewrite(filetext); for i:=1 to 10 do ... reset(filetext); for i:=1 to 10 do begin ... ... end; close(filetext); end.

Answer 1

var

filetext: text;

a:string;

i,c:integer;

b,k:real;

begin

assign(filetext,'C:\text.txt');

rewrite(filetext);

for i:=1 to 10 do begin

readln(a);

writeln(filetext,a)

end;

close(filetext);

reset(filetext);

for i:=1 to 10 do begin

readln(filetext,a);

val(a,b,c);

k:=k+b

end;

writeln(k);

close(filetext);

end.

Answer 2

Для выполнения задачи вам нужно использовать процедуры rewrite для записи чисел в файл и reset для чтения чисел из файла. Здесь предоставлен полный код для записи чисел от 1 до 10 в файл и их последующего чтения из файла и вывода на экран:

pascalCopy code
var
  filetext: text;
  i: integer;

begin
  // Запись чисел от 1 до 10 в файл
  assign(filetext, 'c:\text.txt');
  rewrite(filetext);

  for i := 1 to 10 do
    writeln(filetext, i);

  close(filetext);

  // Чтение чисел из файла и вывод на экран
  reset(filetext);

  for i := 1 to 10 do
  begin
    readln(filetext, a);
    writeln(a); // Вывод числа на экран
  end;

  close(filetext);
end.

Этот код откроет файл c:\text.txt, запишет числа от 1 до 10 в каждой строке, а затем прочитает их из файла и выведет на экран. Обратите внимание, что переменная a не используется в цикле чтения, так как нам не нужно хранить числа во временной переменной. Просто читаем число непосредственно из файла и выводим его на экран.