Tekhnik Informatika Management Algoritma turbo pascal: Januari 2011

Selasa, 25 Januari 2011

bobble, 24jan

Uses wincrt;
type arrint = array [1..100] of integer;
procedure tukar(var a,b: integer);
var bantu : integer;
begin
bantu:=a;a:=b;
b:=bantu; end;
procedure bublesort(var x :arrint; N: word);
var i,j:word;
begin
for i:=1 to N-1 do for j:=1 to N-i do if x[j]>x[j+1] than tukar(x[j],x[j+1); end;
var
data: arrint;i,j,n:integer;begin
clrscr;
writeln('masukan data anda!');writeln;
write('berapakah frekuensi data anda? '); readln(n); writln('silakan masukan data anda!'); for i:=1 to n do
begin
write('data ke-',i,'='); readln (data[i]);
end;
boblesort(data,n);
write('hasil pengurutan data dengan bublesort:');
for i:=1to n do
write (data[i]:3); readln;
end.

Senin, 24 Januari 2011

Selection

uses WinCRT
Type arrint = array [1..100];
Procedure tukar (var a,b : real);
var bantu :real;
begin
bantu :=a; a :=b;
b :=bantu; end;
Procedure selectionsor (var x : arrint; N: integer);var i,j :integer;
begin
for i:=1 to N-1 do for j :=i+1 to N do if x [i]> x[j] than tukar (x[i] than tukar (x[i],x[j]); end;
Var
data : arrint;
i,j,n: integer;
Begin clrscr;
writeln('masukan data anda !');writln;
write('berapakah frekuensi data anda?'); readln(N); writeln('silakan masukan data yang anda punya !');
For i:=1to n do
begin
write('data ke-',i,'=');readln(data[i]); end;
selectionSort(data,n);
for i:= to n do
write('(',data[i]:4:2,'),'); readln;
end.

Uses wincrt;
Var n :integer;
Fak :integer;
k :integer;
Begin
readln(n);
if n=0 than
begin
fak:=1;
end
else
begin
fak:=1;
for k:=1 to n do
begin
fak:=fak*k;
end;
end;
write(fak);
end.

Program tanggal besok bulan februari

Uses wincrt;
type tanggal = record dd : integer;
mm : integer;
yy : integer; end;
var T : tanggal;
Begin
T.mm: =2;
read (T.dd,T.yy);
if T.dd<28 than
begin
T.dd:=dd+1; end
else
begin
If T.dd+28 than
begin
if T.yy mod 4 than
begin
T.dd:=T.dd+1; end
else
begin
T.dd:=1;
T.mm:=T.mm+1 end
end
else
begin
If T.dd=29 than begin
T.dd:=1;
T.mm:=T.mm+1;
end;
end;
end;
Write ('tanggal sekarang: ',T.dd,',T.mm,'-',T.yy);
end.

Program menghitung

uses wincrt;
procedure Hitung(var A,B,C:integer);
begin
B:= A;
C:= A+B;
Writeln(A,B,C);
End;
var X,Y,Z: integer;
Begin
Readln(X);
Readln(Y);
Readln(Z);
Hitung(X,Y,Z);
Writeln(X,Y,Z); Readln;
End.

Minggu, 23 Januari 2011

PROGRAM KOMPUTER

PROGRAM KOMPUTER
Program komputer adalah rangkaian kata perintah yang telah dimengerti
oleh komputer untuk dikerjakannya. Kata-kata perintah tersebut membentuk
suatu bahasa yang disebut dengan bahasa pemrograman. Sebagaimana
bahasa pada manusia, bahasa pemrograman juga terdiri atas banyak macam
bahasa, dan memiliki aturannya masing-masing.
Sulitnya, komputer saat ini belum diberi hak inisiatif, sehingga jika ada sedikit
saja kesalahan penulisan perintah oleh pemrogram, ia tidak mau memakluminya
atau berusaha memperbaiki sendiri kesalahan tersebut. Serta merta ia
“ngambek” dan tidak mau mengerjakan perintah-perintah lainnya. Komputer
diciptakan melalui logika manusia, karenanya, ia bekerja secara logis, tanpa
campur-tangan “perasaan.”

Algoritma 1

program Statistik_usia;
Uses wincrt;
var
N, usia, usia15, usia16, usia17, usia18, lainnya: integer;
i:integer;
Begin
read(N);
usia15:=0;
usia16:=0;
usia17:=0;
usia18:=0;
i:=1;
while i<= N do
begin
write('masukan umur anda:');
read(usia);
case (Usia) of
15:usia15:=usia15+1;
16:usia16:=usia16+1;
17:usia17:=usia17+1;
18:usia18:=usia18+1;
else lainnya:=lainnya+1;
end;
1:=i+1;
end;
{i>N}
write(usia15,usia16,usia17,usia18,lainnya);
end.