نیم نگاه

/* WP-Cache Config Sample File See wp-cache.php for author details. */ $wp_cache_clear_on_post_edit = 0; //Added by WP-Cache Manager $wp_cache_hello_world = 0; //Added by WP-Cache Manager define( 'WPCACHEHOME', ABSPATH . "wp-content/plugins/wp-super-cache/" ); //Added by WP-Cache Manager $cache_compression = 0; // Super cache compression $cache_enabled = true; //Added by WP-Cache Manager $super_cache_enabled = true; //Added by WP-Cache Manager $cache_max_time = 3600; //in seconds //$use_flock = true; // Set it true or false if you know what to use $cache_path = WP_CONTENT_DIR . '/cache/'; $file_prefix = 'wp-cache-'; // We want to be able to identify each blog in a WordPress MU install $blogcacheid = ''; if( defined( 'VHOST' ) ) { $blogcacheid = 'blog'; // main blog if( constant( 'VHOST' ) == 'yes' ) { $blogcacheid = $_SERVER['HTTP_HOST']; } else { $request_uri = preg_replace('/[ <>\'\"\r\n\t]/', '', str_replace( '..', '', $_SERVER['REQUEST_URI'] ) ); if( strpos( $request_uri, '/', 1 ) ) { if( $base == '/' ) { $blogcacheid = substr( $request_uri, 1, strpos( $request_uri, '/', 1 ) - 1 ); } else { $blogcacheid = str_replace( $base, '', $request_uri ); $blogcacheid = substr( $blogcacheid, 0, strpos( $blogcacheid, '/', 1 ) ); } if ( '/' == substr($blogcacheid, -1)) $blogcacheid = substr($blogcacheid, 0, -1); } } } // Array of files that have 'wp-' but should still be cached $cache_acceptable_files = array( 'wp-comments-popup.php', 'wp-links-opml.php', 'wp-locations.php' ); $cache_rejected_uri = array('wp-.*.php', 'index.php'); $cache_rejected_user_agent = array ( 0 => 'bot', 1 => 'ia_archive', 2 => 'slurp', 3 => 'crawl', 4 => 'spider'); // Change this to 1 to enable experimental code that tries to serve slightly // out of date content to anon users while a new supercache file is being // generated. $cache_rebuild_files = 0; // Just modify it if you have conflicts with semaphores $sem_id = 1376193296; //Added by WP-Cache Manager if ( '/' != substr($cache_path, -1)) { $cache_path .= '/'; } ?> نیم نگاه http://nimnegah.ancient.ir نیم نگاه، وبسایت گروهی Mon, 30 May 2011 11:44:24 +0000 fa hourly 1 http://wordpress.org/?v=3.1.2 سر فصل دروس عمران http://nimnegah.ancient.ir/1389/10/14/%d8%b3%d8%b1-%d9%81%d8%b5%d9%84-%d8%af%d8%b1%d9%88%d8%b3-%d8%b9%d9%85%d8%b1%d8%a7%d9%86/ http://nimnegah.ancient.ir/1389/10/14/%d8%b3%d8%b1-%d9%81%d8%b5%d9%84-%d8%af%d8%b1%d9%88%d8%b3-%d8%b9%d9%85%d8%b1%d8%a7%d9%86/#comments Tue, 04 Jan 2011 10:30:22 +0000 fry http://nimnegah.ancient.ir/?p=571 سر فصل تمامی دروس عمومی و اصلی عمران به قرار زیر می باشد :

sar fasl

در همین راستا:

Nim Negah

]]> http://nimnegah.ancient.ir/1389/10/14/%d8%b3%d8%b1-%d9%81%d8%b5%d9%84-%d8%af%d8%b1%d9%88%d8%b3-%d8%b9%d9%85%d8%b1%d8%a7%d9%86/feed/ 0 رمز خوان http://nimnegah.ancient.ir/1389/10/12/%d8%b1%d9%85%d8%b2-%d8%ae%d9%88%d8%a7%d9%86/ http://nimnegah.ancient.ir/1389/10/12/%d8%b1%d9%85%d8%b2-%d8%ae%d9%88%d8%a7%d9%86/#comments Sun, 02 Jan 2011 12:58:29 +0000 fry http://nimnegah.ancient.ir/?p=530 program ramz;

