Тема: Массивы
Показать сообщение отдельно
  #2  
Старый 16.11.2012, 05:27
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Guneska
Вот первая лаба: дано: n, a[n]. Найти: S= n-1(это над знаком эпсилон), епсилон, i=0 (это под эпсилон), "a" с индексом i. Надеюсь понятно описала формулу.
Вообще то не очень. Под "эпсилон" здесь имеется ввиду эта буква? Может всё же не эпсилон, а сигма?
Такая формула?:
Цитата:
Сообщение от Guneska
Стыдно до ужаса, но совершенно не понимаю, ЧТО здесь нужно сделать.
Если я правильно понял, то нужно найти сумму элементов массива:
Код:
const
  n = ???;
var
  a: array[0..n - 1] of Integer;
  S, i: Integer;
begin
.....
  S := 0;
  for i := 0 to n - 1 do
  begin
    S := S + a[i];
  end;
.....
end;
Цитата:
Сообщение от Guneska
Вторая лаба - дано: n. Получить квадратную матрицу a[n,n]. n=5. Как объяснила преподаватель, чтобы было:
50000
04000
00300
00020
00001
Ну это тоже простенькая задача:
Код:
const
  n = 5;
var
  a: array[1..n, 1..n] of Integer;
  i, j: Integer;
begin
.....
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i = j then a[i, j] := n - i + 1 else a[i, j] := 0;
    end;
  end;
.....
end;
Цитата:
Сообщение от Guneska
И третья: дано: n,m,p a[n][m], b[m][p] Получить: c=a*b. Преподаватель сказала: для умножения матриц будет три цикла.
Это я так понимаю Умножение матриц? Здесь я не помню как это делается.
Ответить с цитированием