Vlass Ke3 Algoritma & Pemrograman 2a

Vclass Algoritma & Pemrograman 2A (Vclass ke-3) NAMA : HIDAYAT SIDDIQ KURNIAWAN NPM : 10108972 KELAS : 1KA20 - UNIVERSITAS GUNADARMA -

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 SOAL 1 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 1 MENGGUNAKAN REPEAT-UNTIL

JAWABAN SOAL 1 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 1 MENGGUNAKAN WHILE-DO

JAWABAN SOAL 1 MENGGUNAKAN FOR-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.

OUTPUT JAWABAN SOAL 1 MENGGUNAKAN FOR-DO

SOAL 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 SOAL 2 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 2 MENGGUNAKAN REPEAT-UNTIL

JAWABAN SOAL 2 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 2 MENGGUNAKAN WHILE-DO

JAWABAN SOAL 2 MENGGUNAKAN FOR-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.  

OUTPUT JAWABAN SOAL 2 MENGGUNAKAN FOR-DO

SOAL 3. Program untuk mencetak bilangan bulat sbb: 1 3 5 7 9 11 13 15 mengguna kan struktur pengulangan Repeat-Until, While dan For.

JAWABAN SOAL 3 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 3 MENGGUNAKAN REPEAT-UNTIL

JAWABAN SOAL 3 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 3 MENGGUNAKAN WHILE-DO

JAWABAN SOAL 3 MENGGUNAKAN FOR-DO 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.

OUTPUT JAWABAN SOAL 3 MENGGUNAKAN FOR-DO

SOAL 4. Program untuk mencetak bilangan bulat sbb: 15 13 11 9 7 5 3 1 mengguna kan struktur pengulangan Repeat-Until, While dan For.

JAWABAN SOAL 4 MENGGUNAKAN REPEAT-UNTIL PROGRAM REPEAT4; USES CRT; VAR A : INTEGER; BEGIN CLRSCR; A := 17; REPEAT A := A - 2; WRITE(A,' '); UNTIL (A = 1); READLN; END.  

OUTPUT JAWABAN SOAL 4 MENGGUNAKAN REPEAT-UNTIL

JAWABAN SOAL 4 MENGGUNAKAN 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.

OUTPUT JAWABAN SOAL 4 MENGGUNAKAN WHILE-DO

JAWABAN SOAL 4 MENGGUNAKAN FOR-DO 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.

OUTPUT JAWABAN SOAL 4 MENGGUNAKAN FOR-DO

SOAL 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 SOAL 5 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(‘Tepat.. Angka yang anda masukkan lebih besar dari nol'); READLN; END.

OUTPUT JAWABAN SOAL 5