اردستان نگینی در کویر

www.ardestan-city.mihanblog.com

اردستان نگینی در کویر

خوش آمدید [عمومی , ]

خوش آمد گویی

Image hosted by TinyPic.com

به وبلاگ دانشگاه آزاد اسلامی واحد اردستان خوش آمدید

وبلاگ ARDESTANCITY به همت اعضای كامپوتر ترم ۱ دانشگاه اردستان و مدیریت ۲ نفر از اعضای كلاس و همكاری استادان مربوطه طراحی شده و اهداف زیر را دنبال می كند :

۱- آموزش برنامه سازی كامپیوتر

۲- ارئه برامه های طرح شده توسط استاد

۳- برطرف كردن مشكلات برنامه نویسی دانشجویان

۴- پاسخ به سولات مطرح شده در زمینه ی برنامه نویسی

۵- ارئه ی برنامه های نوشته شده با زبان پاسكال

و ...

دانشگاه آزاد اسلامی واحد اردستان

دانشگاه آزاد واحد اردستان در سال 1366 با پیشنهاد ریاست محترم دانشگاه و موافقت هیئت امناء دانشگاه آزاد اسلامی تاسیس گردید و با هماهنگی مسئولین محترم وقت شهرستان پیگیری های لازم جهت ایجاد ساختمان و فضای آموزشی به عمل آمد . در بدو تاسیس مجوز دو رشته ی دبیری الهیات و معارف اسلامی در سطح کارشناسی و کاردانی کشاورزی با 160 نفر دانشجو در نیم سال اول 68- 67 عملا کار خود را در یک ساختمان استیجاری آغاز نمود و در حال حاضر این دانشگاه در زمینی به وسعت 12 هکتار دارای فضای آموزشی 6500 متر مربع و رشته های مختلف در مقطع کارشناسی و کاردانی مشغول به فعالیت می باشد

پیام برای استاد صیادی

دانلود نرم افزار پاسکال تحت ویندوز

پیام برای مدیران سایت

توجه توجه!!!!!!!

برای استفاده از برنامه های این وب سایت ابتدا روی باکس مورد نظر راست کلیک کرده سپس گزینه select all را انتخاب کرده و دوباره راست کلیک کرده و گزینهcopy را انتخاب کرده و در آخر آن را در note pad ویندوز paste میکنیم

نوشته شده توسط حسین در چهارشنبه 25 آبان 1384 و ساعت 09:11 ق.ظ
ویرایش شده در سه شنبه 16 آبان 1385 و ساعت 12:11 ب.ظ

لینک ثابت | نظرات ()

برنامه نویسی با پاسکال [برنامه سازی , ]

برنامه1: مساحت دایره با شعاع های ۲ و ۳ و ۴

program test; const pi=3/14; var sh1,sh2,sh3:integer; mas1,mas2,mas3:real; begin sh1:=2; sh2:=3; sh3:=4; writeln ('*****************************************'); writeln (' IN THE NAME OF GOD'); mas1:=sh1*sh1*pi; mas2:=sh2*sh2*pi; mas3:=sh3*sh3*pi; writeln('masahat1=',mas1); writeln('masahat2=',mas2); writeln('masahat3=',mas3); writeln ('*****************************************'); readln end. </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html> </body> </html>

برنامه2: مثلث ستاره ای با استفاده از تابع gotoxy

