Operasi While Dalam pascal

Contoh Porgram While untuk mengoperasikan output dari 0 sampai 5 :
uses crt;
var i : integer;
begin
clrscr;
i := 0 ;
while i < 6 do
begin
writeln(i);
i := i +1;
end;
end.
outputnya akan tampil seperti berikut :

Read More

Pernyataan While

 Pernyataan while biasa dipakai untuk melakukan pengulangan yang jumlahnya tidak diketahui di depan atau selang pencacah tidak sebesar 1 atau -1, sehingga pernyataan akan dilakukan terus menerus selama kondisi bernilai true bentuk pernyataan while :

While kondisi DO pernyataan 

Contoh program pernyataan while:

Program Cobawhile_1;

Uses crt;

Var

ulang : integer;

Begin

Clrscr;

ulang := 10;                   

While ulang >=1 do

Begin

Writeln(ulang);

ulang := ulang -1;

End;

Readln;

End.

 

Read More

KONVERSI SUHU DALAM PASCAL

Ini Adalah Coding Program Konversi Suhu untuk mengetahui pengkonversian dari suhu derajat ke suhu lainnya

Program KonversiSuhu;

uses crt;

var

     celcius, reamur, fahrenheit, kelvin : real;

begin

clrscr;

     write(’Masukan besarnya suhu dalam derajat : ‘);readln(celcius);

     reamur:=((4/5)*celcius);

     fahrenheit:=(32+(9/5)*celcius);

     kelvin:=(celcius+273);

Read More

MERUBAH WARNA LATAR PASCAL

MENGATUR WARNA LATAR
ARTIKEL INI DARI SUMBER LAINNYA
Pernah merasa bosan dengan tampilan program pascal yang warna latar nya (background) hitam polos ketika di-compile?
Kalau iya, ayo ikuti tutorial di bawah ini

Persiapan :

Salin semua file yang ada di folder BGI dan UNITS ke folder dimana Anda menaruh file TPX.EXE
Tekan Alt+Enter untuk berubah ke layar fullscreen

Terus?
Jangan lupa menggunakan unit graph. Unit graph digunakan dengan menambahkan 'uses graph' (tanpa tanda petik) di awal program/di bawah 'program nama_program', sebaiknya gunakan unit crt juga:
uses crt,graph
Jangan lupa untuk mendeklarasikan variabel yang berupa integer untuk digunakan dengan initgraph, contoh :
var
gp,gm:integer;
Selanjutnya, di bagian program utama tambahkan 3 baris program sebagai berikut (contohnya dengan menggunakan variabel di atas) :
gp:=detect;
initgraph(gp,gm,'');
setbkcolor(warna);

Read More

Contoh Sederhana Program Pascal

Read More