تبلیغات
برنامه نویسی با پاسکال - ساعت دیجیتال به درخواست دوستان

ارائه سورس کد ها و پروژه های پاسکال تحت ویندوز!
صرفا جهت آموزش ، نه کپی برداری برای پروژه های دانشگاهی!

لطفا سورس کد های این وبلاگ را برای پرژه های دانشگاهی تون استفاده نکید ، واقعا هدف وبلاگ این نیست.
تمامی مسولیت کپی کردن و ارائه به استاد بر عهده شخص شماست نه نویسنده.

حسین

جستجو

 

ساعت دیجیتال به درخواست دوستان

دوشنبه 18 آذر 1387   10:46 ق.ظ


نوع مطلب : سورس کدهای پاسکال ،سورس کدها و پروژه های درخواستی ،

uses crt,dos;
var
   h,m,s,ss : word;
   i : longint;
begin
     for i:= 1 to 10000001 do
          if i= 1000000 then
              begin
                    clrscr;
                    gettime(h,m,s,ss);
                    writeln(h,':',m,':',s,':',ss);
                    writeln;
                    i:=1
              end;
end.

این برنامه یه جورایی کامپیوتر سرکار میزاره و یک ساعت دیجیتال می سازه این سورس تخت داس اجرا میشه

 


نوشته شده توسط : حسین