15875022 Tugas Vclass Agy Banget

  • 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 15875022 Tugas Vclass Agy Banget as PDF for free.

More details

  • Words: 583
  • Pages: 7
TUGAS V-CLASS ALGORITMA dan PEMOGRAMAN 2A Ag y eka lesmana 1 KA 20 10108122

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 RepeatUntil, 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 RepeatUntil, 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