andruz90’s Blog

1) Mengubah derajat temperatur, dari derajat Celcius ke derajat Fahreinheit dan Reamur (derajat Celcius diinput)

Program Suhu;
Uses crt;
Var C, F, R: Real;
begin
Clrscr;
write(‘Suhu Celcius = ‘); readln(C);
writeln;
R:=4/5*(C-32);
writeln(‘Suhu Reamur = ‘, R:5:1);
writeln;
F:=9/5*(C-32);
writeln(‘Suhu Fahrenheit = ‘, F:5:1);
readln;
end.

Outputnya:

Suhu Celcius = 12

Suhu Fahrenheit =  -16.0

Suhu Reamur = -36.0

2) Menghitung Luas dan Keliling lingkaran, dengan jari-jari diketahui (diinput).
Jawab :
Program Lingkaran
uses crt;
Var Keliling, Luas, J: Real;
begin;
clrscr;
writeln(‘MENGHITUNG LUAS DAN KELILING LINGKARAN’);
writeln(‘———————————————————————–‘);
writeln;
write(‘Masukkan jari-jari yang diketahui : ‘); Readln(J);
writeln;
Luas:=3.14*J*J;
writeln(‘Luasnya : ‘, Luas:9:2);
writeln;
keliling:=2*3.14*J;
writeln(‘Kelilingnya : ‘, keliling:9:2);
readln;
end.
Outputnya:

MENGHITUNG LUAS DAN LINGKARAN LINGKARAN

———————————————————————

Masukkan Jari Jari Yang Di Ketahui = 21

Luasnya                                                        =1384.74

Kelilingnya                                                   = 131.88

3) Menghitung Luas dan Keliling segitiga sembarang yang diketahui ke tiga sisinya.
Jawab :
Program segitiga;
uses crt;
var
alpha,a,b,c,luas : real;
begin
clrscr;
writeln(’program mencari luas segitiga sembarang’);
writeln;
write(’besarnya alpha = ’);
readln(alpha);
write(’besarnya b = ’);
readln(b);
write(’panjang c = ’);
readln(c);
a := sqrt(sqr(b) + sqr(c) -2 * b * c *cos(alpha / 57.2958));
luas := 0.5 * b * c * sin(alpha / 57.2958);
writeln;
writeln(’panjang sisi a = ‘,a:8:2);
writeln(’luas segitiga = ‘,luas:8:2);
readln;
end.

Program  Mencari Luas Segitiga Sembarang

Besarnya Alpha =5

Besarnya b           =6

panjang c              = 7

Panjang sisi a =1.15

luas segitiga   = 1.83

4) Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput.
Jawab :
Program Aritmatika;
uses crt;
var Y: integer;
begin
clrscr;
Write(‘Masukkan Nilai Dari Y = ‘); readln(Y);
writeln;
Write (‘- Sinus : ‘, SIN(Y):9:3);
writeln;
Write(‘- Cosinus : ‘, COS(Y):9:3);
writeln;
write(‘- Tangen : ‘, ARCTAN(Y):9:3);
readln;
end.
Outputnya:
Masukkan Nilai Dari Y : 12

– Sinus      = -0.537

– Cosinus  = 0.844

-Tangen    = 1.488

5) Mencari akar dan kuadrat dari suatu nilai (nilai diinput).
Jawab :
Program matematika;
uses crt;
Var X: integer;
begin
clrscr;
write(‘Masukkan nilai dari X : ‘); readln(X);
writeln;
writeln(‘Pangkat’);
writeln(‘———-‘);
writeln(‘Nilai X dipangkatkan : ‘, SQR(X));
writeln;
writeln(‘Akar’);
writeln(‘——‘);
writeln(‘Nilai X diakarkan : ‘, SQRT(X):1:0);
readln;
end.
Outputnya:

Masukkan Nilai Dari  X:6

Pangkat

———–

Nilai X Di Pangkatkan : 36

Akar

———–

Nilai X Di Akarkan        : 2

6) Mencari nilai bulat dan pecahan dari suatu nilai yang dimasukkan melalui keyboard (diinput). Nilai pecahan tersebut dibulatkan sampai 3 angka dibelakang koma (,)
Jawab :
Program Bilangan;
uses crt;
Var J: Real;
begin
clrscr;
write(‘Masukkan Nilai J : ‘); readln(J);
writeln;
writeln;
writeln(‘Bilangan Bulat : ‘, INT(J):5:2);
writeln;
writeln(‘Bilangan Pecahan : ‘, FRAC(J):5:3);
readln;
end.
Outputnya:

