Source code Case Of lengkap pascal



Source code Case Of lengkap pascal



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.

Gambaran setelah di run :)


Source code Case Of lengkap pascal





Dan ini flowchart nya :)

Source code Case Of lengkap pascal





0 Response to "Source code Case Of lengkap pascal"

Posting Komentar