Tugas V Class

TUGAS V-CLASS ALGORITMA dan PEMOGRAMAN 2A

Windy Astuti 12108403 1 KA20

Soal 1. Program untuk mencetak bilangan bulat dari 1 s/d N menggunakan struktur pengulangan RepeatUntil, While dan For. Nilai N diinputkan dari keyboard. Jawaban dalam bentuk Repeat-Until :              

PROGRAM REPEAT1; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; S := 0; WRITE('MASUKKAN BILANGAN : '); READLN(R); REPEAT S := S + 1; WRITE(S , ' ' ); UNTIL ( S = R ); READLN; END.

Jawaban dalam bentuk WhileDo :              

PROGRAM WHILE1; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; S := 1; WRITE('MASUKKAN BILANGAN : '); READLN(R); WHILE (R >= S) DO BEGIN WRITE( S , ' ' ); S := S + 1; END; READLN; END.

Jawaban dalam bentuk For-To Do           

PROGRAM FOR1; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN BILANGAN : '); READLN(R); FOR S := 1 TO R DO WRITE(S , ' ' ); READLN; END.

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 dalam bentuk Repeat-Until             

PROGRAM REPEAT2; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN BILANGAN : ‘ ); READLN(R); REPEAT WRITE(R , ' ‘ ); R := R - 1; UNTIL ( R = 1 ); READLN; END.

Jawaban dalam bentuk While-Do              

PROGRAM WHILE2; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; S := 1; WRITE('MASUKKAN BILANGAN : ‘ ); READLN(R); WHILE (R >= S) DO BEGIN WRITE(R, ' ' ); R := R - 1; END; READLN; END.

Jawaban dalam bentuk ForDownTo-Do :           

PROGRAM FOR2; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN BILANGAN : ‘ ); READLN(R); FOR S := R DOWNTO 1 DO WRITE(S , ' ' ); READLN; END.

Soal 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 R,S : INTEGER; BEGIN CLRSCR; S := -1; R := 15; REPEAT S := S + 2; WRITE(S , ' ' ); UNTIL ( S = R ); READLN; END.

Jawaban dalam bentuk While-Do :            

PROGRAM WHILE3; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; R := 1; WHILE (R <= 15) DO BEGIN WRITE(R , ' ' ); R := R+2; END; READLN; END.

Jawaban dalam bentuk For-To :            

PROGRAM FOR3; USES CRT; VAR R,S,T : INTEGER; BEGIN CLRSCR; R := 0; FOR S := R TO 15 DO BEGIN S := S + 1; WRITE(S , ' ' ); END; READLN; END.

Soal 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 R : INTEGER; BEGIN CLRSCR; R := 17; REPEAT R := R - 2; WRITE(R , ' ' ); UNTIL (R = 1); READLN; END.

Jawaban dalam bentuk While-Do :            

PROGRAM WHILE4; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; R := 15; WHILE (R >= 1) DO BEGIN WRITE(R, ' '); R := R - 2; END; READLN; END.

Jawaban dalam bentuk ForTo :      

    

PROGRAM FOR4; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; FOR S := 16 DOWNTO 1 DO BEGIN S := S - 1; WRITE(S , ' ' ); END; READLN; END.

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 :                

PROGRAM NOL; USES CRT; VAR R,S : INTEGER; BEGIN CLRSCR; REPEAT S := 1; WRITE('Masukkan angka yg lebih besar dari nol : '); READLN(R); WRITELN('Harus lebih besar dari nol..!'); writeln; R := R + 1; UNTIL (R > 0); WRITELN('HAH..BAGUS! akhirnya..'); READLN; END.