آغوش خدا

زانوهامو بغل کرده بودمو نشسته بودم کنار دیوار

سرم رو آوردم بالا

نگاه کرد تو چشمام، از خجالت آب شدم

تمام صورتمو عرق شرمندگی پر کرد

گفت :تنهایی

گفتم:آره

گفت:دوستات کوشن؟

گفتم: همشون گذاشتن رفتن

گفت : تو که می گفتی بهترین هستن!

گفتم:اشتباه کردم

گفت : منو واسه اونا تنها گذاشتی

گفتم:نه

گفت :اگه نه،پس چرا یاد من نبودی؟

گفتم:بودم

گفت :اگه بودی،پس چرا اسمم رو نبردی ؟

گفتم:بردم، همین الان بردم

گفت :آره،الان که تنهایی،وقت سختی

گفتم:…..(گر گرفتم از شرم-حرفی واسه جواب نداشتم)

-سرمو اینداختم پایین-گفتم:آره

گفتم:تو رفاقتت کم آوردم،منو بخش

گفت :ببخشم؟

گفتم:اینقدر ناراحتی که نمی بخشی منو؟ حق داری

گفت :نه! ازت ناراحت نبودم! چیو باید می بخشیدم؟

تو عزیز ترینی واسم، تو تنهام گذاشتی اما تنهات نذاشته بودمو نمی ذارم

گفتم:فقط شرمندتم

گفت :حالا چرا تنها نشستی؟

گفتم:آخه تنهام

گفت :پس من چی رفیق؟

من که گفتم فقط کافیه صدا بزنی منو تا بیام پیشت

من که گفتم داری منو به خاطر کسایی تنها می ذاری که تنهات می ذارن

اما هر موقع تنها شدی غصه نخور،فقط کافیه صدا بزنی منو

من همیشه دوست دارم،حتی اگه منو تنها بزاری،

همیشه مواظبت بودم،تو با اونا خوش بودی،منو فراموش کردی تو این خوشی

اما من مواظبت بودم،آخه رفیقتم،دوست دارم

دیگه طاقت نیاوردم،بغض کردمو خودمو اینداختم تو آغوشش،زار زدم،گفتم غلط کردم

گفتم شرمنده ام، گفتم دوست دارم،گفتم دستمو رها نکن که تو خودم گم بشم

گفتم دوست دارم…

گفتم : داد می زنم تو بهترین رفیقیییییییییییییییی

بغلم کرد و گفتم : تو بن بست رفیقی

یک کلام، خدا جووووووووووون  تو بهترینی

 

 

آزادی اندیشه با چیزُچیز نمیشه

وقتی صحبت  از آزادی بیان واندیشه اونم  از نوع دوم خردادی  میشه بی اختیار فاجعه ی شانزدهم آذرماه۱383 ( دانشگاه تهران) یادم میاد که سردمداراین نوع آزادی(دکترای لیسانس فلسفه) با کمال بی احترامی به دانشجویان هوادار خودش گفت:کاری  نکنید بگم بیرونتون کنند،آدم  باشید....

اینم یه شعر سیاسی با زبان گفتار مرتبط با جامعه ی امروز که خوندنش خالی از لطف نیست:

توگلو    بغضای    غلمبه   دارم                   دلم  میخاد بارون  بشم  ببارم

تا   گریه ها م   مملکتو    تر کنه                    اگه  تره  دوباره  تر تر  کنه

دلسوز  این مملکتم    جون تو                    دنبال    خیر    ملّتم  جون تو

چه معنی  داره که رئیس جمهور                 پاشه بره به اون  دهاتای دور

به  پاپتیها     که   محل   میذاره                 کلاس   دولتو،پائین     میاره

تو  سریال  سیاسیه    یوزارسیف            کرده فساد مالی آنخمائوروتوصیف

اصلا" به این  سیاسی ها   نبرده                 میگن دوباره نون خالی خورده

تو  ساحلا   ویلا   میلا    نداره                  ماشینای      مدل بالا    نداره

میگن به همتش کمرکرده راست               دهی که زیرپونز  نقشه هاست

محض رسیدگی به وضع   میهن                  تو  برره  دیده    شده  اخیرا"

 

راز عمر طولانی مرد 256 ساله

ارامش خود را حفظ کنید مثل لاک پشت بشینید ، مثل کبوتر با نشاط راه بروید و مثل سگ بخوابید .
اینها راز عمر طولانی لی چینگ یون (Li Ching Yuen )’ است که انها را در قلب نصیحت به ما می دهد . چیز زیادی در مورد این مرد مشخص نیست  . او در همان روستایی که به دنیا امد در سال 1993در 256 سالگی فوت کرد در حالیکه 23 همسرش قبل از وی مرده بودند .  وی تا ان زمان180 فرزندش را بزرگ کرده بود

تبریک عید نوروز

عید بزرگ نوروز بر شما مبارک

يک سال ديگه گذشت! من و شما يک سال ديگه رو هم پشت سر گذاشتيم. چند سالمون شده؟ چقدر قرار گذاشتيم و شکستيم؟

 

آخر سال که ميشه ميشينيم و فکر ميکنيم که چقدر به اهدافي که براي خودمون تعيين کرده بوديم در اين سالي که گذشت رسيديم! اهداف مالي ، تحصيلي ، شغلي ، علمي و... اگه به يکي از اونها نرسيديم ميشينيم و فکر ميکنيم که چرا؟

 

 چه موانعي باعث اين عدم موفقيت شده و تصميم مي گيريم به نحوي اون رو برطرف کنيم.

 

پیدایش جشن نوروز

انسان‏، از نخستین ادوار زندگی اجتماعی، متوجه بازگشت و تكرار برخی از رویدادهای طبیعی، یعنی تكرار فصول شد. نیاز به محاسبه در دوران كشاورزی ، یعنی نیاز به دانستن زمان كاشت و برداشت، فصل بندی ها و تقویم دهقانی و زراعی را به وجود آورد. نخستین محاسبه فصل ها، بی گمان در همه جوامع با گردش ماه كه تغییر آن آسانتر دیده می شد صورت گرفت. و بالاخره در نتیجه نارسایی ها و ناهماهنگی هایی كه تقویم قمری، با تقویم دهقانی داشت، محاسبه و تنظیم تقویم بر اساس گردش خورشید صورت پذیرفت. سال در نزد ایرانیان از زمانی نسبتا كهن به چهار فصل سه ماهه تقسیم شده و همان طور كه ابوریحان بیرونی در آثارالباقیه آورده است آغاز سال ایرانی از زمان خلقت انسان ( یعنی ابتدای هزاره هفتم از تاریخ عالم) روز هرمز از ماه فروردین بود، وقتی كه آفتاب در نصف النهار ، در نقطه اعتدال ربیعی ، و طالع سرطان بود.

جشن نوروز را به نخستین پادشاهان نسبت می دهند. شاعران و نویسندگان قرن چهارم و پنجم هجری چون فردوسی، عنصری، بیرونی، طبری و بسیاری دیگر كه منبع تاریخی و اسطوره ای آنان بی گمان ادبیات پیش از اسلام بوده ، نوروز را از زمان پادشاهی جمشید می دانند.

در خور یادآوری است كه جشن نوروز پیش از جمشید نیز برگزار می شده و ابوریحان نیز با آن كه جشن را به جمشید منسوب می كند یادآور می شود كه : «آن روز كه روز تازه ای بود جمشید عید گرفت؛ اگر چه پیش از آن هم نوروز بزرگ و معظم بود».

روایت های اسلامی درباره نوروز

آورده اند كه در زمان حضرت رسول (ص) در نوروز جامی سیمین كه پر از حلوا بود برای پیغمبر هدیه آوردند و آن حضرت پرسید كه این چیست؟ گفتند كه امروز نوروز است. پرسید كه نوروز چیست؟ گفتند عید بزرگ ایرانیان. فرمود: آری، در این روز بود كه خداوند عسكره را زنده كرد. پرسیدند عسكره چیست؟ فرمود عسكره هزاران مردمی بودند كه از ترس مرگ ترك دیار كرده و سر به بیابان نهادند و خداوند به آنان گفت بمیرید و مردند. سپس آنان را زنده كرد وابرها را فرمود كه به آنان ببارند از این روست كه پاشیدن آب در این روز رسم شده. سپس از آن حلوا تناول كرد و جام را میان اصحاب خود قسمت كرده و گفت كاش هر روزی بر ما نوروز بود.

و نیز حدیثی است از معلی بن خنیس كه گفت: روز نوروز بر حضرت جعفر بن محمد صادق در آمدم گفت آیا این روز را می شناسی؟ گفتم این روزی است كه ایرانیان آن را بزرگ می دارند و به یكدیگر هدیه می دهند. پس حضرت صادق گفت سوگند به خداوند كه این بزرگداشت نوروز به علت امری كهن است كه برایت بازگو می كنم تا آن را دریابی. پس گفت: ای معلی ، روز نوروز روزی است كه خداوند از بندگان خود پیمان گرفت كه او را بپرستند و او را شریك و انبازی نگیرند و به پیامبران و راهنمایان او بگروند. همان روزی است كه آفتاب در آن طلوع كرد و بادها وزیدن گرفت و زمین در آن شكوفا و درخشان شد. همان روزی است كه كشتی نوح در كوه آرام گرفت. همان روزی است كه پیامبر خدا، امیر المومنین علی (ع) را بر دوش خود گرفت تا بت های قریش را از كعبه به زیر افكند. چنان كه ابراهیم نیز این كار را كرد. همان روزی است كه خداوند به یاران خود فرمود تا با علی (ع) به عنوان امیر المومنین بیعت كنند. همان روزی است كه قائم آل محمد (ص) و اولیای امر در آن ظهور می كنند و همان روزی است كه قائم بر دجال پیروز می شود و او را در كنار كوفه بر دار می كشد و هیچ نوروزی نیست كه ما در آن متوقع گشایش و فرجی نباشیم، زیرا نوروز از روزهای ما و شیعیان ماست.

شهادت امام رضا(ع)

سالروز شهادت شمس الشموس، سلطان توس،علی بن موس الرضا(ع) بر شما تسلیت باد

گلدسته ات
كهكشانى است
كه سياهى شهر را تكذيب مى كند
پيرامون تو همه چيز بوى ملكوت مى دهد:
كاشى هاى ايوانت
و اين سؤال هميشه
كه چگونه مى توان آسمانها را
در مربعى كوچك خلاصه كرد.
و پنجره فولاد
التماسهاى گره خورده
و بغضهايى كه پيش پاى تو باز مى شوند...

اسفندگان یا ولنتاین

سلام دوستان عزیز

 با توجه به مهجور بودن فرهنگ و تمدن ایرانی،توصیه می کنم این مطلب جالب را ابتدا بخونید و سپس بر حسب وظیفه برای نشر بیشتر از هر شیوه ممکن استفاده کنید.

در گاه‌شمار(تقوم)‌های مختلف ایرانی، علاوه بر این که ماه‌ها اسم داشتند، هریک از روزهای ماه نیز یک نام داشتند. به‌عنوان مثال روز اول هر ماه «روز اورمزد»، روز دوم هر ماه، روز بهمن (سلامت، اندیشه) که نخستین صفت خداوند است، روز سوم هر ماه، اردیبهشت یعنی «بهترین راستی و پاکی» که باز از صفات خداوند است، روز چهارم هر ماه،شهریور یعنی «شاهی و فرمانروایی آرمانی» که خاص خداوند است و روز پنجم هر ماه، «سپندارمذ» بوده‌است...

 

دهقان فداکار پير شده،

چوپان دروغگو عزيز شده،

شنگول و منگول گرگ شدن،

کوکب حوصله مهمون رو نداره،

کبرا تصميم گرفته دماغش رو عمل کنه،

روباه و کلاغ دستشون تو يه کاسه اس،

حسنک گوسفنداش رو ول کرده تو يه شرکت آبدارچي شده،

آرش کمانگير معتاد شده،

شيرين، خسرو و فرهاد رو پيچونده و با دوست ... رفته اسکي،

رستم اسبش رو فروخته يه موتور خريده و با اسفنديار ميرن کيف قاپي،

واقعا" چه به سر ايران و ايراني آمده است

ثبت نام با تاخیر

  آن دسته از دانشجویان  شاغل به تحصیل  دانشگاه پیام نور که در فاصله ۲۱/۶/۸۷ لغایت ۳۱/۶/۸۷ موفق به ثبت نام نشده اند می توانند از تاریخ ۱۰/۷/۸۷ لغایت ۱۷/۷/۸۷ با مراجعه به سایت دانشگاه پیام نور نسبت به انتخاب واحد بدون محدودیت زمانی اقدام نمایند.

منبع:http://www.pnu.ac.ir/Portal/Home/ShowPage.aspx?Object=Event&CategoryID=83588c18-f90b-4040-8497-ea98a61423d4&LayoutID=a74a57c2-0678-4c6d-9627-c93603153d44&ID=bf634881-1b76-4df4-aa91-35fd561f6d2f

 

تسلیت به مناسبت شهادت امام علی (ع)

آن هنگام که طنین فزت و رب الکعبه از محرابی غرق در خون بلند شد، لیلیه القدر سیاه پوش گردید و آسمان و زمین بر خود لرزید.شهادت جان سوز روح تاريخ، اسلام و انسان، خانه زاد ملكوت، خورشيد جهان افروز عدالت، اميرالمؤمنين؛ حضرت علي (ع) را تسليت عرض می نماییم.

باور نمي كنيم كه شمشيري پركينه، اقيانوسي را توان شكافتن داشته باشد. باور نمي كنيم كه ضربتي نفاق آميز، خورشيد را از نورانيّت اندارد....

کسب نمره 16 از درس برنامه نویسی پیشرفته و ۵/۱۷ از ساختمان گسسته توسط  دانشمند  بزرگ ، جناب  آقای  محسن احسان پور  بر  تمامی دانش آموزان،دانشجویان،دانشمندان و دانش ... مبارک باد.

جهت هماهنگی بیشتر در انتخاب واحد و تشکیل کلاس ها لطفا" دروس انتخابی خود را در قسمت نظرات اعلام کنید

ساعت امتحان	تاریخ امتحان	عملی	نظری	نام  درس
08:30-10:30	1387.11.02	0	3	رياضي  مهندسي
14:00-16:00	1387.11.02	0	4	نظريه گراف وكاربردها
14:00-16:00	1387.11.05	0	3	مدارهاي الكتريكي 1
08:30-10:30	1387.10.29	0	3	آمارواحتمالات مهندسي
08:30-10:30	1387.10.14	0	3	ساختمانهاي گسسته
14:00-16:00	1387.10.23	0	3	برنامه سازي پيشرفته
14:00-16:00	1387.10.23	0	3	مدارهاي الكترونيكي
		1	1	آز مدارهاي الكتريكي 1
14:00-16:00	1387.10.28	0	2	زبان تخصصي
14:00-16:00	1387.11.08	0	3	روشهاي محاسبات عددي
08:30-10:30	1387.11.06	0	3	مدارهاي منطقي
		1	1	آز مدارهاي الكترونيكي1
14:00-16:00	1387.10.29	0	3	طراحي الگوريتمها
14:00-16:00	1387.11.03	0	3	اصول طراحي كامپايلر
		1	1	آز مدارهاي منطقي
08:30-10:30	1387.10.23	0	1	معماري كامپيوتر
08:30-10:30	1387.10.16	0	3	نظريه زبانهاوماشينها

 

شماره و گروه درس	نام درس			ظر فيت	جنسيت	نام استاد	ساعات ارائه و امتحان	محل	توضيحات
		واحد
		کل	ع

11-11-095-01	رياضي مهندسي	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(14_1387.11.02) ساعت : 08:30-10:30
11-11-098-01	نظريه گراف وكاربردهاي آن	4	0	69	مختلط	اساتيد گروه آموزشي	امتحان(14_1387.11.02) ساعت : 14:00-16:00
11-15-065-01	مدارهاي الكتريكي 1	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(16_1387.11.05) ساعت : 14:00-16:00
11-15-066-01	آمارواحتمالات مهندسي	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(11_1387.10.29) ساعت : 08:30-10:30
11-15-067-01	ساختمانهاي گسسته	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(1_1387.10.14) ساعت : 08:30-10:30
11-15-068-01	برنامه سازي پيشرفته	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(6_1387.10.23) ساعت : 14:00-16:00
11-15-070-01	مدارهاي الكترونيكي	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(6_1387.10.23) ساعت : 14:00-16:00
11-15-071-01	آزمايشگاه مدارهاي الكتريكي 1	1	1	100	مختلط	اساتيد گروه آموزشي
11-15-074-01	زبان تخصصي	2	0	100	مختلط	اساتيد گروه آموزشي	امتحان(10_1387.10.28) ساعت : 14:00-16:00
11-15-075-01	روشهاي محاسبات عددي	3	0	100	مختلط	اساتيد گروه آموزشي	امتحان(19_1387.11.08) ساعت : 14:00-16:00
11-15-076-01	مدارهاي منطقي	3	0	69	مختلط	اساتيد گروه آموزشي	امتحان(17_1387.11.06) ساعت : 08:30-10:30
11-15-077-01	آزمايشگاه مدارهاي الكترونيكي	1	1	25	مختلط	اساتيد گروه آموزشي
11-15-078-01	طراحي الگوريتمها	3	0	69	مختلط	اساتيد گروه آموزشي	امتحان(11_1387.10.29) ساعت : 14:00-16:00
11-15-080-01	اصول طراحي كامپايلر	3	0	69	مختلط	اساتيد گروه آموزشي	امتحان(15_1387.11.03) ساعت : 14:00-16:00
11-15-081-01	آزمايشگاه مدارهاي منطقي	1	1	25	مختلط	اساتيد گروه آموزشي
11-15-082-01	معماري كامپيوتر	3	0	69	مختلط	اساتيد گروه آموزشي	امتحان(6_1387.10.23) ساعت : 08:30-10:30
11-15-083-01	نظريه زبانهاوماشينها	3	0	69	مختلط	اساتيد گروه آموزشي	امتحان(3_1387.10.16) ساعت : 08:30-10:30

لغو امتحانات

قابل توجه کلیه دانشجویان پیام نور:

۳۵ عنوان که امتحانات آنها قرار بوده از تاریخ ۷/۶ الی ۱۲/۶ برگزار گردد لغو شد.تاریخ برگزاری این امتحانات روز سه شنبه ۱۲/۶ در سایت دانشگاه اعلام خواهد شد.

منبع:

http://pnu.ac.ir/Portal/Home/ShowPage.aspx?Object=Event&CategoryID=83588c18-f90b-4040-8497-ea98a61423d4&LayoutID=a74a57c2-0678-4c6d-9627-c93603153d44&ID=fa0766fd-f1b1-4ffa-9c08-59c3d3f6780d

روز پدر

 

 گویند  علی  خدا  بود ....... نبود                                گویند  که  از  خدا  جدا   بود .......  نبود

من در عجبم میان این بود و نبود                               این بود چه بودیست که هم بود و نبود

13 رجب، سالروز میلاد

