Помогите решить! Pascal. Операторы цикла (WHILE, REPEAT, FOR)

[GhostOfNight]

Pascal. Операторы цикла (REPEAT, WHILE, FOR) + ввод данных из текстового файла и вывод их.
по REPEAT чуть написала, а как дальше не знаю

program 3a;
Uses Crt;
Var x,b,x1,x2,h,v:real;
inp,out:text;
begin;
assign (inp, 'C:\3B-102\1251a.inр');
reset (inp);
reset (inp,x1,x2,h);
close (inp);
assign (out, 'C:\3B-102\1251a.out');
writeln (out, x1=

[ZX Spectrum-128]

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

Pascal. Операторы цикла (REPEAT, WHILE, FOR) + ввод данных из текстового файла и вывод их.
по REPEAT чуть написала, а как дальше не =

Что-то вы перепутали. Вам нужно подсчитать значения функции и результат вывести в текстовый файл.
Из файла считывать не нужно.

[GhostOfNight]

у меня в лекциях написано:
"при выборе имен inp и out для файловых переменных, связанных с входным и выходным файлами соответственно программа на ввод данных из файла 1251.inp в папке 3В-102 на диске С и вывод файла 1251.out в той же папке.

[ZX Spectrum-128]

Я сужу по описанию задачи в приложении. По нему нужно вычислить значение функции и вывод в файл.

[GhostOfNight]

можно хотя бы программки. с вводом и выводом потом подумаю

[ZX Spectrum-128]

А, прошу прощения, есть ввод данных из входного файла. Просто написано ввести из выходного файла.

Исправьте

reset (inp,x1,x2,h); на
Readln (inp,x1,x2,h,b);

[GhostOfNight]

вот чет написала. наверно неправильно

Uses Crt;
Var x,b,x1,x2,h,v:real;
        inp,out:text;
begin;
  assign (inp, 'C:\3B-102\1251a.inp');
  reset (inp);
  readln (inp,x1,x2,h,b);
  close (inp);
  assign (out, 'C:\3B-102\1251a.out');
  rewrite (out);
  writeln (out, 'x1=',x1:4:1,',  x2=',x2:3:1,', h=',h:3:1);
  writeln (out, v:3);
  repeat
    v:=cos(x);
    writeln (out, x:4:1, 4:16);
    x:=x+h
  until x˃x2+1E+10;
  close (out)
end.