.png "Menu")
Case Of Turbo Pasal untuk membuat tampilan Menu
Ini tentang Turbo Pascal mengenai formula tentang "Membuat program dengan formula case of"Maaf ini adalah pemula bila ada salah atau kekurangan mohon maklum yaw namanya juga belajar
HIHIHI
Oke langsung saja ini formulanya guys :)
program Alat_Hitung_Matematika;
uses wincrt;
var
NoPilih : integer;
panjang, lebar, luas, keliling, diagonal ,Rata: real;
r,l,k,t:real;
a,b,c,e:integer;
D:integer;
x1,x2:real;
label awal;
begin
clrscr;
awal:
writeln(' ========= MENU =========');
writeln('1. Program Menghitung Luas dan Keliling Lingkaran');
writeln('------------------------------------------------------------------');
writeln('2. Program Mencari Sisi Pada Segitiga');
writeln('------------------------------------------------------------------');
writeln('3. Program Menghitung Diagonal Pada Persegi Panjang');
writeln('------------------------------------------------------------------');
writeln('4. Program Menghitung Luas Persegi Panjang');
writeln('------------------------------------------------------------------');
writeln('5. Program Mencari Luas Segitiga Siku-siku');
writeln('------------------------------------------------------------------');
writeln('6. Program Mencari Persamaan Kuadrat');
writeln('------------------------------------------------------------------');
writeln('7. Program Mencari Nilai Rata-Rata Lima Bilangan');
writeln('------------------------------------------------------------------');
writeln('0. Keluar');
writeln('------------------------------------------------------------------');
write('Masukan Pilihan Anda 1, 2, 3, 4, 5, 6,7, 0:');readln(NoPilih);
clrscr;
case NoPilih of
1 :begin
clrscr;
writeln('Menghitung Luas dan Keliling Lingkaran');
writeln('-------------------------------------------');
writeln('masukkan data dengan benar');
write('masukkan nilai r?');readln(r);
l:=pi*r*r ;
k:=2*pi*r ;
writeln(' ');
writeln('maka luas dan kelilingnya adalah');
writeln('l=',l:5:2);
writeln('k=',k:5:2);
readln;
clrscr;
goto awal;
end;
2 :begin
writeln('Mencari Sisi Pada Segitiga');
writeln('----------------------------------');
writeln('Masukkan data dengan benar');
write('Masukkan nilai a=');readln(a);
write('Masukkan nilai b=');readln(b);
c:=(a*a)+(b*b);
writeln(' ');
writeln('Maka Panjang salah satu sisinya(c) adalah',sqrt(c):5:3);
writeln(' ');
readln;
clrscr;
goto awal;
end;
3 :begin
writeln('Menghitung Diagonal Pada Persegi Panjang');
writeln('-----------------------------');
write('Masukan Panjang:');readln(panjang);
write('Masukan Lebar:');readln(lebar);
diagonal:=sqrt(panjang*panjang+lebar*lebar);
write('Panjang Diagonal=',diagonal);
readln;
clrscr;
goto awal;
end;
4 :begin
writeln(' Menghitung Luas Persegi Panjang');
writeln('-----------------------------');
write('Masukan Panjang:');readln(panjang);
write('Masukan Lebar:');readln(lebar);
luas:=panjang*lebar;
write('Luas Persegi Panjang=',luas:4:2);
readln;
clrscr;
goto awal;
end;
5 :begin
writeln('Menghitung Luas Segitiga Siku-siku');
writeln('-----------------------------');
writeln(' Masukkan data dengan benar');
write('masukkan nilai a:');readln(a);
write('masukkan nilai t:');readln(t);
write('masukkan nilai b:');readln(b);
l:=1/2*a*t;
k:=a+b+t;
writeln(' ');
writeln('Maka Luas Segitiga Siku-siku');
writeln('L=',l:5:4);
writeln('Maka Keliling Segitiga Siku-siku adalah');
writeln('K=',k:5:2);
writeln(' ');
readln;
clrscr;
goto awal;
end;
6 :begin
writeln('Menghitung Persamaan Kuadrat');
writeln('-------------------------');
writeln('bentuk umum persamaan kuadara ax^2+bx+c=0');
write('masukkan nilai a: '); readln(a);
write('masukkan nilai b: '); readln(b);
write('masukkan nilai c: '); readln(c);
D:=(b*b)-(4*a*c);
if D<0 then
begin
writeln('D<0');
writeln('x1 dan x2 tidak real atau imajiner');
end;
if D=0 then
begin
writeln('D=0');
writeln('x1 dan x2 real dan sama');
x1:=(-b+(sqrt(D)))/(2*a);
x2:=(-b-(sqrt(D)))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end;
if D>0 then
begin
writeln('D>0');
writeln('x1 dan x2 real dan berlainan');
x1:=(-b+(sqrt(D)))/(2*a);
x2:=(-b-(sqrt(D)))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end;
writeln(' ');
writeln('Terimakasih sudah Mencoba :)');
writeln('Salam Super dari Kelompok 3');
readln;
clrscr;
goto awal;
end;
7 :begin
clrscr;
writeln('******PROGRAM MENCARI RATA-RATA 5 BILANGAN******');
writeln('Masukan Data Anda Dengan Benar !');
write ('Masukan nilai a= ');readln(a);
write ('Masukan nilai b= ');readln(b);
write ('Masukan nilai c= ');readln(c);
write ('Masukan nilai d= ');readln(d);
write ('Masukan nilai e= ');readln(e);
Rata:=(a+b+c+d+e)/5;
writeln(' ');
writeln('Jadi Rata-rata Kelima Bilangan Tersebut Adalah: ');
write('Rata-rata= ',rata:5:2);
writeln(' ') ;
readln;
clrscr;
goto awal;
end;
0 :write('=======TERIMA KASIH SUDAH MENCOBA=======');
end;
end.
Postingan
0 komentar: