Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.118.30.253] |
|
Сообщ.
#1
,
|
|
|
Привет! Я первый раз на форуме. Надеюсь на вашу помощь. VB не сильна, помогите решить задачки плиз
1. Дано целое число N и последовательность чисел А1,А2,А3…АN. Получить удвоенную сумму положительных элементов последовательности. Dim N As Integer Dim A As Integer Dim P As Integer Dim Ot As Integer Private Sub Command1_Click() N = Text1.Text ReDim A(1 To N) /// Здесь он выдает ошибку что «ожидается массив» как это исправить???или как написать по другому?? For i = 1 To N A(i) = Text2.Text Next i For i = 2 To N If A(i) < 0 Then Ot = Ot * 3 If A(i) > 0 Then P = P * 2 Next i Text3.Text = P Text4.Text = Ot End Sub 2.Дана символьная строка. Преобразовать строку, заменив в ней каждое вхождение «это» на сочетание «то». Определить количество таких замен. 3. Построить график функции в полярной системе координат R= 1+cos(t) 0<=t<2П 4. Дано натуральное N и квадратная матрица размером NxN. Вычислить разность максимального наддиагональных элементов и минимального из поддиагональных элементов. 5. Дана действительная матрица размером MxN. Определить числа В1,В2,…,ВМ, равные наименьшим из положительных значений элементов строк. 6.Дан файл, компонентами которого являются целые числа. Организовать два дополнительных файла, переписав в один из них все четные числа исходного файла, а в другой – нечетные. 7. В файле содержаться следующие сведения о студентах некоторой группы: фамилия, оценки за N экзаменов. Напечатать фамилии тех студентов, котолрые имеют хотя бы одну задолжность. |
Сообщ.
#2
,
|
|
|
1. Вместо Dim A As Integer Dim A() As Integer
а остальные надо писать (нет времени). но, я думаю, наши лихие хлопцы быстренько сварганят ответы |
Сообщ.
#3
,
|
|
|
Цитата Вероника @ Привет! Я первый раз на форуме. это видно один вопрос - один пост да и название темы должно быть информативным |
Сообщ.
#4
,
|
|
|
+ пользуйся поиском по ветке - здесь каждую сессию такие темы открываются
|