Printable View
خیلی راحته. شماره هر سطر و تعداد اعداد هر سطر برابره. با حلقه FOR تودرتو راحت حل میشه.نقل قول:
برنامه اي بنويسيد كه خروجي زير را توليد كند (از دستور Writeln استفاده نشود) :
البته این که گفته شده از Writeln استفاده نشه منظور طراح سوال این بوده که این خط ها رو توی writeln نزارین و همینطوری چاپ کنین !
اما اگه خواستی کلاً از writeln هم استفاده نکنی میتونی از این دو دستور که معادل writeln هستن استفاده کنی:
کد:write(CHR(10));
write(CHR(13));
موفق باشی.
سلام به ....
ايليا جون ازت خوشم مياد كه خيلي تيزي .... دلم برات بگه عزيز از يزد كه فعلا بد جوري دانشگاه اوضاعش خيط شده...
300 تا از دختر اي خوابگاهي دانشگاه يزد مسموم شدن رفتن خونه باباشون ... يه هفته دانشگاه ول معطلعه ...( اصلا اوضاع خوبي نيست ... :biggrin: دور از درس ... :tongue: خيلي مشكله.... :laughing: نمي دوني چه حالي ميده.... ;) يه هفته كارمون اينه كه كلاس تعطيل مي كنيم ميريم زير ديش مي شينيم... صفاسيتي... :angry: خيلي منحرفيت بابا ديش اينترنت ... اه... چه فكراي خرابي... :puke: )
بحث انحرافاتي بسه ... ميريم سر اصل مطلب...
نيما جان اينم اصل برنامه ي معكوس ماتريس .... فكركنم در محاسبه ي دترمينان مشكل داشتي ... سورس زير فقط محاسبه دترمينانه بقيه برنامه با خودت عزيز ... البته اينم ناقصه يه كم فكر مي خواد كه حتما حلش مي كني....
بعدا كامل برنامه رو واست مي ذارم....
محاسبه دترمينان
قربون همتون صدراکد:Fact1:=0;
For i:=1 to row do
For j:=1 to col do
If (i=j) then
Fact1 := fact1 * ary [ I , J ];
Fact2 := 0 ;
For I := 1 to row do
For j : = 1 to n do
If (j := n – J + 1 ) then
Fact 2 := fact2 * ary [ I , J ];
Det := fact1-fact2
با سلام
خواهش مي كنم يكي كمك كنه ؛اگه قسمتي از برنامه هم نوشته بشه خوبه ؛فقط وقتم خيلي كمه( يك هفته
يك برنامه به زبان پاسكال مي خواستم كه يك بانك اطلاعاتي براي 10 پرسنل يك شركت كه هر ركورد ان چهار فيلد داشته باشه
نام
فاميلي
شماره پرسنلي
حقوق پايه
هنگام اجرا بايد منوهاي زير ظاهر بشه
1-add person
2-search person
3-remove person
4-list(sort by id)
5-exit
كه هركدوم از اين منوها وظيفه محوله رو انجام بدن(اضافه كردن؛ جستجو بر اساس شماره پرسنلي؛خذف ؛مرتب سازي و سرانجام خروج از برنامه
براي هر گزينه يك تابع يا روال نوشته و خروجي بدين شكل نمايش داده بشه
_____ _____ _____ _____ _____
per.id. family name solary pay
ستون پرداخت با كثر ماليات
pay =solary -tax
محاسبه ميشه كه
tax
بصورت زيره
solary= 0-18000 tax=0
solary 180000 to400000 tax =10% solary
solary= 400000to 600000 tax=15% solary
solary=600000 to up tax =20% solary
در ضمن tax مالياته
solaryدرامد ناخالصه
در امد خا لصهpay
e-mail man:aa241355@yahoo.com
thank evert body
من جوابم را نگرفتم ها؟آقاي Admiral استاد ما يه جور ديگه مي گفت
شما از همون دستور for استفاده كن و بفرست بياد
ممنون از اين كه از هيكلم تعريف مي كنينقل قول:
نوشته شده توسط ealiya
ولي صدرا هم بلد نبود ديگه...
من خیلی راهنمایی کردم ها !نقل قول:
من جوابم را نگرفتم ها؟آقاي Admiral استاد ما يه جور ديگه مي گفت
شما از همون دستور for استفاده كن و بفرست بياد
آقای تیتان شما باید می گفتی استادت دقیقاً چی میخواد !
الان برنامه رو نوشتم و آماده گزاشتم توی دسکتاپ ولی دوست ندارم بفرستم بیاد.نقل قول:
بفرست بياد
با سلام مجدد بر همه جوجه ها مخصوصا استاد صدرا
خواهش مي كنم يكي كمك كنه ؛اگه قسمتي از برنامه هم نوشته بشه خوبه. اگه كمي راهنماي هم بشم بقيشو يه كاري ميكنم؛فقط وقتم خيلي كمه( يك هفته
يك برنامه به زبان پاسكال مي خواستم كه يك بانك اطلاعاتي براي 10 پرسنل يك شركت كه هر ركورد ان چهار فيلد داشته باشه ..
نام
فاميلي
شماره پرسنلي
حقوق پايه
هنگام اجرا بايد منوهاي زير ظاهر بشه
1-add person
2-search person
3-remove person
4-list(sort by id)
5-exit
كه هركدوم از اين منوها وظيفه محوله رو انجام بدن(اضافه كردن؛ جستجو بر اساس شماره پرسنلي؛خذف ؛مرتب سازي و سرانجام خروج از برنامه
براي هر گزينه يك تابع يا روال نوشته و خروجي بدين شكل نمايش داده بشه
_____ _____ _____ _____ _____
per.id. family name solary pay
ستون پرداخت با كثر ماليات
pay =solary -tax
محاسبه ميشه كه
tax
بصورت زيره
solary= 0-18000 tax=0
solary 180000 to400000 tax =10% solary
solary= 400000to 600000 tax=15% solary
solary=600000 to up tax =20% solary
در ضمن tax مالياته
solaryدرامد ناخالصه
در امد خا لصهpay
من برنامه نويسيم بد نيست ولي نميدونم چرا اين يكي را نميتونم بنويسمنقل قول:
نوشته شده توسط Admiral
خيلي فكر كردم ولي نشد...جون من بده بياد :happy:
تازگي ها خيلي خنگ شدم :blush:
باز هم مي گم از همون For حلقه اي استفاده ميشه(يعني من اين جوري مي خوام)
:sad:
با پاسكال كه اين كارا نميشه كردنقل قول:
نوشته شده توسط aa241355
شما برو تو تاپيك VB شايد اونجا بتونند كمكت كنند
سلامنقل قول:
من برنامه نويسيم بد نيست ولي نميدونم چرا اين يكي را نميتونم بنويسم
خيلي فكر كردم ولي نشد...جون من بده بياد
تازگي ها خيلي خنگ شدم
باز هم مي گم از همون For حلقه اي استفاده ميشه(يعني من اين جوري مي خوام)
وقتی خواستم برنامه رو برات بزارم سایت در حال تغییر سرور بود و نشد!
الان هاردم سوخته و روی این سیستم هیچ کامپایلری ندارم پس این برنامه رو که برات مینویسم ممکنه ایراد جزیی داشته باشه:
کد:program titan;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i do
write(j,' ');
writeln;
end;
readln;
end.
با پاسکال هم میشه از این کارا کرد !کد:با پاسكال كه اين كارا نميشه كرد
شما برو تو تاپيك VB شايد اونجا بتونند كمكت كنند
یه سری به توابع یونیت گرافیک بنداز ;)