Latihan 6.14 Menggunakan Kata kunci forward (bagian 2)

Koding:

program ContohForward2;

uses
crt;

procedure Tulis(var N: integer); forward;

procedure TurunkanNilai (var indeks: integer);
begin
indeks := indeks -1;
if indeks > 0 then begin
Tulis(indeks);
end;
end;

procedure Tulis(var N: integer);
begin
writeln(N);
TurunkanNilai(N);
end;

var
i : integer;
begin
i := 5;
writeln('Menggunakan prosedur TurunkanNilai');
TurunkanNilai(i);
writeln;

i := 5;
writeln('Menggunakan prosedur Tulis');
Tulis(i);
readln;
end.


Output :

program ContohForward

program ContohForward;

uses crt;

procedure B(x: integer);forward;

procedure A(x: integer);
begin
if (x>0) then
begin
write('Pada saat x = ',x,', prosedur A dijalankan');
B(x-1);
end;
end;

procedure B(x: integer);
begin
if (x>0) then
begin
writeln('Pada saat x = ',x,', prosedur A dijalankan');
A(x-1);
end;
end;

begin
writeln('Memanggil prosedur A:');
A(5);
writeln;
writeln('Memanggil prosedur B:');
B(5);
end.

Tugas Pascal 1 - 5

FOR ... DOWNTO ... DO

uses crt;
var
a: integer;
begin
clrscr;
for a := 5 downto 1 do
begin
writeln (a);
end;
readln;
end.
=========================

REPEAT ... UNTIL

uses crt;
var
nilai : integer;
begin
clrscr;
nilai:=1;
repeat
writeln (nilai);
nilai:= nilai +1;
until nilai > 20;
readln;
end.
=========================

FOR ... TO ... DO

uses crt;
var
x : integer;
begin
clrscr;
for x := 1 to 5 do
begin
writeln ('1KA22');
end;
readln;
end.

=========================

FOR ... TO ... DO

uses crt;
var
a,b,c,d,e : integer ;
begin
clrscr ;
write ('masukkan angka : '); readln (a);
for b := 1 to a do
begin
for c := 1 to b do
begin
write (c);
end;
writeln;
end;
for d := a downto 1 do
begin
for e := 1 to (d-1) do
begin
write (e);
end;
writeln;
end;
readln;
end.
=========================

IF ... THEN

uses crt;
var
nilai : integer;
hasil : string;
begin
clrscr;
hasil = 'tidak lulus';
write ('Masukkan Nilai anda : ');readln(nilai);
if nilai >= 70 then
hasil = 'Lulus';
writeln (hasil);;
readln;
end.
=========================

WHILE ... DO

uses crt;
var b : integer;
begin
clrscr;
b:=1;
while(b<=5) do begin writeln('ok ', b); b:=b+1; end; readln; end. =========================
WHILE..DO

USES CRT;
VAR DIGIT : INTEGER;
begin;
clrscr;
digit := 1;
while digit <= 20 do begin write(digit); digit:= digit +1; end; readln; end. =========================
CASE ...OF

uses crt;
var hadiah :integer;
begin;
clrscr;
write('Masukkan kode hadiah [1/2/3] : '); readln(hadiah);
case hadiah of
1 :writeln('Komputer');
2 :writeln('Playstation2');
3 :writeln('Playstation1');
end;
readln;
end.
=========================

Konversi Suhu

program konversi_suhu;
uses crt;
var
c,f,k,r : real;
pil : integer;
bagin
clrscr;
writeln ('PROGRAM KONVERSI SUHU');
Writeln ('---------------------------------------');
writeln ('Pilih menu berikut dengan menekan tombol [1..4]');
writeln ('[1] Konversi Celcius ke Farenheit');
writeln ('[2] Konversi Celcius ke Reamur');
writeln ('[3] Konversi Celcius ke Kelvin');
writeln ('[4] Keluar program');
writeln;
Write ('Masukkan pilihan Anda : '); readln(pil);
case pil of
1: begin
writeln ('Konversi Celcius ke Farenheit');
write ('Masukkan Suhu Celcius: '); readln(c);
f := c * 1.8 + 32;
writeln (c:5:2,' Celcius = ',f:5:2,' Farenheit');
writeln;
end;
2: begin
writeln ('Konversi Celcius ke Reamur');
write ('Masukkan Suhu Celcius :'); readln (c);
writeln;
r := c * 0.8;
writeln (c:5:2,' Celcius = ',r:5:2,' Reamur');
writeln;
end;
3: begin
writeln ('Konversi Celcius ke Kelvin');
write ('Masukkan Suhu Celcius: '); readln(c);
k := c + 273 ;
writeln (c:5:2,' Celcius = ',k:5:2,' Kelvin');
writeln;
end;
4: begin
writeln ('Keluar Program');
writeln;
end;
end;
readln;
end.

Manusia dan Harapan

Kali ini gw akan ngebahas tentang Manusia dan Harapan.
*Inspirasi gw nulis tulisan ini karena tuntutan tugas Ilmu Budaya Dasar*. Hehe...^^

Harapan...
apa sih yang terbesit di pikiran kalian tentang harapan kalian selama ini? harapan baik dalam jangka pendek dan panjang?

setiap orang pasti mempunyai harapan, setiap harapannya itu pasti bertujuan agar sesuatu yang baik terjadi pada diri mereka, orang terbaik mereka, keluarga, dll.

Kalo menurut gw, harapan yang paling utama adalah bagaimana caranya kita bisa selamat di akhirat. hidup ini adalah tempat dimana kita hidup untuk mencari ponit sebanyak - banyaknya. Dalam bentuk apa point tersebut? point tersebut adalah Amal perbuatan baik kita.

Jadi berharaplah agar semua yang kita perbuat adalah perbuatan yang dapat mengantarkan kita kepada akhir yang indah (surga). Dan berharaplah hanya kepada Allah SWT.