|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
delphi-часть диплома
прошу народ кто-нибудь помогите с частью моего диплома
1 Дана последовательность действительных чисел а(1), а(2) ... а(n). Среди них есть равные.Найти первый максимальный элемент и заменить его нулем. 2 Даны два двух мерных массива одинаковой размерности 5x5 из целых чисел. Проверь, равны ли массивы между собой. Вывести сообщение об этом. Заранее благодарю |
#2
|
|||
|
|||
Ну и дипломы у вас...
Элементарные задачи на циклы. Код:
procedure UpdateArray(var A : Array Of Integer); var I, Idx : Integer; begin Idx := Low(A); For I := Low(A) To High(A) Do If A[i] > A[Idx] Then Idx := I; A[Idx] := 0; end; function IsArraysEqual(A, B : Array Of Array Of Integer) : Boolean; var I, J : Integer; begin // Проверяем размерности массивов Result := (Length(A) = Length(B)) And (Length(A[Low(A)]) = Length(B[Low(B)])); // Проверяем соджержимое массивов If Result Then For I := Low(A) To High(A) Do For J := Low(A[i]) To High(A[i]) Do Begin Result := A[I,J] = B[I,J]; If Not Result Then Break; End; end; |
#3
|
||||
|
||||
Цитата:
Может вы ошиблись? Тут на целую кандидатскую или докторскую тянет, а то и на нобелевскую премию. |
#4
|
||||
|
||||
edmilson отстань от него он сказал что это не часть его дипломной работы, а часть диплома может он хочет из ЭТОЙ ПРОГИ себе красный деплом связать нуда или сшить
Начнем из далека!!! Все произошло из-за большого взрыва: сначала появился нанобит, потом милибит, уже потом бит, за ним недобайт, байт, недобуква, недослово и Как уже можно догадаться "Слово? " Да!!! НО ЭТИМ ВСЕ НЕ КОНЧИЛОСЬ!!!! |