Program Pascal Mengubah bilangan bulat menjadi bilangan biner

//Contoh Program Pascal Mengubah bilangan bulat menjadi bilangan biner

uses wincrt;
var
x,sisa,y:integer;
hasil:string;
 begin
 write('Masukan Bilangan Bulat= ');
 readln(y);
 hasil:='';
 x:=y;

 repeat
 sisa:= x mod 2;
 x:= x div 2;

 case (sisa) of
 0: hasil:='0' + hasil;
 1: hasil:='1' + hasil;
 end;

 until (x=0) ;
 gotoxy(5,3);
 writeln(y,' Bil biner = ',hasil);
 end.

Contoh Program Bahasa Pascal Mencari Bilangan Genap atau Ganjil

Contoh Program Bahasa Pascal Mencari Bilangan Genap atau Ganjil

uses wincrt;
var

n,tot: longint;
         
begin
clrscr;

writeln(' *Mencari Bilangan Ganjil & Total Jumlahnya*');
writeln(' ===========================================');
writeln;
write(' Masukan bilangan bulat= ');
readln(n);
writeln(' Bilangan Ganji dari 0 - ',n);           
writeln(' Adalah=');

for n:=1 to n  do  begin
if (n mod 2)>0 then
write  ('',n,',');
end;

tot:=(n mod 2)+(n div 2);
writeln; writeln;
writeln(' Semuanya ada             = ',tot,' buah.');
writeln(' Dan Total Semuanya Adalah= ',tot*tot);                                                         

end.

Preview: