1 Востаннє редагувалося tania.ionashku (27.11.2013 22:05:22)

Тема: Робота з матрицями (Delphi)

Допоможіть будь ласка знайти помилки : якщо у матриці A(4*4) середнє арифметичне 4 стовпця більше за середнє арифметичне елементів 3 рядка,то знайти мінімум матриці, інакше максимум.

Частина програмного коду:
....

begin
sum1:=0; ser1:=0;
for i:=1 to n do
begin
 sum1:=sum1+a[i,4];
 ser1:=sum1/n;
 end;

 sum2:=0; ser2:=0;
 for j:=1 to n do
 begin
 sum2:=sum2+a[3,j];
 ser2:=sum2/n;
 end;
 if ser1>ser2 then
 begin

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

  if a[i,j]<min then min:=a[i,j];

  y:=min;
  end;

   if ser1<ser2 then
   begin
   max:=a[1,1];
   for i:=1 to n do
   for j:=1 to n do
   if a[i,j]>max then max:=a[i,j];
   y:=max;
   end;

  end;

2 Востаннє редагувалося Logans (27.11.2013 20:13:00)

Re: Робота з матрицями (Delphi)

Мінімум/Максимум чого? Рядка, стовбця, матриці?
Можливо у вас є якісь конкретні питання? Ви пробували компілювати код? Які помилки в вас видає? Що у вас взагалі вийшло?
Як любить казати koala - "Ми ж не телепати"...

3 Востаннє редагувалося Logans (27.11.2013 20:13:38)

Re: Робота з матрицями (Delphi)

Ну... Не зважаючи на "гарний стиль написання" (*сарказм), на те, що ви не написали повну умову задачі, на те, що, судячи з вашого питання, ви навіть не намагалися розібратися в коді, я можу сказати, що представлений вами уривок, в мене, працює.

4 Востаннє редагувалося koala (27.11.2013 20:18:22)

Re: Робота з матрицями (Delphi)

Ну, якщо вже мене згадали...
Пані, у вас є якісь конкретні зауваження до цього коду? Щось не так виводить, не так рахує? Якщо так - висловіть їх. Якщо ні - то цілком можливо, що суттєвих помилок там нема. Зрештою, програм без помилок практично не існує взагалі...
Втім, одне бачу: ви ділите середнє на n в циклі, тобто n разів.

Подякували: tania.ionashku1

5 Востаннє редагувалося vitia444 (04.12.2013 17:38:44)

Re: Робота з матрицями (Delphi)

tania.ionashku написав:
begin
sum1:=0; ser1:=0;
for i:=1 to n do
begin
 sum1:=sum1+a[i,4];
 ser1:=sum1/n;
 end;

1. не бачу логіки обнулювати ser1, оскільки згодом ви всеодно надаєте йому значення, відмінне від нуля, і яке не базується на попередньому значенню цієї змінної;
2. не бачу логіки обраховувати значення цієї ж змінної у циклі, оскільки сам її обрахунок не залежить від параметра "і";

ну і хіба можу ще додати по тому, що ви не відстежуєте випадок коли ser1 і ser2 рівні, та не виводите собі результат, а так - все правильно(ну хіба значення n не рівне 4, що повинно бути за умовою задачі)

P.S. почніть користуватись режимом debug

6

Re: Робота з матрицями (Delphi)

fastergus2dog написав:

А слабо написати обчислення матриці методом Крамера зі створенням динамічного масиву та застосуванням рекурсивних функцій. Маю вихідний код на С++ але якщо ти розумієш його, то можеш примінити і в Delphi

Вам захотілось десь виділитись? Гадаю тема місячної давності не є гарним місцем.
Краще створіть тему з корисною інформацією, або представте ваш С++ код на загальний перегляд, може організуйте гарну відповідь на актуальне питання.

Піднімання мертвих тем не є гарною проявою свого існування на форумі.

Подякували: Torbins, koala2