flow cahrt
13 tahun yang lalu
program pascal menghitung berat
program brt;
uses crt;
var
berat,m,b:integer;
begin
writeln('menghiung masa ');
write('masukan percepatan gravitasi benda:');readln(m);
write('masukan masa:');readln(b);
berat:=m*b;
writeln ('jadi beratnya adalah:',berat);
readln;
end.
program pascal meng hitung lingkaran
PROGRAM LINGKARAN;
uses crt;
var
r:real;
procedure
ls;
var
ls:real;
begin
ls:=22/7*r*r;
writeln('luas:',ls:2:4);
end;
procedure
kil;
var
kil:real;
begin
kil:=2*22/7*r;
WRITE('keliling:',kil:2:4);
end;
begin
clrscr;
writeln('menghitung lingkaran');
write('masukan jari jari:');readln(r);
writeln;
ls;
kil;
readln;
end.
program pasacal menghitung kerucut
program menghitung_kerucut;
uses crt;
var
r,t,s:real ;
procedure
menghitung_volume_kerucut;
var
vol:real;
begin
vol:=1/3*22/7*r*r*t;
writeln('volume:',vol:4:2);
end;
procedure menghitung_luas;
var
luas:real ;
begin
luas:=22/7*r*(r+s);
writeln('luas:',luas :2:4);
end;
begin
clrscr ;
writeln('menghitung kerucut') ;
writeln('masukanjari jari:');readln(r);
writeln('masukantinggi:');readln(t);
writeln('masukan sisi miring:');readln(s);
writeln;
menghitung_volume_kerucut;
menghitung_luas;
readln;
end.
program penghitung jarak
program jarak;
var
x1,x2,y1,y2 : integer;
d : real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2); readln;
end.
program konstanta
program contoh_konstanta;
const
bonus=0.15 ;
harga =2000000 ;
namaperusahaan='PT.jaya abadi';
begin
writeln('bonus=',bonus:2:4);
writeln('harga=',harga);
writeln('nama perusahaan ',namaperusahaan);
readln;
end.
program array pascal
Selasa, 01 Januari 2013 0 komentar
program array3;
var
nlai:array[1..5]of integer;
i,j:byte;
begin
for i:=1 to 1 do
begin
write('adhi no absen ',i,'=');readln(nlai[1]);
if (nlai[1] >= 80) then
writeln(nlai[1],' lulus')
else
writeln(nlai[1],' tidak lulus');
write('wildan no absen ',i,'=');readln(nlai[2]);
if (nlai[2] >= 80) then
writeln(nlai[2],'lulus')
else
writeln(nlai[2],' tidak lulus');
write('firman no absen ',i,'=');readln(nlai[3]);
if (nlai[3] >= 80) then
writeln(nlai[3],' lulus')
else
writeln(nlai[3],' tidak lulus');
end;
readln;
end.
kode pascal konversi waktu
program konversi_waktu;
uses wincrt;
var
x,dt,mnt,jm,sisa1,sisa2:longint;
begin
writeln('PROGRAM KONVERSI WAKTU');
writeln('--------');
writeln;
write('masukkan waktu dalam detik: ');read(x);
jm:=x div 3600;
sisa1:=x mod 3600;
mnt:=sisa1 div 60;
sisa2:=mnt mod 60;
dt:=sisa2;
write('jadi waktu: ',jm,'jam ',mnt,'menit ',dt,'detik'); readln;
readkey;
end.
code pascal kurs
program nilai;
uses crt;
var a:char;
j,ntr,ntd,h,s:longint;
s1,s2:string;
begin
writeln('konversi matauang dolar dan rupiah ');
writeln('pilh matauang(r/dolar enter)') ;readln(a);
writeln;
if (a='r') or (a='d') then
begin
writeln('jumlah rupiah:');readln(j);
writeln('nilai tuakar rupiah:');readln(ntr);
h:=j div ntr ;
s:=j mod ntr ;
s1:='dolar';
s2:='rupiah';
end
else
begin
writeln('jumlah dolar:');readln(j);
writeln('masukan niali dolar:') ;readln(ntd);
h:=j*ntd;
s1:='rupiah';
end;
writeln;
writeln('hasil ',h,'',s1);
if (a='r') then
writeln('hasil',s,'',s2);
readln;
end.
pascal code menukar niali
program TukarNilai;
uses crt;
var
A,B,C : integer; {deklarasi variabel}
begin
clrscr;
writeln('menukar niali') ;
write('Masukkan Nilai A : ');
readln(A);
write('Masukkan Nilai B : ');
readln(B);
writeln;
{proses tukar Nilai}
C:=A;
A:=B;
B:=C;
writeln('Setelah ditukar');
writeln;
writeln('Nilai A : ',A);
writeln('Nilai B : ',B);
readln;
end.
menghitung volume dan luas
program tabung;
uses crt;
var
r,t : real;
volume,luas : real;
begin
TextBackground(45);
TextColor(43+ 128);
writeln('Program Menghitung Luas & volume tabung');
writeln('m wildanmiftahulhuda');
TextBackground(7);
TextColor(48+ 128);
writeln;
write('masukan nilai jari jari = ');readln(r);
write('masukan nilai tinggi = ');readln(t);
writeln;
volume:=2*22/7*r*t;
luas:=2*22/7*r*(r+t);
TextBackground(45);
TextColor(46+ 128);
writeln('volume = ',volume);
writeln('luas = ',luas);
writeln;
readln;
end.
code pascal menghitung kkm nilai
program nilai_kkm_matematika;
uses crt;
var
nm,ket: string;
nilai : integer;
begin
clrscr;
writeln('Daftar Nilaimurid');readln;
write('Nama : ');readln(nm);
write('Nilai: ');readln(nilai);
if nilai >= 75 then
begin
ket:='Lulus';
end
else
begin
ket:='Tidak Lulus';
end;
write('Keterangan : ' ,ket);readln;
end.
code pascal menghitung persegi
program persegi;
uses crt;
var
p,l : integer;
luas,kll : integer;
begin
TextBackground(2);
TextColor(73+ 128);
writeln('Program Menghitung Luas & Keliling persegi');
writeln('m wildanmiftahulhuda');
TextBackground(3);
TextColor(35+ 128);
writeln;
write('masukan nilai panjang = ');readln(p);
write('masukan nilai lebar = ');readln(l);
writeln;
luas := p*l;
kll := 2*p+2*l;
TextBackground(46);
TextColor(54+ 128);
writeln('Luas = ',luas);
writeln('Keliling = ',kll);
writeln;
readln;
end.
code pascal menghitung lingkaran
program menghitunglingkaran;
uses crt;
var
r : real;
luas,kll : real;
begin
TextBackground(26);
TextColor(9 + 128);
writeln('------------------------------------------');
writeln('Program Menghitung Luas & Keliling Lingkaran');
writeln('----------________________________----------');
TextColor(3 + 128);
TextBackground(4);
writeln (' by:mwildan');
write('Masukkan nilai jari-jari = ');readln(r);
writeln;
luas := 3.14*r*r;
kll := 2*3.14*r;
writeln('Luas = ',luas:3:2);
writeln('Keliling = ',kll:3:2);
writeln;
readln;
end.
code pascal menghitung balok
program balok;
uses crt;
var
p,l,t : integer;
volume,luas : integer;
begin
TextBackground(2);
TextColor(48+ 128);
writeln('Program volume & luaspermukaan balok');
writeln('m wildanmiftahulhuda ');
writeln(' ');
TextBackground(4);
TextColor(4+ 128);
write('masukan nilai panjang = ');readln(p);
write('masukan nilai lebar = ');readln(l);
TextBackground(67);
TextColor(4+ 128);
write('masukan nilai tinggi = ');readln(t);
writeln;
luas := 2*(p*l)+2*(l*t)+2*(p*t);
volume := p*l*t;
writeln('volume nya adalah !!!!!!!! = ',volume);
writeln('luas nya adalah!!!!!!!!!!!! = ',luas);
writeln;
readln;
end.
program pascal menghitung persegi
program persegi;
uses crt;
var
p,l : integer;
luas,kll : integer;
begin
TextBackground(2);
TextColor(73+ 128);
writeln('Program Menghitung Luas & Keliling persegi');
writeln('m wildanmiftahulhuda');
TextBackground(3);
TextColor(35+ 128);
writeln;
write('masukan nilai panjang = ');readln(p);
write('masukan nilai lebar = ');readln(l);
writeln;
luas := p*l;
kll := 2*p+2*l;
TextBackground(46);
TextColor(54+ 128);
writeln('Luas = ',luas);
writeln('Keliling = ',kll);
writeln;
readln;
end.
program pascal menghitung volume bola
program menghitungvolumebola;
uses crt;
function volume(r,t:real):real;
begin volume:=(4/3*22/7*r*t*t* t) ;end;
var r,t:real;
begin
TextColor(90+ 128);
TextBackground(76);
clrscr; writeln ('vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv');
writeln ('v menghitung volume bola v');
writeln ('vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv');
TextColor(5+ 128);
TextBackground(46);
write ('massukan nilai jari jari :');readln(r);
write ('massukan nilai tinggi :'); readln(t) ;
TextBackground(567);
TextColor(68+ 128);
write ('jadi volume bola adallah............=',volume(r,t) );
readln;
end.
program pascal menentukan ganjil genap
program menghitug_bilangan_ganjil_dan_geanap;
uses crt;
var
nilai:longint;
begin
writeln('1.menghitung bilangan genap dan ganjil');
write('Nilai = ');readln(nilai);
if (nilai mod 2 = 0) then
writeln('Bilangan Genap')
else
writeln('Bilangan Ganjil') ;
readln;
end.
program pascal menentukan bulan
program menetukan_bulan;
uses crt;
var
bulan :integer;
begin
writeln('menen tukan bulan');
write('masukan angka bulan :');readln(bulan) ;
if( bulan=1)then
writeln ('januari')
else
if (bulan=2)then
writeln ('februari')
else
if (bulan=3)then
writeln ('maret ')
else
if (bulan=4)then
writeln ('april')
else
if (bulan=5)then
writeln ('mei')
else
if( bulan=6)then
writeln ('juni')
else
if (bulan=7)then
writeln ('juli')
else
if( bulan=8)then
writeln ('agustus')
else
if (bulan=9)then
writeln ('seftember')
else
if( bulan=10)then
writeln ('november')
else
if( bulan=11)then
writeln ('oktober')
else
if( bulan=12)then
writeln ('desember')
else
writeln('eror') ;
readln
end.
program pengulangan
Program pengulangan;
uses crt;
var
jumlah : integer;
yes : char;
i, n : byte;
begin
While (yes<>'n') AND (yes<> 'N') do
Begin
Clrscr;
Textcolor (Yellow);
write ('Masukan jumlah pengulangan :'); readln (n);
jumlah := 0;
for i := 1 to n do
begin
write (i);
if (i<n) then
Write ('+')
else
Write ('=');
jumlah := jumlah + i;
end;
Writeln (Jumlah);
Write ('Coba Lagi (Y/N)? '); readln (yes);
end;
readln;
end.
menen tukan angka terbesar terkecil program pascal
program menentukan_angka_terbesar_terkecil;
uses crt;
var
A,B:integer;
begin
writeln('4.Menentukan Bilangan Terbesar Terkecil');
writeln;
write(' nilai A: '); readln(A);
write(' nilai B: '); readln(B);
if (A > B) then
writeln('A lebih besar dari pada B')
else if (B > A) then
writeln('B lebih besar dari A')
else
writeln('sama');
readkey;
end.
program pascal menu
program manu;
uses crt;
var
pil: byte ;
nilai,suhu,bulan:longint;
A,B:integer;
begin
textcolor(46); ;
writeln('-------------------------------------') ;
writeln(' menu ') ;
writeln('-------------------------------------') ;
writeln('1.menentukan bilangan ganjil atau genap') ;
writeln('2.penntuan wujud') ;
writeln('3.konversi bulan') ;
writeln('4.menghitung angka terbesar terkecil') ;
writeln('-------------------------------------') ;
write('pilih 1-4:') ; read(pil) ;
writeln('-------------------------------------') ;
case pil of
1:begin
write('Nilai = ');readln(nilai);
if (nilai mod 2 = 0) then
writeln('Bilangan Genap')
else
writeln('Bilangan Ganjil') ;
end;
2:BEGIN
write('masukan nilai suhu:') ;readln(suhu) ;
write('suhu');
if suhu <=0 then
writeln('padat')
else
if suhu <=100then
writeln('cair')
else
if suhu>=100then
writeln('gas')
end;
3:
begin
writeln('masukan angka bulan :');readln(bulan) ;
if( bulan=1)then
writeln ('januari')
else
if (bulan=2)then
writeln ('februari')
else
if (bulan=3)then
writeln ('maret ')
else
if (bulan=4)then
writeln ('april')
else
if (bulan=5)then
writeln ('mei')
else
if( bulan=6)then
writeln ('juni')
else
if (bulan=7)then
writeln ('juli')
else
if( bulan=8)then
writeln ('agustus')
else
if (bulan=9)then
writeln ('seftember')
else
if( bulan=10)then
writeln ('november')
else
if( bulan=11)then
writeln ('oktober')
else
if( bulan=12)then
writeln ('desember')
else
writeln('eror')
end;
4 :
begin
writeln('Menentukan Bilangan Terbesar dan Terkecil');
writeln;
write('masukkan nilai A: '); readln(A);
write('masukkan nilai B: '); readln(B);
if (A > B) then
writeln('A lebih besar nilainya dari pada B')
else if (B > A) then
writeln('B lebih besar nilainya dari A');
end;
end;
readkey;
end.
mencari nilai
program mencari_nilai_nn;
var
nilai : array[1..10] of integer;
i,j : byte;
max, min, rata2 : integer;
begin
for i:= 1 to 10 do
begin
write('nilai ke-',i,' : '); readln(nilai[i]);
end;
for i:= 1 to 10 do
begin
if max > nilai[i+1] then
max:= max
else
max:= nilai[i];
end;
min := 0;
for i := 1 to 10 do
begin
if min < nilai[i] then
min := min
else
min := nilai[i];
end;
writeln('nilai terbesar = ',max);
writeln('nilai terkecil = ',min);
for i := 1 to 10 do
begin
if (nilai[i] >= 80) then
writeln(nilai[i],'--> lulus')
else
writeln(nilai[i],'--> tidak lulus');
end;
readln;
end.
menghitung jam
var
jumlah_detik, jam, menit, detik, sisa: integer;
begin
write('Masukkan sejumlah detik = ');
readln(jumlah_detik);
jam:= jumlah_detik div 3600;
sisa:= jumlah_detik mod 3600;
menit:= sisa div 60;
detik:= sisa mod 60;
writeln;
writeln(Jam,' Jam : ',Menit,' Menit : ',Detik,' Detik');
readln;
readln;
end.
menhitung harga
program menghitung_harga;
uses crt;
var
total,diskon: real;
harga : real;
begin
textbackground(2);
textcolor(15);
clrscr;
writeln('prugram menghitung harga');
write('masukan nama anda:');readln;
write('masukan harga : ');readln(harga);
if harga >= 2000000 then
diskon:=15 / 100
else
diskon:=0;
total:=harga-(harga*diskon) ;
writeln('jadi totalnaya adalah=',total) ;
readln;
end.
uses crt;
var
total,diskon: real;
harga : real;
begin
textbackground(2);
textcolor(15);
clrscr;
writeln('prugram menghitung harga');
write('masukan nama anda:');readln;
write('masukan harga : ');readln(harga);
if harga >= 2000000 then
diskon:=15 / 100
else
diskon:=0;
total:=harga-(harga*diskon) ;
writeln('jadi totalnaya adalah=',total) ;
readln;
end.
contoh program diskon
PROGRAM DIS;
USES CRT;
VAR
DI:REAL;
TOTAL,H:REAL;
DISK:REAL;
BEGIN
WRITELN('MENGHITUNG DISKON') ;
WRITE('MASUKAN HARGA:');READLN(H);
IF H <=10000000000000000000000 THEN
DI:=15/100
ELSE
DI:=0;
TOTAL:=H-(H*DI);
DISK:=H*DI;
WRITELN('TOTAL:',TOTAL:5:2);
WRITELN('DISKON:',DISK:5:2) ;
READLN;
END
USES CRT;
VAR
DI:REAL;
TOTAL,H:REAL;
DISK:REAL;
BEGIN
WRITELN('MENGHITUNG DISKON') ;
WRITE('MASUKAN HARGA:');READLN(H);
IF H <=10000000000000000000000 THEN
DI:=15/100
ELSE
DI:=0;
TOTAL:=H-(H*DI);
DISK:=H*DI;
WRITELN('TOTAL:',TOTAL:5:2);
WRITELN('DISKON:',DISK:5:2) ;
READLN;
END
Label:
pascal
