Turbo pascal penjumlahan
program fungsi;
uses WinCrt;
var a,b,c:integer;
function jumlah : integer ;
begin
c:=a+b;
jumlah:=c;
end;
begin
a:=12;
b:=10;
writeln('hasil =',jumlah);
end.
Turbo pascal
program sumbprogram;
uses WinCrt;
var
i,x : longint;
procedure garis;
begin
writeln('-------------------------------');
end;
begin
garis;
writeln('N x x^2 x^3 x^4 x^5 ');
garis;
For i:=1 to 30 do
begin
x:=10*I;
writeln(I:3,x:6,x*x:10,x*x*x:12,x*x*x*x:14,x*x*x*x*x:16);
end;
garis;
end.
