Kod wygląda następująco:
program projekt1; uses crt; type Uczen=record Imie : String[20]; Nazwisko : String[20]; Grupa : byte; Klasa : byte; end; var Tablica : array[17..33] of Uczen; i : Byte; n : String; m : Byte; x : String; begin i:=17; for i:=17 to 33 do begin clrscr; writeln('Podaj imie ', i ,' ucznia: '); readln(Tablica[i].Imie); writeln('Podaj nazwisko ', i ,' ucznia: '); readln(Tablica[i].Nazwisko); writeln('Podaj grupe ', i ,' ucznia: '); readln(Tablica[i].Grupa); writeln('Podaj klase ', i ,' ucznia: '); readln(Tablica[i].Klasa); end; repeat clrscr; writeln('################################################################'); writeln('### *****Menu***** ###'); writeln('### 1.Aby zobaczyc wszystkich uczniow na raz kliknij "w". ###'); writeln('### 2.Aby zobaczyc wybranego ucznia kliknij "u". ###'); writeln('################################################################'); readln(n); if (n <> 'w') and (n <> 'W') and (n <> 'u') and (n <> 'U') then writeln('Podales zly znak. Wracam z powrotem do menu.'); readln; until (n='w') or (n='W') or (n='u') or (n='U'); if (n='w') or (n='W') then begin writeln('Wybrales opcje numer 1.'); for i:=17 to 33 do writeln(i ,' Imie: ','', Tablica[i].Imie,'',' Nazwisko: ','', Tablica[i].Nazwisko,'',' Grupa: ','',Tablica[i].Grupa,'', ' Klasa: ','',Tablica[i].Klasa); end; if (n='u') or (n='U') then begin writeln('Wybrales opcje numer 2.'); writeln('Ktorego ucznia z listy chcesz zobaczyc?(17-33)'); readln(i); writeln(i ,' Imie: ','', Tablica[i].Imie,'',' Nazwisko: ','', Tablica[i].Nazwisko,'',' Grupa: ','',Tablica[i].Grupa,'', ' Klasa: ','',Tablica[i].Klasa); writeln('Wcisnij ENTER.'); readln; end; repeat writeln('Czy chcesz wrocic do menu? T/N'); readln(x); if (x <> 't') and (x <> 'T') and (x <> 'n') and (x <> 'N') then writeln('Podales zly znak. Wpisz jeszcze raz.'); until (x='t') or (x='T') or (x='N') or (x='n'); until (x='N') or (x='n'); writeln('Koncze program. Nacisnij ENTER.'); readln; end.
Edited by Cherry, 23.03.2012 21:26.