Rabu, 28 Desember 2011

Menampilkan Angka 1 sampai 10 dengan pascal(fungsi pengulangan for..to..do)


source code untuk menampilkan angka 1 to 10 dengan fungsi for..to..do
uses crt;
  var
  a,b : integer;
  f : longint;
Begin
   clrscr;
   a:=1;
   b:=10;
   for a :=1 to b do
   begin
   writeln(a);
   end;
   readln;
   end.

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.

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.