mam taki mały problem... mam napisać program do którego:
1.Wpisze nową książkę i zapiszę ją w tablicy
2.Będę mógł edytować daną książkę
3.zapisze do pliku całą bibliotekę
4.odczyta z pliku cała bibliotekę
5.Będę mógł przeglądać książki i je wyszukiwać
Napisałem już 1 pkt, ale nie mogę sobie poradzić z resztą:( mam nadzieje, że ktoś mi pomoże. Zaznaczam, że piszę ten program dla siebie (chociaż podobny mieliśmy na lekcjach) to ja jednak nie mogę sobie poradzić. Wklejam to co napisalem do tej pory. Jak byłby ktoś chętny i pomógł mi w jakiś sposób to z góry dziękuje:)
program bazadanych;
uses crt;
type karta= record
nr:integer;
autor:string[20];
tytul:string[50];
end;
var t:array[1..50] of karta;
ile_k:integer;
z:char;
wielkosc:integer=50;
procedure zapisz;
begin
end;
procedure czytaj;
begin
end;
procedure nowy;
var i:integer;
begin
i:=1;
while (t[i].nr>0) and (i<=wielkosc) do inc(i);
if i=wielkosc+1 then
begin gotoxy(10,4);write('Baza pena') end
else
begin
gotoxy(10,3); write ('Podaj nowĄ ksiĄľke');
gotoxy(10,4); write ('Numer:');readln(t[i].nr);
gotoxy(10,5); write ('Autor:');readln(t[i].autor);
gotoxy(10,6); write ('Tytul:');readln(t[i].tytul);
end;
gotoxy(10,20); write('Nacisnij Enter!');
readln
end;
begin
for ile_k:=1 to 50 do t[ile_k].nr:=0;
ile_k:=0;
repeat
textcolor (yellow);
textbackground(blue);
clrscr;
textbackground(red);
clreol;
writeln ('ESC-koniec':80);
gotoxy(1,1); write ('z-Zapisz, c-Czytaj, n-Nowa');writeln;
textbackground(blue);
z:=readkey;
case z of
'z', 'Z':zapisz;
'c', 'C':czytaj;
'n', 'N':Nowy;
end;
until z=#27
end.
PS. zostawiłem miejsce na procedure zapisz i czytaj.... liczę na odpowiedzi:)