Tugas Akhir Komputasi "Turbo Pascal"

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.