Program Perkalian dari 1 Sampai 10
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
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar