Code looping IF THEN pascal
IF THEN pascal
program pengulangan;
uses wincrt;
var pilihan,panjang, lebar, tinggi, gaya, waktu, lengan, hasil:integer;
begin
writeln ('Program Pengulangan');
uses wincrt;
var pilihan,panjang, lebar, tinggi, gaya, waktu, lengan, hasil:integer;
begin
writeln ('Program Pengulangan');
writeln;
writeln ('1. Mencari volume balok');
writeln ('2. Mencari Impuls');
writeln ('3. Mencari Momen');
writeln;
writeln ('pilihan anda?'); readln (pilihan);
if pilihan=1 then
begin
write ('panjang:'); readln (panjang);
write ('lebar:'); readln (lebar);
write ('tinggi:');readln (tinggi);
hasil:=panjang*lebar*tinggi;
writeln;
writeln ('hasil:',hasil);
end
else
if pilihan=2 then
begin
write ('gaya:'); readln (gaya);
write ('waktu:'); readln (waktu);
hasil:=gaya*waktu;
writeln;
writeln ('hasil:',hasil);
end
else
if pilihan=3 then
begin
write ('gaya:'); readln (gaya);
write ('lengan:'); readln (lengan);
hasil:=gaya*lengan;
writeln;
writeln ('hasil:',hasil);
end
end.
writeln ('1. Mencari volume balok');
writeln ('2. Mencari Impuls');
writeln ('3. Mencari Momen');
writeln;
writeln ('pilihan anda?'); readln (pilihan);
if pilihan=1 then
begin
write ('panjang:'); readln (panjang);
write ('lebar:'); readln (lebar);
write ('tinggi:');readln (tinggi);
hasil:=panjang*lebar*tinggi;
writeln;
writeln ('hasil:',hasil);
end
else
if pilihan=2 then
begin
write ('gaya:'); readln (gaya);
write ('waktu:'); readln (waktu);
hasil:=gaya*waktu;
writeln;
writeln ('hasil:',hasil);
end
else
if pilihan=3 then
begin
write ('gaya:'); readln (gaya);
write ('lengan:'); readln (lengan);
hasil:=gaya*lengan;
writeln;
writeln ('hasil:',hasil);
end
end.
0 Response to "Code looping IF THEN pascal "
Posting Komentar