Rizq Technology - Exploring Your iDea. » Pascal

Sorting @pacsal

Rizky — Sun, 29 Jun 2008 17:12:58 +0000

uses wincrt;
const
L: array [1..6] of integer = (07, 08, 01, 02, 04, 10);
pass:integer= 0;
nilai_diingat: integer = 0;
i:integer= 0;
label 1;

begin
for pass:= 1 to 5 do begin
nilai_diingat:= L[pass+1];
writeln(‘Nilai di ingat=’, nilai_dingat);

for i:=pass downto 1 do begin
writeln(‘test’);
if nilai_diingat< L[i] then begin
writeln(‘Sebelum digeser ‘, ‘L[i+1]=’, L[i+1], ‘ ‘, ‘L[i]=’, L[i]);
L[i+1]:=L[i];
writeln(‘Sesudah digeser ‘, ‘L[i+1]=’, L[i+1], ‘ ‘, ‘L[i]=’, L[i]);
L[i+1]:=L[i];
end else begin
{posisi sudah benar keluar dari loop}
L[i+1]:=nilai_diingat;
goto 1;
end;
end;
1:
end;
for i:=1 to 6 do begin
writeln(L[i]);
end;

end.

Random Posts

Script u/ Mencari Tahun kabisat.

Rizky — Fri, 25 May 2007 08:00:00 +0000

Perhitungan Tahun Kabisat.
Uses Wincrt;

Var
tahun: integer;

Begin
Write (‘Masukkan angka tahun = ‘); readln(tahun);
if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0)))
then
begin
Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’);
end
else

Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o ‘);
End.

Random Posts

Tahun Kabisat

Rizky — Fri, 25 May 2007 08:00:00 +0000

Uses Wincrt;

Var
tahun: integer;

Begin
Write (‘Masukkan angka tahun = ‘); readln(tahun);
if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0)))
then
begin
Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’);
end
else

Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o ‘);
End.

Random Posts

Script untuk menentukan hari berdasarkan kode …

Rizky — Tue, 22 May 2007 02:37:00 +0000

Uses wincrt;

var
T:integer;
Begin
Writeln(‘#————————————————#’);
writeln(‘# Program Menentukan Hari Berdasarkan Kode Input #’);
writeln(‘#————————————————#’);
write(‘Masukan kode hari = ‘);readln(T);
begin
if (T=0 )or(T >7) then
writeln(‘Kode Hari yang anda input salah’);
if (T=1 ) then
writeln(‘Senin’);
if (T=2 ) then
writeln(‘Selasa’);
if (T=3 ) then
writeln(‘Rabu’);
if (T=4 ) then
writeln(‘Kamis’);
if (T=5 ) then
writeln(‘Jumat’);
if (T=6 ) then
writeln(‘Sabtu’);
if (T=7 ) then
writeln(‘Minggu’);
if (T=1 )or(T=2)or(T=3)or(T=4)or(T=5) then
writeln(‘Hari Kerja’);
if (T=6 )or(T=7) then
writeln(‘Weekend’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘o0————–o0o————–0o’);
end;
end.

Random Posts

Tentukan Hari.

Rizky — Tue, 22 May 2007 02:37:00 +0000