1,2 курс студенттеріне. Кімде бағдарламалау тілдері есептерін шешуге көмектесеміз.

Question

Қиын есептер болса, берілгенін осында жазсаңыздар, шығарғанымызша көмектесуге даярмыз.

Answer 1

1)    A(8,10) матрицасының әр бағанасының оң элементтерінің геометриялық ортасын анықтаңыздар.

2)    Берілген квадрат матрицаның әрбір элементін сәйкес бағандағы диагональ элементке бөліңдер.

3)    A(n,k) матрицасы берілген. Әрбір элементі А матрицасының сәйкес бағанының арифметикалық ортасына тең болатын B(k) векторын табыңдар.

Comments

1)
const n=8; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:ineger;
s:real;
Begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin s:=1; k:=0;
for i:= 1 to n do
if a[i,j]>0 then begin s:=s*a[i,j]; k:=k+1; end;
if k<>0 then s:=s/k;
writeln(s);
end;
End.

2)
const n=5;
var a:array[1..n,1..n] of real;
i,j:integer;
Begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);

for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]/a[j,j];

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5:1);
writeln;
end;
End.

3)
const n=5; k=4;
var a:array[1..n, 1..k] of integer;
b:array[1..k] of real;
i,j,l:integer;
Begin
for i:=1 to n do
for j:=1 to k do
read(a[i,j]);
for j:=1 to k do
begin l:=0;
for i:=1 to n do
l:=l+a[i,j];
b[j]:=l/n;
end;
for j:=1 to k do
writeln(b[j]:5:1);
End.

Жантуған 30.06.2012 пікір

Answer 2

1. Екі өлшемді массивті еңгізесін - ол оңай.
Алгоритм
1- массивтің элементтерін көбейтісін табасын
2-От этого произведения извлекаешь корень і-той степени, где і - количество элементов массива

for i:=1 to 8 do
p:=a[i]*p;
g:=exp(8,ln(p));

Жауап - g;

Answer 3

{-=ErLaN=-} сенің 1 - ші есебіңнің жауабы.
program esep1;
Uses crt;
const
     n=8;
     m=10;
var
   A:array[1..n,1..m] of integer;
   i,j,x,y,c:integer;
   P:longint;
   G:real;
begin
clrscr;
x := -10; y := 20; {diapazon ot x do y}
     for i:=1 to n do
         for j:=1 to m do
         begin
              A[i][j] := random(y-x+1)+x;
              GotoXY(j*4,i*2);
              write(A[i][j]);
         end;
         readln;
     for j:=1 to m do
     begin
         P := 1;
         c := 0;
         readln;
         write('A[i][',j,'] baganinin geometryalik ortasi = ');
         for i:=1 to n do
         begin
             if(A[i][j] > 0) then
             begin
                c := c + 1;
                P := P * A[i][j];
             end;
         end;
     write(exp((1/c)*ln(P)):1:2);
     end;
readln;
end.

Comments

Егер уақытым болса қалған есептеріңді де шығарып берер едім. Өкінішке орай уақытым аз.

Rafa 7.11.2010 пікір

---

Кімде қандай есеп бар осы жерге жаза берейік, пайдағасқан  кісі рахметін айтадығо ?

СУЛТАНБЕК 1.02.2012 пікір

Answer 4

A(n,n) әр қатарын өсу реті б/ша сорттау..(массивпен шығару керек)...     өтініш бауырлар..!!

Comments

const n=5;
var a:array[1..n,1..n] of integer;
i,j,k:integer;
Begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]<a[i,k] then begin b:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=b; end;

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
End.

Жантуған 30.06.2012 пікір

---

Аллах разы болсын саған Жантуған!!!

BakDaulet_[Off.PaGe] 8.07.2012 пікір

Answer 5

-5 тен -8 ге дейінгі сандардың ішінен теріс сандардың квадраттарының қосандасын табатын бағдарлама құру??????

Comments

Самал, мына есебіңнің түк мағынасы жоқ, орысшадан дұрыс аударылмаған немесе есептің бір бөлігі жазылмай қалған. минус бес пен минус сегіздің арасындағы теріс сандардың, мен бұл аралықтан оң сан көріп тұрғаным жоқ. ал осы аралық тағы сандардың квадраттарының қосындысын есептеу керек болса ол мынадай

Begin
write(sqr(-5)+sqr(-6)+sqr(-7)+sqr(-8));
End.

бұл жерде айнымалы шығындап сөзді көбейтпей бір ауыз сөзбен минималді жауап алуға болады.

Жантуған 30.06.2012 пікір