Отправлено: 15.05.07 19:23. Заголовок: Помогите с рассчёткой по информатике

напишите код плиз :

Ввести массив А(N) элементы с индексами от 0 до N/2 увеличить в 2а раза. Остальные оставить неизменными. Вывести на печать исходный и преобразовать массив.

 Отправлено: 20.09.08 12:25. Заголовок: Dea_r До коца следу..

Dea_r
До коца следующей недели, если поможем сделать отблагадарю! Ок!

 Отправлено: 20.09.08 15:46. Заголовок: ze_best_kaban Зная..

ze_best_kaban

Зная загруженность Диар не думаю что время найдётся.

 Отправлено: 20.09.08 15:59. Заголовок: Жаль последняя надеж..

Жаль последняя надежда, по другому уже не знаю как сделать!!!

 Отправлено: 20.09.08 19:07. Заголовок: ksandr пишет: Зная ..

ksandr пишет:

цитата:

Зная загруженность Диар не думаю что время найдётся.

Увы, Диар знает, какого это "досдавать разницу", когда вообще не проходил предмет и понятия не имеешь, что вообще от тебя хотят... Нельзя же человеку в такой ситуации не помочь
Да и задачки, сам видишь, элементарные... печатать только ломает

 Отправлено: 21.09.08 17:26. Заголовок: Sub zadacha73() Dim ..

Sub zadacha73() 
 Dim a(5, 5) 
 For i = 1 To 5 
 For j = 1 To 5 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 For j = 1 To 5 
 Cells(7, j) = Cells(1, j) 
 Next j 
 For j = 1 To 5 
 For i = 1 To 5 
 mn = Cells(7, j) 
 If a(i, j) < mn Then 
 Cells(7, j) = Cells(i, j) 
 End If 
 Next i 
 Next j 
 End Sub 
  
 Sub zadacha83() 
 Dim a(5, 5) As Integer 
 For i = 1 To 5 
 For j = 1 To 5 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 Pol = 0 
 Otr = 0 
 For j = 1 To 5 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 Pol = Pol + 1 
 Else 
 Otr = Otr + 1 
 End If 
 Next i 
 Cells(7, j) = Pol 
 Cells(8, j) = Otr 
 Pol = 0 
 Otr = 0 
 Next j 
  
 Sub zadacha13() 
 Dim a(6) As Integer 
 For i = 1 To 6 
 a(i) = Cells(1, i) 
 Next i 
 For i = 1 To 6 
 If i Mod 2 = 0 Then 
 Cells(3, i - 1) = a(i) 
 Else 
 Cells(5, i) = a(i) 
  
 End If 
 Next i 
  
  
 End Sub 
  
 Sub zadacha23() 
 Dim a(15) As Integer 
 For i = 1 To 15 
 a(i) = Cells(1, i) 
 Next i 
 For i = 1 To 5 
 Cells(3, i) = a(i) * 2 
 Next i 
 For i = 6 To 10 
 Cells(3, i) = a(i) * 3 
 Next i 
 For i = 11 To 15 
 Cells(3, i) = 0 
 Next i 
 End Sub

Конечно, есть и более рациональные способы решения этих задач, так что можешь решить их по-другому...
ЗЫ. остальные - по аналогии

 Отправлено: 23.09.08 19:48. Заголовок: Dea_r СПАСИБО огромн..

Dea_r СПАСИБО огромное, как появиться возможность отблагодорю!

 Отправлено: 23.09.08 20:16. Заголовок: неужели нет методиче..

неужели нет методичек по такой лабуде?

 Отправлено: 23.09.08 21:07. Заголовок: Olorin пишет: неуже..

Olorin пишет:

цитата:

неужели нет методичек по такой лабуде?

Учебников полно, но в программировании роль играет, имхо, не знание языка, а логика.

 Отправлено: 24.09.08 14:42. Заголовок: ну это пнятно уж))) ..

ну это пнятно уж)))
прост оу нас какие бы лабы или задачки не решались на чммм или на мат маделирвоании всегда под рукой были методы...

 Отправлено: 25.09.08 04:18. Заголовок: Ну на ЧМММ и задачки..

Ну на ЧМММ и задачки уже посерьезнее... Хотя, зная методы, тоже дело пяти минут...

 Отправлено: 30.09.08 13:20. Заголовок: Dea_r пишет: на ЧМ..

Dea_r пишет:

цитата:

на ЧМММ и задачки уже посерьезнее... Хотя, зная методы, тоже дело пяти минут...

Не знай сдача ЧМММ для меня была намного проще... А сейчас вот сразу взяться за ВБА не зная ни чего по нему... Мне кажеться это не реально да еще и в короткие сроки...

 Отправлено: 30.09.08 14:48. Заголовок: ze_best_kaban пишет:..

ze_best_kaban пишет:

цитата:

сразу взяться за ВБА

согласен)

 Отправлено: 01.04.09 19:38. Заголовок: информатика СРОЧНО помогите

Люди добрые помогите пожалуйста решить задачки, составлял по методичкам-не получается, там ошибки, в показанных примерах, в методичке, проги не работают, нужна помощь, хоть что-то решите, другие по аналогии попытаюсь.