پیشوای متقیان و جلوه رحمت و عدالت رب العالمین،

امیرالمؤمنین، امام علی بن ابیطالب (علیه السلام)

و روز پدر

بر همه ی شما مبارک باد

چگونه يك متخصص امنيت اطلاعات شوم؟ كسب چه مهارت هاي امنيتي، آينده مرا تضمين مي كند؟ شايد اين سوال بسياري از مبتدي هاي امنيت اطلاعات باشد كه مي پرسند: "چه مهارت هايي من نياز دارم تا اولين شغل امنيتي خود را پيدا كنم؟" اخيرا در همين زمينه من با افراد زيادي برخورد كردم كه درباره مهارت هاي مورد نياز يك "تحليگر امنيتي تكنولوژي هاي اطلاعاتي" سوال داشتند.

واقعا اين سوال بسيار مهمي .....

هکرها کیستند؟

اصطلاح “هک  ”به میانبر ایجاد شده در یک برنامه برای انجام سریعتر کار، اشاره می‌کند. (این تعریفی است که با پیدایش این کلمه همراه آن بوده است.) طبق یک خرده‌فرهنگ، هکرها سعی در پنهان کردن هویت واقعی خود می‌کنند، هرچند مطالعات نشان داده است که بعضی از آنها از تحسین‌شدن بدلیل ماجراهایی که بوجود می‌آورند، لذت می‌برند. بیشتر آنها از اسامی مستعار مانند Hackingwiz یا Hyper Viper  استفاده می‌کنند. آنها خود را افراد ماهر و هنرمندی می‌دانند که گاهی  خود را از ویروس‌نویسان جدا می‌کنند. در حقیقت، برای مشخص‌کردن یک هکر، تعریف مشخصی وجود ندارد. آنها دارای زمینه‌های متفاوتی هستند و دلایلی که پشت هک وجود دارد گستره وسیعی را می‌پوشاند، اما باعث تهدیدهای مشترکی می‌شوند. هکرها افراد باهوشی هستند و از اینکه کامپیوترها را به انجام کاری که دوست دارند وامی‌دارند، لذت می‌برند.

در طبقه‌بندی هکرها سه گروه وجود دارند:

یا مقلب القلوب والابصار                               یا مدبر اللیل والنهار...

دوستان عزیز

کوچه ها از عطر دل انگیز گل اقاقی و شاخساران مست از ظهور شکوفه هاست...

آسمان ها پولک پولک ستاره به ارمغان آورده اند....

تو هم برخیز!!از میان شکاف پلک هایت چشم به روی هر چه بلغزانی جذبه و حیرت،احساس گرم نور را متبلور می بینی...

انتظار رفته است...

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

                                                                                                                                                       با آرزوی سالی پر بار

 وب سایت milw0rm يکي از سايتهاي ارايه دهنده اکسپلویت برای هکرها میباشد به آدرس اینترنتی http://milw0rm.com مورد حمله و هک قرار گرفت.

این سایت به هکرها این امکان را میدهد که جدیدترین باگها و راههای نفوذ به سایتها و سرور ها را در این سایت ثبت و به عموم معرفی کنند.

این وب سایت توسط گروهی به نام Cyber-Terrorist دیفیس شده است.

آدرس هک شده:

http://irc.milw0rm.com

لینک اثبات :

http://www.zone-h.org/component/option,com_mirrorwrp/Itemid,160/id,6796016

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

ويستا سرويس پك 1 امكان كرك ويستا را از بين مي برد

شركت مايكروسافت كه توليد كننده ويندوز ويستا مي باشد در هفته گذشته سرويس پك 1 ويستا را براي كاربران ارسال كرد. اين سرويس پك تمامي ويندوز هايي كه از نسخه كرك شده استفاده كرده بود را از كار انداخت.

اين سرويس پك كه از طريق سيستم به روز رساني ويندوز به صورت خودكار نصب مي گردد، نشان از وجود دو روش كرك شدن ويستا مي داد كه هر دو اينها با استفاده از به روز رساني سرويس پك از كار مي افتد.

گزارش شركت امنيتي فينجان از سرور هاي FTP هك شده

يك تحقيق جديد توسط شركت امينيت فينجان، نشان داد كه چگونه هركسي مي تواند به راحتي دسترسي به سايت هاي مختلف ايجاد كند و داده هاي آنها دستكاري كند يا به سرقت برد.

 

سرويس پك 3 نسخه RC2 ويندوز XP براي عموم منتشر شد

دو هفته بعد از آنكه مايكروسافت نسخه RC2 سرويس پك 3 ويندوز XP را براي هزارن كاربر انتخاب شده ارسال كرد، امروز اين نسخه را به صورت عمومي در سايت خود قرار داد.

سخنگوي مايكروسافت در اين زمينه گفت:" ما اين كار براي داشتن محيط آزمايشي بزرگتر احتياج داشتيم و مي خواستيم كه بازخوردهاي بيشتري از كاربران داشته باشيم.  نسخه SP XP RC2 از امروز در سايت مايكروسافت قابل دريافت توسط همه مي باشد."

در هفت فوريه ، مايكروسافت سرويس پك XP RC2 را براي 15000 كاربر دعوت شده، منتشر كرد تا براي چندين ماه كار، مشكلات آن مشخص شود. اين بار دوم است كه مايكروسافت اين شانس را به كاربران XP مي دهد كه سرويس پك اين سيستم عامل شش ساله  را امتحان كنند.

لازم به ذكر است كه در اوايل امسال نيز مايكروسافت اين كار را براي سرويس پك يك ويستا انجام داد و بعد از انتشار آن براي كاربران دعوت شده، به صورت عمومي نيز آن را منتشر كرد.

اگرچه مايكروسافت در تعيين زمان انتشار سرويس پك 3 ويندوز XP گرفتار شده است اما فعاليت ها اخير آن و انتشار زودهنگام سرويس پك ويستا نشان مي دهد كه انتشار نسخه نهايي سرويس پك 3 ويندوز XP نيز قريب الوقوع است.

مايكروسافت اعلان كرد كه سرويس پك 3 ويندوز XP از مركز دانلود فايل سايت مايكروسافت قابل دريافت است

 

 

نا توانی مایکرو سافت در .....

اکنون 453 روز از گزارش نقص امنیتی با عنوان Popup Address Bar Spoofing در مرورگر Internet Explorer 7.0 می گذرد و هنوز کمپانی مایکروسافت هیچگونه اصلاحیه ای برای آن منتشر نساخته است.

