Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2015, 18:54   #1
AlexandraGrey
Пользователь
 
Регистрация: 19.10.2015
Сообщений: 14
По умолчанию исправьте пожалуйста

условие задачи:
Создать программу для генерирования матрицы A, размерностью N x N, (2 ≤ N ≤ 10), элементы которой задаются формулой А=i^2 - 2j, и нахождение четных элементов, что находятся над побочной диагональю этой матрицы.
код:
Код:
const
  n_max = 100;
type
    real_arr = array [0..n_max+2, 0..n_max+2] of real;
procedure TForm1.DoButtonClick(Sender: TObject);
var a : real_arr;
    n : integer;
    sum : real;
begin
  n := nEdit1.Value;
  SG: RowCount := n;
  SG: ColCount := n;
  for j := 0 to n+2 do
  for i := 0 to n+2 do
begin
  a[j.i] := sqr(i)-(2*j);
  SG.Cells[j.i] := FloatToStr(a[j.i]);

end;
  sum := 0;
  for j := 0 to n+2 do
  for i := 0 to n+2 do
  if (i<j) then
  sum := sum + a[j.i];
  AnsLabel.Caption := FloatToStr(sum);
end;

end. 
(подозреваю, что весь мой код сплошная ошибка, но я старалась))

Выделять жирным ключевые слова в коде не надо. Есть кнопка #, вот ей и пользуйся для оформления кода

Последний раз редактировалось Аватар; 17.11.2015 в 19:06.
AlexandraGrey вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправьте пожалуйста! Nastya15684 C++ Builder 3 28.10.2015 19:38
исправьте ошибку пожалуйста AdelinaMango Общие вопросы C/C++ 1 10.04.2014 20:47
Исправьте ошибку пожалуйста Алиса_1515 Помощь студентам 1 03.12.2009 19:12
Си++. Исправьте пожалуйста ошибки megavolt91 Помощь студентам 3 29.05.2009 16:02
Исправьте пожалуйста программу Алексей_xXx Помощь студентам 2 29.05.2009 05:11