program star; uses crt; begin clrscr; writeln('******************************************************************************'); writeln('* *'); gotoxy(32,2); writeln('IN THE NAME OF GOD'); writeln('******************************************************************************'); gotoxy(0,2); writeln('*');gotoxy(0,3); writeln('*');gotoxy(0,4); writeln('*'); gotoxy(0,5); writeln('*');gotoxy(0,6); writeln('*');gotoxy(0,7); writeln('*'); gotoxy(0,8); writeln('*');gotoxy(0,9); writeln('*');gotoxy(0,10); writeln('*'); gotoxy(0,11); writeln('*');gotoxy(0,12); writeln('*');gotoxy(0,13); writeln('*'); gotoxy(0,14); writeln('*');gotoxy(0,15); writeln('*');gotoxy(0,16); writeln('*'); gotoxy(0,17); writeln('*');gotoxy(0,18); writeln('*');gotoxy(0,19); writeln('*'); gotoxy(0,20); writeln('*');gotoxy(0,21); writeln('*');gotoxy(0,22); writeln('*'); gotoxy(78,23); writeln('*');gotoxy(78,24); writeln('*');gotoxy(78,4); writeln('*'); gotoxy(78,5); writeln('*');gotoxy(78,6); writeln('*');gotoxy(78,7); writeln('*'); gotoxy(78,8); writeln('*');gotoxy(78,9); writeln('*');gotoxy(78,10); writeln('*'); gotoxy(78,11); writeln('*');gotoxy(78,12); writeln('*');gotoxy(78,13); writeln('*'); gotoxy(78,14); writeln('*');gotoxy(78,15); writeln('*');gotoxy(78,16); writeln('*'); gotoxy(78,17); writeln('*');gotoxy(78,18); writeln('*');gotoxy(78,19); writeln('*'); gotoxy(78,20); writeln('*');gotoxy(78,21); writeln('*');gotoxy(78,22); writeln('*'); gotoxy(0,22); writeln('******************************************************************************'); gotoxy(0,23); writeln('********************** Programer Is :hossein mehri ardestani *************************'); gotoxy(40,4); writeln('*'); gotoxy(38,5); writeln('*****'); gotoxy(37,6); writeln('*******'); gotoxy(35,7); writeln('***********'); gotoxy(33,8); writeln('***************'); gotoxy(31,9); writeln('*******************'); gotoxy(29,10); writeln('***********************'); gotoxy(27,11); writeln('***************************'); gotoxy(25,12); writeln('******************************'); gotoxy(23,13); writeln('**********************************'); gotoxy(21,14); writeln('**************************************'); gotoxy(19,15); writeln('******************************************'); gotoxy(17,16); writeln('**********************************************'); gotoxy(15,17); writeln('**************************************************'); gotoxy(13,18); writeln('******************************************************'); gotoxy(11,19); writeln('**********************************************************'); gotoxy(9,20); writeln('***************************************************************'); gotoxy(7,21); writeln('*******************************************************************'); gotoxy(5,22); writeln('***********************************************************************'); readln end.

برنامه4: ماکزیمم دو عدد

program max_2number; var c,a,b:integer; begin writeln('enter 2 number for max'); readln(a,b); if a>b then c:=a else c:=b; writeln('the max= ',c); readln end.</FONT>

برنامه4: ماکزیمم سه عدد
program max_2number; var c,a,b,d:integer; begin writeln('enter 3 number for max'); readln(a,b,d); if a>b then c:=a else c:=b; if d>c then c:=d; writeln('the max= ',c); readln end.
برنامه5 : گرفتن فاکتوریل یک عدد
program factoryel; label 1,2; var a:integer; c,b:real; begin b:=1; c:=0; writeln('Enter a number for foctoriel "N!" '); readln(a); if a=0 then goto 2 else 1: c:=c+1; b:=abs(b*c); if c=a then goto 2 else goto 1; 2: writeln(a,'!= ',b); readln end.
برنامه6 : گرفتن معدل یک دانش آموز
program student_average; var nam,fam:string; n1,n2,m:real; begin writeln('enter student name and family'); readln(nam); readln(fam); writeln('Enter 2 number for student numbers'); readln(n1,n2); m:=(n1+n2)/2; writeln('student name= ',nam); writeln('student family= ',fam); writeln('the first number is= ',n1); writeln('the secound number is= ',n2); writeln('the student average is= ',m); readln end.
برنامه 7 : m به توان p
program tavan; var m,p,i:integer; x:real; begin write('enter the number ==>'); readln(m); write('enter the number ==>'); readln(p); if p>0 then begin x:=1; for i:=1 to p do x:=x*m; end; if p<0 then begin x:=1; for i:=p to -1 do x:=x*(1/m); end; writeln(x); readln end.
برنامه ۸:  حساب کردن معادل باینری و فاکتوریل و اول بودن اعداد بعلاوه جدول ضرب با وارد کردن a,b,*,!
program bayneri; var i,j,n,t,f,l,m,fact,c:integer; choice:char; s:boolean; begin write('enter one as(!,*,a,b):'); readln(choice); case choice of '!': begin write('enter one number baray fact:'); readln(n); fact:=1; for i:=1 to n do fact:=fact*i; writeln('fact adad ',n:1,' is:=',fact:1); end; '*': begin writeln; write(' '); for i:=1 to 10 do write(i:4); for i:=1 to 10 do begin writeln; write(i:4); for j:=1 to 10 do write(i*j:4); end; end; 'a': begin write('enter one number:'); readln(n); t:=n div 2; s:=true; for i:=2 to t do if n mod 2=0 then s:=false; for i:=-2 downto t do if n mod 2=0 then s:=false; if (n=2)or(n=-2) then s:=true; if n=0 then s:=false; if s then writeln(n:1,':is aval') else writeln(n:1,':is not aval'); end; 'b': begin c:=1; m:=0; write('enter one number:'); readln(n); while n<>0 do begin f:=n div 2; l:=n mod 2; n:=f; m:=m+c*l; c:=c*10; end; write('adad bayneri',n:1,':=',m:1); end; end; readln; end.
برنامه ۹: برنامه ای که رشته ای را خوانده و هر یک از کلمات آن را استخراج کند و در خروجی چاپ کند
program test; const blank=' '; pre='.'; n=50; var simple:array[1..n]of char; i:integer; begin writeln; write('enter jomlei :'); i:=1; read(simple[i]); while simple[i]<>pre do begin i:=i+1; read(simple[i]); end; i:=1; while simple[i]<>pre do begin if simple[i]=blank then writeln; write(simple[i]); i:=i+1; end; readln; end.
  برنامه ۱۰ : ضرب دو ماتریس
