PASCAL “ GABUNGAN INPUT DATA dan FOR TO DO”

Berikut merupakan contoh penggabungan antara input data dan for to do pada pascal.

uses wincrt;

var nama,kelas,alamat:string;

    a,nilai:integer;

begin

write('namamu: ');readln(nama);

write('kelasmu: ');readln(kelas);

write('alamatmu: ');readln(alamat);

write('masukkan jumlah perulangan: '); readln(nilai);

writeln('');

for a:= 1 to nilai do

begin

writeln(nama);

writeln(kelas);

writeln(alamat);

writeln('')

end;

end.

Saat di run hasilnya:

namamu:  (isikan dengan nama kita)

kelasmu: (isikan dengan kelas kita)

alamatmu: (isikan dengan alamat kita)

masukkan jumlah perulangan: (isi sesuai berapa kemauan kita)

maka akan muncul data yang telah kita isikan tadi sebanyak perulangan yang tadi telah kita isikan.

Contoh saat di run:

namamu:   Ani

kelasmu: 1

alamatmu: Lhokseumawe

masukkan jumlah perulangan:2

Ani

1

Lhokseumawe

Ani

1

Lhokseumawe

Semoga bermanfaat :)