Wee udh lama gw ga ngepost informasi lg, ini di karenakan gw d sbukin dgan tgas" skolah yg bagi gw krang pnting
ok lngsung aj, ne bwt loe smua yg hoby ato pnasaran dgan program TPW (Turbo Pascal For Windows), gw bkal ngasih contoh cript'a :
uses wincrt;
Label 1;
var
pilihan:integer;
z,x,y,g : string;
r,l,k:real;
jari_jari,volume:real;
P : word;
Lebar : word;
T : word;
v : real;
begin
1:
writeln('Nama : Muhammad Fadhlan');
writeln('Kelas: x Australia');
writeln('Blog : Fadhlan-alan.blogspot.com');
writeln;
begin
writeln('Selamat mencoba aplikasi menghitung: ');
writeln('1.Luas Lingkaran dan Keliling Lingkaran ');
writeln('2.Volume Bola ');
writeln('3.Limas Segi Empat');
writeln('4.Volume Kerucut');
write ('Tekan Enter untuk menentukan pilihan anda');read(x);
begin
writeln;
writeln ('1.Luas Lingkaran dan Keliling Lingkaran');
writeln ('2.Volume Bola');
writeln ('3.Limas Segi Empat') ;
writeln ('4.Volume Kerucut');
write ('Tentukan pilihan anda: '); read(pilihan);
Case Pilihan of
1:
begin
writeln;
writeln ('Menghitung Luas Lingkaran dan Keliling Lingkaran');
write ('Masukan jari-jari: '); readln(r);
L:=pi*r*r;
k:=2*pi*r;
writeln ('luas jari-jari :',l:0:4, 'cm2');
writeln ('Keliling lingkaran :',k:0:4, 'cm2');
end;
2:
begin
writeln;
writeln ('Menghitung Volume Bola');
write ('masukkan jari-jari:');
readln (jari_jari);
volume:=jari_jari*jari_jari*4/3*pi;
writeln('Volume Bola adalah:',volume:8:2);
readln;
end;
3:
begin
writeln;
writeln('Menghitung Luas Limas Segi Empat');
write('Panjang :'); readln(p);
Write('Lebar :'); readln(lebar);
write('Tinggi:'); readln(t);
V:=1/3*p*lebar*t;
writeln;
writeln('Hasil Luas Limas Segi Empat :',V:0:2);
readln;
end;
4:
begin
writeln;
writeln(' Menghitung Volume Kerucut');
write(' Masukan Nilai jari-jari: '); readln(r);
write(' Masukan Tinggi Kerucut: '); readln(t);
V:=pi*r*r*t*1/3;
writeln;
writeln('Hasil Volume Kerucut:' ,V:0:3);
readln;
end;
end;
end;
begin
writeln('Tekan Enter Untuk Kembali Lagi Ke awal')
end;
readln;
clrscr;
goto 1;
end;
end.
Nah contoh yg d ats itu contoh program operasi pnghitung matematika, jd bwt loe yg ssah nyari ato mles nyari soal matematika, tggal loe COPAS aj script di ats ke TPW loe, d jamin nilai loe 100% btul smua.
smoga bermanfaat... :)
Tidak ada komentar:
Posting Komentar