Pascal

Тема в разделе "Pascal and Delphi", создана пользователем Alexsey1991, 2 мар 2010.

  1. Alexsey1991

    Alexsey1991 Гость

    Создать базу данных склад!Вот чё я смог решить но выдают ошибки которые мне не понятны!!

    Код (Text):
    Program z35;
    uses crt;
    type
    sklad=record
    name:string[15];
    kol:integer;
    end;
    var
    n,i,kz:integer;
    f:file of sklad;
    ved:array[1..100] of sklad;
    isk:string;
    found:boolean;
    begin
    kz:=0;
    assign(f,'sklad.dat');
    if fileexists('sklad.dat') then
    begin
    reset(f);
    while not eof(f) do
    begin
    kz:=kz+1;
    read(f,ved[kz]);
    end;
    close(f);
    end;
    repeat
    cls;
    writeln('---------------------------------------------');
    writeln('1.Udality izdelie');
    writeln('2.Prosmotr zapisey');
    writeln('3.Obnovity');
    writeln('0.VYHOD');
    writeln('---------------------------------------------');
    writeln('Vedite nomer vybronogo vida raboty: ');readln(n);
    cls;
    case n of
    0: break;
    1: begin
    write('Vedite nazvanie udaliaemogo izdelia');readln(isk);
    found:=false;
    for i:=1 to kz do
    if ved[i].name=isk then
    begin
    found:=true;
    for n:=i to kz-1 do
    begin
    ved[n].name := ved[n+1].name;
    ved[n].kol := ved[n+1].kol;
    end;
    kz:=kz-1;
    end;
    if found then
    writeln('Udalenie uspeshno')
    else
    writeln('Takogo izdelia net');
    end;
    2: begin
    for i:=1 to kz do
    writeln(ved[i].name,' ',ved[i].kol);
    end;
    3: begin
    writeln('vedite nazvanie izmeniaemogo izdelia');
    found:=false;
    for i:=1 to kz do
    if ved[i].name=isk then
    begin
    found:=true;
    writeln('vedi nazvanie izdelia');
    readln(ved[i].name);
    writeln('vedite kolichestvo izdelia');
    readln(ved[i].kol);
    end;
    if not found then
    begin
    writeln('takoy ryby net');
    writeln('hotite dobavite novoe izdelie? 1.da 2.Net');
    readln(n);
    if n=1 then
    begin
    if kz=100 then
    writeln('Baza perepolnena')
    else kz:=kz+1;
    writeln('vedite nazvanie novogo izdelia');
    readln(ved[kz].name);
    writeln('vedite kolichestvo izdelia');
    readln(ved[kz].kol);
    end;
    end;
    until not(n in [1..3]);
    if cancreatefile('sklad.dat') then
    begin
    rewrite(f);
    for i:=1 to kz do
    write(f,fish[i]);
    close(f);
    end;
    end.
    Посмотрите в чём проблемы!!И если можно то поясните!!!
     
  2. Alexsey1991

    Alexsey1991 Гость

    но когда запускаю пишет ошибку!!!
     
  3. xKlonx

    xKlonx Lotus team
    Lotus team

    Регистрация:
    10 сен 2009
    Сообщения:
    412
    Симпатии:
    0
    Alexsey1991
    Так покажите эти ошибки,здесь не телепаты
     
Загрузка...

Поделиться этой страницей