Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: задчаи.очень надо. дам на пиво за решение. Добавлено: 23.05.06 22:00  

Автор вопроса:  someone | Web-сайт: 123
есть задачи. помогите сделать, плиз!
дам на пиво! очень срочно. сделайте, не западло! я же не прохожий, за все 2 года ни разу такого не просил.. плиз

Ответить

  Ответы Всего ответов: 11  

Номер ответа: 1
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #1
Добавлено: 23.05.06 22:13
Даны: натуральное число n , символы S(1),...,S(n). Подсчитать, сколько раз среди данных символов встречается буква
х. (Строковый вариант: дана строка символов.Подсчитать, сколько раз среди символов строки встречается буква х)

Ответить

Номер ответа: 2
Автор ответа:
 [root]



Вопросов: 45
Ответов: 1212
 Web-сайт: bit.pirit.info
 Профиль | | #2
Добавлено: 23.05.06 22:14
Дык а чего условия то не выложил?

Ответить

Номер ответа: 3
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #3
Добавлено: 23.05.06 22:18
 1.Задача. Дана действительная матрица m x n. Определить числа
b(1),...b(m), равные соответственно суммам элементов строк.
2.Задача. Даны: натуральное число n , символы S(1),...,Sn.
Подсчитать, сколько раз среди данных символов встречается буква х.
(Строковый вариант: дана строка символов.Подсчитать, сколько раз среди
символов строки встречается буква х)

Ответить

Номер ответа: 4
Автор ответа:
 [root]



Вопросов: 45
Ответов: 1212
 Web-сайт: bit.pirit.info
 Профиль | | #4
Добавлено: 23.05.06 22:29
Option Explicit
Dim strA As String
Dim strB As String
Dim I As Byte
Dim N As Byte

Private Sub Command1_Click()
strA = InputBox("Введите текст", "Ввод текста";)
Do While I < Len(strA)
    I = I + 1
    strB = Mid(strA, I, 1)
    If strB = "а" Then N = N + 1
Loop
Print "Количество букв а в тексте равно"; N
End Sub


Ответить

Номер ответа: 5
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #5
Добавлено: 23.05.06 22:33
Спасибо! О награде на e-mail напишу...

Ответить

Номер ответа: 6
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #6 Добавлено: 24.05.06 11:19
У меня есть примеры решения этих задач, правда они под DirectX 9.0c и работают только c DOS. Если надо - могу выслать (весят примерно 4кг, ящик 2x5x5 см, фиолетового цвета).

Ответить

Номер ответа: 7
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #7 Добавлено: 24.05.06 12:37
LOL )))))))))

Empro, задачи детский сад, чё не сам?

Ответить

Номер ответа: 8
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #8 Добавлено: 24.05.06 12:41
Ему просто пиво одному пить скучно. Вот и угощает, хотя бы виртуально, по мылу :) Так сказать, в духе времени (и VBNET).

Ответить

Номер ответа: 9
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #9
Добавлено: 24.05.06 14:39
Самому западло, тк надо не мне...

Ответить

Номер ответа: 10
Автор ответа:
 [root]



Вопросов: 45
Ответов: 1212
 Web-сайт: bit.pirit.info
 Профиль | | #10
Добавлено: 24.05.06 19:33
вот это ты красавеЦ!!

Ответить

Номер ответа: 11
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #11 Добавлено: 25.05.06 08:02
Гы... Я племяннику задал. ( 6 лет ). Минут за 10 написал.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам