Jak napisać * Program gromadzący podstawowe informacje o pracownikach, np. imię, nazwisko, data urodzenia, miejsce urodzenia, płeć i numer telefonu. Powinna być możliwość wyszukiwania, usuwania i modyfikowania pracowników;

2007-01-13 21:43:39, Pikuw
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
Moim zdaniem najlepij w Tabeli..!:D

2007-01-14 11:03:44, username
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
rozwine ;p

1) tab:array[1..6,1..100] of string;

for i:=1 to 6 do
begin
write('Podaj kolejno imie, nazwisko etc');
readln(tab[i,ilosc_osob+1];
ilosc_osob=ilosc_osob+1;
writeln(plik,tab[i,ilosc_osob]); {wpis do pliku uorzednio oczywiscie stworzonego ;p}
end;

ta wyglada wczytanie informacji do tablic,nastepnie do pliku,


usuwanie,modyfikacja itp. trzeba zrobic w podobny sposob :)

np

procedure modyfikacja(opcja:word);
begin

for i:=1 to 6 do
begin
write('Podaj kolejno imie, nazwisko etc');
readln(tab[i,opcja];
writeln(plik,tab[i,opcja]);
end;

tak wyglada baza oparta na tablicach








Udziel odpowiedzi na powyższe pytanie...

Twoja odpowiedź:
 


Podpis: 

Wpisz wynik: trzy dodać pięć równa się (pisane cyfra)