Setyasweet's Blog

ARRAY & REKURSI

setyasweet — Wed, 23 Dec 2009 06:58:08 +0000

program rekursi;

procedure penjumlahan;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a+b;

writeln(‘hasil penjumlahannya ‘,c);

end;

procedure pengurangan;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a-b;

writeln(‘hasil pengurangannya ‘,c);

end;

procedure perkalian;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a*b;

writeln(‘hasil perkaliannya ‘,c);

end;

var

x:integer;

begin

write(‘pilih yang mana? ‘);

write(‘1=penjumlahan’);

write(‘2=pengurangan’);

write(‘3=perkalian’);

readln(x);

if x=1 then

begin

penjumlahan;

end else;

if x=2 then

begin

pengurangan;

end else;

if x=3 then

begin

perkalian;

end;

end.

by Dian Erfanti & Istianingsih

MATRIKS

setyasweet — Wed, 23 Dec 2009 06:51:54 +0000

program pengurangan_matriks;
uses wincrt;
var
a,b,c:array[1..25,1..25] of real;
d,e,f,i,j,k:byte;
begin
clrscr;
gotoxy(30,1);writeln(‘—————————————’);
gotoxy(30,2);writeln(‘”Program Pengurangan Matriks”‘);
gotoxy(30,3);writeln(‘—————————————’);
writeln;
write(‘jumlah baris= ‘);readln(d);
write(‘jumlah kolom= ‘);readln(e);
writeln;
writeln(‘matrik pertama’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(a[i,j]);
end;
writeln;
end;
writeln(‘matrik kedua’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(b[i,j]);
end;
writeln;
end;
for i:=1 to d do
begin
for j:=1 to e do
begin
c[i,j]:=a[i,j]-b[i,j];
end;
end;
clrscr;
writeln(‘matrik pertama’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(a[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln;
writeln(‘matrik kedua’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(b[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln;
writeln(‘hasil dari pengurangan matrik : ‘);
writeln;
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
write(c[i,j]:9:2);
write(‘|’);
writeln;
end;
end.
program penjumlahan_matriks;
uses wincrt;
var
a,b,c:array[1..25,1..25] of real;
d,e,f,i,j,k:byte;
begin
clrscr;
gotoxy(30,1);writeln(‘—————————————-’);
gotoxy(30,2);writeln(‘”Program Penjumlahan Matriks”‘);
gotoxy(30,3);writeln(‘—————————————-’);
writeln;
write(‘jumlah baris= ‘);readln(d);
write(‘jumlah kolom= ‘);readln(e);
writeln;
writeln(‘matrik pertama’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(a[i,j]);
end;
writeln;
end;
writeln(‘matrik kedua’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(b[i,j]);
end;
writeln;
end;
for i:=1 to d do
begin
for j:=1 to e do
begin
c[i,j]:=a[i,j]+b[i,j];
end;
end;
clrscr;
writeln(‘matrik pertama’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(a[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln;
writeln(‘matrik kedua’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(b[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln;
writeln(‘hasil dari penjumlahan matrik : ‘);
writeln;
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
write(c[i,j]:9:2);
write(‘|’);
writeln;
end;
end.
program perkalian_matriks;
uses wincrt;
var
a,b,c:array[1..25,1..25] of real;
d,e,f,i,j,k:byte;
begin
clrscr;
gotoxy(30,1);writeln(‘———————————–’);
gotoxy(30,2);writeln(‘”Program Perkalian Matriks”‘);
gotoxy(30,3);writeln(‘———————————–’);
writeln;
write(‘jumlah baris matrik pertama = ‘);readln(d);
write(‘jumlah kolom matrik pertama/baris matrik kedua = ‘);readln(e);
write(‘jumlah kolom matrik kedua = ‘);readln(f);
writeln;
writeln(‘matrik pertama’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(a[i,j]);
end;
writeln;
end;
writeln(‘matrik kedua’);
for i:=1 to e do
begin
for j:=1 to f do
begin
write(‘nilai[',i,',',j,']?’);readln(b[i,j]);
end;
writeln;
end;
for i:=1 to d do
begin
for j:=1 to f do
begin
c[i,j]:=0;
for k:=1 to e do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
end;
clrscr;
writeln(‘matrik pertama’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(a[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln(‘matrik kedua’);
for i:=1 to e do
begin
write(‘|’);
for j:=1 to f do
begin
write(b[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln(‘hasil dari perkalian matrik : ‘);
writeln;
for i:=1 to d do
begin
write(‘|’);
for j:=1 to f do
write(c[i,j]:9:2);
write(‘|’);
writeln;
end;
end.

program membuat_matriks;
uses wincrt;
var
a:array[1..10,1..10] of integer;
I,j,baris,kolom:integer;
begin
clrscr;
write(‘ banyaknya baris=’);readln(baris);
write(‘banyaknya kolom=’);readln(kolom);
for i:= 1 to baris do
begin
for j:=1 to kolom do
begin
write(‘a[‘,I,’,’,j,’]= ‘);readln(a[I,j]);
end;
end;
writeln(‘matriks a adalah: ‘);
for i:=1 to baris do
begin
for j:=1 to kolom do
begin
write(a[I,j],’ ‘);
end;
writeln;
end;
readln;
end.
by Dian Erfanti & Istianingsih

PENGGUNAAN CASE-OF & WHILE-DO

setyasweet — Wed, 23 Dec 2009 06:44:34 +0000

Program Pemilihan_hari;
uses wincrt;
var x:integer;
begin
writeln(‘HARI’);
writeln(‘——–’);
writeln (‘1.minggu’);
writeln (‘2.senin’);
writeln (‘3.selasa’);
writeln (‘4.rabu’);
writeln (‘5.kamis’);
writeln (‘6.jumat’);
writeln (‘7.sabtu’);
writeln (‘Input Nomor Pilihan Anda: ‘);readln (x);
clrscr;
case x of
1:begin
write (‘minggu’);
end;
2:begin
write (’senin’);
end;
3:begin
write (’selasa’);
end;
4:begin
write (‘rabu’);
end;
5:begin
write (‘kamis’);
end;
6:begin
write (‘jumat’);
end;
7:begin
write (’sabtu’);
end;
end;
end.
program lagu;
uses wincrt;
var x,n:integer;
begin
write(‘Masukkan Jumlah Anak Ayam= ‘);readln(n);
x:=n;
clrscr;
while x>1 do
begin
writeln(‘ LAGU ANAK AYAM ’);
writeln(‘ —————————– ’);
writeln(‘tek kotek kotek kotek’);
writeln(‘anak ayam turun ‘,x);
writeln;
writeln(‘tek kotek kotek kotek’);
writeln(‘mati satu tinggal ‘,x-1);
writeln;
x:=x-1;
end;
writeln(‘tek kotek kotek kotek’);
writeln(‘anak ayam turun 1′);
writeln;
writeln(‘tek kotek kotek kotek’);
writeln(‘mati satu tinggal induknya’);
end.
program belah_ketupat;
uses wincrt;
var
baris,kolom,jumbaris:integer;
begin
writeln(‘PROGRAM BELAH KETUPAT’);
writeln(‘—————————————-’);
writeln;
write(‘jumlah baris : ‘);
readln(jumbaris);
writeln;
baris :=1;
while baris <= jumbaris-1 do
begin
write(‘*’: jumbaris+1-baris);
kolom:=2;
while kolom = 1 do
begin
write(‘*’:jumbaris+1-baris);
kolom:=2*baris-1;
while kolom >= 2 do
begin
write(‘*’);
kolom :=kolom-1;
end;
writeln;
baris:=baris-1;
end;
end.
program segitiga_asyik_2;
uses wincrt;
var
baris,kolom,jumbaris:integer;
begin
writeln(‘PROGRAM SEGITIGA ASYIK 2′);
writeln(‘——————————————’);
writeln;
write(‘jumlah baris : ‘);
readln(jumbaris);
writeln;
baris :=jumbaris;
while baris >= 1 do
begin
write(‘*’: jumbaris+1-baris);
kolom:=2*baris-1;
while kolom >= 2 do
begin
write(‘*’);
kolom :=kolom-1;
end;
writeln;
baris:=baris-1;
end;
end.
program segitiga_asyik_1;
uses wincrt;
var
baris,kolom,jumbaris:integer;
begin
writeln(‘PROGRAM SEGITIGA ASYIK 1′);
writeln(‘—————————————–’);
write(‘jumlah baris : ‘);
readln(jumbaris);
writeln;
baris :=1;
while baris <= jumbaris do
begin
write(‘*’: jumbaris+1-baris);
kolom:=2;
while kolom <= (2*baris-1) do
begin
write(‘*’);
kolom :=kolom+1;
end;
writeln;
baris:=baris+1;
end;
end.
by Dian Erfanti & Istianingsih

PERULANGAN (LOOP)

setyasweet — Wed, 23 Dec 2009 06:21:49 +0000

Soal : faktorial
program penambahan;
uses wincrt;
var
num,x,jum:integer;
begin
writeln (‘bilangan faktorial :’);readln(x);
num:=1;
jum:=1;
repeat
write (num,’+');
num:=num+1;
jum:=num+jum;
until
num>x-1;
write(‘ ‘,x);
writeln(‘=’,jum);
end.
program fungsi_faktorial;
uses wincrt;
var
x:integer;
function faktorial(m:integer):longint;
begin
if m=0 then faktorial:=1
else
faktorial:=m*faktorial(m-1);
end;
begin
writeln(‘FUNGSI FAKTORIAL’);
writeln(‘————————’);
write(‘masukkan nilai n: ‘);readln(x);
writeln(‘Jadi ‘,x,’!=’,faktorial(x));
end.

program segitiga_asyik_3;
uses wincrt;
var
a,b,c:integer;
begin
writeln(‘PROGRAM SEGITIGA ASYIK 3′);
writeln(‘————————’);
writeln;
write(‘ n=’);read(a);
writeln;
for b:=1 to a-1 do
begin
for c:=1 to b do write(‘*’:2);
writeln;
end;
for b:=a downto 1 do
begin
for c:=b downto 1 do write(‘*’:2);
writeln;
end;
end.

program segitiga_angka;
uses wincrt;
var
a,b,c:integer;
begin
writeln(‘PROGRAM SEGITIGA ANGKA’);
writeln(‘———————-’);
write(‘a=’);read(a);
clrscr;
for b:=1 to a do
begin
writeln;
for c:=1 to b do
write(b,’ ‘);
end;
end.

PENYELEKSIAN KONDISI

setyasweet — Wed, 23 Dec 2009 06:07:20 +0000

Penggunaan Statement If-Then dan If-Then…Else

Soal : menentukan kelulusan
Program kelulusan;
Uses wincrt;
Var
a,b,c: integer;
d:real;
keterangan: string [12];
begin
keterangan:= ‘tidak lulus’;
writeln(‘masukkan nilai kalkulus :’);readln(a);
writeln(‘masukkan nilai prokom :’);readln(b);
writeln(‘masukkan nilai alel 2 :’);readln(c);
d:= (a+b+c)/3;
if d > 60 then keterangan:=’lulus’;
write(keterangan);
end.
Soal: mencari akar
program rumus_ABC;
uses wincrt;
var
a,b,c:integer;
d,x1,x2:real;
begin
writeln (‘mencari akar persamaan kuadrat’);
writeln (‘memasukkan persamaan kuadrat ax2+bx+c=0 ‘);
writeln (‘memasukan koefisien a’);readln(a);
writeln (‘memasukan koefisien b’);readln(b);
writeln (‘memasukan koefisien c’);readln(c);
d:= b*b-4*a*c;
if d=0 then
begin
x1:=(-b)/2*a;
writeln(‘akar-akar sama x1=x2:’,x1:8:2);
end;
if d>0 then
begin
x1:=((-b)+ sqrt(d)/2*a);
x2:=((-b)- sqrt(d)/2*a);
writeln(‘ akar-akarnya nyata x1: ‘);
writeln(‘ x1: ‘,x2:8:2);
end;
if dv2) and (v1>v3) then
write (v1)
else
if (v2>v3) and (v2>v1) then
write (v2)
else
if (v3>v1) and (v3>v2) then
write(v3)
end.

Soal :tanggal lahir;jeda
program tanggal_lahir;
uses wincrt;
var
a,b,c,d,e,f,g,h:integer;
begin
write (‘tanggal lahir :’);read(a,b,c);
write (‘selang waktu :’);read(d);
a:=a+d;
e:=(a div 360)+c;
f:=a mod 360;
g:=(f div 30)+b;
h:=f mod 30;
if h=0 then
begin
g:=b;
h:=f;
end;
if g>12 then
begin
e:=e+(g div 12);
g:=g mod 12;
end;
write (‘sekarang tanggal:’,h,’/',g,’/',e);
end.
by Dian Erfanti & Istianingsih

MID PROKOM

setyasweet — Thu, 17 Dec 2009 05:30:46 +0000

DERET FIBONACCI
Mencari deret fibonacci menggunakan program pascal:
1.memasukkan nilai pertama dan kedua pada deret Fibonacci
Uses Wincrt;
Var
suku,a,b,c: longint;
Function Fibonacci(n:longint):longint;
Begin
If (n=1) then Fibonacci:=a
else
If (n=2) then Fibonacci:=b
else
Fibonacci:=Fibonacci(n-1)+Fibonacci(n-2);
End;
Begin
Write(‘Masukkan suku pertama dalam deret fibonacci :’);readln(a);
Write(‘Masukkan suku kedua dalam deret fibonacci :’);readln(b);
Write(‘Sampai suku keberapa deret fibonacci yang diinginkan?: ‘);readln(c);
Writeln;
Writeln(‘Deret Fibonaccinya adalah sebagai berikut:’);
For suku:= 1 to c do
Write(Fibonacci (suku):3);
End.

2.tanpa memasukkan nilai awal
program fibonachi;
uses wincrt;
var
a:array[1..100] of real;
i,n:integer;
begin
write ( ‘sampai suku keberapa deret fibonacci??? ‘);readln(n);
a[1]:=1;
a[2]:=1;
for i:=2 to n do
a[i+1]:=a[i]+a[i-1];
for i:=1 to n do
write (a[i]:2:0,’ ‘);
end.

by istianingsih

MATERI PEMROGRAMAN KOMPUTER 1

setyasweet — Fri, 11 Dec 2009 06:25:34 +0000

PEMROGRAMAN PASCAL UNTUK MEMECAHKAN MASALAH DALAM MATEMATIKA

Antara lain contohnya adalah sebagai berikut:

Soal 1: Luas daerah persegi panjang dan kelilingnya

Program soal_1;

Uses wincrt;

var

p,l:real;

Luas,keliling:real;

begin

Write (‘masukkan panjang=’);

readln(p);

write (‘masukkan lebar=’);

readln(l);

Luas:=p*l;

writeln (‘Luas=’,Luas:5:2);

Keliling:=2*(p+l);

writeln (‘Keliling=’,keliling:5:2);

end.

Soal 2: Volum dan luas permukaan kubus

Program volum_dan_luas_kubus;

Uses wincrt;

var

s:real;

Luas_permukaan,volum:real;

begin

Write (‘masukkan sisi=’);

readln(s);

Volum:=s*s*s;

writeln (‘Volum=’,volum:5:2);

Luas_permukaan:=6*s*s;

writeln (‘Luas_permukaan=’,Luas_permukaan:5:2);

end.

Soal 3: Luas daerah dan keliling lingkaran

Program luas_dan_keliling_lingkaran;

Uses wincrt;

var

phi,r:real;

Luas_daerah,keliling:real;

begin

Write (‘masukkan phi=’);

readln(phi);

Write (‘masukkan r=’);

readln(r);

Luas_daerah:=phi*r*r;

writeln (‘Luas_daerah=’,luas_daerah:5:2);

keliling:=2*phi*r;

writeln (‘Keliling=’,keliling:5:2);

end.

Soal 4: Luas permukaan tabung dan kerucut

Program luas_tabung_dan_kerucut;

Uses wincrt;

var

phi,r1,r2,t1,t2,s,L1,L2:real;

begin

phi:=3.14;

Write (‘masukkan jari-jari tabung=’);

readln(r1);

Write (‘masukkan jari-jari kerucut=’);

readln(r2);

write (‘masukkan tinggi tabung=’);

readln(t1);

write (‘masukkan tinggi kerucut=’);

readln(t2);

s:= sqrt ((r2*r2)+(t2*t2));

writeln (‘Jelas s=’,s:5:2);

L1:=(phi*r1*r1)+(phi*r1*t1);

writeln (‘luas_permukaan_tabung =’,L1:5:2);

L2:=(phi*r2*r2)+(phi*r2*s);

writeln (‘luas_permukaan_kerucut =’,L2:5:2);

end.

SOAL 5 : MENGHITUNG VOLUME BANGUN RUANG

program menghitung_volume;

Uses wincrt;

Var

s,Pilihan: integer;

V,phi,r,t:real;

Begin

Clrscr;

Writeln(‘menu pilihan’);

Writeln(’1. Menghitung volume kubus’);

Writeln(’2. Menghitung volume kerucut’);

Writeln(’3. Menghitung vilume tabung’);

Writeln(‘masukan nomor pilihan anda’);

Readln (pilihan);

Writeln;

Case pilihan of

1 : begin

Clrscr;

Writeln(‘menghitung volume kubus’);

Writeln(‘masukan ukuran sisi kubus’);

Readln(s);

V:=s*s*s;

Writeln(‘volume kubus=’,V:10:2);

End;

2: begin

Clrscr;

Writeln(‘menghitung volume kerucut’);

Writeln(‘masukan ukuran jari-jari kerucut’);

Readln(r);

Writeln(‘masukan ukuran tinggi kerucut’);

Readln(t);

Phi:=3.14 ;

V:=1/3*phi*r*r*t;

Writeln(‘volume kerucut=’,v:10:2);

End;

3: begin

Clrscr;

Writeln(‘menghitung volume tabung’);

Writeln(‘masukan ukuran jari-jari tabung’);

Readln(r);

Writeln(‘masukan ukuran tinggi tabung’);

Readln(t);

Phi:=3.14;

V:=phi*r*r*t;

Writeln(‘volume tabung=’,v:10:2);

End

Else

Begin

Writeln(‘pilihan anda tidak ada dalam menu’);

End;

End.

Soal 5: Mempertukarkan A dan B, dimana A dan B dapat di input

Program menukar_A_dengan_B;

Uses wincrt;

var

a_1,b_1:real;

a_2,b_2:real;

begin

Write (‘masukkan a_1=’);

readln(a_1);

Write (‘masukkan b_1=’);

readln(b_1);

writeln (‘kita akan menukar a_1 dan b_1′);

a_2:=b_1;

writeln (‘nilai a_2 sekarang=’,a_2:5:2);

b_2:=a_1;

writeln (‘nilai b_2 sekarang=’,b_2:5:2);

end.

Soal: Penjumlahan, pengurangan, perkalian, pembagian bulat, dan sisa hasil bagi dalam sebuah program

Program operasi_pada_aljabar;

Uses wincrt;

var

a,b,c,d,e,f,g:integer;

begin

Write (‘masukkan bilangan 1=’);

readln(a);

Write (‘masukkan bilangan 2=’);

readln(b);

c:=a+b;

writeln (‘hasil penjumlahan a+b=’,(c));

d:=a-b;

writeln (‘hasil pengurangan a-b=’,(d));

e:=a*b;

writeln (‘hasil perkalian a*b=’,(e));

f:=a div b;

writeln (‘hasil pembagian a/b=’,(f));

g:=a mod b;

writeln(‘sisa hasil bagi a/b=’,(g));

end.

Soal: Menghitung gaji karyawan apabila diinput nama orang, gaji pokok, tunjangan istri 15% dari gaji pokok, tunjangan tiap anak 20% dari gaji pokok, pajak 15% dari gaji keseluruhan, total:

Program gaji_karyawan;

Uses wincrt;

var

a:string;

b,c,d,e,f,g,h:real;

begin

Write (‘Nama=’);

readln(a);

Write (‘Gaji pokok=’);

readln(b);

write (‘Jumlah anak=’);

readln(g);

c:=15/100*b;

writeln (‘Tunjangan istri=’,c:5:0);

d:=20/100*b*g;

writeln (‘Tunjangan anak=’,d:5:0);

e:=b+c+d;

writeln (‘Gaji keseluruhan=’,e:5:0);

f:=15/100*e;

writeln (‘Pajak=’,f:5:0);

h:=e-f;

writeln (‘Total gaji=’,h:5:0);

end.

Soal: Koordinat titik tengah dari dua titik yang diketahui

Program titik_tengah;

Uses wincrt;

var

a,b,c,d,e,f:real;

begin

Write (‘masukkan titik pertama=’);

read(a);

read(b);

write (‘masukkan titik kedua=’);

read(c);

read(d);

e:=(c-a)/2;

f:=(d-b)/2;

writeln (‘Titik tengah=’,e:5:2,f:5:2);

end.

Soal : Konversi dari jam ke detik

Program Konversi_dari_jam_ke_detik;

Uses wincrt;

var

a,b:real;

begin

Write (‘masukkan jam=’);

readln(a);

b:=a*3600;

write (‘konversi ke detik=’,b:5:0);

end.

Soal: Konversi dari detik ke jam

Program konversi_detik_ke_jam;

Uses wincrt;

var

a,b:real;

begin

Write (‘masukkan detik=’);

readln(a);

b:=a/3600;

write (‘konversi ke jam=’,b:2:2);

end.

Soal : Apabila diketahui waktu mulai telepon (jam, menit, detik) dan waktu selesai telepon (jam, menit, detik) berapa lamanya telepon dalam detik

Program waktu_telepon;

Uses wincrt;

var

a,b,c,d,e,f,h,i,j,k:real;

begin

Write (‘waktu mulai telpon (jam, menit, detik)=’);

read(a);

read(b);

read(c);

write (‘waktu berakhir telepon (jam, menit, detik)=’);

read(d);

read(e);

read(f);

h:=(d-a)*3600;

i:=(e-b)*60;

j:=(f-c);

k:=h+i+j;

writeln (‘lama telepon dalam detik=’,k:6:0);

end.

Soal : Biaya telepon apabila diinput mulai telepon dan selesai telepon serta biaya per pulsa 200,-, 1 pulsa= 5 detik, sisa kurang dari 5 detik diabaikan

Program biaya_telepon;

Uses wincrt;

var

a,b,c,d,e,f,h,i,j,k,l:real;

begin

Write (‘waktu mulai telpon jam, menit, detik=’);

read(a);

read(b);

read(c);

write (‘waktu berakhir telepon=’);

read(d);

read(e);

read(f);

h:=(d-a)*3600;

i:=(e-b)*60;

j:=(f-c);

k:=h+i+j;

writeln (‘lama telepon dalam detik=’,k:6:0);

l:=k/5*200;

writeln (‘Biaya=’,l:10:0);

end.

Soal : Konversi suhu dari celcius ke Kelvin dan Fahrenheit

Program konversi_suhu;

Uses wincrt;

var

a,b,c:real;

begin

Write (‘suhu_celcius=’);

readln(a);

b:=a+272;

writeln (‘suhu_kelvin=’,b:5:0);

c:=9/5*a+32;

writeln (‘suhu_fahrenheit=’,c:5:0);

end.

Soal : Menghitung umur seseorang apabila diasumsikan 1 bulan ada 30 hari dan 1 tahun ada 365 hari

Program menghitung_umur;

Uses wincrt;

var

a,b,c,d,e,f,h,i,j,k:real;

begin

Write (‘tanggal sekarang=’);

read(a);

read(b);

read(c);

write (‘tanggal lahir=’);

read(d);

read(e);

read(f);

h:=(a-d);

i:=(b-e)*30;

j:=(c-f)*365;

k:=(h+i+j)/365;

writeln (‘umur dalam tahun’,k:6:2);

end.

Silahkan mencoba!!!!!!!!!!!

by Dian Erfanti & Istianingsih

Hello world!

setyasweet — Mon, 07 Dec 2009 05:44:23 +0000

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!