VPF::помогите найти ошибку - Форум программистов

joker1989

Дата 18.5.2007, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

Программа осуществляет поиск по введённой фамилии ( во 2:begin) и находит первую запись и выходит из поиска, а мне нужно чтобы поиск осуществлялся до конца.

Код


program lab_9;
    uses crt;
       label na4;
       const mas:array[1..6]of string=(
    '# Atele:            ',
    '# Kvitancii:        ',
    'Data oform  zakaza:     ',
    'Data vida4i zakaza:     ',
    'FIO Mastera:           ',
    'Vid izdeliya:         ');
           var fail:text;
           o,zap,i,j,k:integer;
           st,stp:string;
           v:byte;
     begin
     assign(fail,'BD.txt');rewrite(fail);close(fail);
       zap:=0;
            na4:
    clrscr;
          gotoxy(15,5); write('Dly dobavleniya zapisi v BD vvedite #1#');
           gotoxy(15,6);write('Dly poiska po BD vvedite #2#');
            gotoxy(15,7);write('Dly prosmotra vsey BD vvedite #3#');
           gotoxy(15,8);write('Dly VIHODA iz programmi vvedite #4#');
          gotoxy(20,10);textcolor(2);write('Vibor: ');readln(v);
    clrscr;
    case v of
    1:begin
          append(fail);
           writeln('Dly dobavleniya zapisi v BD vvedite:');
       for i:=1 to 6 do
           begin
              write(mas[i]); readln(st);write(fail,st+'|');
         end;
    writeln(fail);
        close(fail);
           writeln('Zapis dobavlena');zap:=zap+1;
       end;
            2:begin
                write('Vvedite FIO mastera:'); readln(st);
               reset(fail);
             k:=0;
         for i:=1 to zap do
                begin
                readln(fail,stp);
               if pos(st,stp)<>0 then begin k:=1; break end;
           end;
    if k=0 then
    begin
        textcolor(4);
           writeln('!! Takoy zapisi net!!');
              end
         else
    begin
       i:=1;
         delete(st,1,100);
              for j:=1 to 6 do
    begin
        while stp[i]<>'|' do
    begin
         st:=st+stp[i];
             i:=i+1;
           end;
             writeln(mas[k]+st);k:=k+1;
      delete(st,1,100);
      i:=i+1
        end;
           end;
              close(fail);
                      end;
    3:begin
    reset(fail);
    delete(st,1,100);
    for o:=1 to zap do
    begin
    writeln('Pokazat',o,'-yu zapis');readkey;
    readln(fail,stp);
    i:=1;k:=1;
    for j:=1 to 6 do
    begin
    while stp[i]<>'|' do
    begin
    st:=st+stp[i];
    i:=i+1;
    end;
    writeln(mas[k]+st);k:=k+1;
    delete(st,1,100);
    i:=i+1;
    end;
    end;
    end;
    4:exit
    end;
    write('Dly prodolweniya nawmite na lubuy klaviwy');
    readkey;
    goto na4;
    end.

M
volvo877

Учитесь уже наконец давать информативные названия темам !!!

Это сообщение отредактировал(а) volvo877 - 19.5.2007, 13:29

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »