program pointer_hitungnama;
var
p:^string;
nama : string;
begin
nama := 'Ahmadsa';
p:= @ nama;
writeln (p^);
writeln (length (nama));
writeln (p^);
end.
var
p:^string;
nama : string;
begin
nama := 'Ahmadsa';
p:= @ nama;
writeln (p^);
writeln (length (nama));
writeln (p^);
end.
Posted in: BAHASA PASCAL
0 comments:
Posting Komentar