текстовый файл

[mishammm]

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

1-е. запакуйте ваш xolod.txt в архив и архив выложите на форум.

2-е. чётко и полностью (желательно так, как у Вас в задании написано, слово в слово) сформулируйте, что Вам надо сделать, какой файл в результате надо получить.

составить программу создания текстового файла с именем Т, с информацией о "холодильниках"; вывести соответствующую таблицу данных файла и ту ее часть, которая содержит сведения о холодильниках на складе: город производства, название холодильника, объем холодильной камеры, год и месяц выпуска, цена , количество. используя сформированный файл, вывести информацию о холодильниках 1993 года выпуска. предусмотреть в программе изъятия и добавления данных.

[Serge_Bliznykov]

ок.
а файл где?

[mishammm]

ну вот прикрепил,(zadolablo.txt) но оно неправильно в него пишет. ну а вот если использовать вот этот код:

 const 
      n=4;
 type
    xolod = record
      virobn:string[50];
      nazvanie:string[45];
      kamera:real;
      rik:integer;
      misce:string[45];
      cina:real;
      kilkist:real;
    end;
   var
   f:text;
   i:integer;
  procedure stvor;
  var
     i:integer;
     tabl:xolod;
     begin
           Assign(f,'d:\xolod.txt');
           rewrite(F);
           close(F);
           Assign(f,'d:\xolod.txt');
           append(F);
           for i:=1 to n do
           begin
            Write('virobn:');
            readln(tabl.nazvanie);
            Write('nazvanie:'); 
            readln(tabl.nazvanie);
            Write('kamera:');  
            readln(tabl.kamera);
             Write('rik:'); 
             readln(tabl.rik);
     Write('misce:'); 
     readln(tabl.misce);
     Write('cina:'); 
     readln(tabl.cina);
     Write('kilkist:'); 
     readln(tabl.kilkist);
     
      writeln(f,tabl.virobn:10,'|' ,tabl.nazvanie:15,'|',tabl.kamera:16,'|', tabl.rik:4,'|', tabl.misce:9,'|' , tabl.cina:9,'|' , tabl.kilkist:9,'|');
      end;
      close(F);
      End;
      
      Procedure Vuvid;
      var
         sss:string;
         begin
         assign(f, 'd:\xolod.txt');
         reset(F);
         while not  eof (F) do begin
         read(f,sss);
          If  (sss='1993') then
          begin
        
         writeln(sss);
         end;
         end;
         Close(F);
         
      End;
      
      begin
      
      stvor;
      vuvid;
      end

.
от прикрепил (xolod.txt), оно там пишет введенные данные, а само условие холодильников (нужно вывести 1993 года) туда в файл не пишет

[mishammm]

вот так еще сделал

type
xolod = record
vr:string[50];
nv:string[45];
kr:integer;
rk:integer;
misc:string[45];
cn:real;
kst:real;
end;
 
var
i,j:integer;
f:text;
tabl:xolod;
    
virobn:array[1..4] of string[45];
nazva:array[1..4] of string[50];
kamera:array[1..4] of integer;
rik:array[1..4] of integer;
misce:array[1..4] of string[45];
cina:array[1..4] of real;
kilkist:array[1..4] of real;
 

Procedure vvid;
begin
Assign(f, 'zadolbalo.txt');
Rewrite(f);
Writeln('Vvedenna dannix');
with tabl do
begin
Write('virobn:');
readln(vr);
Write('nazvanie:');
readln(nv);
Write('kamera:');
readln(kr);
Write('rik:');
readln(rk);
Write('misce:');
readln(misc);
Write('cina:');
readln(cn);
Write('kilkist:');
readln(kst);
 
writeln(f,vr:10);
writeln(f,nv:15);
writeln(f,kr:16);
writeln(f,rk:4);
writeln(f,misc:9);
writeln(f,cn:9);
writeln(f,kst:9);
end;
Close(f);
End;
Procedure Zagol;
begin
writeln('-----------------------------------------------------------------------');
writeln('| Виробництво | Назва | Обэм Камери | Рік | Місце | Ціна | Кількість|');
writeln('-----------------------------------------------------------------------');
End;
 
Procedure Vuvid;
var
sss:string;
begin
assign(f, 'zadolbalo.txt');
Reset(f);
while not eof(f) do
begin
i:=i+1;
readln(f,virobn[i]);
readln(f,nazva[i]);
readln(f,kamera[i]);
readln(f,rik[i]);
readln(f,misce[i]);
readln(f,cina[i]);
readln(f,kilkist[i]);
end;
writeln(sss);
End;
 
Procedure obrobka;
var
sss:string;
i : integer;
begin
Zagol;
Assign(f, 'zadolbalo.txt');
Reset(f);
For i:=1 to 4 do
begin
readln(f, sss);
If (rik[i]= 1993) then
begin
write(' |', virobn[i]:10,'|');
write(nazva[i]:15,'|', kamera[i]:16,'|', rik[i]:4,'|', misce[i]:9,'|' , cina[i]:9,'|' , kilkist[i]:9,'|');
writeln(sss);
end;
end;
Close(f);
End;
 
BEGIN
vvid;
vuvid;
obrobka;
End.

но вот тоже что то не то

[Vanta11a]

Procedure Vuvid;
i:=i+1;

А какое начальное значение i? Прааально, непонятное. Ибо не инициализируется.

Procedure obrobka;
var
i : integer;

А как же уже существующая глобальная i?

Что вообще в процедуре obrobka происходит? Построчно прокомментируйте.

[Serge_Bliznykov]

mishammm, самая главная (принципиальная) ваша ошибка в том, что Вы пытаетесь использовать (причём, разумеется, НЕВЕРНО) исходный текстовый, там, где логикой программы подразумевается использование ТИПИЗИРОВАННОГО файла.

вместо
f : text;
должно быть

 f1 : file of xolod;
 f2 : text; {это для выходного файла}

ну и разумеется, вместо xolod.txt должен быть бинарный (типизированный) файл.

тогда мозаика у Вас и сложится!

[mishammm]

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

mishammm, самая главная (принципиальная) ваша ошибка в том, что Вы пытаетесь использовать (причём, разумеется, НЕВЕРНО) исходный текстовый, там, где логикой программы подразумевается использование ТИПИЗИРОВАННОГО файла.

вместо
f : text;
должно быть

 f1 : file of xolod;
 f2 : text; {это для выходного файла}

ну и разумеется, вместо xolod.txt должен быть бинарный (типизированный) файл.

тогда мозаика у Вас и сложится!

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

[Serge_Bliznykov]

у Вас есть у кого можно уточнить задание - какой файл должен быть на входе программы: текстовый или типизированный ?!!


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