Source Code Program Bagi Dua di Pascal

Revisi Program bagi dua di Pascal:

program bagi_dua;
uses crt;
const
e=0.00001;
var
i:integer;
a,b,c,fa,fb,fc:real;
begin
clrscr;
writeln('---------------------------------------------------');
writeln('| i | | a| | b | | c | | fa | | fb | | fc | | b-a |');
writeln('---------------------------------------------------');
writeln('Iput a'); Readln(a);
writeln('Input b'); Readln(b);
repeat
i:=i+1;
c:=(a+b)/2;
fa:=e*sqr(a)-5*sqr(a)*sqr(2);
fc:=e*sqr(c)-5*sqr(a)*sqr(2);
if fc=0 then
begin
a:=c;
b:=c;
end
else
if fa*fc<0 then
b:=c
else
a:=c;
until
abs(b-a) writeln('Jumlah Akar:= ',c);
writeln('Jumlah Iterasinya:=',i);
readln;
End.

Read more »

Source Code Record Array di Pascal

program record_of_array;
uses crt;
type TArray = array[1..10] of byte;
TMhs = record
nama : string[25];
nim : string[10];
Tugas: TArray;
end;
var mhs:array[1..100] of tMhs;
i,j:byte;
grantRata,R,ratasum:real;
jum,sum:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('Input nama mahasiswa ke-',i,':');
readln(mhs[i].nama);
write('input NIM mahasiswa ke-',i,':');
readln(mhs[i].nim);
for j:=1 to 7 do
begin
write('input Tugas mahasiswa ',i,' yg ke-',j,':');
readln(mhs[i].tugas[j]);
end;
writeln;
end;
GrantRata:=0;
for i:=1 to 100 do
begin
jum:=0;
for j:=1 to 7 do
begin
jum:=jum + mhs[i].tugas[j];
end;
R:=jum/7;
grantRata:=grantRata+R;
end;
sum:=0;
for i:=1 to 100 do
begin
sum:=sum+mhs[i].tugas[5];
end;
Ratasum :=sum/100;
writeln;
writeln('Rata-rata Nilai semua Mahasiswa:',grantrata/100:3:2);
writeln('Rata-Rata NIlai tugas ke-5 :',ratasum:3:2);
readln;
end.

Read more »

Source Code Hitung Vokal di Pascal

program bbb;
uses crt;
var i,vokal,konsonan,spasi:integer;
kata:string;
begin
clrscr;
write('masukkan Kata:');readln(kata);
for i:=1 to length(kata) do
begin
case kata[i] of
'a','i','u','e','o':vokal:=vokal+1;
' ' :spasi:=spasi+1;
else
konsonan:=konsonan+1;
end;
end;
writeln('nilai Vokal:',vokal);
writeln('nilai Konsonan:',konsonan);
writeln('nilai spasi:',spasi);
readln;
end.

Read more »

Segitiga Pascal

Program Segitiga_Pascal;
uses crt;
var a,b,d,e,f,g,h,i:longint;
Procedure Fakt(var a,c:longint);
begin
c:=1;
for b:=2 to a do begin c:=c*b; end;
end;
begin clrscr;
write('berapa pangkat terbesar? ');readln(a);writeln;
if a<0 then
writeln('Maaf?! Program ini dirancang untuk pangkat tak negatif') else
if a<=12 then
for d:= 0 to a do begin
for e:= 0 to d do begin
f:=d-e;
fakt(d,g); fakt(e,h); fakt(f,i);
write(g/(h*i):5:0);end;writeln;writeln;end
else begin
writeln('Maaf untuk pangkat >= 13 belum kami temukan programnya');
writeln('Mohon sumbangkan pemikiran anda ke situs kami: rypro.blogspot.com');
writeln('Terima Kasih');
end;readln end.

Read more »

Source Code Program Bagi dua

Program Metode_Bagi_Dua;
uses crt;
label e;
var a,b,T,fa,fb,Ft,eps,z:real; c,d:longint;
begin clrscr;
c:=0;a:=0.1; b:=1;
writeln('Mencari akar dari persamaan f(x)=exp(x)-(4*x)');
write('masukkan nilai epsilon! '); readln(eps);writeln;
writeln('Tekan Enter Untuk Memulai Iterasi');
e: begin;readln;inc(c);
writeln('Iterasi ke-',c);
T :=(a+b)/2;
fa:=exp(a)-4*a;fb:=exp(b)-4*b;fT:=exp(T)-4*T;
if fa*fT<0 a =" ',a:13:13);write('" b =" ',b:13:13);write('" galat =" ',abs(b-a):14:13,'" t =" ',T:13:13);write('">eps then goto e else
begin writeln;writeln;readln;
writeln('karena galat < t =" ',T:13:13);" x =" ',T:13:13);">

Read more »

Source Code Phytagoras

Program Bilangan_Phytagoras;
uses crt;
var a,b,c,d,e:longint;
begin clrscr;
write('masukkan batas angka yang paling besar? '); readln(d);
for a:= 3 to d do
begin
for b:= a to d do
begin
for c:= b to d do
begin
if sqr(a)+sqr(b)=sqr(c) then
writeln(a:7,b:7,c:7);
end;end;
end; readln end.

Read more »

Source Code Faktor Bilangan di Pascal

Program Faktor_dari_sebuah_bilangan_atau_lebih;
uses crt;
var a,b,c,d,e,f:integer;
begin clrscr;
write('berapa banyak bilangan yang akan dicari faktornya? '); readln(e);
for f:=1 to e do
begin
writeln;write('ketikkan bilangan ke-',f,'! '); readln(a);
d:=0;
for c:= 1 to a do begin
if a mod c = 0 then begin
inc(d);
writeln('faktor ke-',d,' dari ',a,' adalah ',c); end;end;
writeln('Jadi faktor dari ',a,' adalah sebanyak ',d,' bilangan');end;
readln end.

Read more »

Source Code Bilangan Prima di Pascal

Program Bilangan_Prima;

uses crt;
var a,b,c,d,e:longint;
begin clrscr;
write('bilangan prima sampai berapa? '); readln(c);
writeln('2':7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
writeln(e:7);
end; readln end.

Read more »

Source Program FPB dan KPK dari 2 bilangan

Program FPB_dan_KPK_dari_2_bilangan;

uses crt;
var a,b,d:longint;
begin clrscr;
write('ketikkan bilangan ke-1: '); readln(a);
write('ketikkan bilangan ke-2: '); readln(b);
for d:=b downto 1 do
begin
if (a mod d=0) and (b mod d=0) then
begin
writeln('FPB dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=1
end;
end;
for d:=a to (a*b) do
begin if (d mod a=0) and (d mod b=0) then
begin writeln('KPK dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=a*b;
end;end; readln end

Read more »

Source Code Program Fpb dan KPK di Pascal

Program FPB_dan_KPK_dari_3_bilangan;

uses crt;
var a,b,c,d:longint;
begin clrscr;
write('ketikkan bilangan ke-1: '); readln(a);
write('ketikkan bilangan ke-2: '); readln(b);
write('ketikkan bilangan ke-3: '); readln(c);
for d:=b downto 1 do
begin
if (a mod d=0) and (b mod d=0) and (c mod d=0) then
begin
writeln('FPB dari ',a:4,',',b:4,' dan ',c:4,' adalah ',d:7);
d:=1
end;
end;
for d:=c to (a*b*c) do
begin if (d mod a=0) and (d mod b=0) and(d mod c=0) then
begin writeln('KPK dari ',a:4,',',b:4,' dan ',c:4,' adalah ',d:7);
d:=a*b*c;
end;end; readln end.

Read more »