1. Menampilkan 50 Bilangan Positif Pertama
2. Menampilkan 07 Bilangan Ganjil Pertama
3. Menampilkan 1500 Bilangan Pertama
4. Konversi Derajat Celcius Kerankin
5. Konfersi Biner Ke Desimal

Maka Jika Dibuat Dalam Program Pascal Hasilnya Adalah :

Program pilihan;
uses crt;
Procedure Bilangan_Positif;
Var A : Integer;
Begin
Writeln ('Lima puluh bilangan positif pertama adalah ');
For A:=1 to 49 do
write (' ',A,',');
write (' ',50,'.');
Readln;
End;
Procedure Bilangan_Ganjil;
Var A : String [24];
Begin
A:=('1, 3, 5, 7, 9, 11, 13.');
Writeln ('Tujuh bilangan ganjil pertama adalah ',A);
Readln;
End;
Procedure Bilangan_Ganjil2;
var A,B : integer;
Begin
Writeln ('Seribu limaratrus bilangan ganjil pertama adalah ');
for A:=1 to 1499 do
begin
B:=2*A-1;
Write (' ',B,',');
end;
write (' 2999.');
readln;
end;
Procedure Konversi_Celcius;
Var A,B: real;
Begin
Write ('Masukan nilai derajat celcius ? ');readln(A);
B:=9/5*A+492;
writeln (A:14:2,' derajat celcius = ',B:14:2,' Rankin');
readln;
end;


Procedure Pangkat (x,y:integer;var C:integer);
var i,hasil: integer;
begin
hasil := 1;
for i:=1 to y do
begin
hasil := hasil * x;
C:=hasil;
end;
end;





var A,D:string;
B,C,j,E,F,G,H,hasil2:integer; z:integer;
Begin
clrscr;
writeln (' Pilih program yang tersedia dibawah ini!!!!');
writeln ('1. Menampilkan 50 bilangan positif pertama');
writeln ('2. Menampilkan 07 bilangan ganjil pertama');
writeln ('3. Menampilkan 1500 bilangan ganjil pertama');
writeln ('4. Konversi derajat celcius ke rankin');
writeln ('5. Konversi biner ke desimal');
writeln;
write ('Masukan pilihan yang tersedia no 1, 2, 3, 4, atau 5 ? ');readln (z);
if z=1 then Bilangan_Positif else
if z=2 then Bilangan_Ganjil else
if z=3 then Bilangan_Ganjil2 else
if z=4 then Konversi_Celcius else
if z=5 then

begin
write ('masukan bilangan biner = '); readln(A);
B:= length (A);
hasil2:=0;
for j:=0 to B-1 do
begin
D:= copy (A,B-j,1);
val (D,E,F);
pangkat (2,j,C);
if C=0 then C:=1;
H:= C*E;
hasil2:=hasil2+H;
end;
writeln (hasil2);
readln;
end

else
writeln ('Error');
readln;
End.



Download PASCAL.PAS

Download PASCAL.EXE