Selasa, 27 Desember 2011

Membuat Program Perkalian 1 Sampai 10 Dengan T.Pascal

Pada x ini saya akan Meberitahu source code bagaimana cara membuat program PERKALIAN 1 to 10 dgan turbo pascal,y tentuna saya membuat ini hanya untuk membantu teman2 sekalian yang sedang di beri tugas oleh tugas.langsung aja neh 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,':',b,'=',c:3);
    end;
    writeln;
    end;
    readln;
    end.

1 komentar: