Chevy-Niva
http://www.chevy-niva.ru/n/

СРОЧНО!!! ПРОГРАМИСТЫ ВЫРУЧАЙТЕ
http://www.chevy-niva.ru/n/viewtopic.php?f=124&t=38647		 Страница 1 из 7
Автор:  Nixon [ 24 янв 2008, 14:01 ]
Заголовок сообщения:  СРОЧНО!!! ПРОГРАМИСТЫ ВЫРУЧАЙТЕ
Я ЩАС НА ЭКЗАМЕНЕ НУЖНО РЕШИТЬ ЗАДАЧУ В VISUAL BASIC РЕШЕНИЕ ПРИНЕМАЕТСЯ ГА ЛИСТЕ БУМАГЕ


УСЛОВИЕ СЛЕДУЮЩИЕ

В ОДНОМЕРНОМ МАССИВЕ ЗАМЕНИТЬ MAX ЧЕТНЫЙ ЭЛЕМЕНТ НА "10"

ВРЕМЕНИ МАЛО! :!: :!:
Автор:  ШНива-гамно [ 24 янв 2008, 14:05 ]
Заголовок сообщения: 
; Ищем первое четное значение и запоминаем его индекс
max = 0;
max_i = 0;
for i = 1 to 100 do
if (Round(mass[i]/2)*2) = mass[i] then
max = mass[i]
max_i = i
end
next i

; Ищем четный макс
for i = 2 to 100 do
if max < mass[i] then
if (Round(mass[i]/2)*2) = mass[i] then
max = mass[i]
max_i = i
end
end
next i

; Заменяем
mass[max_i] = 10
Автор:  ШНива-гамно [ 24 янв 2008, 14:06 ]
Заголовок сообщения: 
100 размерность массива.
В начальный момент за максимум принимаем первый элемент массива
Автор:  dimfair [ 24 янв 2008, 14:07 ]
Заголовок сообщения: 
проверку на четность перед первым ифом добавить надо
Автор:  Nixon [ 24 янв 2008, 14:09 ]
Заголовок сообщения: 
FunTic, НЕ МОГБЫ РАСПИСАТЬ ПОЛНОСТЬ ЧТОБ ТОЛЬКО ПЕРЕПИСАТЬ.
Автор:  ШНива-гамно [ 24 янв 2008, 14:13 ]
Заголовок сообщения: 
Nixon, жди ща будет
Автор:  «BeS» [ 24 янв 2008, 14:14 ]
Заголовок сообщения: 
FunTic а, ты добрый :smile_nod:
Автор:  Максимка2 [ 24 янв 2008, 14:17 ]
Заголовок сообщения: 
Блин почему когда я учился в инсте не сушествовало КПК и мобильного инета....вот халява бы была(((
хотя...может быть именно по этому я ИНЖЕНЕР и это звучит гордо)))))))))))))))
Автор:  ШНива-гамно [ 24 янв 2008, 14:20 ]
Заголовок сообщения: 
Dim mass, i, max, max_i as Variant
mass = Array(1,2,3,4,5,6,7,8,9,10,11)

' Ищем первое четное значение и запоминаем его индекс
max = 0;
max_i = 0;
' Пробегаемся по массиву
for i = 1 to 11 do
' Если нашлось четное число, то запоминаем значение и место в массиве
if (Round(mass[i]/2)*2) = mass[i] then
max = mass[i]
max_i = i
end
' Возможно число не четное, смотрим дальше
next i

' Ищем четный макс
' Пробегаемся по массиву
for i = 1 to 11 do
' Если число больше чем мы нашли
if max < mass[i] then
' И если оно четное
if (Round(mass[i]/2)*2) = mass[i] then
' Запоминаем его значение и место в массиве
max = mass[i]
max_i = i
end
end
' Продолжаем смотреть массив
next i

' НА выходе в переменных должны быть искомое максимальное четное значение, если оно было в массиве
' Заменяем это значение на 10
if max_i <> 0 Then
mass[max_i] = 10
end
Автор:  Glu777 [ 24 янв 2008, 14:20 ]
Заголовок сообщения: 
Максимка2, я ваще тада молчу скромно........... :
Страница 1 из 7 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/