گرچه این آسیب پذیری از درجه خطر پایین "کمتر از بحرانی" یا سطح 2 به گفته سایت Secunia برخودار است اما خواسته کاربران و شرکت های تجاری برای رفع این آسیب پذیری هنوز برآورده نشده است.

نقص امنیتی ذکر شده می تواند ابزار کمکی افراد مخرب حیله گر قرار گیرد تا حملاتی از نوع "فیشینگ" ترتیب دهند. اشکال در IE 7.0 هنگامی رخ می دهد که مرورگر قادر است صفحه مستقل وب (Popup) را باز کند که آدرس آن تقلبی است به این معنا که چندین کاراکتر خاص می توانند نماینگر آدرسی جعلی باشند.

این اشکال باعث می شود که کاربران فریب "میله آدرس" را بخورند و صفحه جعلی به همراه آدرس جعلی را قابل اعتماد بدانند. سپس فرد مهاجم می تواند با استفاده از این شیوه کدهای مخرب و بارگیری های مخرب را بر روی سیستم قربانی اجرا کند.

وب سایت شرکت امنیتی Secunia این آسیب پذیری را اصلاح نشده می داند و بخش دموی نمایشی چگونگی رفتار این آسیب پذیری را در دسترس عموم قرار داده است. کاربران علاقهمند به شناخت این آسیب پذیری می توانند از لینک مربوطه وارد بخش آزمایش اشکال امنیتی شده و با زدن ضربه کلیک بر روی"Test Now" در قسمت Start the Test، نحوه عملکرد اشکال امنیتی را مطالعه کنند.

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

نظر خواهی

سلام به همه.یه سوال غیر فنی می خواستم بدونم کیا چهار شنبه

کلاس پیشرفته را شرکت می کنند؟

با نفوذ ها حتما" نظر بدند! 

آمار می گوید....

به گفته يك شركت امنيتي در زمينه ايميل ، Postini، نود درصد از ايميل هايي كه از ماه ژوئن تا به حال ارسال شده است هرزنامه مي باشند.

 با نزديك شدن روز هاي كريسمس، هرزنامه هايي كه محتوي تبليغات ناخواسته مي باشند رو به افزايش است. بسياري از سرور هاي ايميل در برابر اين حجم زياد از هرزنامه ها از كار افتاده اند و يا كارآيي آنها به شدت كاهش پيدا كرده است.

 

یک جوان 15 ساله هم می تواند......

مديران سايت انتخابات وزارت كشور در پاسخ به اشكالات امنيتي سايت: «...افتخار مي‌كنيم كه در كشوري هستيم كه جوان 15 ساله مي‌تواند مشكل سايت وزارت كشور را پيدا كند...»

سایت اینترنتی انتخابات مجلس هشتم، در ادامه برگزاری مسابقات متعدد جهت تست سیستم و همچنین ارائه درخواست کمک از برنامه‌نویسان سراسر کشور، در سایت خود صفحه جدیدی را تحت عنوان «این پیام‌های اعلام خطر!!» باز کرده و در آن به پرسش های مطرح شده در خصوص سیستم انتخابات پاسخ گفته است.

 

بازم سلام.با توجه به استقبال شدید دوستان(البته دوستان خیلی لطف دارند) به این نتیجه رسیدم که مطلب دومی هم علمی باشه:

آیا میدانید

  « دانشگاه پیام نور نطنز از لحاظ وسعت، بزرگترین دانشگاه جهان در گذشته و حال و احتمالا" آینده  میباشد؟!!!!

.

.

.

.

تعجب نکنید تحقیقات علمی اینو می گه!دانشمندان بر این عقیده اند که با توجه به اینکه سه طرف این دانشگاه به خیابان،دیوار و یک روستا محدود شده است، قسمت شمالی این مکان بدون انتها تا کاشان ، … و روسیه و … وقطب شمال  ادامه دارد.»

با توجه به فضای علمیه وب صلاح دونستم اولین مطلبم علمی باشه:آیا میدانید برای اولین بار در تاریخ علمی ودانشگاهی، کلاسها قبل از اتمام مهلت ثبت نام شروع میشه؟؟؟ آیا میدانید این رکورد در دانشگاه پیام نور نطنز بجا گذاشته شد(مهلت ثبت نام اینترنتی 14/10 الی 25/10 و تاریخ شروع کلاسها 19/11.)

                         منتظر نظرات گرم و با نام و نشان شما هستم

مطلب علمی کافیه یه خبر جالب. امروز تعدادی از ورودی های 86 رشته ی مدیریت بازرگانی میرن تو سایت پیام نور تا نمرات 20 ... 16 خود از درس اندیشه و فارسی را ببینند.چشمتون روز بد نبینه ....

اما چیزی که می بینن 2،3،.... ،5 .آخ چه درد ناک... اکنون حساب کنید میوه فروش را؟

می دونم که همه ی شما مهندس ها می تو نید حدس بزنید چی شده :

ممکنه..........

شایدم ...............

البته احتمال داره...........

یا .................................

بله درسته سوتی سایت بوده

بی خیال آقای شیرازی

قدر زر زرگر شناسد

قدر

گوهر گوهری

سلام آقای شیرازی. اگه کسی هنری داره باید رو کنه.ولی شما که نباید به خاطر چند تا نظر بی نام و نشون کارتو رها کنی.منم چند روز دیگه با موضوع شبکه یا هک شروع می کنم .البته باید قبول کنی که مطالب علمی به تنهایی تو وب جواب نمی ده.موفق باشی.

سوتی

مطلب علمی کافیه یه خبر جالب. امروز تعدادی از ورودی های 86 رشته ی مدیریت بازرگانی میرن تو سایت پیام نور تا نمرات 20 ... 16 خود از درس اندیشه و فارسی را ببینند.چشمتون روز بد نبینه ....

اما چیزی که می بینن 2،3،.... ،5 .آخ چه درد ناک... اکنون حساب کنید میوه فروش را؟

می دونم که همه ی شما مهندس ها می تو نید حدس بزنید چی شده :

ممکنه..........

شایدم ...............

البته احتمال داره...........

یا .................................

بله درسته سوتی سایت بوده

تحقیقات علمی

بازم سلام.با توجه به استقبال شدید دوستان(البته دوستان خیلی لطف دارند) به این نتیجه رسیدم که مطلب دومی هم علمی باشه:

آیا میدانید

  « دانشگاه پیام نور نطنز از لحاظ وسعت، بزرگترین دانشگاه جهان در گذشته و حال و احتمالا" آینده  میباشد؟!!!!

