записи

[zhoric]

помогите, как сделать так, чтобы при выборе 4 пункта меню программа выполняла условие: Задача: напечатать сведения обо всех деталях, изготовленных указанным рабочим с под-счетом стоимости работ.
что-то у меня совсем не получается вылетает программа.

Program T7_10;
uses crt;
type 
    zakaz = record            {Запись для описания параметров заказа}
     namedetali: string[150]; {название детали}
     material: string[150];   {материал}
     razmer:integer;        {размеры}
     ves: integer;           {вес}
     stoimost: integer;   {стоимость}
     kolichestvo: integer; {количество}
     fiorabochego: string[150]; {фио рабочего}
     
  end;    
 
   var
     ll:array [1..150] of zakaz;  {Массив записей}
     i,n:integer;
     operation: integer;
      ispravitel,k:string;
      zap:integer;
     
      
      list: file of zakaz;           {Типизированный файл}
    
  label 11;
      begin
         begin
           clrscr;
             operation:= 0;
             while operation <> 5 do begin
           11: writeln('Введите номер операции для её выполнения!');          
              writeln('Меню: ');
              writeln('1.Ввод данных.                   4.Обработка данных.');
              writeln('2.Корректировка данных.     5.Завершение программы.');
              writeln('3.Печать данных.');
              write('Операция № '); readln(operation);
    
               case operation of
 
               1:
                  Begin 
                    clrscr;
                      Writeln('Введите кол-во записей, которые хотите создать:');
                      readln(n);
                      assign (list, 'praislist.doc');
                      rewrite (list);
                       for i:=1 to n do
                          begin
                            writeln('название детали:');
                             readln(ll[i].namedetali);
                              write (list,ll[i]);
                             writeln('материал:');
                              readln(ll[i].material);
                               write (list,ll[i]);
                             writeln('размеры:');
                             
                              readln(ll[i].razmer);
                                write (list,ll[i]);
                             writeln('вес:');
                               readln(ll[i].ves);
                                write (list,ll[i]);
                             writeln('стоимость:');
                              readln(ll[i].stoimost);
                               write (list,ll[i]);
                             writeln('количество:');
                              readln(ll[i].kolichestvo);
                               write (list,ll[i]);
                             writeln('ФИО рабочего, изготовляющего детали:');
                              readln(ll[i].fiorabochego);
                               write (list,ll[i]);
                          end;
               
    
     3:  begin
    assign(list,'D:\praislist.doc');
    reset(list);
 
    while not EOF (list) do begin
    for i:=1 to n do
    begin
        read (list,ll[i]);
        writeln (ll[i]);
    end;    
    end;
 
    close (list);
 
readln
end;
   4:  begin
      clrscr;
       writeln('введите фамилию рабочего');
   readln(n);
     for i:=1 to n do  
     begin
       if ll[i].fiorabochego=k
       then    {условие сведения обо всех деталях, изготовленных указанным рабочим с подсчетом стоимости работ.}
                                                          
                                                                    
           writeln ('название детали*- : ', ll[i].namedetali); {вывод на экран всех деталях, выполненых данным мастером}
           writeln ('материал***:', ll[i].material);
           writeln ('вес - :', ll[i].ves);
           writeln ('стоимость - :', ll[i].stoimost);
           writeln ('колличество***:', ll[i].kolichestvo);
           
       end;
          clrscr; 
       end;
   

End.

[Serge_Bliznykov]

1) какой у Вас Паскаль?
2) запакуйте файл praislist.doc с внесёнными данными и выложите архив на форум (ибо лень вбивать)...

[ZX Spectrum-128]

она не то что вылетает, она и не компилируется. правильно распределите begin end
writeln (ll[i]); // так нельзя выводить, нужно выводить, указывая поле записи, например
writeln (ll[i].ves)

[zhoric]

PascalABC;
здесь полностью программа