{Демонстрационная программа "Cosinus"}
program cosinus;
const kt=200;
var
  i,rn,a,f,fii,st:real;
  t,te,u:real;
  fi,fu,fte,ft:file of real;
  n:integer;
  ftext:text;
  filename:string;

begin
  write('Для какого напряжения (дайте имя файлу) создать файл ?  ');
  readln(filename);        {Чтение имени файла}
  assign(fu,filename);     {Создание файла с этим именем}
  rewrite(fu);
  write('Для какого тока (дайте имя файлу) создать файл ?  ');
  readln(filename);
  assign(fi,filename);
  rewrite(fi);
  assign(ftext,'text');    {Создание техтового файла с именем "text"}
  rewrite(ftext);
  assign(fte,'endtime');   {Создание файла с конечным временем "endtime" }
  rewrite(fte);
  assign(ft,'time');       {Создание файла содержащего значения времени "time"}
  rewrite(ft);
  write('Введите конечное время, te = ');
  read(te);
  write(fte,te);           {Запись конечного времени в файл "endtime"}
  t:=te/kt*0.7;
  st:=t;
begin
  writeln('Введите амплитуду, частоту, угол фи и сопротивление нагрузки.');
  read(a,f,fii,rn);
  repeat
    begin
      u:=cos((2*3.14159*f*t)+(fii*t));
      i:=u/rn;
      write(ft,t);         {Запись значения времени "t" в файл "time"}
      write(fu,u);         {Запись значения напряжения "u" в файл "filename"}
      write(fi,i);         {Запись значения тока "i" в файл "filename"}
      writeln(ftext,'  t = ',t,'     ','  U = ',U,'    I = ',i);
      t:=t+st;
    end;
  until t>=te;
  end;
  close(ft);
  close(fu);
  close(fi);
  close(fte);
  close(ftext);
end.