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.

Manusia dan Penderitaan

Lagi lagi gw nulis buat Tugas Ilmu Budaya Dasar...

Nama : Wildan Agissa Rusadi
NPM : 12109394
Kelas : 1KA22
Jurusan : Sistem Informasi
Fakultas : Ilmu Komputer


Manusia dan Penderitaan, wuih sadis banget judulnya yak... okelah, mumpung gw lagi dalam masa pemulihan diri dari penderitaan CINTA nih... hheu...

nyok kita kemon kang!!!

Setiap manusia pasti punya tujuan hidup, setiap tujuan hidup pasti banyak hambatannya, setiap hambatan pasti ada penderitaannya dan setiap penderitaan pasti ada penyesalannya. Tapi dibalik semua itu pasti ada hikmah dan jalan keluarnya.

Nah, sekarang coba kita ganti kata-kata yang ada di atas tadi. "Setiap manusia pasti punya tujuan hidup, setiap tujuan hidup memiliki tantangan, setiap tantangan pasti ada kemudahan, setiap kemudahan pasti ada keberhasilan". *lebih enak dikit kan? hhe...*

Semua orang pasti pernah merasakan kesulitan, kesakitan dan depresi yang sangat berat. Ada orang yang karena parahnya masalah yang dihadapi, dia putus asa dan mengakhiri hidupnya dengan BUNUH DIRI. Sebetulnya bunuh diri itu hal yang benar-benar bodoh bin tolol, karena selain tersiksa di dunia, pasti dia akan sengsara di akhirat kelak *naudzubillah min dzalik*. Seberat - beratnya permasalahan pasti ada jalan keluarnya. Jika kita menyikapinya dengan kepala dingin dan berlapang dada, serta dengan berharap kepada Allah SWT agar masalah kita dapat segera terselesaikan, pasti semuanya akan menjadi lebih mudah.

Jangan menganggap penderitaan itu adalah akhir dari segalanya, penderitaan adalah sebuah awal dari titik balik diri kita yang dahulu untuk menjadi diri yang baru, yang penuh dengan semangat dalam menjalani hidup.

Pertambahan & Perkalian

Matkul : Algoritma & Pemrograman 2A
Nama : Wildan Agissa Rusadi
NPM : 12109394
Kelas : 1KA22

Pertambahan & Perkalian


LISTING PROGRAM:














OUTPUT:

PASCAL ~ GANJIL GENAP

Matkul : Algoritma & Pemrograman 2A
Nama : Wildan Agissa Rusadi
NPM : 12109394
Kelas : 1KA22

PASCAL ~ GANJIL GENAP

LISTING PROGRAM:

OUTPUT :