VPF::Помогите решить задачку - Форум программистов

cardinal

Дата 2.4.2006, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

Пожалуйста, один топик - один вопрос.
Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Nikk

Дата 2.4.2006, 18:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 2.4.2006

Репутация: нет
Всего: нет

cardinal,
Может я не понимаю вашего языка.
Помогите решить задачу:
Даны два одномерных массива D( ) и E ( ), состоящие из 7 элементов. Разработайте программу построения матрицы F( ), каждый элемент которой определяется по формуле:
Fij=D2-Ej*Dj , (где i = 1,2…7; j =1,2…7). (в формуле "2" это степень)
Найдите в этой матрице сумму наибольшего и наименьшего элементов.

Буду очень благодарен

Fighter

Дата 3.4.2006, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2

А что такое D^2? Если логически мыслить то из формулы, это массив в квадрате, но что-то мне подсказывает что это не так?

Я буду делать, считая, что в квадрат возводится i-тый элемент массива.
Добавлено @ 00:34
В общем, насколько я понял, я сделал эту задачу так:

Код


uses crt;

type
  mas = array [1..7] of integer;

type
  matrix = array [1..7, 1..7] of integer;

procedure InputArray(var a: mas);
var
  i: integer;
begin
  writeln('Enter array...');
  for i := 1 to 7 do
  begin
    write('Enter ', i, ' element of array: ');
    readln(a[i]);
  end;
end;

procedure CreateMatrix(d,e: mas; var f: matrix);
var
  i,j: integer;
begin
  for i := 1 to 7 do
  begin
    for j := 1 to 7 do
    begin
      f[i,j] := sqr(d[i]) - e[j] * d[j];
    end;
  end;
end;

procedure FindMax(f: matrix; var max: integer);
var
  i,j: integer;
begin
  max := f[1,1];
  for i := 1 to 7 do
  begin
    for j := 1 to 7 do
    begin
      if f[i,j] > max then
        max := f[i,j];
    end;
  end;
end;

procedure FindMin(f: matrix; var min: integer);
var
  i,j: integer;
begin
  min := f[1,1];
  for i := 1 to 7 do
  begin
    for j := 1 to 7 do
    begin
      if f[i,j] < min then
        min := f[i,j];
    end;
  end;
end;

procedure DrawMatrix(f: matrix);
var
  i,j: integer;
  y: integer;
begin
  writeln;
  for i := 1 to 7 do
  begin
    y := WhereY;
    for j := 1 to 7 do
    begin
      gotoxy(j * 6, y);
      if j = 7 then
        writeln(f[i,j])
      else
        write(f[i,j]);
    end;
  end;
end;

var
  d,e: mas;
  f: matrix;
  max, min: integer;
  summ: integer;

begin
  clrscr;
  InputArray(d);
  InputArray(e);
  CreateMatrix(d,e,f);
  DrawMatrix(f);
  FindMax(f, max);
  FindMin(f, min);
  summ := max + min;
  writeln('Min = ', min);
  writeln('Max = ', max);
  writeln('Summ of the MAX and MIN is ', summ);

  readkey;
end.

cardinal

Дата 3.4.2006, 01:36 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

Цитата(Nikk @ 2.4.2006, 16:44

)

cardinal,
Может я не понимаю вашего языка.

А правила форума вы понимаете?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »