|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите, пожалуйста! СРОЧНО! Задача на многомерные массивы. Экзамен горит!
В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный.
|
#2
|
||||
|
||||
1. Проходим по матрице двумя циклами.
2. Перебирая все элементы, находим минимальный, запоминая его и номер его строки. 3. Проходим циклом по строке, суммируя значения. 4. Выводим результат. За готовым кодом - в раздел "Работа". Если не понятно что-либо конкретное - спрашиваем, дав пример кода и объяснив, что не работает. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
Konrad (25.12.2011)
|
#3
|
|||
|
|||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; Edit2: TEdit; BitBtn1: TBitBtn; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var M[1..x]: Array of integer; i,n: integer; a: integer; k: integer; begin M:=StrToInt(Edit1.Text); k:=0; for i:=1 to n do begin a:=M[i]; if div(a)>0 then k:=k+1; end; Edit2.Text:=k end; end. Полная ересь? Последний раз редактировалось Admin, 25.12.2011 в 15:49. |
#4
|
|||
|
|||
Код:
var M[1..x]: Array of integer; //объявляем массив для помещения элементов i,n: integer; a: integer; //для цикла - первого и последующего элемента k: integer; //для счетчика нечетных чисел begin M:=StrToInt(Edit1.Text); k:=0; //обнуляем счетчик четности for i:=1 to n do //объявляем цикл begin a:=M[i]; //берем элемент последовательности if div(a)>0 then //проверяем на четность k:=k+1; //увеличиваем счетчик четности end; Edit2.Text:=k end; Последний раз редактировалось Admin, 25.12.2011 в 15:48. |
#5
|
||||
|
||||
При чём тут чётность вообще?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
|||
|
|||
Блин, не то скопировал. Вот что значит 2 ночи не спать.
|
#7
|
|||
|
|||
Вот что значит целый семестр никуя не делать, а потом в мыле носится и пытаться что-то сделать
|
Этот пользователь сказал Спасибо ChinYan за это полезное сообщение: | ||
Konrad (25.12.2011)
|