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

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

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

 Отправлено: 24.05.07 22:07. Заголовок: Re:

Dea_r пишет:

цитата:

zad

отмочила! это типа теперь клеймо мастера? ;)

 Отправлено: 24.05.07 22:25. Заголовок: Re:

ILexus пишет:

цитата:

на VBA.

мда...а у вас языки програмирования проходят еще какие нибудь кроме этого? там Си++)) ну на кройняк паскаль...

 Отправлено: 25.05.07 00:11. Заголовок: Re:

Энерго вампир , проходят. И паскаль, и Си, и Делфи.
а еще Ассамблер, а он как известно один из сложнейших языков...

 Отправлено: 25.05.07 00:14. Заголовок: Re:

des это радует...)
Вопрос лишь где?) и зачем тогда нужен VBA

 Отправлено: 25.05.07 00:20. Заголовок: Re:

Энерго вампир пишет:

цитата:

и зачем тогда нужен VBA

кафедра ИиИУС преподает разным группам.
лично мы уже Ассамблер вплотную учим.....

а VBA очень даже нужен. Вот тебе надо макрос какой-нибудь в ёкселе, или в какой-нить БД, то вот и нужен наш люимый ВБА.
или например когда хочешь заставить работать 2 разные системы друг с другом - надо писать на SQL, а без знания ВБА этого фиг сделаешь...

Вообщем, нужен он..)) я с ним почти каждый день работаю)

 Отправлено: 25.05.07 00:23. Заголовок: Re:

des пишет:

цитата:

надо писать на SQL

я его итак знаю не скажу что в совершенстве но не запутаюсь... а ВБА неочень)
des пишет:

цитата:

я с ним почти каждый день работаю)

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

 Отправлено: 29.05.07 16:04. Заголовок: Re:

Помогите кто-нибудь вот с этими задачками на VBA. Буду очень признателен =)
Массив:
9 -11 1 43 92
17 41 42 -28 -35
36 -6 -4 24 81
47 23 -23 14 -22
-23 -32 6 10 20

61.
Вывести массив A(M,N). Упорядочить его по убыванию.

81.
Вывести массив A(M,N). Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца.

