Selasa, 27 Desember 2011

Membuat Program Pembagian 1 sampai 10 T.Pascal


Buat teman2 yang lagi buat tugas kul membuat program pembagian 1 to 10 dengan turbo pascal ne aq kasih 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 div b;
    writeln(a,':',b,'=',c:3);
    end;
    writeln;
    end;
    readln;
    end.

1 komentar: