program TURBO PASCAL

Hii sobad. Wahh, sudah lama neh ndak posting di Blogger saya tercinta ini. hoho :D

Em, langsung aja sob. Untuk kali pertama ini lohh saya membahas tentang TPW alias Turbo Pascal Windows. Nah, dalam bahasan kali ini saya akan memberi sedikit contoh tentang program pascal.

Ikuti step-step di bawahh ini:

1. buka TPWmu. Belon punya? Download Disini sob.

2. Buka File->New.

3. Nahh, langsung aja ketik tulisan di bawah ini. (ato copy dulu d notepad baru paste d TPW)

(untuk konversi suhu Celcius ke Fahrenheit, Kelvin, dan Reamur)

Program celcius_fahrenheit_kelvin_reamur;

Uses wincrt;

Var pilihan: byte;

C,f,k,r: real;

Begin

Writeln('pilihan');

Writeln('1.menghitung celcius ke fahrenheit');

Writeln('2.menghitung celcius ke kelvin');

Writeln('3.menhitung celcius ke reamur');

Writeln('0.selesai.');

Pilihan :=5;

While(pilihan<0)or(pilihan>3)do

Begin

Writeln('pilih nomor(0-3) ?');

Readln(pilihan);

End;

If pilihan =1 then

Begin

Write('ketik berapa derajat celcius? ');

Readln(c);

F := 32+c*1.8;

Writeln;

Writeln(c,'derajat celcius adalah ',F,'derajat Fahrenheit');

Readln;

End;

If pilihan =2 then

Begin

Write('ketik berapa derajat celcius? ');

Readln(c);

K := c+273.15;

Writeln;

Writeln(c,'derajat celcius adalah ',K,'derajat Kelvin');

Readln;

End;

If pilihan =3 then

Begin

Write('ketik berapa derajat celcius? ');

Readln(c);

R := c*0.8;

Writeln;

Writeln(c,'derajat celcius adalah ',R,'derajat reamur');

Readln;

End;

End.

gambar 1.1

(untuk Program Ganjil Genap)

Program ganjil_genap;

Uses wincrt;

Var

X, sisa : integer ;

Ket : string;

Begin

Write('masukkan semua bilangan : ');readln(x);

Sisa := x mod 2;

If sisa = 0 then ket :='genap' else ket :='ganjil';

Write('jadi jenis bilangan adalah : ');writeln(ket);

End.

gambar 1.2

(untuk Program Bintang Pyramid)

Program bintang_piramid;

Uses wincrt;

Var

c,a,b,n : integer;

begin

write('masukan angka genap sembarang utk menunjukkan jmlh bintang terbawah pyramid: ');

readln(n);

writeln;

for a := 1 to (n div 2)+1 do

begin

for b := 1 to (n div 2)+(1-a) do

write(' ');

for c := 1 to (a*2)-1 do

write('*');

writeln;

end;

end.

gambar 1.3

4. . Selesaii? Langsung aja klik Compile->Compile (Alt+F9).

5. Compile status mu “status: Successfully Completed” ? klik->OK. Itu berarti kamu sukses membuat sebuah program sob. Nah, sekarang tinggal kamu menjalankannya. Bagaimana?

1. 6. Klik Run->Run (Ctrl+F9). hasil seperti pada gambar 1.1, 1.2, dan 1.3 .

Nahh, Sekarang kamu sudah bisa kan membuat sebuah program? Congrat!!

Selamat Mencoba!!