Suscríbete via email
حل دو معادله دو مجهول به روش کرامر
دی ۱۲م, ۱۳۸۹ | 
نویسنده: 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
پست شده در 
برچسب ها : 
تعیین بشترین تکرار ۰ تا ۹ در یک آرایه ۲۰ عضوی
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
تعویض قطر اصلی و فرعی ماتریس n در 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
لوزی شبه خیام پاسکال
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
ماتریس ترانهاده
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