KZMSBR.PERSIANBLOG.IR

mlr.blogfa.com

mlr.blogfa.com - نمایش عدد با عامل های اول

http://www.mlr.blogfa.com/post-6.aspx

برنامه نویسی به زبان پاسکال. نمایش عدد با عامل های اول. Prime,power:array[1.200]of integer;. I,j,k,m,r,n,count:integer;. Writeln('enter a number');. For i:=2 to n do. For j:=2 to (i-1)do. If(i mod j=0)then k:=k 1;. N:=n div prime[r];. For m:=1 to r do. Write('(',prime[m],' ',power[m],')','*');. نوشته شده در یکشنبه سوم آذر ۱۳۸۷ساعت 8:32 توسط mohammad. به وبلاگ خودتون خوش اومدید. سایت اقای ارش میرزائی.

mlr.blogfa.com

mlr.blogfa.com

http://www.mlr.blogfa.com/8708.aspx

برنامه نویسی به زبان پاسکال. محاسبه ریشه های معادله درجه 2. Program delta prog;. A,b,c : integer;. X1,x2,delta : real;. Writeln('please enter 3 number : ');. Readln(a,b,c);. Delta := (b*b)-(4*a*c);. If delta 0 then / 2 real root. X1:=(-b sqrt(delta) /(2*a);. Writeln('x1 : ', x1:2:3 , ' , ' , 'x2 : ' , x2:2:3);. Writeln('x2 : ',x2);. Else if delta = 0 then / 2 equal root. Writeln('x1=x2 : ', x1:2:3);. Else / no real root. Writeln('don' t have any real root');. برنامه پیدا کردن عددکامل. I,n,m:integer;.

mlr.blogfa.com

mlr.blogfa.com - نمایش یک عدد بدون صفرهای ان

http://www.mlr.blogfa.com/post-8.aspx

برنامه نویسی به زبان پاسکال. نمایش یک عدد بدون صفرهای ان. N,r,m,p:integer;. While n 0 do. R:=n mod 10;. N:=n div 10;. If r 0 then. Write(m div 10);. نوشته شده در یکشنبه سوم آذر ۱۳۸۷ساعت 8:35 توسط mohammad. به وبلاگ خودتون خوش اومدید. سایت اقای ارش میرزائی.

mlr.blogfa.com

mlr.blogfa.com - تبدیل عامل های اول به عدد 0

http://www.mlr.blogfa.com/post-7.aspx

برنامه نویسی به زبان پاسکال. تبدیل عامل های اول به عدد 0. I,j,m,n:integer;. A:array[1.50]of integer;. Writeln('enter number element of array:');. Writeln('enter elements of array');. For i:=1 to n do. For i:=1 to n do. M:=(a[i] div 2);. For j:=2 to m do. If(a[i] mod j)=0 then flag:=false;. If flag and not(a[i]=1) then a[i]:=0;. For i:=1 to n do. نوشته شده در یکشنبه سوم آذر ۱۳۸۷ساعت 8:33 توسط mohammad. به وبلاگ خودتون خوش اومدید. سایت اقای ارش میرزائی.

mlr.blogfa.com

mlr.blogfa.com - مثال هایی از برنامه نویسی

http://www.mlr.blogfa.com/post-12.aspx

برنامه نویسی به زبان پاسکال. مثال هایی از برنامه نویسی. محاسبه ريشه هاي معادله درجه 2. A,b,c : integer;. X1,x2,delta : real;. Writeln('please enter 3 number : ');. Readln(a,b,c);. Delta := (b*b)-(4*a*c);. If delta 0 then / 2 real root. X1:=(-b sqrt(delta) /(2*a);. Writeln('x1 : ', x1:2:3 , ' , ' , 'x2 : ' , x2:2:3);. Writeln('x2 : ',x2);. Else if delta = 0 then / 2 equal root. Writeln('x1=x2 : ', x1:2:3);. Else / no real root. Writeln('don' t have any real root');. برنامه تشخيص اول بودن يک عدد. Until c n;.

mlr.blogfa.com

mlr.blogfa.com - ترانهاده یک ماتریس

http://www.mlr.blogfa.com/post-10.aspx

برنامه نویسی به زبان پاسکال. A:array[1.3,1.3]of integer;. For i:=1 to 3 do. For j:=1 to 3 do. Writeln('a[',i,j,']');. For i:=1 to 3 do. For j:=1 to 3 do. If j i then. A[i,j]:=a[j,i];. For i:=1 to 3 do. For j:=1 to 3 do. نوشته شده در یکشنبه سوم آذر ۱۳۸۷ساعت 8:42 توسط mohammad. به وبلاگ خودتون خوش اومدید. سایت اقای ارش میرزائی.

mlr.blogfa.com

mlr.blogfa.com - مقلوب عدد اعشاری

http://www.mlr.blogfa.com/post-4.aspx

برنامه نویسی به زبان پاسکال. Program m k;. P:array [1.50] of integer;. N,c,s:real;. I,r,t,d,h,g,y,k,x:integer;. Writeln ('enter number');. T:=t div 10 ;. While t 0 do. R:=t mod 10;. T:= t div 10;. For i:= d downto 1 do. G:=g div 10;. For i:= 1 to x do. نوشته شده توسط اقای کاظمی اسیابر. نوشته شده در شنبه دوم آذر ۱۳۸۷ساعت 11:52 توسط mohammad. به وبلاگ خودتون خوش اومدید. سایت اقای ارش میرزائی.

mlr.blogfa.com

mlr.blogfa.com - محاسبه ریشه های معادله درجه 2

http://www.mlr.blogfa.com/post-3.aspx

برنامه نویسی به زبان پاسکال. محاسبه ریشه های معادله درجه 2. Program delta prog;. A,b,c : integer;. X1,x2,delta : real;. Writeln('please enter 3 number : ');. Readln(a,b,c);. Delta := (b*b)-(4*a*c);. If delta 0 then / 2 real root. X1:=(-b sqrt(delta) /(2*a);. Writeln('x1 : ', x1:2:3 , ' , ' , 'x2 : ' , x2:2:3);. Writeln('x2 : ',x2);. Else if delta = 0 then / 2 equal root. Writeln('x1=x2 : ', x1:2:3);. Else / no real root. Writeln('don' t have any real root');. به وبلاگ خودتون خوش اومدید.

mlr.blogfa.com

mlr.blogfa.com

http://www.mlr.blogfa.com/8709.aspx

برنامه نویسی به زبان پاسکال. مثال هایی از برنامه نویسی. محاسبه ريشه هاي معادله درجه 2. A,b,c : integer;. X1,x2,delta : real;. Writeln('please enter 3 number : ');. Readln(a,b,c);. Delta := (b*b)-(4*a*c);. If delta 0 then / 2 real root. X1:=(-b sqrt(delta) /(2*a);. Writeln('x1 : ', x1:2:3 , ' , ' , 'x2 : ' , x2:2:3);. Writeln('x2 : ',x2);. Else if delta = 0 then / 2 equal root. Writeln('x1=x2 : ', x1:2:3);. Else / no real root. Writeln('don' t have any real root');. برنامه تشخيص اول بودن يک عدد. Until c n;.