uses crt

const b=’*';

var ccc,i,k,j,e,se:word;a:array [1..220] of string[1]; sav,s:char;

pass1,pass2,pass3:string[25];c:char;

f:string[25];ff:text;

loc:array [1..20] of string;

mm,tt:word;name,pp:string;dd:text;

procedure starting;

begin

clrscr;

writeln(‘*W E L C O M E T O M I S T R Y S Y S T E M*’);

writeln;writeln;

writeln(‘for enter password please: : ۰۱′);

writeln(‘for input string please: : ۰۲′);

writeln(‘for output string please: : ۰۳′);

writeln(‘for open you file please: : ۰۴′);

writeln(‘for exit please: : ۰۵′);

writeln;

writeln(‘please enter your code:’);readln(se);

end;

procedure g_o;

begin

clrscr;

writeln(‘*W E L C O M T O H A C K S Y S T E M*’);

Writeln;writeln;

writeln(‘for exit please —> Enter ‘);writeln;

writeln(‘Enter your string’);s:=readkey;

i:=1;

while ord(s)<>13 do

begin

a[i]:=s;

clrscr;for j:=1 to i do write(b);writeln;

writeln(‘Enter your string’);s:=readkey;

if ord(s)=8 then dec(i)

else

inc(i);

end;

clrscr;

starting;

end;

procedure save;

var bb,cc:word;

begin

clrscr;

inc(ccc);

writeln(‘*W E L C O M T O S A V E S Y S T E M*’);

writeln;writeln;

writeln(‘Enter name and location:’);

writeln(‘for example c:\text.txt’);writeln;

readln(f);

for cc:=1 to ccc do

if loc[cc]=f then

begin

while loc[cc]=f do

begin

writeln(‘this file existence or not valid please enter a new file !’);

readln(f);

end;

loc[cc]:=f;

assign(ff,f);

rewrite(ff);

setfattr(ff,hidden);

for bb:=1 to i do

write(ff,a[bb]);

close(ff);

writeln;writeln;

writeln(‘create your HIDDEN! file successful….please enter’);readln;

clrscr;

starting;

end;

procedure op_save;

begin

clrscr;

writeln(‘*W E L C O M T O O P E N S A V E F I L E S Y S T E M*’);

writeln;writeln;

if ccc=0 then

begin

writeln(‘you dont create a file !’);

readln;

clrscr;

starting;

end

else

begin

writeln(‘for open your file please enter your password’);readln(pass3);

if pass3=pass1 then

begin

writeln;

writeln(‘choose a file’);

writeln;writeln;

for tt:=1 to ccc do

if loc[tt]<>” then

writeln(loc[tt]);

writeln;

readln(pp);

for tt:=1 to ccc do

if loc[tt]=pp then

begin

assign(dd,pp);reset(dd);writeln;writeln;

while not eof(dd) do

begin

readln(dd,name);write(name);

end;

writeln;writeln;writeln;

writeln(‘for enter agian please : 01′);

writeln(‘for exit system please : 02′);

readln(mm);

case mm of

01:begin

clrscr;op_save;

end;

02:begin

clrscr;starting;

end;

procedure ug_o;

begin

clrscr;

writeln(‘*W E L C O M T O U N H A C K S Y S T E M*’);

writeln;writeln;

if pass1=” then

begin

writeln(‘you dont have password !’);

writeln(‘please go to menu and create a new password’);

readln;

starting;

end

else

begin

writeln(‘for un hack your string please enter your password’);readln(pass3);

if pass3=pass1 then

begin

writeln;

writeln(‘your string is:’);writeln;

for k:=1 to i do

write(a[k]);

writeln;writeln;writeln;

writeln(‘Do you want to save your string?’);

writeln(‘please push (Y or N) :’);sav:=readkey;

if sav=’y’ then

begin

clrscr;save;

end

else

begin

clrscr;

starting;

end;

procedure p_s;

var pa:word;ll,l:BYTE;

begin

clrscr;

writeln(‘*W E L C O M T O P A S S W O R D S Y S T E M*’);

writeln;writeln;

if pass1=” then

begin

