Source code Case Of lengkap pascal

By On Thursday, April 2nd, 2015 Categories : Artikel
Advertisement

ALGORITME pascal :

start
input pilihan:
1. volume balok
2. Impuls
3. Momen

pilihan 1.
input : p, l dan t
proses : p*l*t
output hasil

pilihan 2
input : gaya dan lengan
proses: gaya*lengan
output hasil

pilihan 3
input : gaya dan waktu
proses : gaya*waktu
output hasil

pilihan 4
input : Pilihan tdk tersedia
end.

SOURCE CODE PASCAL :

program case_of;

uses wincrt;

var pilihan,panjang,lebar,tinggi,gaya,waktu,lengan,hasil:integer;

begin

writeln (‘this my program, dont copas :)’);

writeln;

writeln (‘Program Pengulangan’);

writeln;

writeln (‘1. Mencari volume balok’);

writeln (‘2. Mencari Impuls’);

writeln (‘3. Mencari Momen’);

writeln;

writeln (‘pilihan anda?’); readln (pilihan);

case pilihan of

1:

begin

write (‘panjang:’); readln (panjang);

write (‘lebar:’); readln (lebar);

write (‘tinggi:’);readln (tinggi);

hasil:=panjang*lebar*tinggi;

writeln;

writeln (‘hasil:’,hasil);

end;

2:

begin

write (‘gaya:’); readln (gaya);

write (‘waktu:’); readln (waktu);

hasil:=gaya*waktu;

writeln;

writeln (‘hasil:’,hasil);

end;

3:

begin

write (‘gaya:’); readln (gaya);

write (‘lengan:’); readln (lengan);

hasil:=gaya*lengan;

writeln;

writeln (‘hasil:’,hasil);

end;

else

writeln;

writeln (‘pilihan tidak tersedia’);

end;

end.

Advertisement (Dibawah ini adalah Iklan)
loading...

Brida.rtf

Married to the Bad Boy Young Adult Bad Boy Romance.lit

The Appeal.docx

Sostiene Pereira.rtf

Ballet Shoes Shoes.audio

The Circle.rtf

The Truth About Forever.books

The Old Patagonian Express By Train Through the Americas.kindle

The Bride Lairds Fianc es.ePub

Discourse on Method and Meditations on First Philosophy.ePub

Love Rosie.rtf

Next.ePub

It Had to Be You Chicago Stars.pdf

Abhorsen Abhorsen.kindle

Island.ePub

The Paul Street Boys.amz

Haunted.lit

The No Ladies Detective Agency No Ladies Detective Agency.docx

Fe Fi FOE Comes.pdf

Damaged Goods Things You Must Know About Healing From Abuse.lit

BTPN Movies · Top eBooks · IBDB