Kamis, 22 Desember 2011

Membuat Program Perkalian 1 Sampai 10 Dengan T.Pascal

Buat Temen-temen yang sedang buat tugas program perkalian dengan T.Pascal ne source code nya :

uses crt;
var
a,b,c : integer;
begin
clrscr;
a:=0;
while a < 1 do
begin
a:=a+1;
b:=0;
while b < 10 do
begin
b:=b+1;
c:=a*b;
writeln(a,'x',b,'=',c:3);
end;
writeln;
end;
readln;
end.

Tidak ada komentar:

Posting Komentar