Algoritma Dan Pemrograman 2 Pascal2

  • April 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 Algoritma Dan Pemrograman 2 Pascal2 as PDF for free.

More details

  • Words: 761
  • Pages: 14
ALGORITMA DAN PEMROGRAMAN 2 PASCAL 2

Dian Wahyu Utami 10108579 1 KA 20

Soal I : Buatlah program dibawah ini dengan tampilan menggunakan perintah Window,Textcolor, Textbackground, Gotoxy, dan Sound untuk memperindah tampilan. 1. Mengubah derajat temperatur, dari derajat Celcius ke derajat Fahreinheit

dan Reamur (derajat Celcius diinput)

2. Menghitung Luas dan Keliling lingkaran, dengan jari-jari diketahui (diinput). 3. Menghitung Luas dan Keliling segitiga sembarang yang diketahui ke tiga sisinya. 4. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput. 5. Mencari akar dan kuadrat dari suatu nilai (nilai diinput). 6. Mencari nilai bulat dan pecahan dari suatu nilai yang dimasukkan melalui keyboard (diinput). Nilai pecahan tersebut dibulatkan sampai 3 angka dibelakang koma (,). 7. Tampilkan nama dan NPM anda di dalam window, dan terletak pada tengah-tengah layar. 8. Tampilkan tulisan 'STMIK GUNADARMA' di dalam window pada pojok kanan atas dengan ukuran window sama dengan tulisan tersebut.

