Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите бедному студенту, хелп ми 
:(
    Опции темы
бедный студент
Дата 15.10.2004, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.10.2004

Репутация: нет
Всего: нет
здравствуйте ЛЮДИ Добрые! помогите пожалуйста !!!!!! ))))) мне после завтра две контрольных сдавать а я не шиша не понимаю
1.1 Строки. Решить следующую задачу
Заданна строка символов. Группы символов, разделённые пробелом и не содержащие пробелов внутри себя, будем называть словами. Удалить из каждого слова строки все последующие вхождения его первой буквы.
1.2 Одномерные массивы. Решить следующую задачу.
Дана последовательность а1,а2,...,а100. Расположить не нулевые элементы последовательности по убыванию; остальные элементы оставить на своих местах.
2.1 Двумерные массивы решить следующую задачу .
Дана матрица А(3,5). Если Сумма всех элементов Матрицы больше 0, то у первого элемента этой матрицы заменить знак на противо положный.
2.2 Записи. Решить Задачу. Рассматривать не менее 10 записей .
Дан список группы с оценками экзаменационной сессии. Подсчитать количество отличников в группе и в поле "имеется задолжность" студентам, имеющим двойки напечатать "да" а остальным "нет".

Кто-нибудь чем ни-будь пожалуйста !!!! Так не охота пару получать стипендии лешаться!!!!!!!!!!!
Ну хотя бы одну ! вторую !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Я вас очень прошу
если есть конечно способные люди
PM MAIL   Вверх
cardinal
Дата 15.10.2004, 01:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99
Во-первых:
Название темы должно отражать ее суть!

Я решу самую простую задачу, а то спать пора smile.gif
Задача 2.1
Код
Option Explicit

Private Sub Command1_Click()
Dim massiv(1 To 3, 1 To 5) As Integer ' матрица
Dim summa As Double ' сумма элемнтов матрицы
Dim i As Integer ' счетчик
Dim j As Integer ' счетчик

' заполняем матрицу какими-нибудь значениями
massiv(1, 1) = -15
massiv(1, 2) = 2
massiv(1, 3) = 13
massiv(1, 4) = 4
massiv(1, 5) = 5
massiv(2, 1) = 6
massiv(2, 2) = 7
massiv(2, 3) = 8
massiv(2, 4) = 9
massiv(2, 5) = 10
massiv(3, 1) = 11
massiv(3, 2) = 12
massiv(3, 3) = 3
massiv(3, 4) = 14
massiv(3, 5) = 1

' считаем сумму элементов матрицы
For i = 1 To 3
   For j = 1 To 5
       summa = summa + massiv(i, j)
   Next
Next

If summa > 0 Then massiv(1, 1) = -massiv(1, 1) ' Если Сумма всех элементов Матрицы больше 0, то ...

End Sub

Цитата
если есть конечно способные люди

Обижаешь. Тут (на форуме) способных людей столько, что ты и представить не можешь smile.gif


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
~FoX~
Дата 15.10.2004, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: нет
Всего: 68
1.1
Код

Private Sub Command1_Click()
Dim s, ds As String
Dim sar() As String
Dim i, j, k As Integer
Dim result As String

s = "пример работы команды сплит"
sar = Split(s)

For i = 0 To UBound(sar)
 For k = 0 To Len(sar(i))
    ds = Left(sar(i), 1)
    j = InStr(1, s, ds)
    On Error Resume Next
    s = Left(s, j - 1) + Mid(s, j + 1, Len(s))
 Next k
Next i
result = s
End Sub


Коментарии писать в ламы - разбирайся сам!
Хотя этот код не очень красив, но зато работает biggrin.gif


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
~FoX~
Дата 15.10.2004, 09:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: нет
Всего: 68
2.2

код модуля
Код

Public Type RecorOfLern
 FIO As String 'Фамилия Имя Отчество
 Oc As Integer ' Оценка
 Dolg As String ' Есть ли долг
End Type


код программы

Код

Dim MyRecord(1 To 10) As RecorOfLern

Private Sub Command1_Click()' Заполняем записи
   MyRecord(1).FIO = "Petrov"
   MyRecord(1).Oc = 1
   MyRecord(2).FIO = "Cidorov"
   MyRecord(2).Oc = 3
   MyRecord(3).FIO = "Ivanow2"
   MyRecord(3).Oc = 5
   MyRecord(4).FIO = "Petrov2"
   MyRecord(4).Oc = 2
   MyRecord(5).FIO = "Cidorov2"
   MyRecord(5).Oc = 3
   MyRecord(6).FIO = "Ivanow3"
   MyRecord(6).Oc = 4
   MyRecord(7).FIO = "Petrov3"
   MyRecord(7).Oc = 1
   MyRecord(8).FIO = "Cidorov3"
   MyRecord(8).Oc = 5
   MyRecord(9).FIO = "Ivanow4"
   MyRecord(9).Oc = 5
   MyRecord(10).FIO = "Petrov3"
   MyRecord(10).Oc = 4
End Sub

Private Sub Command2_Click()'считаем
Dim otlich, i As Integer'кол-во отличников

otlich = 0
For i = 1 To 10 ' проставляем Да/Нет
 If MyRecord(i).Oc = 5 Then
   otlich = otlich + 1
   MyRecord(i).Dolg = "Нет"
 ElseIf MyRecord(i).Oc <= 2 Then
   MyRecord(i).Dolg = "Да"
 Else
   MyRecord(i).Dolg = "Нет"
 End If
 
Next i

End Sub

Через пару часов 1.2 напишу

biggrin.gif Студент - с тебя пиво biggrin.gif

Это сообщение отредактировал(а) ~FoX~ - 15.10.2004, 09:08


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
~FoX~
Дата 15.10.2004, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: нет
Всего: 68
Код

Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim i, k As Integer
Dim tmp As Integer

'====Заполняем массив=====
Randomize Timer
For i = 1 To 100
 a(i) = Rnd * 20
Next i

'====Сортируем методом пузырька====

For i = 1 To 99
 For k = i To 100
   If (a(i) <> 0) And (a(k) <> 0) Then
     If a(i) < a(k) Then
       tmp = a(i)
       a(i) = a(k)
       a(k) = tmp
     End If
  End If
 Next k
Next i
End Sub


По моему так, но стоит проверить hehe.gif

К стати пиво можно денежным переводом прислать biggrin.gif tounge.gif tounge.gif


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
бедный студент
Дата 15.10.2004, 09:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.10.2004

Репутация: нет
Всего: нет
cardinal ~FoX~
спасибо !!!!!!!!!!
вы лучшие !!! !!!!
вашими стараниями !!!!!!!
А еще мне на http://bbs.vbstreets.ru/ помогли спасибочки !!!!
~FoX~
а последняя это 1.2 я понимаю ???
PM MAIL   Вверх
~FoX~
Дата 15.10.2004, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: нет
Всего: 68
бедный студентyes


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Ivushka
Дата 26.4.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 121
Регистрация: 28.10.2005
Где: Москва

Репутация: нет
Всего: 2
Народ помогите плизззззз!!!
не могу разобраться как сделать замену символа....

очень надо поменять одинарные кавычки на двойные....
 
--------------------
Программист - это диагноз!
PM MAIL ICQ   Вверх
boevik
Дата 26.4.2006, 19:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: нет
Всего: 35
replace str, """, "'"
 

Это сообщение отредактировал(а) boevik - 26.4.2006, 19:43


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Ivushka
Дата 27.4.2006, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 121
Регистрация: 28.10.2005
Где: Москва

Репутация: нет
Всего: 2
boevik, спасибо) 
--------------------
Программист - это диагноз!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0987 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.