contoh program bilangan_terbesar(turbo pascal)

program bilangan_terbesar;

uses
  WinCrt;
var
a,b,c:real;
begin
writeln('   Program Bilangan Terbesar');
writeln('   =========================');
write('input bilangan a: ');readln(a);
write('input bilangan b: ');readln(b);
write('input Bilangan c: ');readln(c);
if (a>b) and (a>c)then
writeln('bilangan terbesar',a:0:2)
else
if (b>a) and (b>c)then
writeln( 'bilangan terbesar',b:0:2)
else
if (c>a) and (c>b)then
writeln(' bilangan terbesar',c:0:2)
else
if (a=b) and (a=c) then
if (b=a) and (b=c) then
if (c=a) and (c=b) then
writeln('    nilai bilangan a,b,c sama');
readln;
donewincrt;
end.

contoh program operator_aritmatika(turbo pascal)

program operator_aritmatika;
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(X);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x > y = ',x > y);
writeln(' x >= y = ',x >= y);
writeln(' x < y = ',x < y);
writeln(' X <= y =',x <= y);
writeln(' x = y =',x = y);
writeln(' x <> y =',x <> y);
writeln;
readln;
donewincrt;
end.

contoh program operator_aritmatika(turbo pascal)

program operator_aritmatika;
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(x);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x + y = ',x + y);
writeln(' x - y = ',x - y);
writeln(' x / y = ',x / y:0:2);
writeln(' X div y =',x div y);
writeln(' x mod y =',x mod y);
readln;
donewincrt;
end.

contoh program logika_and(turbo pascal)

program logika_and;
uses WinCrt;
begin;
writeln('benar and benar =',true and true);
writeln('benar and salah =',true and false);
writeln('salah and benar =',false and true);
writeln('salah and salah =',false and false);
writeln;
writeln('benar or benar =',true or true);
writeln('benar or salah =',true or false);
writeln('salah or benar =',false or true);
writeln('salah or salah =',false or false);
writeln;
writeln('benar xor benar =',true xor true);
writeln('benar xor salah =',true xor false);
writeln('salah xor benar =',false xor true);
writeln('salah xor salah =',false xor false);
readln;
donewincrt;
end.