Записи, Динамика, Текстовые и Типизированые файлы, простая база Опции

[punkska]

Поля
1. ф
2. И
3. О
4. оценка
5. др
пойск по оценке

Проверте пожалуйста правильность написанной программы
особенно с файлами! не на путал ли я что...
может есть излишества или глупости!

 Lab3_4.zip ( 2.15 килобайт ) Кол-во скачиваний: 427


и может кто поможет с процедурой пойска...а то что-то она не получаеться...

[punkska]

а вот с удалением крах полный! если у кого есть минутка помогите мне с этими злобными процедурами

procedure Delete(var n:integer;var Stud: PtrClass;
                 D_kol: integer; D_mas: mas;  Opis: PtrClass;
                 OutPuе:outproc);
var
  b,j,i,c:integer;
  An:char;
begin

  repeat
     repeat
        repeat
           ClrScr;
           OutPut(D_kol,Opis);
           writeln('Do you want to delete some elements?');
           readln(An);
           if (An<>'n') and (An<>'y') then
              begin
                   writeln('Answer Yes or No!');
                   writeln('Try again. Press Enter...');
                   readln;
              end;
        until (An='n') or (An='y');
        if An='n' then exit;
        repeat
              clrscr;
              OutPut(D_kol,Opis);
              writeln('Tape the number to delete: ');
              readln(b);
              if (b>D_kol) or (b<1) then
                 begin
                      writeln('Error in number!!');
                      writeln('Try again.Press Enter...');
                      readln;
                      end;
        until (b<=D_kol) and (b>=1);
 что-то тут я хотел написать....

writeln('Are you shure? (y/n)');
              readln(An);
        until (An='y') or (An='n');
     until An='y';
     for i:=1 to D_kol do
         begin
          if i=b then
             begin
                  n:=n-1;
                  D_kol:=D_kol-1;
                  for c:=D_mas[i] to n do
                      Stud^[c]:=Stud^[c+1];
                  for i:=b to D_kol do
                      begin
                           Opis^[i]:=Opis^[i+1];
                           D_mas[i]:=D_mas[i+1]-1;
                      end;
             end;
         end;
         clrscr;
         writeln ('Element is erased!');
         readln;
     until An='n';
end;

такой набросок! я в нём уже запутался 100 раз!

Сообщение отредактировано: volvo - 2.11.2006 20:56