دانلود نرم افزار اموزش تایپ ده انگشتی

نرم افزار آموزش تایپ انگلیسی Learn Typing Quick & Easy حجم دانلود : 14102 کیلوبیت

ازمایش کد های html

دانلود - با حجم 31.19 مگابایــت

www.4downloads.ir رمز با حروف کوچک نوشته شود

حل مسئله و الگریتم های عقب گرد   در ادامه مطلب...

در این برنامه در خروجی وقتی شماره دیسک را وارد میکنیم به ما نشان میدهد که چند حرکت برای جابه جایی لازم است و حرکت ها را نیز نشان میدهد

;program p1

var

;n,i: integer

;(procedure a(n,m1,m3,m2:integer

;(procedure disk(m1,m3: integer

begin

;(writeln(i,') move',m1,'to ',m3

i:= i+1

;end

begin

if n>0 then

begin

;(a(n-1,m1,m2,m3

;(disk(m1,m3

;(a(n-1,m2,m3,m1

end

;end

begin

;i:= 1

;(‘write('plese insert the number disk

;(readln(n

;writeln

;(a(n,1,3,2

;readln

.end

یه برنامه دیگه از بازی برج هانوی در ادامه مطلب گزاشتم

حالشو ببرید... 

 این بازی باید در ۱۵ مرحله انجام شود و در مراحل بازی هیچ دیسک بزرگی نباید بر بروی دیسک کوچکتر قرار بگیرد و درهر بار حرکت فقط یک دیسک جابه جا میشود و در  نهایت هم همه دیسکها به میله سومی انتقال داده میشود  و از میله وسط هم به عنوان کمکی استفاده میشود

بترس از روزی که در دادگاهی مجرم باشی

                            که قاضی هم شاهد است وهم  شاکی

;uses crt

var

 ; m1,m2,m3:array[1..100,1..100] of integer

  ;i,j,k,m,n,g,f,o:integer

begin

  ;clrscr

  ;(‘writeln ('insert degrees of m1 and m2

  ;(readln (m,n

  ;(gotoxy (35,2

  ;(readln (f

  ;(gotoxy (35,3

  ;(readln (o

  if f<>n then

    ;(‘writeln('pygame khata

  if f=n  then

    begin

      for i:=1 to m do

        for j:=1 to n do

          begin

            ;(gotoxy (5*j,i*2+5

            ;([readln (m1[i,j

          ;end

      for i:=1 to f do

        for j:=1 to o do

          begin

            ;(gotoxy (5*j+25,2*i+5

            ;([readln (m2[i,j

          ;end

      for i:= 1 to m do

        for j:=1 to n do

          for  k:=1 to o do

            ;[m3[i,k]:=m1[i,j]*m2[j,k]+m3[i,k

      for i:=1 to m do

        for j:=1 to o do

          begin

            ;(gotoxy (5*j+50,2*i+5

            ;([write (m3[i,j

          ;end

    ;end

  ;readln

.end