.

.

.

.

تعجب نکنید تحقیقات علمی اینو می گه!دانشمندان بر این عقیده اند که با توجه به اینکه سه طرف این دانشگاه به خیابان،دیوار و یک روستا محدود شده است، قسمت شمالی این مکان بدون انتها تا کاشان ، … و روسیه و … وقطب شمال  ادامه دارد.»

 

با توجه به فضای علمیه وب صلاح دونستم اولین مطلبم علمی باشه:آیا میدانید برای اولین بار در تاریخ علمی ودانشگاهی، کلاسها قبل از اتمام مهلت ثبت نام شروع میشه؟؟؟ آیا میدانید این رکورد در دانشگاه پیام نور نطنز بجا گذاشته شد(مهلت ثبت نام اینترنتی 14/10 الی 25/10 و تاریخ شروع کلاسها 19/11.)

                         منتظر نظرات گرم و با نام و نشان شما هستم

سلام به همه.در پی درخواست مکرر دوستان و همکلاسی های عزیز نخ سوزن آقا محسن دوست داشتنی ،از طرف دیگه جهت کمک به آقا حامد و خانم م(النا) در امر خطیر رونق بخشی به وب  تصمیم گرفتم مجددا" شروع  به فعالیت تو وب کنم.البته این کم کاریه اخیر هم بی دلیل نبوده راستش 5 پرژه در دست اجرا داشتیم که باید در شهر شلوغ و پر هیا هوی نطنز اجرا می کردیم.

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

                                         التماس دعا

تمرین 12_6

از دانشجویان محترم اعم از ورودی های 85 و86 تقاضا دارم در صورت تمایل نظر خود  را در مورد امتحان مبانی برنامه نویسی به همراه نمره پیشنهادی خود ارسال کنند.

مسابقه بزرگ برنامه نویسی شماره ۲

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

          ستاد روحیه رسانی به دانشجویان پس از امتحان

سلام.سلام به دوستان دیروز و دشمنان امروز.انشا ا... هرجا هستید موفق و مویدو خندان  باشید.دلم نمی یاد بگم جای همتون اینجا خالیه چون اصفهان چیزه دیگه ایه.

سلام.ضمن عرض تبریک مجدد به مناسبت این روز بزرگ به اطلاع همه ی مردم دانش دوست شهر نطنز و مردم دانش پرور اصفهان میرسانم عید قربان امسال یه فرق بزرگی با سالهای دیگه داره.این همون عیدی بزرگی که قول دادم بهتون بگم:

  امروز حدود ساعت ۱۲ ظهر به وقت گیرینویچ نطنز(قابل توجه اونایی که می گن گیرینویچ تو انگلستانه) زمین این شهر(شهر نطنز) پذیرای قدوم سبز چند تن از دانشمندان معاصر قرن حاضر میباشد.ضمنا" مراسم استقبال در محل میدان بسیج(محل فرود هوا پیما) برگزار می گردد.

                         ستاد استقبال از دانشمندان  

سلام.ضمن عرض تبریک مجدد به مناسبت این روز بزرگ به اطلاع

همه ی مردم دانش دوست شهر نطنز میرسانم عید قربان امسال یه فزق بزرگی با سالهای دیگه داره.این همون عیدی بزرکی که قول دادم بهتون بگم:

  امروز حدود ساعت ۱۲ ظهر به وقت گیرینویچ نطنز(قابل توجه اونایی که می گن گیرینویچ تو انگلستانه) زمین این شهر پذیرای قدوم چند تن از دانشمندان معاصر قرن حاضر میباشد.ضمنا" مراسم استقبال در محل میدان بسیج(محل فرود هوا پیما) برگزار می گردد.

                         ستاد استقبال از دانشمندان  

سلام به همگی. این عید بزرگ را به همه دوستان مخصوصا" آقای خطیری تبریک می گم.به نظر شما چرا دانشجویان محترم دیگه فعال نیستند نکنه ........................

یا شاید...............................................

ولی به نظر من...................................

اما فکر می کنم..................................

نظر شما چیه؟؟؟؟؟

البته با اسم واقعی نظر بدید

حضور غرور آفرین و پر شور خانم حق شناس به وب بر تمامی دانشجویان مبارک باد

program example1;
uses
    wincrt;
var st:string;
    i,j,k:integer;
    a:array[1..10,1..10]of char;
begin
writeln('please enter a string:');
readln(st);
j:=1;
for i:=1 to length(st) do
begin
k:=1;
while st[i]<>' ' do
begin
a[k,j]:=st[i];
inc(i);
inc(k);
if i>length(st) then
begin
i:=length(st);

end;
end;
inc(j);
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:2);
writeln;
end;
end.

 

