1 Востаннє редагувалося tania.ionashku (27.11.2013 23: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 21:13:00)

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

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

"Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program."
- Linus Torvalds

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

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

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

"Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program."
- Linus Torvalds

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

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

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

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

5 Востаннє редагувалося vitia444 (04.12.2013 18: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)

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

7

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

fastergus2dog написав:

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

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

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

"Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program."
- Linus Torvalds
Подякували: Torbins, koala2