مثلث

uses crt;

var

a,x,i,j,b,z:integer;

begin

CLRSCR;

WRITE ('ENTER A NOMBER');

a:=0;

Readln(x);

for b:=1 to x*2-1 do

if b<=x then

begin

write('':x*2-b);

for i:=1 to b do

write(i);

for j:=(b-1) downto 1 do

write(j);

Writeln;

End

else

begin

a:=a+2;

write('':x*2-b;(

for i:=1 to b-a do

write(i);

for z:= 1 to (b*2-1)-(i*2) do

write(i);

for j:=(b-a) downto 1 do

write(j);

Writeln;

End;

readln

End.

 

string

uses crt;

var

a,b,c,d:integer;

w:string[10];

i:longint;

r: boolean;

  procedure m;

   begin

   r:= keypressed ;

   if r= true then halt;

   textcolor(random(14)+1);

   gotoxy(a,b);

   write(w);

   for i:= 1 to 10000000 do;

   clrscr;

   end;

   begin

   b:=1;

   write('enter a word:');

   readln (w);

   repeat

   for a:= 1 to 70 do

   m;

   for b:= 1 to 50 do

   m;

   for a:= 70 downto 1 do

   m;

   for b:= 50 downto 1 do

   m;

   until r = true

   end.

 

 

ساعت دیجیتال

uses crt;

var

h,m,c,e:integer;

z:boolean;

d:longint;

begin

for h:= 0 to 24 do

for m:= 0 to 60 do

for c:= 0 to 60 do

for e:= 0 to 99 do

begin

write (h,' : ',m,' : ',c,' : ',e);

for d:= 1 to 1000000 do;

z:=keypressed;

if z=true then halt;

clrscr;

end;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

فیبوناچی

Uses crt;

Var

a,b,c,d,e:integer;

Begin

Clrscr;

Write ('enetr a number');

Readln(a);

d:=0;

e:=1;

For b:= 1 to a do

begin

c:=d+e;

write ('  ',e);

d:=e;

e:=c;

end;

readln;

End.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

اعداد اول

uses crt;

var

a,b,c,d,g:longint;

begin

clrscr;

write('enter a nomber = ');

readln (a);

clrscr;

writeln('       ',a);

d:=5;

for b:= 2 to a do

for c:= 2 to a-1 do

if  a mod c =0 then

begin

writeln('/   \':d+6);

for g:= 1 to d do

write(' ');

d:=d+4;

write (c,'     ');

a:= a div c ;

writeln(a);

break;

end;

if d < 8 then

begin

clrscr;

writeln (a,' is a prime !');

end;

readln

end.