program ardestani ; var a:array [1..3 , 1..3] of integer; b:array [1..3 , 1..3] of integer; i,j,k,l:integer; c,d,e,f,g,h,m,n,o:integer; p:char; begin repeat for i:=1 to 3 do begin writeln('----------------------------- Line ',i,' of matrix one -----------------------------'); for j:=1 to 3 do begin write('Enter [',j,' of ',i,'] :'); readln(a[i,j]); end; end; writeln; for k:=1 to 3 do begin writeln; writeln('----------------------------- Line ',k,' of matrix two -----------------------------'); for l:=1 to 3 do begin write('Enter [',l,' of ',k,'] :'); readln(b[k,l]); end; end; writeln(' DATA MATRIX ONE'); for i:=1 to 3 do begin writeln; for j:=1 to 3 do write(a[i,j]:20); end; writeln; writeln(' **************************************************************'); writeln; writeln(' DATA MATRIX TWO'); for k:=1 to 3 do for k:=1 to 3 do begin writeln; for l:=1 to 3 do write(b[k,l]:20); end; writeln; c:=0; d:=0; e:=0; f:=0; g:=0; h:=0; m:=0; n:=0; o:=0; for i:=1 to 3 do begin c:=((a[1,i]*b[i,1])+c); d:=((a[1,i]*b[i,2])+d); e:=((a[1,i]*b[i,3])+e); f:=((a[2,i]*b[i,1])+f); g:=((a[2,i]*b[i,2])+g); h:=((a[2,i]*b[i,3])+h); m:=((a[3,i]*b[i,1])+m); n:=((a[3,i]*b[i,2])+n); o:=((a[3,i]*b[i,3])+o); end; writeln('================================================================================'); writeln(c:20,f:20,m:20); writeln(d:20,g:20,n:20); writeln(e:20,h:20,o:20); writeln('================================================================================'); write(' Can You Exit [Y/N] : '); readln(p); until p='y'; end.
برنامه ۱۱
program Ardestani2; var n,i:integer; x,Tx,s:real; o:char; function MOHASEBE(n:integer; x:real):real; begin s:=0; Tx:=x*x; s:=x; for i:=1 to n-1 do begin s:=s+(Tx/(2*i+1)); Tx:=Tx*x*x*(-1); end; writeln; writeln; writeln; write('S=X+((X*X)/3)-((X*X*X*X)/5)+... => S= '); writeln(s:3); end; begin repeat writeln('----------------------------IN THE NME OF GOD-----------------------------------'); write('Please Enter Number Reset : '); Readln(n); writeln; writeln; write('Please Enter Your Number : '); readln(x); MOHASEBE(n,x); writeln; writeln; writeln; writeln; writeln; write(' Can You Exit [Y/N] : '); readln(o); until o='y' end.
  برنامه ۱۲: جمع و ضرب و تقسیم دو عدد با علامتهای مربوطه(/و*و+)
program ardestany3; var a,b:integer; f:char; procedure hossein(c,d:integer); var e:char; begin writeln(' - - - - - - - - - - - - - - - - HELP - - - - - - - - - - - - - - - - - '); writeln(' Peres + for ',c,'+',d,'= '); writeln(' peres / for ',c,'/',d,'= '); writeln(' peres * for ',c,'*',d,'= '); writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '); write(' Please Enter + or / or * : '); readln(e); case e of '+':writeln(' ',c,'+',d,'= ',(c+d)); '*':writeln(' ',c,'*',d,'= ',(c*d)); '/':writeln(' ',c,'/',d,'= ',(c/d)); else writeln(' You Character Is Not ( + * / )'); end; end; begin repeat write(' Please Enter Firest Numbre : '); readln(a); write(' Please Enter Second Numbre : '); readln(b); hossein(a,b); write( ' Can You Exit [Y/N]: '); readln(f); until f='y'; end.

نوشته شده توسط حسین در چهارشنبه 25 آبان 1384 و ساعت 03:11 ق.ظ
ویرایش شده در شنبه 3 دی 1384 و ساعت 10:12 ق.ظ

لینک ثابت | نظرات ()

چند مطلب اخیر آرشیو شده ...

+ خوش آمدید

+ برنامه نویسی با پاسکال

تمام حقوق این وبلاگ محفوظ و متعلق به نویسنده میباشد