Program  Student;
Uses
wincrt;
   Const
      max=50; {max number of student}
   Type
      Names=array[1..max] of string[30];
      Snumber=array[1..max] of longint;
      Marks=array[1..max ,1..3] of Real;
      Average=array[1..max] of Real;
    Var
      NA:Names;        {Name Array}
      SNA:Snumber;     {Student number array}
      MA:Marks;        {Marks and average array}
      Avg:Average;
      i:integer;
 {****************** print max grade ****************}
 procedure Print_Max_Grade(Var SN:Snumber; Var NF:Names; Var MA:Marks; n:integer);
     Var
       M:Array[1..3] of Real;
       k,i,j:integer;
     Begin
       for k:=1 to 3 do
             M[k]:=-1;
       for k:=1 to 3 do
           Begin
             for i:=1 to Max do
                if MA[i,k]>M[k] Then
                  Begin
                    M[k]:=MA[i,k];
                    j:=i;
                  End;
             Writeln('Student that have Max Marks in lesson', k , ':');
             Writeln('St Number:' , SN[j] , 'Name:' :15, NA[j], 'Mark=':10,M[k]:5:2);
            End;
      End;
 {***************** Print Average **************}
 procedure Print_Average(MA:Marks);
   Var
       Sum:Array[1..3] of Real;
       i,j:integer;
   Begin
       for i:=1 to 3 do
            Sum[i]:=0;
       for j:=1 to 3 do
          for i:=1 to Max do
              Sum[j]:=Sum[j] + MA[i+j];
       for i:=1 to 3 do
       Writeln('The average of Lesson' ,i, 'is' , Sum[i]/Max:5:2);
 {***************Print Sorted Average**************}
 procedure Print_Sorted Average(SNA:Snumber; NA:Names; MA:Marks; Var Avg:Average);
    Var
        TempS:string [30];
        TempSN:longint;
        TempM,Sum:real;
        k,i,j:integer;
    Begin
        for i:=1 to Max do
            Begin
               Sum:=0;
               for j:=1 to 3 do
                  Sum:=Sum+MA[i,j];
                  Avg[i]:=Sum/3;
            End;
         for i:=1 to Max do
            for j:=1 to Max-i do
                 if Avg[j] . Avg[j+1] Then
                    Begin
                       TempM:=Avg[j];
                       Avg[j]:=Avg[j+1];
                       Avg[j+1]:=TempM;
                       TempSN:=SNA[j];
                       SNA[j]:=SNA[j+1];
                       SNA[j+1]:=TempSN;
                       TempS:=NA[j];
                       NA[j]:=NA[j+1];
                       NA[j+1]:=TempS;
                       for k:=1 to 3 do
                           begin
                              TempM:=MA[j,k];
                              MA[j,k]:=MA[j+1,k];
                              MA[j+1,k]:=TempM;
                           End;
                    End;
         Writeln('Names of student Sorted with Average');
         for i:=1 to Max do
          Writeln(NA[i] , Avg[i]:10:2);
   End;
{***********Print Nearest Average**********}
Procedure print_Nearest_Average(NA:Names; MA:Marks; Var Avg:Average);
   Var
      Temp,Sum,Aver:Real;
      i,j,Index:integer;
   Begin
      sum:=0;
      for i:=1 to Max do
           Sum:=Sum+Avg[i];
           Aver:=Sum/Max;
             Temp:=20;
           for i:=1 to Max do
             if  (abs(Aver-Avg[i]))                 Begin
                     Temp:=abs(Aver-Avg[i]);
                       Index:=i;
                 End;
       Writeln('Name:' ,NA[Index], 'Average:' ,Aver, 'Nearest Average:' ,Avg[Index]);
   End;
 {************Print Histogram*************}
 procedure prinit_Histogram(Ma:Marks; Var Avg:Average);
     var
          i,j:integer;
          NMR:Array[1..3 of integer;
     Begin
          NMR[1]:=0;  NMR[2]:=2; NMR[3]:=0;
          for i:=1 to Max do
               if(Avg[i]>=0)AND(AVg[i]<9) Then
                 NMR[1]:=NMR[1]+1
               else if(Avg[i]>=9)AND(avg[i]<15)Then
                 NMR[2]:=NMR{2]+1
               else if(Avg[i]>=15)AND(Avg[i]<20) Then
                 NMR[3]:=NMR[3]+1;
           Writeln('The histogram:');
             Writeln('Range 1:(0-9):');
           for i:=1 to NMR[1] do
                  Write('*');
              Writeln;
              Writeln('Range 2:(9-15):');
           for i:=1 to NMR[2] do
                  Write('*');
               Writeln;
               Writeln('range 3:(15-20):');
           for i:=1 to NMR[3] do
              write('*');
              Writeln;
     End;
{*****************Main program***************}
   Begin
        for i:=1 to Max do
           Begin
                Write('student' ,i, ':please enter student Number:');
                Readln(SNA[i]);
                Write('Please enter Name:');
                Readln(NA[i]);
                Write('Please enter Mark1:');
                Readln(MA[i,1]);
                Write('Please enter Mark2:');
                Readln(MA[i,2]);
                Write('please enter Mark3:');
                Readln(MA[i,3]);
           End;
        print_Max_grade(SNA, NA, Ma, Max);
        print_Average(MA);
        prinr_Sorted_Average(SNA, NA, MA, Avg);
        print_Nearest_Average(NA, MA, Avg);
        Print_Histogram(Ma, AVg);
   End.

              
               

program ss_student;
uses
wincrt;
const
max=100;
type
names_family=array[1..max,1..2]of string[20];
snumber=array[1..max]of longint;
var
nfa:names_family;
sna:snumber;
i:integer;
n,searchsn:integer;
ch:char;
{*************************search procedure****************************}
procedure search (ssn:longint;var sn:snumber;VAR NF :NAMES_family;n:integer);
var
i:integer;
find:integer;
begin
find:=-1;
for i:=1 to n do
    begin
    if (sn[i]=ssn)then
      begin
      find:=i;
 
      end;
    end;
  if find=-1 then
  writeln('student with',ssn,'notfound')
else
  begin
     writeln('studet with',ssn,'finded:');
     writeln('name:',nf[find,1],'family:':20,nf[find,2]);
     end;
   END;
  {******************exchange procedure:sub procedure for sort procedure ****************}

  var
      temps:string[20];
      tempsn:longint;
   begin
     TEMPSN:=SN[I];
   sn[i]:=sn[j];
   sn[j]:=tempsn;
   temps:=nf[i,1];
   nf[i,1]:=nf[j,1];
   nf[j,1]:=temps;
   temps:=nf[i,2];
   nf[i,2]:=nf[j'2];
   nf[j,2]:=temps;
 end;
 {******************************sort procedure ****************************}

  procedure exchange (var sn:snumber;var nf:names_family;n:integer);
  var
     i,j:integer;
    begin
     for i:=1 to n do
     for j:=1 to n-i do
        if sn[j]>sn[j+1] then
        exchange(j,j+1,sn,nf);
    end;
  {******************************main program****************************}
  begin
  for i:=1 to max do
  begin
      write('input number of student',i,':');
      readln(sna[i]);
      write('input name:');
      readln(nfa[i,1]);
      writr('inpute family:');
      readln(nfa[i,2]);
 end;
sort(sna,nfa,max);
writeln('student number':16,'name':20,'family':20);
fori:=1 to max do
writeln(i,sna[i]:14,nfA[I,1]:20,nfa[i,2]:20);
repeat
write('inpute one student number for search in list:');
readln(searchsn,sna nfa,max);
write('do you want search again(y/n)?');
readln(ch);
until(ch='n')or (ch='n');
end.

Program welcome;
uses
wincrt;
   Type
       Intset=set of Byte;
   Var
       Number:Intset;
       N:Integer;
{**********************************************}
  Procedure Emptyset (Var Number:Intset);
    Var
       Num:Integer;
         Begin
              For Num:=0 to 255 do
                if Num in Number then
                  Number:=Number-[Num];
         end;
{**********************************************}
  Procedure Readset  (Var Number:Intset;  Var N:Integer);
      Const
           Sential=0;
      Var
           Num,Sum:Integer;
      Begin
           Writeln('******************************');
           Write('Please enter members of set:');
                Number:=[ ];
                Sum:=0;
                Read(Num);
                While Num <> -1 do
                     Begin
                         if Num in [0..255] Then
                           Begin
                                Number:=Number + [Num];
                                Sum:= Num + Sum;
                           End;
                         if Num > N Then
                             N:=Num;
                           Read(Num);
                     End;
                     Writeln;
                     Writeln('Sum=' ,Sum);
                     Write;
       End;
{****************************************************}
  Procedure Printset (Number:Intset;  N:Integer);
        Var
           Num:Integer;
        Begin
           Write('set= { ');
           for Num:=0 to 255 do
               if Num in Number Then
                 If Num <> N Then
                 Write (Num, ',')
                 else
                 Write(Num);
           write (' } ');
        end;
{****************************************}
Begin
     N:=0;
     Writeln;
     Readset ( Number,N );
     Write ('Primary');
     Printset(Number,N);
     Writeln;
     Write ('Final');
     Emptyset(Number);
     Printset(Number,N);
End.

program procedure;
uses
wincrt;
const
top=100;
type
tname=array[1..top]of string[15];
tfamily=array[1..top]of string[20];
tsalarybase=array[1..top]of real;
texp=array[1..top]of integer;
var
name:tname;
family:tfamily;
salarybase:tsalarybase;
exp:texp;
control:char;
i,count:integer;
salary:real;
procedure sort(var n:tname;var f:tfamily;var sb:tsalarybase;var expr:texp;max:integer);
var
  j,k:integer;
  tempn:string[15];
  tempf:string[20];
  tempsb:real;
  tempexp:integer;
 begin
    for j:=1 to (max-1)do
    begin
      for k:=(j+1)to max do
      begin
       if((f[j]>f[k])or((f[j]=f[k])and(n[j]>n[k])))then
        begin
         tempn:=n[k];tempf:=f[k];tempsb:=sb[k];tempexp:=expr[k];
         n[k]:=n[j];f[k]:=f[j];sb[k]:=sb[j];expr[k]:=expr[j];
         n[j]:=tempn;f[j]:=tempf;sb[j]:=tempsb;expr[j]:=tempexp;
      end;
     end;
    end;
   end;
  {*************************************************************}
  function salarypay(s:real):real;
  begin
       if((s>=0)and(s<=1700000))then
         salarypay:=s
         else if ((s>1700000)and(s<=2000000))then
          salarypay:=(s-(s*0.1))
          else if ((s>2000000)and(s<=4000000))then
          salarypay:=(s-(s*0.15))
          else if ((s>4000000)and(s<=6000000))then
          salarypay:=(s-(s*0.2))
          else
            salarypay:=(s-(s*0.5))
            end;
  {*************************************************************}
  begin
  for i:=1 to top do
   begin
    write('please enter',i,'th employee name>');
    readln(name[i]);
    write('pleaseenter',i,'th employee family>');
    readln(family[i]);
    write('please enter',i,'th employee experience>');
    readln(exp[i]);
    write('please enter',i,'th employee salarybase>');
    readln(salarybase[i]);
   
    end;
    sort(name,family,salarybase,exp,top);
    for i:=1 to top do
      begin
       case exp[i] of
         0,1:salary:=salarybase[i]+(salarybase[i]*0.05);
         2,3,4:salary:=salarybase[i]+(salarybase[i]*0.1);
         5,6:salary:=salarybase[i]+(salarybase[i]*0.2);
         7,8,9:salary:=salarybase[i]+(salarybase[i]*0.3);
       else
         salary:=salarybase[i]+(salarybase[i]*0.5);
       end;
       write(family[i]:20);
       write(name[i]:15);
       writeln('   salarypay=(' ,salarypay(salary):10,2,')');
       end;
 end.

سلام.

1_ از خانم زمانی تشکر می کنم بابت اصلاحاتی که تا کنون برای کامپیوتری ها انجام دادن البته بگذریم که بعضی ها قدر این زحمات را نمی دونند و باعث می شن هم خودشون ضرر کنن هم ما.

2_این صحبتشون را تأ یید می کنم که اگه همه ی ما متحد باشیم و فکرمون اصلاح دانشگاه باشه و صرفا" به فکر پاس کردن دروس ونهایتا" گرفتن یک مهندسی صوری نباشیم کارها بهتر و سریعتر پیش می ره.

3_از آقای خطیری هم به خاطر زحماتی که کشیدن تا این محیط را برای ارائه ی کارهای دانشجو ها و تبادل نظرشون آماده کنند تشکر می کنم.

program ex_10_7;
uses
    wincrt;
var st:string;
    i,j,k:integer;
    a:array[1..10,1..10]of char;
begin
writeln('please enter a string:');
readln(st);
j:=1;
for i:=1 to length(st) do
begin
k:=1;
while st[i]<>' ' do
begin
a[k,j]:=st[i];
inc(i);
inc(k);
if i>length(st) then
begin
i:=length(st);

end;
end;
inc(j);
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:2);
writeln;
end;
end.

 

program merg_array;
 uses
  wincrt;
 const
 dim=100;
 type
   in_array=array[1..dim]of string[20];
   out_array=array[1..2*dim]of string[20];
var
  a,b:in_array;
  c:out_array;
  n1,n2,i:integer;
 procedure merge(n1,n2:integer;a,b:in_array;varc:out_array);
 var
    i,j,k,r:integer;
    flag:boolean;
   begin
     k:=n1;
     for i:=1 to n1 do
     c[i]:=a[i];
     for i:=1 to n1 do
     begin
     j:=1;
     flag:=true;
     while(j<=n1+n2)and(flag=true) do
       begin
          if(b[i]>c[i])and(b[i]             begin
                for r:=k downto j+1 do
                   c[r+1]:=c[r];
                   c[j+1]:=b[i];
                   k:=k+1;
                   flag:=false;
               end;
               j:=j+1;
           end;
          end;
         end;
         {************************************************************}
      begin   
         writeln;
         writeln('please enter dimension of first array:');
           readln(n1);
         writeln('pleas enter dimonesion of second array:');
           readln(n2);
         writeln('please enter first array:');
         for i:=1 to n1 do
           readln(a[i]);
         writeln('please enter second array:');
         for i:=1 to n2 do
           readln(b[i]);
         merge(n1,n2,a,b,c);
         writeln('merged array:');
         for i:=1 to (n1+n2) do
           writeln(c[i]);
       end.