procedure menu pada pascal

uses crt;
var L,K,s,a,t,p,y,r:real;
pilih:byte;
const phi=3.14;
procedure input_lingkaran;


begin
writeln (‘ini adalah sebuah program untuk menghitung luas dan keliling lingkaran’);
writeln (‘masukkan nilai r’);
readln (r);
end;
procedure input_segitiga;
begin
writeln(‘Menentukan Luas segitiga’);
write(‘Masukkan nilai alas :’);read(a);
write(‘Masukkan nilai tinggi :’);read(t);
end;
procedure input_persegipanjang;
begin
writeln(‘ Menentukkan Luas Persegi Panjang’);
write(‘Masukkan nilai panjang :’);read(p);
write(‘Masukkan nilai tinggi :’);read(y);
end;
procedure input_kubus;
begin
writeln(‘Menentukan Luas Kubus’);
write(‘Masukkan panjang sisi :’);read(s);
end;
procedure rumus_lingkaran;
begin
L:=3.14*r*r;
K:=2*3.14*r;
end;
procedure rumus_segitiga;
begin
L:=(a*t)/2;
end;
procedure rumus_persegipanjang;
begin
L:=p*y;
end;
procedure rumus_kubus;
begin
L:=6*s*s;
end;
procedure output_lingkaran;
begin
writeln (‘maka Luasnya adalah ‘);
writeln (L:2:2);
writeln (‘dan Kelilingnya adalah ‘);
writeln (K:2:2);
end;
procedure output_segitiga;
begin
write(‘Maka Luas Segitiganya adalah ‘);write(L:2:2);
end;
procedure output_persegipanjang;
begin
write(‘Maka Luas Persegi Panjang adalah ‘);write(L:2:2);
end;
procedure output_kubus;
begin
write(‘Maka Luas Kubusnya adalah ‘);write(L:2:2);
end;
procedure lingkaran;
begin
writeln;
input_lingkaran;
writeln;
rumus_lingkaran;
writeln;
output_lingkaran;
end;
procedure segitiga;
begin
writeln;
input_segitiga;
writeln;
rumus_segitiga;
writeln;
output_segitiga;
end;
procedure persegipanjang;
begin
writeln;
input_persegipanjang;
writeln;
rumus_persegipanjang;
writeln;
output_persegipanjang;
end;
procedure kubus;
begin
writeln;
input_kubus;
writeln;
rumus_kubus;
writeln;
output_kubus;
end;
begin
while true do
begin
writeln;
writeln;
clrscr;
write(‘***********************************************’);writeln;
write(‘***SELAMAT DATANG DI PROGRAM MENGHITUNG LUAS***’);writeln;
write(‘******** my-computer.blogspot.com *************’);writeln;
write(‘***********selamat mencoba***************’);writeln;
write(‘***********************************************’);writeln;
write(‘=================== MENU ==================’);writeln;
write(’1. Lingkaran’);writeln;
write(’2. Segitiga’);writeln;
write(’3. Persegi Panjang’);writeln;
write(’4. Kubus’);writeln;
write(’5. Keluar’);writeln;
write(‘===============================================’);writeln;
pilih:=0;
while(pilih5) do
begin
write(‘ Silahkan pilih nomor : ‘);read(pilih);
if (pilih5) then
end;
case pilih of
1: lingkaran;
2: segitiga;
3: persegipanjang;
4: kubus;
5: exit;
end;
end;
end.

[+/-] Selengkapnya...

[+/-] Ringkasan...

menu pilihan dengan Pascal

bagi anda yang sedang belajar pemrogaman pascal, ini saya kasih scrip buat "Membuat menu pilihan dengan Pascal" semoga bisa bermanfaat

uses crt;
type
recmhs = record
nama : string;
kelas : string;
npm : string;
end;

Membuat menu pilihan dengan Pascal

uses crt;
type
recmhs = record
nama : string;
kelas : string;
npm : string;
end;

coba = object
mhs : array [1..5] of recmhs;
procedure input;
procedure output;
end;

var
i,j,pil : integer;
satu : recmhs;
dua : coba;
procedure coba.input;
begin
clrscr;
for i := 1 to j do
with mhs[i] do
begin
write('Nama :');readln(nama);
write('Kelas :');readln(kelas);
write('NPM :');readln(npm);
writeln;
end;
readln;
end;
procedure coba.output;
begin
clrscr;
for i := 1 to j do
with mhs[i] do
begin
writeln;
writeln('Nama kamu :',nama);
writeln('Kelas kamu :',kelas);
writeln('NPM kamu :',npm);
end;
readln;
end;
begin
clrscr;
write('Masukkan jumlah data yang akan diinput : ');
readln(j);
repeat;
clrscr;
writeln('........DATA MAHASISWA........');
writeln('1.input data');
writeln('2.output data');
writeln('3.keluar dari data');
writeln;
writeln('Masukkan pilihan anda : ');
readln(pil);
case pil of
1: dua.input;
2: dua.output;
end;
until(pil=3);
clrscr;
writeln('Terima kasih (^_^)');
readln;
end.

[+/-] Selengkapnya...

[+/-] Ringkasan...

membuat garis dan titik pada pascal

Bagi anda yang ingin mencoba membuat garis dan titik pada pascal, mungkin tutorial ini bisa membantu

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin




Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;



For i := 0 to xmax do

Begin

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

End;


For i := 0 to ymax do

Begin

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

End;


Repeat until KeyPressed;

CloseGraph;

End.



Contoh progarm 1.1.2

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;


i := 0;

Repeat

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

Inc(i);

Until i = xmax;



i := 0;

Repeat

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

Inc(i);

Until i = ymax;



Repeat until KeyPressed;

CloseGraph;

End.



Contoh progarm 6.3

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;



i := 0;

Repeat

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

Inc(i);

Delay(10);

Until i = xmax;



i := 0;

Repeat

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

Inc(i);

Delay(10);

Until i = ymax;



Repeat until KeyPressed;

CloseGraph;

End.



Contoh progam 6.4

Program titik_acak;

Uses

Graph, crt;

Var

Gd, gm,

xmax, ymax, x, y, : integer;

Begin

ClrScr;

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

Rectangle(0,0, xmax,ymax);



Randomize;

Repeat

X := random(xmax);

Y := random(ymax);

PutPixel(x,y,15);



Until KeyPressed;

CloseGraph;

End.

selamat mencoba

[+/-] Selengkapnya...

[+/-] Ringkasan...