Aplikasi sedehana ini jugak bisa membantu anda untuk menghitung soal matematika
Coding Aplikasi matematika ini Agak panjang se... Tapi saya akan menuliskan Codingya penasaran.... Hehe....
ayo langsung di buka pascal kamu dan masukkan Coding berikut:
uses crt;
label
aa,bb;
var
e,Z: integer;
pill,A: string;
nomor : byte;
a1,b2,hasil:real;
r,p,l,luasp,luaspp ,d,b,t, s : real;
luasl,luass : real;
p3,t3,l3,hasil3:real;
begin
bb:
clrscr;
textcolor(59);
for e := 10 downto 1 do
begin
foR z:=1 to 30 DO
gotoxy(34,z);
writeln(#4#4#4#4' ',e,' '#4#4#4#4);
begin
writeln(' loading');
delay(1000);
end;
end;
clrscr;
textcolor(59);
writeln;
writeln(' TUGAS AKHIR SEMESTER');
writeln;
writeln(' MATA KULIYAH MATEMATIKA I');
writeln(' (Program cara cepat menghitung Matematika)');
writeln;
writeln(' Dosen Pembimbing:');
writeln;
writeln(' Drs. Miswagiyanto');
writeln;
writeln(' "');
writeln(' " " "');
writeln(' " " "');
writeln(' " " "');
writeln(' " " "');
writeln(' " " "');
writeln(' " " "');
writeln(' " " "');
writeln(' " ');
writeln;
writeln;
writeln(' oleh:');
writeln;
writeln(' Muhammad Fausi');
writeln;
writeln(' NIM 10011612');
writeln(' ==============================================================');
writeln;
writeln;
writeln(' Langsung lihat program atau Petunjuknya');
writeln;
writeln(' A. program');
writeln;
writeln(' B. petunjuk');
writeln;
write(' silahkan pilih A atau B..? ');
readln(pill);
begin
if (pill= 'A') or (pill='a') then
begin
aa:
clrscr;
writeln(' ==================== ');
writeln(' = = ');
writeln(' ={ MENU UTAMA }= ');
writeln(' {************************************************} ' );
writeln(' { 1.PENJUMLAHAN 6. LUAS LINGKARAN } ') ;
writeln(' { 2.PERKALAN 7. LUAS PERSEGI PANJANG } ') ;
writeln(' { 3.PENGURANGAN 8. LUAS PERSEGI } ') ;
writeln(' { 4.PEMBAGIAN 9. LUAS SEGITIGA } ') ;
writeln(' { 5.PERSEN 10. LUAS BALOK } ') ;
writeln(' {************************************************} ');
writeln;
write(' PILIH 1-10 = ') ;
readln(nomor);
writeln;
case nomor of
1 :
begin
writeln;
writeln(' MENGHITUNG PENJUMLAHAN');
writeln;
writeln(' {*****************************************} ');
writeln;
write(' MASUKKAN ANGKA YANG MAU JUMLAH = ');
readln(a1);
writeln;
writeln(' {======================================} ');
writeln;
write(' AKAN DITAMBAH BERAPA..? = ');
readln(b2);
writeln;
writeln(' {==================================} ');
hasil:=a1+b2;
writeln;
writeln(' HASILNYA ADALAH = ',hasil:2:2);
writeln;
writeln(' {===============================}');
writeln;
writeln(' =============================================================');
writeln;
writeln(' apakah anda masih mau meneruskan program ini..?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
2 :
begin
writeln;
writeln(' MWNGHITUNG PERKALIAN');
writeln;
writeln(' {*****************************************}');
writeln;
write(' MASUKKAN ANGKA YANG MAU DIKALI = ');
readln(a1);
writeln;
writeln(' {======================================}');
writeln;
write(' AKAN DIKALI BERAPA..? = ');
readln(b2);
writeln;
writeln(' {================================}');
hasil:=a1*b2;
writeln;
writeln(' HASILNYA ADALAH = ',hasil:2:2);
writeln;
writeln(' {============================}');
writeln;
writeln(' ==============================================================');
writeln;
writeln(' apakh anda masih mau neruskan program ini..?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
3 :
begin
writeln;
writeln(' MENGHITUNG PENGURNGAN');
writeln;
writeln(' {******************************************}');
writeln;
write(' MASUKKAN ANGKA YANG MAU DIKURANGI = ');
readln(a1);
writeln;
writeln(' {======================================}');
writeln;
write(' AKAN DIKURANGI BRAPA..? = ');
readln(b2);
writeln;
writeln(' {==================================}');
hasil:=a1-b2;
writeln;
writeln(' HASILNYA ADALAH = ',hasil:2:2);
writeln;
writeln(' {==============================}');
writeln;
writeln(' =============================================================');
writeln;
writeln(' apakh anda masih mau neruskan program ini..?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
4 :
begin
writeln;
writeln(' MENGHITUNG PEMBAGIAN');
writeln;
writeln(' {*******************************************}');
writeln;
write(' MASUKKAN ANGKA YANG MAU DIBAGI = ');
readln(a1);
writeln;
writeln(' {=======================================}');
writeln;
write(' AKAN DIBAGI BERAPA..? = ');
readln(b2);
writeln;
writeln(' {===================================}');
hasil:=a1 / b2;
writeln;
writeln(' HASILNYA ADALAH = ',hasil:2:2);
writeln;
writeln(' {===============================}');
writeln;
writeln(' ==============================================================');
writeln;
writeln(' apakh anda masih mau neruskan progrm ini..?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
end;
5 :
begin
writeln;
writeln(' MENGHITUNG PERSEN');
writeln;
writeln(' {**********************************************}');
writeln;
write(' MASUKKAN ANGKA YANG MUDIJADIKAN PERSEN = ');
readln(a1);
writeln;
writeln(' {=========================================}');
writeln;
write(' BERAPA PERSEN..? = ');
readln(b2);
writeln;
writeln(' {===================================================}');
hasil:=a1*b2/100;
writeln;
writeln(' JADI ' ,b2:4:0,' PERSENNAY DARI ' ,a1:4:0,' adalah = ',hasil:4:1);
writeln;
writeln(' {===================================================}');
writeln;
writeln(' =======================================================================');
writeln;
writeln(' apakh anda masih mau neruskan program ini..?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huuf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
6 :
begin
writeln;
writeln(' MENHITUNG LUAS LINGKARAN');
writeln;
writeln(' {***********************************************}');
writeln;
write(' masukkan jari-jari : ') ;
readln(r);
writeln;
writeln(' {=====================================}');
luasl:= pi*r*r;
writeln;
writeln(' LUAS LINGKARAN ADALAH ',luasl:2:2);
writeln;
writeln(' {==================================}');
writeln;
writeln(' ===========================================================');
writeln;
writeln(' apakah anda masih mau neruskan program ini?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
7 :
begin
writeln;
writeln(' MENGHITUNG LUAS PERSEGI PANJANG');
writeln;
writeln(' {************************************************}');
writeln;
write(' MASUKKAN PANJANG : ') ;
readln(p);
writeln;
writeln(' {============================================}');
writeln;
write(' MASUKKAN LEBAR : ') ;
readln(l);
writeln;
writeln(' {========================================}');
luasp:= p*l;
writeln;
writeln(' LUAS PERSEGI PANJANG ADALAH ',luasp:2:2);
writeln;
writeln(' {=====================================}');
writeln;
writeln(' ==============================================================');
writeln;
writeln(' apakh anda masih mau neruskan program ini..?');
writeln;
writeln(' jika ya maka tekan "ENTRER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
8 :
begin
writeln;
writeln(' MENGHITUNNG LUAS PERSRGI');
writeln;
writeln(' {**********************************************}');
writeln;
write(' MASUKKAN SISI PERSEGI : ' );
readln(s);
writeln;
luaspp:= s*s;
writeln;
writeln(' {======================================}');
writeln;
write(' LUAS PERSEGI ADALAH : ',luaspp:2:2);
writeln;
writeln;
writeln(' {==================================}' );
writeln;
writeln(' ===========================================================');
writeln;
writeln(' apakh anda masih mau neruskan program ini..?');
writeln;
writeln(' jika ya maka tekan "ENTER:"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
9 :
begin
writeln;
writeln(' {**********************************************}');
writeln;
write(' MASUKKAN ALAS SEGITIGA : ') ;
readln(d);
writeln;
writeln(' {==========================================}');
writeln;
write(' MASUKKAN TINGGI SEGITIGA : ');
readln(t);
writeln;
writeln(' {====================================}');
luass:= (d*t)/2;
writeln;
writeln(' LUAS SEGITIGA ADALAH : ',luass:2:2);
writeln;
writeln(' {================================}') ;
writeln;
writeln(' ==============================================================');
writeln;
writeln(' apakh anda masih mau neruskan program ini..?');
writeln;
writeln(' jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER" = ');
readln(a);
if a= 't' then
goto bb
else
goto aa;
readln;
end;
10:
begin
writeln;
writeln(' {**************************************************}');
writeln;
write(' MASUKKAN LEBAR BALOK = ');
readln(l3);
writeln;
writeln(' {=============================================}');
writeln;
write(' MASUKKAN PANJANG BALOK = ');
readln(p3);
writeln;
writeln(' {=========================================}');
writeln;
write(' MASUKKAN TINGGI BALOK = ');
readln(t3);
hasil3:=l3*p3*t3;
writeln;
writeln(' {=====================================}');
writeln;
writeln(' LUAS BALOK ADALAH = ',hasil3:2:2);
writeln;
writeln(' {=================================}');
writeln;
writeln(' ============================================================');
writeln;
writeln(' apakah anda masih mau meneruskan program ini...?');
writeln;
writeln(' Jika ya tekan "ENTER"');
writeln;
write(' jika tidak masukkan huruf "T" lalu tekan "ENTER"');
readln(a);
if (a= 't') or (a= 'T')then
goto bb
else
goto aa;
readln;
end
else
begin
writeln(' =={INPUTAN SALAH}==');
writeln;
writeln(' tekan "ENTER" untuk mengulang kembali ');
writeln;
readln;
goto aa;
end;
end;
end
else if (pill='B') or (pill='b') then
begin
writeln;
writeln(' =======================================');
writeln;
writeln(' PETUNJUK');
writeln;
writeln(' program ini cuman meminta layanan kepada user(kepada pengguna), ketika');
writeln;
writeln(' program ini menyuruh anda untuk memilih salah satu yang ada di dalam');
writeln;
writeln(' program ini maka anda harus mengikutinya, bila tidak maka program akan');
writeln;
writeln(' memberi pesan (INPUTAN ANDA SALAH).');
writeln;
writeln(' caranya bila user udah menjalankan progrm ini dan Program menyuruh');
writeln;
writeln(' memasukkan huruf atau angka masukkan printahnya lalu tekan "ENTER"');
writeln;
writeln(' dan jika progrm ini kembali pada setart awal maka coba ulang kembali');
writeln;
writeln(' =={selamat mencoba}==');
writeln;
writeln;
writeln(' ==={tekan "ENTER" untuk kembali ke MENU sebelumnya}===');
readln;
goto bb;
end
else
writeln;
writeln(' ====(PILIHAN ANDA TIDAK TERPENUHI COBA ULANG KEMBALI)====') ;
readln;
end;
end.
masih pengin yang langsung pakek... Silahka Klik disini
Tidak ada komentar:
Posting Komentar
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.