Pengulangan (repeat-until, While, For)

TUGAS V-CLASS MINGGU KE -3

SATRIA ADI NUGRAHA 1KA20 11108787

Soal 1. Program untuk mencetak bilangan bulat dari 1 s/d N menggunakan struktur pengulangan Repeat-Until, While dan For. Nilai N diinputkan dari keyboard. Jawaban dalam bentuk Repeat-Until : PROGRAM REPEAT1; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; B := 0; WRITE('MASUKKAN BILANGAN : ');READLN(A); REPEAT B := B + 1; WRITE(B,' '); UNTIL ( B = A); READLN; END. Jawaban dalam bentuk While-Do : PROGRAM WHILE1; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; B := 1; WRITE('MASUKKAN BILANGAN : ');READLN(A); WHILE (A >= B) DO BEGIN WRITE(B,' '); B := B + 1; END; READLN; END. Jawaban dalam bentuk For-To-Do : PROGRAM FOR1; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN BILANGAN : ');READLN(A); FOR B := 1 TO A DO

WRITE(B,' '); READLN; END. 2. Program untuk mencetak bilangan bulat dari N s/d 1 menggunakan struktur pengulangan Repeat-Until, While dan For. Nilai N diinputkan dari keyboard. Jawaban dalam bentuk Repeat-Until : PROGRAM REPEAT2; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN BILANGAN : ');READLN(A); REPEAT WRITE(A,' '); A := A - 1; UNTIL (A = 0); READLN; END. Jawaban dalam bentuk While-Do : PROGRAM WHILE2; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; B := 1; WRITE('MASUKKAN BILANGAN : ');READLN(A); WHILE (A >= B) DO BEGIN WRITE(A,' '); A := A - 1; END; READLN; END. Jawaban dalam bentuk For-DownTo-Do : PROGRAM FOR2; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR;

WRITE('MASUKKAN BILANGAN : ');READLN(A); FOR B := A DOWNTO 1 DO WRITE(B,' '); READLN; END. 3. Program untuk mencetak bilangan bulat sbb: 1 3 5 7 9 11 13 15 menggunakan struktur pengulangan Repeat-Until, While dan For. Jawaban dalam bentuk dalam Repeat-Until : PROGRAM REPEAT3; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; B := -1; A := 15; REPEAT B := B + 2; WRITE(B,' '); UNTIL (B = A); READLN; END. Jawaban dalam bentuk While-Do : PROGRAM WHILE3; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; A := 1; WHILE (A <= 15) DO BEGIN WRITE(A,' '); A := A+2; END;READLN; END. Jawaban dalam bentuk For-To : PROGRAM FOR3; USES CRT; VAR A,B,C : INTEGER;

BEGIN CLRSCR; A := 0; FOR B := A TO 15 DO BEGIN B := B + 1; WRITE(B,' '); END; READLN; END. 4. Program untuk mencetak bilangan bulat sbb: 15 13 11 9 7 5 3 1 menggunakan struktur pengulangan Repeat-Until, While dan For. Jawaban dalam bentuk Repeat-Until : PROGRAM REPEAT4; USES CRT; VAR A : INTEGER; BEGIN CLRSCR; A := 17; REPEAT A := A - 2; WRITE(A,' '); UNTIL (A = 1); READLN; END. Jawaban dalam bentuk While-Do : PROGRAM WHILE4; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; A := 15; WHILE (A >= 1) DO BEGIN WRITE(A,' '); A := A - 2; END; READLN; END.

Jawaban dalam bentuk For-To : PROGRAM FOR4; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; FOR B := 16 DOWNTO 1 DO BEGIN B := B - 1; WRITE(B,' '); END; READLN; END.

5. Program untuk memasukan bilangan yang lebih besar dari nol. Program akan terus menerus minta inputan jika nilai yang dimasukan lebih kecil atau samadengan nol. Jawaban : PROGRAM NO5; USES CRT; VAR A,B : INTEGER; BEGIN CLRSCR; REPEAT B := 1; WRITE('Masukkan angka yg lebih besar dari nol : ');READLN(A); WRITELN('Harus lebih besar dari nol..!'); writeln; B := B + 1; UNTIL (A > 0); WRITELN('HAH..BAGUS! akhirnya..'); READLN;END.