Kali ini saya akan memaparkan bagaimana membuat space(tempat) untuk spasi. ini biasanya digunakan untuk pembuatan tabel, ini hanya diperlukan untuk kerapian. kususnya peng arsipan.



program spasi;
uses crt;
type data=record
     nama,nim:string;
     end;

var i,text:integer;
dt : array[1..2] of data;
function spasi(teks:string):string;
var teks1:string;
j:integer;
begin
teks1:=teks;
for j := 1 to (20-length(teks1)) do
teks1 := teks1 + ' ';
spasi := teks1;

end;

begin
for i := 1 to 2 do
begin
write('masukkan nama :...
Continue reading ...