Laboratorium 7
Środowisko Turbo Pascal 7.0, operacje wprowadzania i wyprowadzania danych
Instrukcja pętli repeat until, wyboru case, rekordy i instrukcja with, tablice jednowymiarowe rekordow, proce
dury, pliki typu file of Zadania do wykonania:
1. Napisz program, ktory przetwarza rekord zawierający nastepujące pola:
nazwisko (string[20]), tablice przechowującą 6 ocen z różnych przedmiotów (tablica elementów typu real) oraz pole średnia. Program powinien zawierać następujące opcje:
1.1. Wprowadzanie danych z klawiatury (Readln): nazwiska i 6 ocen 1.2. Obliczanie średniej
1.3. Wyświetlanie danych osoby
1.4. Zapisuje dane do pliku w postaci binarnej 1.5. Wyświetla zawartość pliku na ekran Uwagi:
każdą z czynności podaną w poszczegolnych punktach należy zdefiniować w procedurze
wywołanie opcji należy wykonać za pomocą instrukcji wyboru case of
każdą z procedur zdefiniowaną wg poszczegolnych punktów należy wywołać w sekwencji instrukcji wyboru
powtórzenia wykonania czynności realizowanych przez poszczególne procedury w opcjach sekwencji wyboru należy wykonać za pomocą instrukcji repeat until. Warunek zakończenia tej instrukcji powinien dotyczyć naciśnięcia klawisza ESC.
2. Napisz program, ktory przetwarza tablice N rekordów zawierających nastepujące pola:
nazwisko (string[20]), tablice przechowującą 6 ocen z różnych przedmiotów (tablica elementów typu real) oraz pole średnia. Program powinien zawierać następujące opcje
2.1. Wprowadzanie danych z klawiatury: nazwiska i 6 ocen do kolejnego elementu tablicy 2.2. Obliczanie średniej dla każdego wprowadzonego rekordu
2.3. Wyświetlanie tablicy
2.4. Wyszukanie maksymalnej średniej 2.5. Zapisuje dane do pliku w postaci binarnej 2.6. Wyświetla zawartość pliku na ekran
Uwagi:
każdą z czynności podaną w poszczegolnych punktach należy zdefiniować w procedurze
wywołanie opcji należy wykonać za pomocą instrukcji wyboru case of
każdą z procedur zdefiniowaną wg poszczegolnych punktów należy wywołać w sekwencji instrukcji wyboru
powtórzenia wykonania czynności realizowanych przez poszczególne procedury w opcjach sekwencji wyboru należy wykonać za pomocą instrukcji repeat until. Warunek zakończenia tej instrukcji powinien dotyczyć naciśnięcia klawisza ESC.