Menentukan bilangan terbesar dengan pascal

Kali ini saya akan membagikan cara untuk Menentukan bilangan terbesar dengan pascal dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan percabangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

program bilangangterbesar;
uses crt;
var
 bilangan1,bilangan2,bilangan3:integer;
 begin
clrscr;
writeln('masukan bilangan pertama ');
readln(bilangan1);
writeln('masukan bilangan kedua');
readln(bilangan2);
writeln('masukan bilangan ketiga');
readln(bilangan3);
if (bilangan1>bilangan2) and (bilangan1>bilangan3) then
write('bilangan pertama yang terbesar')
else
if (bilangan2>bilangan1) and (bilangan2>bilangan3) then
writeln('bilangan kedua yang terbesar')
else
if (bilangan3>bilangan2) and (bilangan3>bilangan2) then
writeln('bilangan ketiga yang terbesar');
end.

berikut screenshootnya :

Koversi Suhu Dengan Pascal

Kali ini saya akan membagikan cara untuk membuat konversi suhu dari celcius ke faranheit dan reamur dengan menggunakan bahasa pemrograman pascal. semoga bisa menambah wawasan bagi para pembaca semuanya.

Source code dari pascal :

program suhu;
uses crt;
var
celcius,faranheit,reamur:real;
begin
clrscr;
writeln('masukan suhu dalam celcius');
readln(celcius);
faranheit:=((9 div 5)*celcius)+32;
reamur:=(4 div 5)*celcius;
writeln('suhu dalam faranheit ', faranheit :5 :5);
writeln('suhu dalan reamur ', reamur :5 :5);
readkey;
end.

berikut screenshootnya :

Deret bilangan ganjil pascal

Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

program bilanganganjil;

uses crt;

var

i,n:integer;

begin

clrscr;

writeln('masukan batas akhir');

readln(n);

for i:=1 to n do

 if (i mod 2 = 1) then

 write(i,' ');

end.

berikut screenshoot nya :

Perkalian deret dengan pascal

Kali ini saya akan membagikan cara untuk membuat perkalian berderet atau perkalian faktorial dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut codingnya :

program perkalianderet;

uses crt;

var

 batasawal,batasakhir,jumlah:real;

 begin

 clrscr;

 writeln('masukan awal');

 readln(batasawal);

 writeln('masukan batas akhir'); readln(batasakhir);

 jumlah:=1;

 repeat

 batasawal:=batasawal+1;

 write(batasawal:2,'x':2);

 jumlah:=jumlah*batasawal;

 until batasawal=batasakhir;

 write('=',jumlah);

 readkey;

end.

berikut screenshootnya :

Membuat bintang dengan pascal

Kali ini saya akan membagikan cara untuk membuat bintang berderet dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

program bintangkecil;
uses crt;
var
i,j,n:integer;
begin
clrscr;
writeln('masukan jumlah baris');
readln(n);
for i:=0 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readkey;
end.

Berikut screenshoot nya :

Bilangan Ganjil dengan Pascal

Kali ini saya akan membagikan cara untuk menetukan suatu bilangan apakah bilangan ganjil atau tidak dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan struktur if then else. semoga bisa menambah wawasan bagi para pembaca semuanya.


program ganjil;
uses crt;
var
 bilangan,sisa,ket,bagi:integer;
begin
clrscr;

writeln('masukan bilangan');
readln(bilangan);

bagi:=bilangan mod 2;
if (bagi > 0 ) then
writeln('bilangan ganjil')
else
writeln('bukan bilangan ganjil');
readln;
end.

berikut screenshotnya :