Язык VBA, исправление программы - Форум
Пятница, 09.12.2016, 10:43
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Язык VBA, исправление программы (max значение элемента)
Язык VBA, исправление программы
ItsMeДата: Вторник, 20.04.2010, 21:38 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Задан двумерный массив. Для всех столбцов увеличить в 3 раза все элементы, расположенные переж максимальным значением столбца. Пожалуйста, помогите!!

dim a(1 to 10, 1 to 10) as single
dim i as integer, j as integer
dim n as integer, max as single
dim flag as boolean
n=6
for i=1 to n
for j=1 to n
a(i,j)=cells(i,j)
next j
next i

for j=1 to n
max=a(1,1)
flag=false
for i=1 to n
if a(i,j)>max then
max=A(i,j)
flag=true
end if
next i
next j

for j=n to 1 step -1
do while j<=n and flag
if a(i,j)=max then
a(i,j-1)=3*a(i,j-1)
end if
loop

for i=1 to n
for j=1 to n
cells(i,j)=a(i,j-1)
next j
next i
end sub

Сообщение отредактировал ItsMe - Вторник, 20.04.2010, 21:39
 
GrihaIДата: Среда, 21.04.2010, 19:45 | Сообщение # 2
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
А если на "С", с комментариями, напильником доделаешь?

Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Язык VBA, исправление программы (max значение элемента)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016