از این نرم افزار استفاده کنید تا دیگر نیازی به گشتن در اینترنت به دنبال کد های جاوا اسکریژت نباشید!

لینک دانلود

 کتاب HTML را در آخر هفته بیاموزیم

قسمت اول(ایجاد یک سند ساده HTML)

قسمت دوم(قالب بندی نوشته در HTML)

قسمت سوم(فونت ها در HTML)            

شما از لینک زیر می توانید نرم افزار vpn رو دریافت کنید!

VPN

program test;
uses newdelay,crt;
type
   pnode = ^NODE;
   NODE = record
           data : integer;
           link : pnode;
           end;
const
 start: pnode = nil;
 var
   temp,now : pnode;
   i,y: integer;
{*****==========<>==========*****}
procedure add(data : integer);
begin
   new(temp);
   temp^.data := data;
   temp^.link :=nil;
   now := start;
   if start = nil
   then start :=temp
   else begin
          while now^.link <> nil do
            now := now^.link;
          now^.link :=temp;
          end;
end;
{*****==========<>==========*****}
function del(data : integer) :boolean;
begin
now :=start;
temp:=nil;
del := false;
while now <> nil do
begin
   if now^.data = data
   then begin
          if temp = nil
          then start :=now^.link
          else temp^.link := now^.link;
          dispose(now);
          del := true;
          break;
          end
          else begin
                temp :=now;
                now :=now^.link;
                end;
  end;
end;
{*****==========<>==========*****}
procedure printlist;
begin
   now:=start;
   while now <> nil do
   begin
   writeln(now^.data);
   now := now^.link;
 end;
end;
{*****==========<>==========*****}
procedure disposelist;
begin
   while start <> nil do
   begin
     now := start^.link;
     dispose(start);
     start:=now
 end;
end;
{*****==========<>==========*****}
procedure mainmenu;
begin
   while true do
   begin
      clrscr;
      textColor(red+Blink);
      TextBackground(LightGray);
      writeln('This program created by mohse mehdyfar');
      normvideo;
      TextBackground(red);
      writeln('1:Add    2:Del   3:Print   4:Exit' :60);
      normvideo;
      TextBackground(blue);
      textcolor(14);
      writeln('pleas enter a number: ');
      readln(i);
      case i of
      1: begin
         clrscr;
         writeln('Add':40);
         write('please enter the number: ');
         readln(y);
         add(y);
         end;
      2: begin
      clrscr;
      writeln('del':40);
      write('pleas enter the number: ');
      readln(y);
      if not(del(y)) then
      begin
        write('This number is not available!');
        readkey;
        end;
      end;
      3: begin
      clrscr;
      writeln('print':40);
      printlist;
      write('press any key to continue ...');
      readkey;
      end;
      4: break
      end;{case}
      end;{while}
      end;
      begin
      mainmenu;
      disposelist
      end.
آقا می  خوام به جای یه عدد یه رکورد تعریف کنم چی کار کنم؟

لینک دریافت

سلام

یونیت new delay جهت رفع مشکل crt

لینک دانلود فایل اول

لینک دانلود فایل دوم

این دو فایل رو در پوشه units کپی کنید

                                اینجا را کلیک کنید

password:www.itfa.blogfa.com

 وبلاگ انجمن علمی

همونطور که قول داده بودیم می خوایم مطلبای جدیدی رو توی وبلاگ بزاریم اولین مطلب کار گروه ترجمه است که امیدوارم خوشتون بیاد.

برای اونایی که aXXo رو نمی شناسن باید گفت که aXXo کسی که تقریبا مسئول ملیون ها نسخه از dvd های ریپ شده است که الان در کامپیوتر های خانگی وجود داره. تمام این ریپ ها طوری ساخته شدن که با حجم 700 مگابایتی در یک cd  می تونن رایت بشن. بعضی ها ایراد می گیرن که این کار باعث می شه تا کیفیت پایین بیاد اما دیگران این کار رو کار بزرگی می دونن.

