می تونی برام یه برنامه ساعت به زبان پاسکال رو بنویسی که تاریخ سیستم رو برداره و در وسط صفحه نمایش کامپیوتر شروع به شمارش کنه

من خیلی حرفه ای پاسکال کار نکردم، اما فکر نمی کنم تایمر داشته باشه
اگه داره به ما هم یاد بدین

می تونی برام یه برنامه ساعت به زبان پاسکال رو بنویسی که تاریخ سیستم رو برداره و در وسط صفحه نمایش کامپیوتر شروع به شمارش کنه
میشه همچین کاری توی پاسکال کرد؟
من خیلی حرفه ای پاسکال کار نکردم، اما فکر نمی کنم تایمر داشته باشه
اگه داره به ما هم یاد بدین![]()
می تونی برام یه برنامه ساعت به زبان پاسکال رو بنویسی که تاریخ سیستم رو برداره و در وسط صفحه نمایش کامپیوتر شروع به شمارش کنه
میشه همچین کاری توی پاسکال کرد؟
من خیلی حرفه ای پاسکال کار نکردم، اما فکر نمی کنم تایمر داشته باشه
اگه داره به ما هم یاد بدین
چه جالب
ولی من اصلا اسمبلی بلد نیستم
چطوری می تونم یاد بگیرم؟
سخته؟
آره میشه..
پاسکال یه تابع داره به اسم ()delay و یک عدد تو پرانتز به عنوان پارامتر میگیره که بر حسب میلی ثانیه است و به اندازه اون مقدار از MS تاخیر می اندازه....
میشه ابتدا gettime کرد و بعد تو یک حلقه for با یک delay در حدود 1000 میلی ثانیه هر بار بهش یه ثانیه اضافه کرد و وقتی ثانیه 59 تموم شد و خواست 60 بشه یکی به دقیقه اضافه بشه و ثانیه صفر بشه...
برنامه سختی نیست...
اگه مشکلی بود بپرس
آره میشه..
پاسکال یه تابع داره به اسم ()delay و یک عدد تو پرانتز به عنوان پارامتر میگیره که بر حسب میلی ثانیه است و به اندازه اون مقدار از MS تاخیر می اندازه....
میشه ابتدا gettime کرد و بعد تو یک حلقه for با یک delay در حدود 1000 میلی ثانیه هر بار بهش یه ثانیه اضافه کرد و وقتی ثانیه 59 تموم شد و خواست 60 بشه یکی به دقیقه اضافه بشه و ثانیه صفر بشه...
برنامه سختی نیست...
اگه مشکلی بود بپرس
البته من کامپایلر هایی که تو بازار دیدم همشون این مشکل و دارن و برای رفع این مشکل از نرم افزار زیر استفاده کردم شما هم می تونین از لینک زیر دانلودش کنینالبته program name دیگه الزامی نیست تو کامپایلر های جدید..
ولی uses crt بعضی وقتا به مشکل می خوره و خطای division by zero میده که علتش هم سرعت بالای کامپیوتر های جدید هست.. و path رسمی اش از طرف borland منتشر شد...
البته منتظر شیوه رفع اشکال شما هستیم...
این نوشته جهت تایید حرفهای شما بود
برای این کار بایستی از نوعی از داده استفاده کنی که محدوده اعداد بزرگتری داشته باشهسلام دوستان
من تازه عضو سایت شدم
دانشجوی کامپیوتر تو صنعتی اصفهان هستم
می خواستم بدونم که اگه بخوایم فاکتوریل یه عدد بزرگ رو تو c++ حساب کنیم چه طور باید این کارو بکنیم با چی باید کار کنیم
با توابع بازگشتی که اون طور که یادم مییاد تا 15 16 رو فقط میتونه حساب کنه
ممنون منتظر پاسختون هستم
سلام دوستان
من تازه عضو سایت شدم
دانشجوی کامپیوتر تو صنعتی اصفهان هستم
می خواستم بدونم که اگه بخوایم فاکتوریل یه عدد بزرگ رو تو c++ حساب کنیم چه طور باید این کارو بکنیم با چی باید کار کنیم
با توابع بازگشتی که اون طور که یادم مییاد تا 15 16 رو فقط میتونه حساب کنه
ممنون منتظر پاسختون هستم
خوب ما اینیم دیگه چی کار میشه کرداقا کف کردم با چه سرعتی جواب دادی
مثلا با long کار کنم
من از یه سری ها که پرسیدم گفتن که یه جورایی با آرایه ها می تونی بنویسیش
#include <iostream>
#include <iomanip>
#include <ctime>
#include <fstream>
using namespace std;
const unsigned long long _DIV_NUM = 1000000000000000;
unsigned long long Arr[2000000];
int main()
{
ofstream cout ("BigFact.out");
int n ;
while(cin >> n) //while there's number 2 read :
{
clock_t startTime= clock(); //for calculating time
long long carry =0 , tmp=0;
unsigned int up =1;
cout << n << "!\n";
//------begin of calculations :
Arr[0]=1; //0! && 1! =1
for(int i=2; i<=n; i++) //calcuating n! :
{
for(unsigned int current=0; current<up; current++) //while we have digits in Arr :
{
tmp =(i* Arr[current]+carry ); //
Arr[current]= tmp % _DIV_NUM ; //numbers in Arr must be less than 1000 (only 3-digits in all the Arr cells)/
carry = tmp / _DIV_NUM ; //calcuating carry/
}
if(carry) //if we have carry then :
{
Arr[up++] = carry; //put carry into Arr and increase Arr size/
carry =0; //reset carry/
}
}
//-------end of calculations/
//-------begin of printing Factorial :
cout << Arr[up-1]; //print first digit[s]/
//calcuating the count of factorial digits :
int factLen=0;
for(;Arr[up-1]; factLen++ , Arr[up-1]/=10); //first digits count
factLen += (up-1) * 15 ; //digits count
//print the n! :
for(int i=up-2; i>=0; i--)
{
cout << setw(15) << setfill('0') << Arr[i];
Arr[i]=0; //reset Arr cells 4 next n!/
}
clock_t endTime= clock();
cout << "\nCaculating time : " << setprecision(3) << fixed << (double)(endTime - startTime) / CLOCKS_PER_SEC << endl ;
cout << "Digits count : " << factLen << endl << endl;
}
//-------end of printing Factorial/
return 0;
}
هر وقت مشکلی در پاسکال ++C و اسمبلی داشتی در خدمت هستیمآقا خیلی باهاتون حال کردم
دست همتون درد نکنه
ایشالا از این به بعد بیشتر اینجا فعالیت میکنم تا از دونسته های دوستان بیشتر یهره ببریم
فقت همینجا ازتون یه خواهش دارم که دست جمعی دعا کنید من از مشروطی در بیام
خدا خیرتون بده
نمیدونید اینجا چه استادایه با حالی داریم (شاید به گوشتون خورده باشه)
![]()
خوب بگو یه برنامه کامل می خوام دیگه من یکی دارم ولی ...من هم با اجازتون يك پروژه vb.net مي خوام كه از بانك اطلاعاتي sqlserver استفاده كنه
خيلي خيلي ممنون مي شم
جبران مي كنم هان !!![]()
سلام به تمام دوستان عزیز.
کمکم کنید:
یکی از این 2 تا رو می خوام:
(1): پیاده سازی کامپیوتر مبنا(فصل 5 معماری کامچیوتر مانو)
یا به روش سخت افزاری یا میکرو پروگرام
(2): پیاده سازی کامپیوتر فصل 7 معماری کامپیوتر مانو
یا به روش سخت افزاری یا میکرو پروگرام
(با برنامه LOGISIM)
کمکم کنید خیلی به نومرش احتیاج دارمک تا 19 هم بیشتر وقت ندارم.
اگه کسی هم آماده داره حاضرم مبلغشو هم پرداخت کنم.
ممنون.
سلام دوستان
من چند تا سوال طراحی الگوریتم دارمک هر کس می تونه تو حلش به من کمک کنه ممنونش میشم . سوالات رو اسکن کردم و همین جا ATTACH میکنم.
Thread starter | عنوان | تالار | پاسخ ها | تاریخ |
---|---|---|---|---|
![]() |
ایجاد یک پروژه جنگو با دستورات cmd | برنامه نویسی | 0 | |
A | مرجع تمرین با جواب و انجام پروژه برنامه نویسی | برنامه نویسی | 0 | |
H | کند بودن اندروید استودیو موقع ساخت پروژه | برنامه نویسی | 2 | |
A | پروژه سودوکو با زبان c++ | برنامه نویسی | 0 | |
F | کمک در انجام پروژه | برنامه نویسی | 0 |