Question

Mógłby ktoś napisać mi co się w każdej linijce tego programu dzieje, opisać mi to obok. Proszę bardzo o pomoc.

program moje_rekordy;
uses CRT;
type osoba = recerd
imie, nazwisko : string[15];
adres : string[50];
telefon : string[10];
end;
tab = array[1..35] of osoba;
var x : tab;
n : byte;
i : Integer;
zn : char;
wybor : char;
procedure wpisz(var a : tab; n : byte);
begin
ClrScr;
writeln('Dane osoby nr ', n:3);
write('imie : ');
readln(a[n].imie);
write('nazwisko : ');
readln(a[n].nazwisko);
write('adres : ');
readln(a[n].adres);
write('telefon : ');
readln(a[n].telefon);
end;
procedure wypisz(a : tab; n : Integer);
begin
ClrScr;
write('Wybierz nr osoby');
readln (n);
with a[n] do
begin
writeln;
writeln('nazwisko : ', nazwisko);
writeln('imie : ', imie);
writeln('adres : ', adres);
writeln('telefon : ', telefon);
end;
writeln;
zn:=ReadKey;
end;
begin
ClrScr;
write('liczba osob : ');
readln(n);
for i:=1 to n do wpisz(x, i);
for i:=1 to n do wypisz(x, i);
end.

Answer 1

Program moje_rekordy; //zapoczątkowanie programu
uses CRT;// Deklarowanie modułu CRT
type osoba = recerd //zapoczątkowanie rekordu{czyli pascalową baze danych potocznie mówiąc}
imie, nazwisko : string[15]; //zadeklarowanie zmiennej imie wraz z nazwiskiem , gdzie moga rpzyjmować pietnasto literowy wartość typu string
adres : string[50];//zadeklarowanie zmiennej adres gdzie moze przyjmować pięćdziesięcio literową wartość typu string
telefon : string[10];//zadeklarowanie zmiennej telefon gdzie moze przyjmować dziesięcio elementową wartośc typu string
end;// zakonczenie rekordu
tab = array[1..35] of osoba; //zadeklarowanie teblicy 35 elementowej dla Rekordu OSOBA
var
x : tab; //deklaracja zmiennych
n : byte;//deklaracja zmiennych
i : Integer;//deklaracja zmiennych
zn : char;//deklaracja zmiennych
wybor : char;//deklaracja zmiennych

procedure wpisz(var a : tab; n : byte); //zapoczatkowanie procedury o argumentach a,b o typie TAB o nazwie WPISZ
begin
ClrScr; //czyszczenie ekranu
writeln('Dane osoby nr ', n:3); //wyseitelenie napisu oraz liczby (n:3) sluzy do tego aby napisać ja w postaci całkowitej
write('imie : '); //wuswietlenie imienia
readln(a[n].imie);//podanie imienia  do tablicy
write('nazwisko : ');//wyswietlenie napisu
readln(a[n].nazwisko);//podanie naziwska do tablicy
write('adres : ');//wyswietlenie napisu
readln(a[n].adres);//podanie adresu do tablicy
write('telefon : ');//wyswietlenie napisu
readln(a[n].telefon);//podanie telefonu do tablicy
end;//zakonczenie procedury
procedure wypisz(a : tab; n : Integer);// zapoczatkowanie procedury WYPISZ o argumentach a, b
begin
ClrScr;//czyszczenie obrazu
write('Wybierz nr osoby'); //wysswietlenie napisu
readln (n);//pobranie danych
with a[n] do //zapoczątkowanie pętli tylko nie wiem czy ta pętla zadziała
begin
writeln;//przejscie linijkę niżej
writeln('nazwisko : ', nazwisko);//wyswietlenie napisu NAZWISKO oraz wyciagniecie z bazy danych wartości
writeln('imie : ', imie);//wystietlenie napisu i wartosci
writeln('adres : ', adres);//wystietlenie napisu i wartości
writeln('telefon : ', telefon);//wyswietlenie napisu i wartości
end;//zakonczenie pętli
writeln; //przejscie linikę niżej
zn:=ReadKey;//Pobiera następny znak lub funkcję wskutek naciśnięcia klawisza przez użytkownika.
end;//zakonczenie procedury WYPISZ
begin //zapoczatkowanie ciała programu
ClrScr;//czyszczenie konsoli
write('liczba osob : ');//wyswietlenie napisu
readln(n);//pobranie wartości
for i:=1 to n do wpisz(x, i);//zapozcatkowanie pętli FOR wraz z wywołaniem procedury WPISZ
for i:=1 to n do wypisz(x, i);//zapozcatkowanie pętli FOR wraz z wywołaniem procedury WYPISZ
end.//zakonczenie całego programu