Что я сделал не так?

@Konstalker · Регистрация: 18.10.2021

Author24 — интернет-сервис помощи студентам

Значения на экран из массива выводит, а в файл - нет.(( Как исправить?

Pascal

for i := 0 to length(n)-1 do
begin
  p := n[i];
  writeln (f, p);
  writeln(p);
end;

@XzzzX · 18.10.2021, 20:09

Не по теме:

а как можно чем-то помочь, если видишь только кусок кода, в котором не отслеживаются ключевые моменты записи в файл?

@Konstalker · 18.10.2021, 21:50 **[ТС]**

А, да, забыл...
Мне кажется, это самое основное

Pascal

assign(f, 'оценки.txt');
rewrite (f);
case (s) of
        'stf': begin
          cw;
          ca;
          m := true;
          for i := 0 to length(n)-1 do
          begin
            p := n[i];
            writeln(f, p);
            writeln(p);
          end;
          //savewindow('оценки.jpg');
          println('file sawed');
          closewindow;
        end;

@XzzzX · 19.10.2021, 07:11

после работы с файлом всегда используйте f.Close, если хотите, что бы изменения сохранились

@JuriiMW · 19.10.2021, 11:26

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

begin
p := n[i];
writeln(f, p);
writeln(p);
end;

Здесь переменная p как-бы лишняя… сразу n[i] и на экран и в файл…

Добавлено через 1 минуту
Либо проще:

Pascal

foreach p in n do
  begin
    WriteLn(f, p);
    WriteLn(p);
  end;

@XzzzX
	18.10.2021, 20:09 #2
	Не по теме: а как можно чем-то помочь, если видишь только кусок кода, в котором не отслеживаются ключевые моменты записи в файл? 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 995
	19.10.2021, 07:11	4
	Сообщение было отмечено Konstalker как решение Решение после работы с файлом всегда используйте `f.Close`, если хотите, что бы изменения сохранились 2

	19.10.2021, 11:26

Что я сделал не так?

Решение