Source code Case Of lengkap pascal

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

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.

Baca Juga

Prilly Latuconsina Datang ke Premiere Film Danur, Netizen Malah Salfok dengan Dadanya

Seramnya Film Horor Danur 2017

Ngerinya Serangan Terror di Westminster

Bahaya Skinny Jeans Yang Wajib Kamu Tau!!

Penampakan Wajah Seram di Bendungan

Article / informasi tentang Source code Case Of lengkap pascal yang disadur dari berbagai sumber yang ada di internet. Semoga informasi mengenai Source code Case Of lengkap pascal yang sedikit ini dapat berguna dan bermanfaat untuk Anda khususnya, dan untuk semua pembaca yang tengah mencari pembahasan tentang Source code Case Of lengkap pascal pada umumnya.