• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

Pascal

  • Автор темы Alexsey1991
  • Дата начала
A

Alexsey1991

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

Код:
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.
Посмотрите в чём проблемы!!И если можно то поясните!!!
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!