witam
mam zadanie z rekordow program ma zapytac sie od ilu osob maja byc pobrane dane osobowe, imie, nazwisko, rok urodzenia, plec, jesli data urodzenia mniejsza niz 1900 i wieksza niz 2007 to ma wyswietlac bledna data
zamieszczam program z objektow najlepiej by bylo gdyby ten program poprawic
program objekt;
uses crt;
type
osoba=object
nazwisko:string[30];
imie:string[20];
miejsce_ur:string[20];
rok_ur:integer;
plec:char;
procedure inicjuj;
procedure drukuj;
end;
procedure osoba.inicjuj;
begin
writeln('podaj nazwisko');
readln(nazwisko);
writeln('podaj imie');
readln(imie);
writeln('podaj miejsce ur');
readln(miejsce_ur);
writeln('podaj rok ur');
readln(rok_ur);
writeln('podaj plec');
readln(plec);
readln;
end;
procedure osoba.drukuj;
begin
writeln('nazwisko: ',nazwisko);
writeln('imie: ',imie);
writeln('miejsce ur: ',miejsce_ur);
if (rok_ur < 1900) or (rok_ur > 2007)
then writeln('rok ur: blad danych') else
writeln('rok ur: ',rok_ur);
writeln('plec: ',plec);
end;
var osoba1:osoba;
begin
clrscr;
osoba1.inicjuj;
osoba1.drukuj;
readln;
end.
z gory dzieki