48. Задать массив A(N) из членов ряда А(1)= 1/1, где 1=1, 2... Число элементов массива ограничивается по условию А(1) < К, где К « 1. Найти сумму элементов массива, их произведение и среднее значение.

58. Ввести массив A(N). Найти минимальный элемент среди четных и максимальный среди нечетных элементов массива.

68. Ввести массив A(N). Упорядочить элементы от 0 до N/2 по убыва¬нию, а от (N/2) + 1 до N по возрастанию. Вывести исходный и преобразован¬ный массивы.

78. Ввести массив A(N, M). Найти минимальный элемент матрицы. Все элементы строки и столбца, на пересечении которых он находится, заменить нулями.

88. Ввести массив A(N, N). Сумму элементов каждой строки поделить на значение максимального элемента этой строки. Данные вывести на печать.

 Отправлено: 01.04.09 23:01. Заголовок: http://kgeu.e2e.ru/d..

http://kgeu.e2e.ru/doc/ ищи

 Отправлено: 02.04.09 10:05. Заголовок: Lomeon искал, думае..

Lomeon
искал, думаешь не знаю

 Отправлено: 02.04.09 23:17. Заголовок: :sm64: ха-ха-ха))) ..

ха-ха-ха))) наивному первокурснику все готовое надо было??? ...иди в кулинарный, там на крайняк до магазина сбегал и любой вариант (вареный, жареный или сушеный) найдешь на полках

а по ссылке - там есть пример подобных расчетов... берешь и делаешь свое

 Отправлено: 02.04.09 23:44. Заголовок: Alloha и к какому дн..

Alloha и к какому дню тебе это нужно?

З.Ы. можешь отловить меня в универе, объясню. Если честно, даже набирать это лень...

 Отправлено: 03.04.09 11:10. Заголовок: Dea_r спасип канешн..

Dea_r
спасип канешно, но я заочно, в другом городе...

 Отправлено: 03.04.09 11:28. Заголовок: Alloha понятно. И ко..

Alloha понятно. И когда тебе это сдавать?

 Отправлено: 03.04.09 14:56. Заголовок: Dea_r дней через 10..

Dea_r
дней через 10 уже послать надо

 Отправлено: 03.04.09 15:45. Заголовок: Стучи в аську, обьяс..

Стучи в аську, обьясню

 Отправлено: 04.04.09 15:43. Заголовок: Dea_r пишет: З.Ы. мо..

Dea_r пишет:

цитата:

З.Ы. можешь отловить меня в универе, объясню. Если честно, даже набирать это лень...

Это ж нереально :))

Alloha
У меня такой же вариант был ^_^ только это было пять лет назад :))

 Отправлено: 04.04.09 17:49. Заголовок: pakhomov пишет: Это..

 Отправлено: 05.04.09 11:51. Заголовок: может кому-нибудь хо..

может кому-нибудь хочется немного пополнить баланс на мобиле...

 Отправлено: 05.04.09 12:20. Заголовок: Sub zad18() Dim a(10..

Sub zad18() 
 Dim a(10) 
  For i = 1 To 10 
  a(i) = Cells(1, i) 
  If i Mod 3 = 0 Then a(i) = a(i) / 2 
  If i Mod 5 = 0 Then a(i) = a(i) * 3 
  Cells(3, i) = a(i) 
  Next i 
 End Sub 
  
  Sub zad98() 
  Dim a(4, 4) As Integer 
  Dim b(4, 4) As Integer 
  For i = 1 To 4 
  For j = 1 To 4 
  a(i, j) = Cells(i, j) 
  If a(i, j) > 0 Then 
  b(i, j) = 1 
  Else 
  b(i, j) = -1 
  End If 
   Cells(i + 5, j) = b(i, j) 
  Next j 
  Next i 
  End Sub 
 

Остальные по аналогии

 Отправлено: 06.04.09 01:44. Заголовок: Ленка - святой челов..

Ленка - святой человек)

 Отправлено: 08.04.09 18:02. Заголовок: Помогите, пожалуйста..

SOS! SOS! ЫЩЫ!
Помогите, пожалуйста, никак нивъезжаю, последняя задачка осталась...

48. Задать массив A(N) из членов ряда А(i)= 1/i, где i=1, 2... Число элементов массива ограничивается по условию А(i) <= К, где К << 1. Найти сумму элементов массива, их произведение и среднее значение.

 Отправлено: 13.04.09 08:20. Заголовок: наверно очень трудна..

наверно очень трудная, 6 дней никто никак не может решить 48 задачку...

 Отправлено: 13.04.09 11:11. Заголовок: Alloha она не сложна..

Alloha она не сложная ;) вводишь проверку, которая проверяет текущее значени А(i) <= К и соответственно, если условие выполняется, то выполняешь действия: суммирования, произведения....переходишь к следующему итому значению.

Как только доходим до А(i) <= К и условие не выполняется - суму делим на i, выводим получившееся значение, выводим сумму и выводим произведение... конец массива

 Отправлено: 13.04.09 14:10. Заголовок: Lomeon Вы видели на..

Lomeon
Вы видели нашу методичку, там даже приведённый пример решения неправилный, для 1 семестра ещё объяснений хватило, честно, там все задачи решил за 2 часа сам, а сейчас - ну не понимаю я что тут требуется...поэтому и прошу помощи.