writeln(‘enter your new password’);

c:=readkey;

l:=1;

while (c<>”)and(ord(c)<>13) do

begin

clrscr;for ll:=1 to l do write(b);;writeln;

pass1:=concat(pass1,c);if ord(c)=8 then dec(l)

else

inc(l);

writeln(‘enter your new password’);c:=readkey;

end;

clrscr;

writeln;

writeln(‘enter your config password’);

c:=readkey;

pass2:=”;

l:=1;

while (c<>”)and(ord(c)<>13) do

begin

clrscr;for ll:=1 to l do write(b);;writeln;

pass2:=concat(pass2,c);if ord(c)=8 then dec(l)

else

inc(l);

writeln(‘enter your config password’);c:=readkey;

end;

if pass1<>pass2 then

begin

writeln;

writeln(‘error ! new pass <> config pass’);

readln;

pass1:=”;pass2:=”;

clrscr;

starting;

end;

end

else

begin

writeln(‘if you want to change your password please: : ۰۱′);

writeln(‘if you want to exit password system please: : ۰۲′);

readln(pa);

clrscr;

case pa of

01:begin

writeln(‘enter old password’);readln(pass3);

if pass3=pass1 then

begin

pass1:=”;

pass3:=”;

writeln(‘Enter new passwords’);

c:=readkey;

l:=1;

while (c<>”)and(ord(c)<>13) do

begin

clrscr;for ll:=1 to l do write(b);writeln;

pass1:=concat(pass1,c);if ord(c)=8 then dec(l)

else

inc(l);

writeln(‘enter your new password’);c:=readkey;

end;

clrscr;

writeln;

writeln(‘enter your config password’);

c:=readkey;

l:=1;

pass2:=”;

while (c<>”)and(ord(c)<>13) do

begin

clrscr;for ll:=1 to l do write(b);writeln;

pass2:=concat(pass2,c);if ord(c)=8 then dec(l)

else

inc(l);

writeln(‘enter your config password’);c:=readkey;

end;

if pass1<>pass2 then

begin

writeln(‘error ! new pass <> config pass’);

readln;

pass1:=”;pass2:=”;

clrscr;

starting;

end;

02:begin

clrscr;

starting;

end;

procedure afterstarting;

begin

case se of

02:

g_o;

03:

ug_o;

05:

E:=1;

01:

p_s;

04:

op_save

else

begin

writeln(‘* With Code: ‘,se,’ We Dont Have Service!!!’);readln;

starting;

end;

begin

clrscr;

starting;

E:=0;

ccc:=0;

while E<>1 do

afterstarting;

if E=1 then

begin

clrscr;

gotoxy(29,1);

writeln(‘THIS PROGRAM CREATED BY:’);

gotoxy(29,2);

writeln(‘* AHURA HAMUN

gotoxy(40,3

readln

end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d8%b1%d9%85%d8%b2-%d8%ae%d9%88%d8%a7%d9%86/feed/ 0 ضرب و جمع دو عدد ۲۰ رقمی http://nimnegah.ancient.ir/1389/10/12/%d8%b6%d8%b1%d8%a8-%d9%88-%d8%ac%d9%85%d8%b9-%d8%af%d9%88-%d8%b9%d8%af%d8%af-20-%d8%b1%d9%82%d9%85%db%8c/ http://nimnegah.ancient.ir/1389/10/12/%d8%b6%d8%b1%d8%a8-%d9%88-%d8%ac%d9%85%d8%b9-%d8%af%d9%88-%d8%b9%d8%af%d8%af-20-%d8%b1%d9%82%d9%85%db%8c/#comments Sun, 02 Jan 2011 12:56:56 +0000 fry http://nimnegah.ancient.ir/?p=528 uses crt

var
s1,s2,sum : string[21];
sum1,s : string[20];
jj,p,i,n1,j,n2,kk,c,k,er : integer;
begin
writeln(‘Enter S1 :’);
readln(s1);
writeln(‘Enter S2 :’);
readln(s2);
c:=0;
for i:=20 downto 1 do
begin
val(s1[i],n1,er);
val(s2[i],n2,er);
k:=n1+n2;
sum[i+1]:=chr(k mod 10 + ord(’0′));
c:=k div 10;
end;
sum[1]:=chr(c + ord(’0′));
sum[0]:=chr(21);
writeln;
writeln(”,s1,’ + ‘,s2,’ = ‘,sum);
for i:= 1 to 50 do
sum1[i]:=’0′;
sum1[0]:=chr(50);
p:=50;
for i:=20 downto 1 do
begin
val(s1[i],n1,er);
for kk:=1 to 50 do
s[kk]:=’0′;
s[0]:=chr(50);
c:=0;
jj:=p;
for j:= 20 downto 1 do
begin
val(s1[j],n2,er);
k:=n1*n2;
s[jj]:=chr((k mod 10)+ord(’0′));
c:= k div 10;
dec(jj);
end;
s[jj]:=chr(c+ord(’0′));
c:=0;
dec(p);
for kk:=50 downto jj+1 do
begin
val(s[kk],n1,er);
k:=n1*n2;
sum1[kk]:=chr(k mod 10+ord(’0′));
c:=k div 10;
end;
sum[jj]:=chr(c+ord(’0′));
end;
writeln;
writeln(‘ ‘,s1,’ + ‘,s2,’ = ‘,sum1

end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d8%b6%d8%b1%d8%a8-%d9%88-%d8%ac%d9%85%d8%b9-%d8%af%d9%88-%d8%b9%d8%af%d8%af-20-%d8%b1%d9%82%d9%85%db%8c/feed/ 3 دریافت معدل ۱۰ دانشجو و جوستجو دودویی در آنها http://nimnegah.ancient.ir/1389/10/12/%d8%af%d8%b1%db%8c%d8%a7%d9%81%d8%aa-%d9%85%d8%b9%d8%af%d9%84-10-%d8%af%d8%a7%d9%86%d8%b4%d8%ac%d9%88-%d9%88-%d8%ac%d9%88%d8%b3%d8%aa%d8%ac%d9%88-%d8%af%d9%88%d8%af%d9%88%db%8c%db%8c-%d8%af%d8%b1-2/ http://nimnegah.ancient.ir/1389/10/12/%d8%af%d8%b1%db%8c%d8%a7%d9%81%d8%aa-%d9%85%d8%b9%d8%af%d9%84-10-%d8%af%d8%a7%d9%86%d8%b4%d8%ac%d9%88-%d9%88-%d8%ac%d9%88%d8%b3%d8%aa%d8%ac%d9%88-%d8%af%d9%88%d8%af%d9%88%db%8c%db%8c-%d8%af%d8%b1-2/#comments Sun, 02 Jan 2011 12:56:05 +0000 fry http://nimnegah.ancient.ir/?p=526 uses crt

var
ave : array[1..10] of real;
i,j,index,low,high,mid : integer;
min,x : real;
flag : boolean;
begin
for i:= 1 to 10 do
begin
writeln(‘Enter Student ‘,i,’ Average’);
read(ave[i]);
end;
writeln;
writeln(‘Entering Data Compilited,Now you Can Search

for i:= 1 to 10 do
begin
min:=ave[i];
index:=i;
for j:= i+1 to 10 do
if ave[j]<min then
begin
min:=ave[j];
index:=j;
end;
ave[index]:=ave[i];
ave[i]:=min;
end;
writeln;
writeln(‘sorted Data :’);
for i:= 1 to 10 do
writeln(ave[i]:5:2);
Writeln(‘Enter Data’);
readln(x);
low:=1;
high:=10;
flag:=true;
while (low<high) and (flag) do
begin
mid:=(low+high) div 2;
if x=ave[mid] then
begin
index:=mid;
flag:=false;
writeln(‘Data Found,In : ‘,index);
end
else if( x> ave[mid]) then
low:= mid +1
else
high:= mid-1;
end;
if flag= true then
Writeln(‘Data Not Found’);
end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d8%af%d8%b1%db%8c%d8%a7%d9%81%d8%aa-%d9%85%d8%b9%d8%af%d9%84-10-%d8%af%d8%a7%d9%86%d8%b4%d8%ac%d9%88-%d9%88-%d8%ac%d9%88%d8%b3%d8%aa%d8%ac%d9%88-%d8%af%d9%88%d8%af%d9%88%db%8c%db%8c-%d8%af%d8%b1-2/feed/ 0 محاسبه دترمینان ماتریس ۳ در ۳ http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%ad%d8%a7%d8%b3%d8%a8%d9%87-%d8%af%d8%aa%d8%b1%d9%85%db%8c%d9%86%d8%a7%d9%86-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-3-%d8%af%d8%b1-3-2/ http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%ad%d8%a7%d8%b3%d8%a8%d9%87-%d8%af%d8%aa%d8%b1%d9%85%db%8c%d9%86%d8%a7%d9%86-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-3-%d8%af%d8%b1-3-2/#comments Sun, 02 Jan 2011 12:55:20 +0000 fry http://nimnegah.ancient.ir/?p=524 uses crt

var
a : array[1..3,1..3] of integer;
diter,m,f,i,j : integer;
begin
writeln(‘Enter Number Of Matrix’);
for i:=1 to 3 do
for j:= 1 to 3 do
begin
writeln(‘Enter A[',i,j,']‘);
read(A[i,j]);
end

m := ((a[1,1]*a[2,2]*a[3,3])+(a[1,2]*a[2,3]*a[3,1])+(a[1,3]*a[2,1]*a[3,2]));
f := ((a[1,3]*a[2,2]*a[3,1])+(a[1,2]*a[2,1]*a[3,3])+(a[1,1]*a[2,3]*a[3,2]));
diter := m-f;
writeln;
writeln(‘Determinant Of Matrix Is : ‘,diter);
end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%ad%d8%a7%d8%b3%d8%a8%d9%87-%d8%af%d8%aa%d8%b1%d9%85%db%8c%d9%86%d8%a7%d9%86-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-3-%d8%af%d8%b1-3-2/feed/ 0 حل دو معادله دو مجهول به روش کرامر http://nimnegah.ancient.ir/1389/10/12/%d8%ad%d9%84-%d8%af%d9%88-%d9%85%d8%b9%d8%a7%d8%af%d9%84%d9%87-%d8%af%d9%88-%d9%85%d8%ac%d9%87%d9%88%d9%84-%d8%a8%d9%87-%d8%b1%d9%88%d8%b4-%da%a9%d8%b1%d8%a7%d9%85%d8%b1/ http://nimnegah.ancient.ir/1389/10/12/%d8%ad%d9%84-%d8%af%d9%88-%d9%85%d8%b9%d8%a7%d8%af%d9%84%d9%87-%d8%af%d9%88-%d9%85%d8%ac%d9%87%d9%88%d9%84-%d8%a8%d9%87-%d8%b1%d9%88%d8%b4-%da%a9%d8%b1%d8%a7%d9%85%d8%b1/#comments Sun, 02 Jan 2011 12:54:45 +0000 fry http://nimnegah.ancient.ir/?p=522 Uses crt

var
a,b,c,d,e,f,x,y : real;
begin
writeln(‘In Style Below :’);
writeln(‘ax + by = e’);
writeln(‘cx + dy = f’);
writeln;
writeln(‘Enter a :’);
read(a);
writeln(‘Enter b :’);
read(b);
writeln(‘Enter e :’);
read(e);
writeln(‘Enter c :’);
read(c);
writeln(‘Enter d :’);
read(d);
writeln(‘Enter f :’);
read(f

x:=((e*d-b*f)/(a*d-b*c));
y:=((a*f-e*c)/(a*d-b*c

writeln;
writeln(‘X = ‘,x:5:2);
writeln(‘Y = ‘,y:5:2

end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d8%ad%d9%84-%d8%af%d9%88-%d9%85%d8%b9%d8%a7%d8%af%d9%84%d9%87-%d8%af%d9%88-%d9%85%d8%ac%d9%87%d9%88%d9%84-%d8%a8%d9%87-%d8%b1%d9%88%d8%b4-%da%a9%d8%b1%d8%a7%d9%85%d8%b1/feed/ 0 تعیین بشترین تکرار ۰ تا ۹ در یک آرایه ۲۰ عضوی http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%db%8c%db%8c%d9%86-%d8%a8%d8%b4%d8%aa%d8%b1%db%8c%d9%86-%d8%aa%da%a9%d8%b1%d8%a7%d8%b1-0-%d8%aa%d8%a7-9-%d8%af%d8%b1-%db%8c%da%a9-%d8%a2%d8%b1%d8%a7%db%8c%d9%87-20-%d8%b9%d8%b6%d9%88%db%8c/ http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%db%8c%db%8c%d9%86-%d8%a8%d8%b4%d8%aa%d8%b1%db%8c%d9%86-%d8%aa%da%a9%d8%b1%d8%a7%d8%b1-0-%d8%aa%d8%a7-9-%d8%af%d8%b1-%db%8c%da%a9-%d8%a2%d8%b1%d8%a7%db%8c%d9%87-20-%d8%b9%d8%b6%d9%88%db%8c/#comments Sun, 02 Jan 2011 12:53:22 +0000 fry http://nimnegah.ancient.ir/?p=519 uses crt

var
a: array[1..20] of integer;
b: array[0..9] of integer;
i,max: integer;
begin
writeln(‘Enter Numbers’);
for i:= 1 to 20 do
begin
writeln(‘Enter Number ‘,i);
readln(a[i]);
end;
writeln;
for i:=1 to 20 do
begin
case a[i] of
0:   b[0]:=b[0]+1;
1:   b[1]:=b[1]+1;
2:   b[2]:=b[2]+1;
3:   b[3]:=b[3]+1;
4:   b[4]:=b[4]+1;
5: b[5]:=b[5]+1;
6:   b[6]:=b[6]+1;
7 :   b[7]:=b[7]+1;
8:   b[8]:=b[8]+1;
9:   b[9]:=b[9]+1;
end;
end;
max:=b[0];
for i:= 1 to 9 do
if b[i] > max then
max:=b[i];

if max= b[0] then
Writeln(‘Number with Maximum repeat is ‘,0)
else if max= b[1] then
Writeln(‘Number with Maximum repeat is ‘,1)
else if max= b[2]then
Writeln(‘Number with Maximum repeat is ‘,2)
else if max= b[3]then
Writeln(‘Number with Maximum repeat is ‘,3)
else if max= b[4]then
Writeln(‘Number with Maximum repeat is ‘,4)
else if max= b[5]then
Writeln(‘Number with Maximum repeat is ‘,5)
else if max= b[6]then
Writeln(‘Number with Maximum repeat is ‘,6)
else if max= b[7]then
Writeln(‘Number with Maximum repeat is ‘,7)
else if max= b[8]then
Writeln(‘Number with Maximum repeat is ‘,8)
else if max= b[9]then
Writeln(‘Number with Maximum repeat is ‘,9);
end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%db%8c%db%8c%d9%86-%d8%a8%d8%b4%d8%aa%d8%b1%db%8c%d9%86-%d8%aa%da%a9%d8%b1%d8%a7%d8%b1-0-%d8%aa%d8%a7-9-%d8%af%d8%b1-%db%8c%da%a9-%d8%a2%d8%b1%d8%a7%db%8c%d9%87-20-%d8%b9%d8%b6%d9%88%db%8c/feed/ 0 تعویض قطر اصلی و فرعی ماتریس n در n http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%d9%88%db%8c%d8%b6-%d9%82%d8%b7%d8%b1-%d8%a7%d8%b5%d9%84%db%8c-%d9%88-%d9%81%d8%b1%d8%b9%db%8c-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-n-%d8%af%d8%b1-n/ http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%d9%88%db%8c%d8%b6-%d9%82%d8%b7%d8%b1-%d8%a7%d8%b5%d9%84%db%8c-%d9%88-%d9%81%d8%b1%d8%b9%db%8c-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-n-%d8%af%d8%b1-n/#comments Sun, 02 Jan 2011 12:52:31 +0000 fry http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%d9%88%db%8c%d8%b6-%d9%82%d8%b7%d8%b1-%d8%a7%d8%b5%d9%84%db%8c-%d9%88-%d9%81%d8%b1%d8%b9%db%8c-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-n-%d8%af%d8%b1-n/ uses crt

var
a : array[1..100,1..100] of integer;
i,j,temp,n : integer

begin
writeln(‘Enter Number For n: ‘);
readln(n);
for i:= 1 to n do
for j:= 1 to n do
begin
writeln(‘Enter a[',i,j,']‘);
readln(a[i,j]);
end;
writeln

writeln(‘Matrix :’);
for i:= 1 to n do
begin
for j:= 1 to n do
write( a[i,j]:3);
writeln;
end;
j:=n;
for i:=1 to n do
begin
temp := a[i,i];
a[i,i] := a[i,j];
a[i,j] := temp;
dec(j);
end;
writeln;
writeln(‘Matrix Tavize Ghotre asli Va Farei :’);
for i:= 1 to n do
begin
for j:= 1 to n do
write( a[i,j]:3);
writeln;
end;
end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d8%aa%d8%b9%d9%88%db%8c%d8%b6-%d9%82%d8%b7%d8%b1-%d8%a7%d8%b5%d9%84%db%8c-%d9%88-%d9%81%d8%b1%d8%b9%db%8c-%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-n-%d8%af%d8%b1-n/feed/ 0 لوزی شبه خیام پاسکال http://nimnegah.ancient.ir/1389/10/12/%d9%84%d9%88%d8%b2%db%8c-%d8%b4%d8%a8%d9%87-%d8%ae%db%8c%d8%a7%d9%85-%d9%be%d8%a7%d8%b3%da%a9%d8%a7%d9%84/ http://nimnegah.ancient.ir/1389/10/12/%d9%84%d9%88%d8%b2%db%8c-%d8%b4%d8%a8%d9%87-%d8%ae%db%8c%d8%a7%d9%85-%d9%be%d8%a7%d8%b3%da%a9%d8%a7%d9%84/#comments Sun, 02 Jan 2011 12:50:26 +0000 fry http://nimnegah.ancient.ir/?p=514 uses crt

var
i,j,s : integer;
begin
s:=10;
for i:=1 to 5 do
begin
writeln;
write(‘ ‘:s);
for j:=1 to i do
write(j:2);
for j:=(i-1) downto 1 do
write(j:2);
s:=s-2;
end;
s:=4;
for i:= 4 downto 1 do
begin
writeln;
write(‘ ‘:s);
for j:=1 to i do
write(j:2);
for j:=(i-1)downto 1 do
write(j:2);
s:=s+2;
end;
end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d9%84%d9%88%d8%b2%db%8c-%d8%b4%d8%a8%d9%87-%d8%ae%db%8c%d8%a7%d9%85-%d9%be%d8%a7%d8%b3%da%a9%d8%a7%d9%84/feed/ 0 ماتریس ترانهاده http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-%d8%aa%d8%b1%d8%a7%d9%86%d9%87%d8%a7%d8%af%d9%87/ http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-%d8%aa%d8%b1%d8%a7%d9%86%d9%87%d8%a7%d8%af%d9%87/#comments Sun, 02 Jan 2011 12:50:01 +0000 fry http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-%d8%aa%d8%b1%d8%a7%d9%86%d9%87%d8%a7%d8%af%d9%87/ uses crt

var
b:array[1..5,1..5]of integer;
a:array[1..5,1..5]of integer;
i,j,t:integer;
begin
writeln(‘Enter Numbers’);
for i:=1 to 5 do
for j:=1 to 5 do
begin
write(‘a[',i,j,']‘);
read(a[i,j]);
b[i,j]:=a[i,j];
end;
for i:=1 to 5 do
for j:=1 to 5 do
if j>i then
begin
t:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=t;
end;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(b[i,j]:4);
if (i=1) and (j=5) then
write(‘    ‘)
else if (i=2) and (j=5) then
write(‘    ‘)
else if (i=3) and (j=5) then
write(‘ => ‘)
else if (i=4) and (j=5) then
write(‘    ‘)
else if (i=5) and (j=5) then
write(‘    ‘);
end;
for j:=1 to 5 do
write(a[i,j]:4);
writeln;

end;
end

در همین راستا:

]]> http://nimnegah.ancient.ir/1389/10/12/%d9%85%d8%a7%d8%aa%d8%b1%db%8c%d8%b3-%d8%aa%d8%b1%d8%a7%d9%86%d9%87%d8%a7%d8%af%d9%87/feed/ 0