Masukkan Nilai : 25

Bilangan  Bulatnya: 25.00

Bilangan  Pecahanya: 0.000

7) Tampilkan nama dan NPM anda di dalam window, dan terletak pada tengah-tengah layer
uses crt;
var nama,npm :string;
i:integer;
begin
clrscr;
gotoxy(26,22);
write(‘Masukan Nama =’);readln(nama);
gotoxy(27,23);
write(‘Masukan Npm=’);readln(npm);
readln;
end.
outpunya:

Masukkan Nama Anda:andreas

Masukkan Npm Anda : 30108212

8) Tampilkan tulisan ‘STMIK GUNADARMA’ di dalam window pada pojok kanan atas dengan ukuran window sama dengan tulisan tersebut.

1.Deklarasi Label

Input:

• PROGRAM cetak;

• LABEL satu,akhir;

• BEGIN

• WRITELN(‘STMIK’);

• GOTO SATU;

• WRITELN(‘BINA’);

• satu:

• WRITELN(‘GUNADARMA’);

• GOTO akhir;

• WRITELN(‘SARANA’);

• akhir:

• END.

Output:

STMIK

GUNADARMA

2.Deklarasi Konstanta

Input:

PROGRAM CETAK_2(OUTPUT);

CONST a = 50; (* selalu menggunakan tanda = *)

b = ‘INDONESIA Merdeka’;

BEGIN

WRITELN(a,’ TAHUN ‘);

WRITELN(b);

END.

Output:

50 TAHUN

INDONESIA Merdeka

3.Deklarasi Tipe

Input:

• PROGRAM SATU;

• TYPE bulat = INTEGER; { selalu menggunakan = }

• hasil,pecahan = REAL;

• ket = STRING[20];

• BEGIN

• pecahan := 2.52;

• bulat := 2;

• hasil := pecahan + bulat;

• ket := ‘hasil penjumlahan = ‘;

• WRITE(ket,hasil:4:2);

• END.

Output:

hasil penjumlahan = 0.565

4.Deklarasi Variabel

Input:

• VAR satu : INTEGER;

• dua : INTEGER;

• a : REAL;

• b : REAL; { selalu menggunakan : }

• BEGIN

• satu := 5;

• dua := 4;

• a := 2.3;

• b := 5+4*2.3; { hasil real }

• WRITE(‘hasil = ‘,b:4:1);

• END

Output:

hasil = 14.2

5.Tipe Data Integer

Input:

VAR a,b,jumlah1,jumlah2 : INTEGER;

BEGIN

jumlah1:=10;

jumlah2:=3;

a:=jumlah1 DIV jumlah2;

b:=jumlah1 MOD jumlah2;

WRITELN(‘HASIL A = ‘,a);

WRITELN(‘HASIL B =’,b);

END.

Output:

HASIL A = 3

HASIL B =1

6.Tipe Data Real

Input:

• VAR nilai1,nilai2,hasil : REAL;

• BEGIN

• nilai1 := 2.52;

• nilai2 := 3.2;

• hasil := nilai1 + nilai2;

• WRITE(‘HASIL PENJUMLAHAN = ‘,hasil:4:2);

• END.

Output:

HASIL PENJUMLAHAN = 5.72

7.Tipe Data Karakter

Input:

• VAR nilai : CHAR;

• BEGIN

• nilai :=’A’;

• WRITELN(‘NILAI TERBAIK = ‘,nilai);

• END.

Output:

NILAI TERBAIK = A

8.Tipe Data String

Input:

VAR kata1 : STRING[5];

kata2 : STRING[9];

kata : CHAR;

BEGIN

kata1 :=’STMIK’;

kata2 :=’GUNADARMA’;

kata :=’ ‘; { karakter berupa spasi }

WRITELN(kata1,kata,kata2);

END.

Output:

STMIK GUNADARMA

9.Tipe Data Boolean

Input:

VAR

benar : BOOLEAN;

BEGIN

benar := TRUE;

WRITELN(‘benar = ‘,benar);

END.

hasil : benar = TRUE

Output:

benar = TRUE