در اوایل امسال(میلادی) aXXo آپلود فیلم رو متوقف کرد چرا که سایت axxotorrents.com تلاش کرد با استفاده از اسم او سود سرشاری رو به جیب بزنه. بعد از چند هفته این سایت کار خودش رو متوقف کرد و باز  aXXo کار خودش رو از سر گرفت.

خیلی وقتا مشکله که منبع رو پیدا کرد، خصوصا که aXXo زیاد حرف نمی زنه اما بالاخره راضی شد تا کمی با ما حرف بزنه و به چند تا سوال جواب بده.

 تورنت فریک: از کی شروع به آپلود dvd rips کردی؟

aXXo: وقتی 15 یا 16 ساله بودم تصمیم گرفتم که از dvd  هام بک آپ بگیرم در واقع از اونجا شروع شد.

تورنت فریک: چه چیزی تحریکت کرد تا فیلم هات رو به اشتراک بزاری؟

aXXo: چرا نباید این کار رو می کردم، اگه من یه فیلم خوب رو ببینم معتقدم که بقیه هم این حق رو دارن که اونو ببینن و باهاش حال کنن.

تورنت فریک: تو فکر نمی کنی که آپلود کردن فیلمایی که کپی رایت دارن اشتباهه؟

aXXo: در واقع نه؛ چرا که این فیلما واقعا مال خودم هستن.

تورنت فریک: تو تنهایی یا کس دیگه ای هم تو رو کمک می کنه؟

aXXo: نه، همش کار خودمه.

تورنت فریک : به نظر می رسه که تو بیشتر با ریپای 700 مگا بایتی کار می کنی چرا از کیفیت بهتر استفاده نمی کنی؟

aXXo: کاهش کیفیت خیلی کم اتفاق می افته اما مهم  اینه که با جا شدن فایل توی یه  cd این نقص رو می شه نادیده گرفت .

تورنت فریک: توی کدوم سایتها این فیلمارو رو میزاری و چرا فقط با یه سایت کار نمی کنی؟

aXXo: تعدادشون کمه، بیشتر مردم دوست دارن فقط با یه سایت کار کنن اما من تا تونستم سعی کردم این کار رو نکنم.

تورنت فریک: نظرت راجع به سایت هایی مثل axxotorrents.com که از اسم تو سوء استفاده می کنن چیه؟

aXXo: این یه مسئله احساسی، اما من چیزی در برابرشون ندارم این فقط یه سوء تفاهم بود که برطرف شد؛ اونا منطقی بودن و منم تمام تورنت ها رو چک کردم.

تورنت فریک: مردم چطور می تونن بدونن که تورنت ها کار توئه و با تقلبی ها اشتباه نگیرن؟

aXXo: اگه فایلRAR مال من نیست. ریپای من فقط شامل 2 یا 3  فایل. یکی اطلاعات یکی فایل .avi و دیگری هم یه فایل txt که اونم قطع خواهد شد.

تورنت فریک: تو فیلمات رو از کجا می آری؟

aXXo: ... (او به این سوال پاسخ نداد.)

تورنت فریک: تو فکر نمی کنی توزیع فیلمایی که کپی رایت دارند از نظر اخلاقی درست نیست؟ و یا فکر نمی کنی یه نوع دزدی؟

aXXo: خدا رو شکر، ما تو این کشور قانونی  درباره کپی رایت نداریم. این فقط تقسیم کردن و به اشتراک گذاشتن سرگرمی هاست.

تورنت فریک: خوب شاید این سوال جواب دادنش برات راحت باشه، کدوم یکی از سایت های بیت تورنت مورد علاقه توست؟

aXXo: یکی نیست، Darksiderg.com جایی که کارای اوریجینال من اونجاست اما من جاهای دیگه رو هم دارم  مثل Superfundo, Demonoid, MiniNova, The Pirate Bay.

تورنت فریک: خوب ازت ممنونم که با ما حرف زدی.

aXXo: خواهش می کنم.

ترجمه شده توسط وبلاگ WWW.ITFA.BLOGFA.COM

سلام

دوستان منتظر یه سری تغییرات جدید در این وبلاگ باشید.