Tugas Pascal

TUGAS PASCAL

A Repeat – Until digunakan untuk mengulang statement-statemen atau blok statement sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi.

BU : repeat

statement;

until ungkapan_logika;

(tugas A) :

program for_a;

uses crt;

var x, y : integer; {deklarasi variable}

begin

clrscr;

x := 1;

y := 0;

repeat

begin {blok statement}

write (x);

if x < 9 then

write (‘ + ‘)

else

write(‘ = ‘);

y := y+x;

x := x+2;

end;

until x >= 10; {sampai dengan x bernilai >= 10 maka selesai}

write (y);

readln;

end;

Tampilan Hasil :

B Perulangan For tersarang adalah perulangan For yang berada pada perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.

(tugas B) :

program for_b;

uses crt;

var x, y : integer; {deklarasi variable}

begin

clrscr;

for x := 1 to 5 do

begin {blok statement}

writeln(‘’);

for y := 1 to x do

write (y);

end;

readln;

end.

Tampilan Hasil :

C Perulangan dengan statement For digunakan untuk mengulang statemen atau suatu blok statemen berulang kali.

BU : for var_name := nil_awal to nil_akhir do

begin {nilai awal dan nilai akhir tipenya harus sama}

statement;

statement;

……………

end;

(tugas C) :

program for_c;

uses crt;

var x, y, z : integer; {deklarasi variable}

begin

clrscr;

x := 0;

y := 1;

for z := 1 to 8 do

begin {blok statement : jika statement lebih dari satu}

write (x); write (‘,’);

write (y); write (‘,’);

x := y+x; y := x+y;

end;

write (‘…..’);

readln;

end.

Tampilan Hasil :