Array Dengan While Do Pada Pascal

Versi Pascal yang saya pakai adalah Pascal versi Windows, tepatnya Pascal 3.0. Jika anda menggunakan Pascal for DOS / Turbo Pascal, silahkan ganti statement Uses WinCrt dengan Uses Crt dan diawal program utama ditambahkan dengan ClrScr.

Ketentuan :

Program untuk mendifinisikan array buah berisi 3 deret dengan type string

Menginisialisasi isi inputan buah dari user

Seluruh isi buah berurutan mulai dari deret 1 sampai dengan 3

program array_dengan_while_do;

uses wincrt;

var
buah :array[1..3] of string;

i:integer;
begin

i:=1;
while i<4 do {membatasi inputan sampai dengan 3 deret}
begin
write(‘Masukkan buah buahan ke’,i,’:');readln(buah[i]);
i :=i+1;
end;
(*menampilkan isi Buah secara berurutan*)
clrscr;
writeln(‘+++++++++++++++++++++++++++++++++++++++++++++’);
writeln(‘Isi buah buahan yang dimasukkan tadi adalah :’);
writeln(‘+++++++++++++++++++++++++++++++++++++++++++++’);
i :=1;
while (i<4) do {membatasi keluaran sampai dengan 3 deret}

begin
writeln(‘Buah ke’,i,’:',buah[i]);
i :=i+1;
end;

end.

Sekian pembahasan saya kali ini mengenai Array Dengan While Do Pada Pascal.

Semoga bermanfaat..

» JANGAN LUPA LIKE N Komentarnya Yeach...