Tugas V-class Algoritma Dan Pemrograman 2a (looping)achsan Vclas

  • May 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Tugas V-class Algoritma Dan Pemrograman 2a (looping)achsan Vclas as PDF for free.

More details

  • Words: 608
  • Pages: 6
“T UGAS V-C LASS “ ALGO RI TMA da n P EM OG RAMA N 2A

NAM A

:

TR I HA NDA YAN I

NP M

:

111 .08. 962

KEL AS

:

1KA 20

TAHUN AJARAN

2008/2009 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. 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 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.

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 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.

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 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.

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 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.

Related Documents