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.
---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textboxSelasa, 25 Januari 2011
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.Langganan: Postingan (Atom)