Pengulangan (repeat-until, While, For)

  • 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 Pengulangan (repeat-until, While, For) as PDF for free.

More details

  • Words: 575
  • Pages: 6
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.

Related Documents

Pengulangan
November 2019 11
While
November 2019 30
While
November 2019 29
While
June 2020 17