1. Listing program PROGRAM TEMPERATURE; USES CRT; CONST X = ('********************************************'); VAR F,R,C : REAL; BEGIN CLRSCR; TEXTBACKGROUND(BLUE); SOUND(3500); GOTOXY(17,4); WRITELN (X); GOTOXY(17,5); WRITELN('

MENGHITUNG TEMPERATURE

GOTOXY(17,6); WRITELN (X); GOTOXY(17,8); WRITE ('MASUKKAN SUHU (C) : ');READLN(C); F := 1.8 * (C+32); R := 0.8 * C; GOTOXY(17,10); WRITELN (X); DELAY(1500); GOTOXY(17,12); WRITELN('HASIL DALAM REAMUR: ',R:0:2,' R'); GOTOXY(17,13); WRITELN('HASIL DALAM FAHRENHEIT: ',F:0:2,' F'); GOTOXY(17,15); WRITELN (X); SOUND(4500); DELAY(3000); NOSOUND; READLN; END.

');

OUTPUT

# Setelah dijalankan, akan keluar tampilan seperti diatas. Diikuti oleh bunyi 3000 Hz. Inputan diisi, tekan -enter-, lalu akan berhenti sejenak selama 1,5 detik . kemudian akan keluar tampilan seperti gambar dibawah, dengan bunyi 4500 Hz, dan setelah 3 detik, suara berhenti.

2. Listing Program PROGRAM MENGHITUNG_LUAS_DAN_KLL;

USES CRT; CONST X = ('................................................'); VAR LUAS,KLL,R: REAL; BEGIN CLRSCR; TEXTBACKGROUND(WHITE); TEXTCOLOR(BLACK); SOUND(7000); GOTOXY(17,2); WRITELN (X); GOTOXY(17,4); WRITELN ('

MENGHITUNG LUAS DAN KELILING LINGKARAN

GOTOXY(17,6); WRITELN (X); GOTOXY(17,8); WRITE ('MASUKKAN JARI-JARI LINGKARAN : ');READLN(R); GOTOXY(17,10); WRITELN (X); LUAS := 3.14*R*R; KLL := 2*3.14*R; GOTOXY(17,12); WRITELN ('LUAS LINGKARAN ADALAH ',LUAS:0:0); GOTOXY(17,13); WRITELN ('KELILING LINGKARAN ADALAH ',KLL:0:0); GOTOXY(17,15); WRITELN (X); DELAY(1000); NOSOUND; READLN; END.

OUTPUT

');

# Setelah dijalankan akan muncul output seperti diatas, dengan bunyi 7000 Hz. Inputan diisi, lalu -enter-, muncul hasil luas dan keliling, setelah 1 detik bunyi akan berhenti.

3. Listing Program PROGRAM SEGITIGA; USES CRT; CONST X =('########################################'); VAR S,A,B,C,L,K :REAL; BEGIN CLRSCR; TEXTCOLOR(GREEN); GOTOXY(19,1); WRITELN (X); GOTOXY(19,3); WRITELN ('

MENGHITUNG SEGITIGA SEMBARANG

GOTOXY(19,5); WRITELN (X); GOTOXY(19,7); WRITE('MASUKKAN SISI A : ');READLN(A);

GOTOXY(19,8);

');

WRITE('MASUKKAN SISI B : ');READLN(B); GOTOXY(19,9); WRITE('MASUKKAN SISI C : ');READLN(C); K := A+B+C; S := 0.5 * K; L := SQRT(S*(S-A)*(S-B)*(S-C)); GOTOXY(19,11); WRITELN ('LUAS SEGITIGA SEMBARANG

: ',L:0:0,' CM2');

GOTOXY(19,12); WRITELN ('KELILING SEGITIGA SEMBARANG : ',K:0:0,' CM'); GOTOXY(19,14); WRITELN(X); READLN; END.

OUTPUT

4. Listing program PROGRAM SIN_COS_TAN; USES CRT; CONST X = ('______________________________________________'); VAR A,B,C,D :REAL; BEGIN CLRSCR;

SOUND(150); TEXTBACKGROUND(RED); TEXTCOLOR(WHITE); GOTOXY(18,4); WRITELN (X); GOTOXY(18,6); WRITELN ('

MENGHITUNG SIN, COS, TAN

GOTOXY(18,8); WRITELN (X); GOTOXY(18,10); WRITE ('MASUKKAN NILAI A : ');READLN(A); GOTOXY(18,11); WRITELN (X); GOTOXY(18,13); WRITELN ('NILAI SINUS A : ',SIN(A):9:2); GOTOXY(18,14); WRITELN ('NILAI COSINUS A : ',COS(A):9:2); GOTOXY(18,15); WRITELN ('NILAI TANGEN A : ',ARCTAN(A):9:2); DELAY(500); NOSOUND; READLN; END.

OUTPUT

');

# Setelah dijalankan akan tampil output seperti diatas, disertai dengan bunyi 150 Hz. Dan suara akan berhenti 0,5 detik setelah hasil dari proses di tampilkan.

5. Listing Program PROGRAM AKAR_PANGKAT; USES CRT; CONST X =('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'); VAR A,B,C : REAL; BEGIN CLRSCR; SOUND(7000); TEXTCOLOR(BROWN); GOTOXY(17,3); WRITELN (X); GOTOXY(17,5); WRITELN ('

MENGHITUNG AKAR DAN PANGKAT

');

GOTOXY(17,7); WRITELN (X); GOTOXY(17,9);

WRITE ('MASUKKAN NILAI YANG AKAN DIHITUNG : '); READLN (A); B := SQR (A);

C := SQRT(A); GOTOXY(17,11); WRITELN (X); GOTOXY(17,13); WRITELN ('PANGKAT DARI ',A:0:0,'

: ',B:0:1);

GOTOXY(17,15); WRITELN ('AKAR KUADRAT DARI ',A:0:0,' : ',C:0:1); DELAY(300); NOSOUND; READLN; END. OUTPUT

# Setelah dijalankan akan tampil output, disertai bunyi sebesar 7000 Hz. Dan akan berhenti 0,3 detik setelah tampil hasil proses.

6. Listing Program PROGRAM BULAT_PECAHAN;

USES CRT; CONST X = ('============================================'); VAR A:REAL; BEGIN CLRSCR; SOUND(6500); TEXTBACKGROUND(GREEN); TEXTCOLOR(WHITE); GOTOXY(18,4); WRITELN (X); GOTOXY(18,5); WRITELN ('

MENCARI NILAI BULAT DAN PECAHAN

GOTOXY(18,6); WRITELN (X); GOTOXY(18,7); WRITE ('MASUKKAN NILAI A : '); READLN(A); GOTOXY(18,8); WRITELN(X); GOTOXY(18,9); WRITELN('HASIL NILAI BULATNYA = ',INT(A):0:0); GOTOXY(18,10); WRITELN('HASIL NILAI PECAHANNYA = ',FRAC(A):0:3); DELAY(2000); NOSOUND; READLN; END.

OUTPUT

');

# Setelah 2 detik, bunyi sebesar 6500Hz akan berhenti.

7. Listing Program PROGRAM LAYAR_NAMA; USES CRT; BEGIN CLRSCR; SOUND(15000); WINDOW(8,8,35,35); TEXTBACKGROUND(MAGENTA); TEXTCOLOR(WHITE); GOTOXY(30,11); WRITELN('NAMA : DIAN WAHYU UTAMI'); GOTOXY(34,13); WRITELN('NPM : 10108579'); DELAY(2000); NOSOUND; READLN; END.

OUTPUT

#

Setelah 2 detik, suara 15000 Hz akan berhenti.

8. Listing Program PROGRAM STMIK; USES CRT; BEGIN CLRSCR; SOUND(450); WINDOW(8,8,30,30); TEXTBACKGROUND(WHITE); TEXTCOLOR(RED); GOTOXY(66,1); WRITELN('STMIK GUNADARMA'); DELAY(500); NOSOUND; READLN; END.

OUTPUT

# Setelah 0,5 detik, bunyi sebesar 450 Hz akan berhenti.

“SELESAI”

Related Documents