[TurboPascal] wskaźniki, do sprawdzenia

ZajdeR
Użytkownik
Użytkownik
Posty: 13
Rejestracja: 10 lut 2010, o 13:48
Płeć: Mężczyzna
Lokalizacja: Kielce
Podziękował: 2 razy

[TurboPascal] wskaźniki, do sprawdzenia

Post autor: ZajdeR »

Zadanie 5:
• 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('Wypeˆnij 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?
ODPOWIEDZ