Секунда вашего времени!

[--Sashok--]

Помогите пожайлуста дописать програмку, нужно чтобы исходные даные про товар старую цену и новую записывало в файл 'tovar2'.Вот то что у меня вышло, почти доделанная ток не знаю как сохранить в другой...что т ошибку выбивает!

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tovar=record
   tov: string[15];
   nov: real;
   sta: real;
   end;
   var s:tovar;
   Fs: file of tovar;
   v,n,i:integer;
begin
write('Vvedit kilkist tovary: ');
readln(n);
write('Vvedit %= ');
readln(v);
   assign (Fs,'tovar1');
   rewrite(Fs);
   for i:=1 to n do
   begin
   write (' Nazva_tovaru: ');
   readln(s.tov);
     write('Vvedit stary_ciny: '); readln(s.sta);
     s.nov:=(s.sta*v)/100 +s.sta;
     write(Fs,s);
     end;
     close(Fs);
     reset(Fs);
     while not eof(Fs) do
     begin
       read(Fs,s);
         writeln(' Nazva Tovaru - ',s.tov:5, ' Stara Cina = ',s.sta:5:2, ' Nova Cina =', s.nov:5:2);
         end;
         close(Fs);
         readln;
end.

[--Sashok--]

та йомайо посмотрите времени нет , а роботы для вас секунд 15! что вы не люди чтоли 0_о

[--Sashok--]

00000000000000000000000000000000000 000000

[--Sashok--]

та помоги кто там у вас самый крутой программер всех веков и народов!

[HuBuDuMkA]

попробуй проверить типы..может не те задал,они могут не соответствовать

[--Sashok--]

HuBuDuMkA, задача исполняется я не знаю код чтобы результат записало в другой файл! вот в чем вся загвоздочка! помоги же милый друг!

[--Sashok--]

я люблю когда никто мне не помагает , я просто счастлив.лох

[Zer0]

Не флудите, а... Я честно говоря больше секунды потратил чтобы тему прочитать :D
Объявите вторую переменную (fs2 например) и назначьте ее к файлу tovar2, старые цены пишите сразу в нее, не вижу в этом такой большой проблемы

[Serge_Bliznykov]

название темы не отражает суть решаемой задачи.

ЗАКРЫТО