Çarpım Tablosu

 
(* başlayalım... *)
Uses crt;
Var
rawkmetal , pascal : byte;
x,y:byte; (* x satır , b sutun *)
Begin
Clrscr;(* ekranı temizledik *)
x:1;
y:1;
for rawkmetal:=0 to 10 do
for pascal:=0 to 10 do Begin
x:=x+1;
gotoxy(y,x);
Writeln(rawkmetal,'*'pascal,'=',rawkmetal*pascal);
if pascal=10 the Begin
x:=1;
y:=b+8;
end;end;end.(* the biter..*)

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

� arpım tablosu