Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.12.2009, 19:46
Helga Helga вне форума
Прохожий
 
Регистрация: 10.11.2009
Сообщения: 8
Репутация: 10
По умолчанию позиция в матрице

Здравствуйте. Помогите вот с таким пунктом задачи, пожалуйста

Написать приложение реализующее работу с массивами:
2. указать на каких позициях в матрице находятся элементы, большие введенного с клавы числа.
Ответить с цитированием
  #2  
Старый 08.12.2009, 19:47
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

В цикле бежишь по матрице (2х-мерному массиву) и если элемент больше некоторого введенного числа, то выводишь его, элемента, индексы.
Ответить с цитированием
  #3  
Старый 09.12.2009, 19:52
Helga Helga вне форума
Прохожий
 
Регистрация: 10.11.2009
Сообщения: 8
Репутация: 10
По умолчанию

а можно хоть какой-то пример кода?
Ответить с цитированием
  #4  
Старый 09.12.2009, 21:14
Kapitoshka438 Kapitoshka438 вне форума
Начинающий
 
Регистрация: 09.11.2009
Сообщения: 145
Репутация: 238
По умолчанию

Код:
var
  A: array [1..N, 1..M] of Double;
  X: Double;

procedure CheckMatrix(C: Double);
var
  I, J: Integer;
begin
  for I := 1 to N do
    for J := 1 to M do
      if A[I, J] > C then
        Writeln('[' + IntToStr(I) + ', ' + IntToStr(J) + ']');
end;

begin
  { ... Определить матрицу A ... }
  Readln(X);
  CheckMatrix(X);
end.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:03.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025