Source code Case Of lengkap pascal

By On Thursday, April 2nd, 2015 Categories : Artikel
Gratis Samsung

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.

Conspiracy of Silence (Tox Files #1), The Girl with All the Gifts, Friday the Rabbi Slept Late (The Rabbi Small Mysteries #1), The Storybook of Legends (Ever After High, #1), The Last One, Justice League, Volume 2: Outbreak, Challenge (Harris Brothers, #1), The Julian Chapter: A Wonder Story, The River Is Dark (A Liam Dempsey Thriller Book 1), Sleeping Sands (The Portal Prophecies #4), Unholy Ghost: Writers on Depression, If Animals Kissed Good Night, #MomFail, The Knocked up Plan, The Lost Symbol (Robert Langdon, #3), The Line, Daughter of the Pirate King (Daughter of the Pirate King, #1), Zone to Win: Organizing to Compete in an Age of Disruption, Twenty Boy Summer, Forever in Love (Montana Brides, #2), 21169458, 21169459, 21169460, 21169461, 21169462, 21169463, 21169464, 21169465, 21169466, 21169467