1311100094's ZONE: Program Yes/No Question ^-^

Program Yes/No Question ^-^

PROGRAM YES/NO QUESTION ^-^

Beberapa hari yang lalu saya dapat tugas membuat program tentang yes/no question. Di program tersebut terdapat perintah apakah ingin keluar program atau tidak. Jika di jawab ya, maka program akan berhenti dan harus ditutup. Namun jika dijawab tidak maka program akan berlanjut. Dan dibawah ini adalah hasil pekerjaan saya.

program keluar_dari_program_matriks_transpose;
uses wincrt;
var
bar,col,i,j:integer;
a,b:array[1..20,1..20] of real;
lagi:char;
begin
lagi:='T';
while (lagi='t') or (lagi='T') do
begin
clrscr;
WRITELN('------------------------------------------');
writeln ('SELAMAT DATANG DI PROGRAM TRANPOSE MATRIX');
WRITELN('------------------------------------------');
writeln;
write ('Baris matriks yang diinginkan? '); readln (bar);
write ('kolom matriks yang diinginkan? ');readln (col);
writeln;
for i:=1 to bar do
begin
for j:=1 to col do
begin
write ('Nilai[',i,',',j,']:');readln (a[i,j]);
end;
end;
writeln;

clrscr;
WRITELN('------------------------------------------');
writeln ('SELAMAT DATANG DI PROGRAM TRANPOSE MATRIX');
WRITELN('------------------------------------------');
writeln;
writeln('matriks aslinya adalah:');
for i:=1 to bar do
begin
for j:=1 to col do
begin
write (a[i,j]:0:0,' ');
end;
writeln;
end;
writeln;

writeln ('matriks transposenya adalah:');
for i:=1 to col do
begin
for j:=1 to bar do
begin
b[i,j]:=a[j,i];
end;
end;
for i:=1 to col do
begin
for j:=1 to bar do
begin;
write (b[i,j]:0:0,' ');
end;
writeln;
end;

writeln;
writeln('*Terimakasih sudah menggunakan program ini*');
writeln('Apakah anda ingin keluar dari program?(Y/T) ');
readln(lagi);
end;
end.

Jika dirun akan seperti ini...

Proses penginputan nilai elemen matriks