• Zdefiniować typ rekordowy złożony z typów (word, int, char, string)
• Zadeklarować zmienną wskaźnikową na stworzony typ rekordowy
• Zarezerwować pamięć dla danego rekordu i wypełnić go przykładowymi danymi
• Wyświetlić dane z rekordu na ekran
• Zwolnić pamięć zarezerwowaną wcześniej
• Sprawdzić „wycieki pamięci” za pomocą funkcji memAvail (3 pkt)
Kod: Zaznacz cały
program zad5;
uses crt;
type
r = record
a:word;
b:integer;
c:char;
d:string;
end;
var
rek:r;
w:^r;
begin
clrscr;
writeln(memAvail);
getmem(w,sizeof(rek));
writeln('Wypenij rekord: ');
readln(rek.a);
readln(rek.b);
readln(rek.c);
readln(rek.d);
writeln(memAvail);
writeln;
writeln('word: ',rek.a);
writeln('integer: ',rek.b);
writeln('char: ',rek.c);
writeln('string: ',rek.d);
freemem(w,sizeof(rek));
writeln(memAvail);
readln;
end.
witam czy wykonałem zadanie poprawnie?