никак они у меня не получаются =(

 Отправлено: 29.05.07 20:07. Заголовок: Re:

Drobogun Странно как-то задание сформулировано. Этот массив к обеим задачкам относится?

 Отправлено: 29.05.07 20:11. Заголовок: Re:

Drobogun пишет:

цитата:

никак они у меня не получаются =(

т.е. ты делал? выложи сюда что сделано, а я подправлю)

 Отправлено: 29.05.07 22:53. Заголовок: Re:

да массив относится к двум задачкам. Вот исходники:

В первой задачке вообще ничего не сортируется =(
Sub Primer4()
Dim a(5, 5) As Single, n As Integer, m As Integer, i As Integer, j As Integer, p As Integer
For i = 1 To n
For j = 1 To m
a(5, 5) = Cells(i, j)
Next j
Next i
For j = n - 1 To 2 Step -1
For i = 1 To j
p = a(i, j)
If a(i, j) < a(i, j + 1) Then
a(i, j) = a(i, j + 1)
a(i, j + 1) = p
End If
Next i
Next j
For i = 1 To n
Cells(i, j) = a(i, j)
Next i
End Sub

Сделал вторую задачку, только она почему то у меня ищет максимальную сумму столбца...

Sub Primer5()
Dim i As Integer, j As Integer, n As Integer, m As Integer
Dim s As Single, jmin As Integer, min As Single
Dim a(5, 5)
'Ищем сумму элементов первого столбца'
s = 0
For i = 1 To 5
s = s + a(i - 1, j)
Next i
min = s: jmin = 1
For j = 2 To 5
s = 0
For i = 1 To 5
s = s + a(i, j)
Cells(1, 7) = "Cумма=" & s
Next i
If s < min Then min = s
jmin = j
Next j
Cells(1, 6) = "Столбец №" & jmin
End Sub

 Отправлено: 29.05.07 23:18. Заголовок: Re:

Drobogun пишет:

цитата:

Dim a(5, 5) As Single, n As Integer, m As Integer, i As Integer, j As Integer, p As Integer For i = 1 To n For j = 1 To m

У тебя же задан массив 5Х5 (Dim a(5,5) Зачем после этого еще вводить m и n?
Во второй задаче ты их даже не используешь. Но это так, мелкий недочет. Саму прогу позже посмотрю. Сейчас не до того.

 Отправлено: 30.05.07 09:10. Заголовок: Re:

Я на двумерные массивы вообще задачи не умею решать, так что строго не судите

 Отправлено: 30.05.07 23:49. Заголовок: Re:

первая:

 Sub Primer4() 
 Dim a(5, 5) As Single, m As Integer, n As Integer, p As Integer, f as integer 
 For m = 1 To 5 
  For n = 1 To 5 
     a(m, n) = Cells(m, n) 
  Next n 
 Next m 
 povtor: 
 for m = 1 to 5 
  for n = 1 to 5 
     p = a(m, n) 
     if a(m, n) < a(m, n + 1) Then 
      a(m, n) = a(m, n + 1) 
      a(m, n + 1) = p 
      f=1 
     else f=0 
     End If 
  Next n 
 Next m 
  if f=1 then goto povtor 
 For m = 1 To 5 
  For n =1 to 5 
     Cells(m, n) = a(m, n) 
  next n 
 next m 
 End Sub 

вторая:

 Sub Primer5() 
 n As Integer, m As Integer 
 Dim f As Single, nmin As Integer, min As Single 
 Dim a(5, 5) 
 Dim b(5) 
 //ВБА - Зло!! Ya ne ponimau zachem nuzhno opisyvat' kazhdyu peremennyu =/ 
 //тут нужно написать ввод массива 
 for n = 1 
  For m = 1 To 5 
      b(n) = b(n) + a(m , n) 
  Next i 
 next n 
 povtor: 
 for n=1 to 5 
     if b(n)<b(n+1) then  
      min=b(n) 
      nmin=n 
      f=1 
     else f=0 
     end if 
 next n 
 if f=1 then goto povtor 
  
 Cells(1, 7) = min 
 Cells(1, 6) = nmin 
 End Sub 

У меня нет ВБА, писал(переписывал) в браузере, поэтому не могу ни проверить, ни гарантировать работу.

 Отправлено: 31.05.07 01:10. Заголовок: Re:

ksandr, спасибо тебе большое, задачки правда не запускаются. =( Жалко, что у тебя VBA нету... Щас отпишу ошибки.

 Отправлено: 31.05.07 01:15. Заголовок: Re:

В первой задачке вот такая ошибка 'Run-time error 9 Subscript out of range' вот в этой строке:
If a(m, n) < a(m, n + 1) Then

Во второй то же самой, только в строке:
If a(m, n) < a(m, n + 1) Then

 Отправлено: 31.05.07 01:32. Заголовок: Re:

гм, попробуй тогда

     If a(m, n) < a(m, n + 1) Then a(m, n) = a(m, n + 1) : a(m, n + 1) = p : f=1 
      Else f=0  
      End If 

а вторую по аналогии

 Отправлено: 31.05.07 01:39. Заголовок: Re:

первая ошибка исчезла, но появилась новая в этой строчке :
Else: f = 0 (Compile error: Else without If)

Сразу в двух примерах одно и то же =(

 Отправлено: 31.05.07 06:00. Заголовок: Re:

Drobogun пишет:

цитата:

Else: f = 0 (Compile error: Else without If)

Естественно. Написано же не правильно! После Else никакого двоеточия быть не может!!!
Это же VBA! двоеточие ставится только в метках.
Существует несколько способов задания условия на VBA:

If (выражение) Then (выражение) Else (выражение)

То есть записываешь все в одну строчку. В этом случае запись "End If" не нужна.
Или

If (выражение) Then 
 (выражение) 
 Else 
 (выражение) 
 End If

Выбирай любой, и никакие лишние двоеточия автоматически появляться не будут!

 Отправлено: 02.02.08 10:08. Заголовок: 46. Задать массив А(..

46. Задать массив А(N), N = К + М. Элементы массива с индексом от 0 до К – четные члены натурального ряда (2, 4, 6...), остальные нечетные. Най-ти сумму и произведение элементов массива.

Помогите пожалуйста

 Отправлено: 02.02.08 10:45. Заголовок: Inlive Интересная за..

Inlive Интересная задачка... Я подумаю. Тебе к какому сроку нужно?
PS разве учеба не закончилась?

 Отправлено: 03.02.08 18:20. Заголовок: мне к марту, я на за..

мне к марту, я на заочке учусь

 Отправлено: 03.02.08 21:40. Заголовок: Inlive чисто техни..

Inlive

чисто технический вопрос, на каком языке писать то?

 Отправлено: 24.04.08 07:04. Заголовок: VBA ..

VBA

 Отправлено: 24.04.08 10:15. Заголовок: Gizmo (11:05:07 24/..

 Отправлено: 24.04.08 12:54. Заголовок: 57. Sub zad57() Dim ..

57. 
 Sub zad57() 
 Dim a(5, 6) 
 For i = 1 To 5 
 For j = 1 To 6 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 SPol = 0 
 SOtr = 0 
 For j = 1 To 6 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 SPol = SPol + a(i, j) 
 Else 
 SOtr = SOtr + a(i, j) 
 End If 
 Next i 
 Cells(7, j) = SPol 
 Cells(8, j) = SOtr 
 SPol = 0 
 SOtr = 0 
 Next j 
 End Sub 
  
  
  
 77.  
 Sub zad77() 
 Dim a(5, 6) 
 For i = 1 To 5 
 For j = 1 To 6 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 For j = 1 To 6 
 Cells(7, j) = Cells(1, j) 
 Next j 
 For j = 1 To 6 
 For i = 1 To 5 
 mx = Cells(7, j) 
 If a(i, j) > mx Then 
 Cells(7, j) = Cells(i, j) 
 End If 
 Next i 
 Next j 
 End Sub 
  
 87.  
 Sub zad87() 
 Dim a(5, 6) 
 For i = 1 To 5 
 For j = 1 To 6 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 SPol = 0 
 PrOtr = 1 
 For j = 1 To 6 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 SPol = SPol + a(i, j) 
 Else 
 PrOtr = PrOtr * a(i, j) 
 End If 
 Next i 
 Cells(7, j) = SPol 
 Cells(8, j) = PrOtr 
 SPol = 0 
 PrOtr = 1 
 Next j 
 End Sub

Остальные выкладывать не буду из своих корыстных соображений.

 Отправлено: 28.04.08 17:01. Заголовок: спасибо, но эти зада..

спасибо, но эти задачки я уже сделал, а вот 67, 97 и 46 не получаются

 Отправлено: 18.09.08 22:07. Заголовок: Dea_r Помогите вот ..

Dea_r
Помогите вот с этими задачками на VBA. Буду очень благодарен=),

13. Ввести массив А(N). Разделить его на два массива. Первый из элементов А(N) с четными индексами, второй - с нечетными. вывести на печать исходный и вновь образованный массивы
23. Вывести массив А(N). Первые пять элементов умножить на 2, вторые пять на 3, остальным присвоить значения равные нулю. Вывести на печать исходный и преобразованный массивы
33. Заполнить массив числами натурального ряда (1,2...) до тех пор пока их сумма не станет больше наперед заданного числа М. Вывести на печать сумму и число элементов массива.
43.Задать массив А(N), элементы которого являются членами ряда A(i)=I^2 не большими наперед заданного числа М>=1000. Найти среднее значение элементов массива и их сумму.
53. Ввести массив А(N). Найти максимальное и минимальное значение четных элементов массива.
73.Ввести массив А(N,M). Найти минимальные элементы каждой строки и записать их в отдельный массив.
18 -5 21 -1 21
-23 -32 6 10 20
А = 47 26 -23 14 -2 матрица для массива А(N,М)
36 -6 -4 34 81
17 41 42 -28 -35
83. Определить колличество положительных и отрицательных элементов в каждом столбце массива А(N,M).
93. Ввести массив А(N,N). Образовать массив В(N,N), в котором 3-й столбец массива равна сумме 1-й и 2-й строк массива А(N,N). Остальные строки оставить без изменений

 Отправлено: 18.09.08 22:09. Заголовок: ze_best_kaban они ле..

ze_best_kaban они легкие. Попробуй сперва самостоятельно. Не получится - объясню.

 Отправлено: 19.09.08 22:27. Заголовок: Dea_r Помоги пожалу..

Dea_r
Я понимаю конечно что они для тебя легкие просто я восстановился после армии сейчас в институт и мне дали эту досдачу по информатике сейчас я вообще ни че не могу понять первую задачу я еле еле сделал. Помоги решить или объясни хотя бы как их решать.

 Отправлено: 20.09.08 10:16. Заголовок: ze_best_kaban И в ка..

ze_best_kaban И в какое время ты это должен сделать?