Program Mencari Luas Persegi, Persegi Panjang, Lingkaran, dan Segitiga Pada Pascal

Dibawah ini adalah contoh program mecari luas persegi, persegi panjang, lingkaran, dan segitiga pada pascal program ini saya buat sederhana,  mudah-mudahan berguna buat teman-teman sekalian.

USES CRT;
VAR
NOMOR:BYTE;
ALAS,TINGGI,PANJANG,LEBAR,SISI,JARI,LUAS:REAL;
BEGIN
CLRSCR;
WRITELN('==============================');
WRITELN('    PROGRAM MENCARI LUAS      ');
WRITELN('==============================');
WRITELN(' ');
WRITELN(' ');
WRITELN('==============================');
WRITELN('NO | KETERANGAN   ');
WRITELN('==============================');
WRITELN('1. | PERSEGI');
WRITELN('2. | PERSEGI PANJANG');
WRITELN('3. | LINGKARAN');
WRITELN('4. | SEGITIGA');
WRITELN('==============================');
WRITELN(' ');
WRITE('MASUKKAN NOMOR LUAS YANG INGIN DICARI : ');READLN(NOMOR);
IF NOMOR = 1 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN SISI : ');READLN(SISI);
LUAS:= SISI*SISI;
WRITELN('LUAS PERSEGI ADALAH :',LUAS:8:2);
END
ELSE IF NOMOR=2 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN PANJANG : ');READLN(PANJANG);
WRITE('MASUKKAN LEBAR : ');READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
WRITELN('LUAS PERSEGI PANJANG ADALAH :',LUAS:8:2);
END
ELSE IF NOMOR=3 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN JARI-JARI : ');READLN(JARI);
LUAS:=3.14*JARI*JARI;
WRITELN('LUAS LINGKARAN ADALAH :',LUAS:8:2);
END
ELSE
BEGIN
CLRSCR;
WRITE('MASUKKAN ALAS : ');READLN(ALAS);
WRITE('MASUKKAN TINGGI : ');READLN(TINGGI);
LUAS:=0.5*ALAS*TINGGI;
WRITELN('LUAS SEGITIGA ADALAH :',LUAS:8:2);
END;
READKEY;
END.

hasil 

Program Menggunakan Delete plus looping pada pascal

Berikut adalah contoh Program menggunakan Delete plus looping pada pascal semoga bermanfaat untuk kawan-kawan semua

USES CRT;
VAR
X:BYTE;
KATA:STRING;
BEGIN
CLRSCR;
KATA:='SELAMAT';
FOR X:=1 TO 7 DO
BEGIN
WRITELN(KATA);
DELETE(KATA,1,X);
END;
READKEY;
END.

Hasil

Program Mencari Luas Segitiga Pada Pascal

Berikut ini adalah program sederhana mencari luas segitiga di pascal yang saya buat sendiri, dan saya meletakkan 2 angka dibelakang koma, ketika suatu saat jawabannya adalah bilangan desimal. berikut adalah coding programnya, semoga bermanfaat untuk semuanya.jazakumullah Khair.

USES CRT;
VAR
ALAS,TINGGI, LUAS:REAL;
BEGIN
CLRSCR;
WRITELN('=============================');
WRITELN('PROGRAM MENCARI LUAS SEGITIGA');
WRITELN('=============================');
WRITELN('                             ');
WRITE('MASUKKAN ALAS  =');READLN(ALAS);
WRITE('MASUKKAN TINGGI=');READLN(TINGGI);
LUAS:=0.5*ALAS*TINGGI;
WRITELN('LUAS SEGITIGA ADALAH =',LUAS:6:2);
READKEY;
END.

Program Mencari Luas Dan Keliling Persegi Panjang Pada Pascal

Kali ini saya mencoba program mencari luas dan keliling persegi panjang dengan menggunakan Turbo dan hasilnya ada 2 angka di belakang koma karena saya beranggapan soal tidak selalu bilangan bulat.
Pascal Semoga bermanfaat untuk saya dan rekan-rekan sekalian.

USES CRT;
VAR
PANJANG,LEBAR,LUAS,KELILING:REAL;
BEGIN
CLRSCR;
WRITELN('=================================================');
WRITELN('PROGRAM MENCARI LUAS DAN KELILING PERSEGI PANJANG');
WRITELN('=================================================');
WRITELN('                                                                                                              ');
WRITE('MASUKKAN PANJANG  =');READLN(PANJANG);
WRITE('MASUKKAN LEBAR    =');READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
KELILING:= (2*PANJANG) + (2*LEBAR);
WRITELN('LUAS PERSEGI PANJANG =',LUAS:8:2);
WRITELN('KELILING PERSEGI PANJANG =',KELILING:8:2);
READKEY;
END.

Program Mencari Luas Persegi Pada qbasic

dibawah ini adalah contoh Program sederhana mancari Luas Persegi pada Qbasic semoga bermanfaat untuk semuanya

CLS
PRINT "===================================="
PRINT "PROGRAM MENCARI LUAS PERSEGI"
PRINT "===================================="
PRINT "                                    "
INPUT "MASUKKAN SISI"; S
LUAS = S ^ 2
PRINT "LUAS PERSEGI PERSEGI ADALAH ="; LUAS
END

Program Mencari Luas Persegi Panjang Pada QBasic

Berikut ini adalah Program Sederhana mencari Luas Persegi Panjang Pada Qbasic semoga bermanfaat untuk semuanya

 CLS

PRINT "===================================="

PRINT "PROGRAM MENCARI LUAS PERSEGI PANJANG"

PRINT "===================================="

PRINT "                                    "

INPUT "MASUKKAN PANJANG = "; P

INPUT "MASUKKAN LEBAR   = "; L

LUAS = P * L

PRINT "LUAS PERSEGI PANJANG ="; LUAS

END

Program Mencari Gaji Pokok dan Tunjangan pada Turbo Pascal

Soal :
Gol = A, Gapok = 5000, Tunjangan = 20% x Gapok
Gol = B, Gapok = 4000, Tunjangan = 10% x Gapok
Gol = C, Gapok = 3000, Tunjangan = 5% x Gapok
Gol = D, Gapok = 1000, Tunjangan = 2% x Gapok


Program

USES CRT;
VAR
GOL : CHAR;
GAPOK :LONGINT;
TUNJANG :REAL;
BEGIN
CLRSCR;
GOTOXY (4,5);WRITE('MASUKKAN GOLONGAN :'); READLN(GOL);
IF GOL='A' THEN
   BEGIN
   GAPOK:= 5000;
   TUNJANG := 0.2* GAPOK;
   END
ELSE IF GOL='B' THEN
   BEGIN
   GAPOK:= 4000;
   TUNJANG := 0.1* GAPOK;
   END
ELSE IF GOL='C' THEN
   BEGIN
   GAPOK:=3000;
   TUNJANG:=0.05* GAPOK;
   END
ELSE
   BEGIN
   GAPOK:=1000;
   TUNJANG:=0.02* GAPOK;
   END;
GOTOXY (4,6);WRITELN('GAJI POKOK ANDA :',GAPOK);
GOTOXY (4,7);WRITELN('TUNJANGAN ANDA  :',TUNJANG:9:0);
READKEY;
END.