Bu site MEHMET ALİ ÖNGÜN ve ENES SAFİ tarafından kurulmuştur
   
  ..::::AnTi-TaYFa::::..
  Programlar ve Kodları
 

Çarpım tablosu;
uses crt;
var
s,i,b,a:integer;
begin
 clrscr;
 for s:=1 to 10 do
   begin
 for i:=1 to 10 do
    begin
  if s=6 then
       begin
         a:=12;
          b:=65;
end;
gotoxy(sx13-b,i+a);write(s, ' x ' , i , ' = ' , s * i );
end;
end;
readln;
end.
---------------------------------------------------------------------------
Karekök ve kare alma;

uses crt;
var
a:integer;
c:real;
begin
 clrscr;
writeln(' karesi/kökü bulunacak sayıyı girin..:' );readln(a);
c:=(a*a);
writeln(' karesi=',c:4:0);
c:=sqrt(a);
writeln('kökü=',c:4:3);
readln;
end.

 
 

-------AnTi-TaYfA-------

TatarTürkleri araştırma ödevimiz için ; http://tatarturkleri.tr.gg

-------AnTi-TaYfA-------

©2007 Copyright AnTiTaYFa service
 
..::AnTi-TaYfA::..
 
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=