Проблемы с решением задач / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с решением задач

93 сообщений из 93, показаны все 4 страниц

все

Проблемы с решением задач

#37792146

nordst

Гость

Добрый день уважаемые программисты, обращаюсь к Вам с просьбой помочь решить мне несколько задач, задачи легче простого (но конечно не для меня), программирование в ВБ это далеко не профильный мой предмет, даже больше, информатика мой не профильный предмет, но не повезло с преподавателем. Так вот, если есть у вас время и желание помочь, буду премного благодарен. В плане оплаты труда, электронных денег нет, в моем городе никакие банки с электронными деньгами не работают, как иначе можно отблагодарить я не знаю, скажу спасибо от всей души. Но это если есть желание помочь, я не настаиваю.
Вот сами задачи:
1) Используя условный оператора if…then…else или if…then…elseif, разработайте проект для решения
На плоскости заданы три точки своими координатами. Определить, какая из них расположена ближе к началу координат.
2) Используя цикл For...Next, выполните
3) Разработайте программу для вычисления суммы ряда
cos2x+cos4x/2+cos6x/3+...+cosnx/n
n вводится с клавиатуры
4) Составить программу для обработки данных во время ввода.
В области n районов. Известны количество жителей (в тыс. чел.) и площадь (в км2) каждого района. Определить среднюю плотность населения по области в целом.
5) Дано натуральное число. Найти порядковый номер его минимальной цифры, считая номера от начала числа.
6) Дано натуральное число. Определить, является ли оно членом последовательности Фибоначчи. Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1, 2, 3, 5, 8, 13, …).

Буду премного благодарен, спасибо за внимание этом посту

...

Рейтинг:

0 / 0

13.05.2012, 16:26

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37792148

Эникейщик

Участник

Сообщения: 215

Рейтинг: 0 / 0

тынц

...

Рейтинг:

0 / 0

13.05.2012, 16:30

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37792160

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

nordst,

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

...

Рейтинг:

0 / 0

13.05.2012, 16:53

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793534

nordst

Гость

BelowZero,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
d1 = Sqr(ax ^ 2 + ay ^ 2)
d2 = Sqr(bx ^ 2 + by ^ 2)
d3 = Sqr(cx ^ 2 + cy ^ 2)
If (d1 < d2) And (d1 < d3) Then
Print ("точка А")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("точка В")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("точка С")
End If
End If
End If
End Sub

я думал так, но после нажатии на кнопку ничего не происходит
Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

14.05.2012, 16:40

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793539

nordst

Гость

BelowZeronordst,

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

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

Эникейщик тынц

я читал

...

Рейтинг:

0 / 0

14.05.2012, 16:42

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793546

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstно после нажатии на кнопку ничего не происходитничего не происходит, потому что ни одно условие не выполняется. то есть все переменные равны между собой, а такого условия у вас не предусмотрено.

...

Рейтинг:

0 / 0

14.05.2012, 16:44

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793560

nordst

Гость

Shocker.Pronordstно после нажатии на кнопку ничего не происходитничего не происходит, потому что ни одно условие не выполняется. то есть все переменные равны между собой, а такого условия у вас не предусмотрено.
подскажите пожалуйста как сделать чтобы выполнялось?

...

Рейтинг:

0 / 0

14.05.2012, 16:54

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793577

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstподскажите пожалуйста как сделать чтобы выполнялось?из условий задачи неясно, как надо поступать с равноудаленными точками.

...

Рейтинг:

0 / 0

14.05.2012, 17:07

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793595

nordst

Гость

Shocker.Pronordstподскажите пожалуйста как сделать чтобы выполнялось?из условий задачи неясно, как надо поступать с равноудаленными точками.
может дописать ещё

Код: vbnet

1.
2.
3.

If d1 = d2 = d3 Then
Print ("одинаково")
End If

хотя все равно ничего не происходит

...

Рейтинг:

0 / 0

14.05.2012, 17:17

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793607

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstхотя все равно ничего не происходипотому что условия написано неправильно, сравните, вот вы(?) написали проверку двух условий одновременно:

Код: vbnet

If (d2 < d3) And (d2 < d1) Then

и вот тут же вы пишете иначе

Код: vbnet

If d1 = d2 = d3 Then 'неверно

...

Рейтинг:

0 / 0

14.05.2012, 17:24

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793638

QValD

Участник

Сообщения: 174

Рейтинг: 0 / 0

nordst,

че-то не видно, как у вас задаются координаты ax,ay и т.д.

...

Рейтинг:

0 / 0

14.05.2012, 17:48

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793649

nordst

Гость

QValDnordst,

че-то не видно, как у вас задаются координаты ax,ay и т.д.
они задаются на форме в текстбоксе

...

Рейтинг:

0 / 0

14.05.2012, 17:55

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793653

nordst

Гость

Shocker.Pro,

Код: vbnet

If d1 = d2 = d3 Then 'неверно

нет все таки это не нужно

...

Рейтинг:

0 / 0

14.05.2012, 17:57

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793656

QValD

Участник

Сообщения: 174

Рейтинг: 0 / 0

nordstQValDnordst,

че-то не видно, как у вас задаются координаты ax,ay и т.д.
они задаются на форме в текстбоксе
а в коде это где прописано?

...

Рейтинг:

0 / 0

14.05.2012, 17:58

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793682

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

nordstQValDnordst,

че-то не видно, как у вас задаются координаты ax,ay и т.д.
они задаются на форме в текстбоксеЧто-то не видно, как они из текстбоксов присваиваются переменным.

...

Рейтинг:

0 / 0

14.05.2012, 18:20

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793688

nordst

Гость

AntonariyЧто-то не видно, как они из текстбоксов присваиваются переменным.
QValDа в коде это где прописано?

хотел бы ответить что не знаю, но боюсь после этого Вы вобще не будете заходить в этот топик

...

Рейтинг:

0 / 0

14.05.2012, 18:26

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793691

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstхотел бы ответить что не знаю, но боюсь после этого Вы вобще не будете заходить в этот топикначнем с того, вы понимаете, что написано в этом коде, который вы привели? Или вы его где-то скопипастили, что бы показать, что вы якобы что-то сделали сами?

...

Рейтинг:

0 / 0

14.05.2012, 18:28

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793713

nordst

Гость

Shocker.Pro,

не все, но понимаю

...

Рейтинг:

0 / 0

14.05.2012, 18:42

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793749

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstне всеТак может начать с того, чтобы разобраться в этом коде? Он, по идее, правильный только там нет, собственно ввода исходных данных и не предусмотрена ситуация, что две или все три расстояния могут быть равны. К примеру, чему конкретно будет равна переменная d1 после запуска вашего кода?

Код: vbnet

d1 = Sqr(ax ^ 2 + ay ^ 2)

...

Рейтинг:

0 / 0

14.05.2012, 19:08

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793763

QValD

Участник

Сообщения: 174

Рейтинг: 0 / 0

nordstAntonariyЧто-то не видно, как они из текстбоксов присваиваются переменным.
QValDа в коде это где прописано?

хотел бы ответить что не знаю, но боюсь после этого Вы вобще не будете заходить в этот топик
Текстбоксы - это объекты,
переменные ax,bx и т.д. - это локальные переменные.
Переменным нужно присвоить значение( в данном случае значение свойст текстбоксов):
ax = TextboxName.text

...

Рейтинг:

0 / 0

14.05.2012, 19:19

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793767

nordst

Гость

Shocker.Pronordstне всеТак может начать с того, чтобы разобраться в этом коде? Он, по идее, правильный только там нет, собственно ввода исходных данных и не предусмотрена ситуация, что две или все три расстояния могут быть равны. К примеру, чему конкретно будет равна переменная d1 после запуска вашего кода?

Код: vbnet

d1 = Sqr(ax ^ 2 + ay ^ 2)

должна быть равна числу, потом сравнивая числа мне покажет какая точка ближе к (0, 0)

...

Рейтинг:

0 / 0

14.05.2012, 19:22

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793769

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Я ведь задал конкретный вопрос, я не спрашивал, что будет дальше. Итак, чему конкретно будет равна конкретно эта переменная?

...

Рейтинг:

0 / 0

14.05.2012, 19:23

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793812

nordst

Гость

Shocker.ProЯ ведь задал конкретный вопрос, я не спрашивал, что будет дальше. Итак, чему конкретно будет равна конкретно эта переменная?
не знаю я формулу скопировал

...

Рейтинг:

0 / 0

14.05.2012, 20:12

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793826

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstне знаю я формулу скопировалтеорему пифагора не проходили? Подсказываю - знак "^" - возведение в степень, SQR - квадратный корень.

...

Рейтинг:

0 / 0

14.05.2012, 20:23

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793900

nordst

Гость

Shocker.Pronordstне знаю я формулу скопировалтеорему пифагора не проходили? Подсказываю - знак "^" - возведение в степень, SQR - квадратный корень.
это проходили, и d1 будет равно в зависимости от координат которые будут введены, если ax и ay соответственно равны 1 и 2, то d1 будет равно корень из пяти

...

Рейтинг:

0 / 0

14.05.2012, 21:37

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793906

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
d1 = Sqr(ax ^ 2 + ay ^ 2)
d2 = Sqr(bx ^ 2 + by ^ 2)
d3 = Sqr(cx ^ 2 + cy ^ 2)
If (d1 < d2) And (d1 < d3) Then
Print ("точка А")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("точка В")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("точка С")
else
If d1 = d2 and d1 = d3 Then
Print ("все три точки равноудалены от центра координат")
else
If d1 = d2 Then Print ("1 и 2 точки равноудалены")
If d1 = d3 Then Print ("1 и 3 точки равноудалены")
If d2 = d3 Then Print ("2 и 3 точки равноудалены")
End If
End If
End If
End If
End Sub

...

Рейтинг:

0 / 0

14.05.2012, 21:41

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793920

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstесли ax и ay соответственно равны 1 и 2а вот мы дошли и до главного, а в каком случае ax и ay будут равны 1 и 2? Укажите ту строку, которая за это отвечает

...

Рейтинг:

0 / 0

14.05.2012, 21:53

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793944

nordst

Гость

Shocker.Pro,

ну если я их введу 1 и 2, или не то?

BelowZero,
спасибо большое, дай бог тебе здоровья =)
но до конца не работает, но это думаю сам додумаю

...

Рейтинг:

0 / 0

14.05.2012, 22:06

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793961

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

Shocker.Proа вот мы дошли и до главноготут единичный случай, врят ли афффтар топика решит неожиданно увлечься программированием, поэтому проще выдать челу положенную порцию рыбы.nordst но до конца не работает, но это думаю сам додумаю т.е. не работает? что именно не работает? пиши - исправим

...

Рейтинг:

0 / 0

14.05.2012, 22:24

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793978

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstну если я их введу 1 и 2, или не то?куда?BelowZeroтут единичный случай, врят ли афффтар топика решит неожиданно увлечься программированием, поэтому проще выдать челу положенную порцию рыбы.ну так выдай тогда, что ходишь вокруг да около и кота тянешь. Только выдавай рабочий проверенный вариант, а не как обычно.

...

Рейтинг:

0 / 0

14.05.2012, 22:43

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793984

nordst

Гость

BelowZero,

когда ввожу любые координаты мне все равно пишет "все три точки равноудалены от центра координат", при любых координатах
но все равно спасибо

BelowZeroтут единичный случай, врят ли афффтар топика решит неожиданно увлечься программированием

наверное Вы правы
Shocker.Proкуда?

в текстбокс на форме

...

Рейтинг:

0 / 0

14.05.2012, 22:53

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793996

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstShocker.Proкуда?в текстбокс на формеа где текстбокс в вашей формуле?

Код: vbnet

d1 = Sqr(ax ^ 2 + ay ^ 2)

...

Рейтинг:

0 / 0

14.05.2012, 23:07

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37793999

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

nordstкогда ввожу любые координаты мне все равно пишет "все три точки равноудалены от центра координат", при любых координатахпотому что при твоём вводе данныхShocker.Proни одно условие не выполняется. то есть все переменные равны между собой, а такого условия у вас не предусмотрено.
не проверял, но должно работать

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

Option Explicit
Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
ax = InputBox("введите координаты х первой точки", "")
ay = InputBox("введите координаты у первой точки", "")
bx = InputBox("введите координаты х второй точки", "")
by = InputBox("введите координаты у второй точки", "")
cx = InputBox("введите координаты х третьей точки", "")
cy = InputBox("введите координаты у третьей точки", "")
d1 = Sqr(ax ^ 2 + ay ^ 2)
d2 = Sqr(bx ^ 2 + by ^ 2)
d3 = Sqr(cx ^ 2 + cy ^ 2)
If (d1 < d2) And (d1 < d3) Then
Print ("первая точка")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("вторая точка")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("третья точка")
Else
If d1 = d2 And d1 = d3 Then
Print ("все три точки равноудалены от центра координат")
Else
If d1 = d2 Then Print ("1 и 2 точки равноудалены")
If d1 = d3 Then Print ("1 и 3 точки равноудалены")
If d2 = d3 Then Print ("2 и 3 точки равноудалены")
End If
End If
End If
End If
End Sub

...

Рейтинг:

0 / 0

14.05.2012, 23:12

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794002

скукотища

Гость

> BelowZero
> не проверял, но должно работать

А стоило бы проверить.

Код: vbnet

1.
2.
3.
4.
5.
6.

Sub test()
  Dim x As Integer

  x = Sqr(5)
  Debug.Print x, Sqr(5)
End Sub

...

Рейтинг:

0 / 0

14.05.2012, 23:17

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794003

nordst

Гость

BelowZero,

работает, ещё раз огромное спасибо

...

Рейтинг:

0 / 0

14.05.2012, 23:17

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794005

nordst

Гость

Shocker.Proа где текстбокс в вашей формуле?

видимо нету, но про введение координат из формы, это было мое видение решения, но так как написал BelowZero тоже устроит проверяющих

...

Рейтинг:

0 / 0

14.05.2012, 23:19

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794018

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

скукотищаА стоило бы проверить.ну Белов у нас не настолько приземлен, чтобы изучать какие-то там типы данных.

...

Рейтинг:

0 / 0

14.05.2012, 23:45

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794024

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

скукотища> BelowZero
> не проверял, но должно работать

А стоило бы проверить.

Код: vbnet

1.
2.
3.
4.
5.
6.

Sub test()
  Dim x As Integer

  x = Sqr(5)
  Debug.Print x, Sqr(5)
End Sub

сейчас нет доступа к компу, сплю, потому не могу проверить, в чем ошибка. видимо, в присвоении переменной иррационального числа. ща попробую с телефона подправить код)

...

Рейтинг:

0 / 0

14.05.2012, 23:56

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794030

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

Option Explicit
Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
ax = InputBox("введите координаты х первой точки", "")
ay = InputBox("введите координаты у первой точки", "")
bx = InputBox("введите координаты х второй точки", "")
by = InputBox("введите координаты у второй точки", "")
cx = InputBox("введите координаты х третьей точки", "")
cy = InputBox("введите координаты у третьей точки", "")
d1 = ax ^ 2 + ay ^ 2
d2 = bx ^ 2 + by ^ 2
d3 = cx ^ 2 + cy ^ 2
If (d1 < d2) And (d1 < d3) Then
Print ("первая точка")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("вторая точка")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("третья точка")
Else
If d1 = d2 And d1 = d3 Then
Print ("все три точки равноудалены от центра координат")
Else
If d1 = d2 Then Print ("1 и 2 точки равноудалены")
If d1 = d3 Then Print ("1 и 3 точки равноудалены")
If d2 = d3 Then Print ("2 и 3 точки равноудалены")
End If
End If
End If
End If
End Sub

...

Рейтинг:

0 / 0

15.05.2012, 00:03

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794064

MasterZiv

Участник

Откуда: Питер

Сообщения: 32 427

Рейтинг: 0 / 0

Эникейщик тынц

О! Можно я это себе в С++ скопиписчу ?
Достали эти стьюденты ужо... А тут так ясно, доходчиво, и вместе с тем мягко посылают...

...

Рейтинг:

0 / 0

15.05.2012, 01:15

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794068

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

MasterZivЭникейщик тынц

О! Можно я это себе в С++ скопиписчу ?
Достали эти стьюденты ужо... А тут так ясно, доходчиво, и вместе с тем мягко посылают...Нужно!
Shocker.Pro, в общем мы подумали и решили тебя сплагиатить.

...

Рейтинг:

0 / 0

15.05.2012, 01:32

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37794132

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

MasterZiv, White Owl, дык. не возражаю. Можете где-нить внизу маленькими серыми буквами копирайт прицепить, раз так смущаетесь. )

...

Рейтинг:

0 / 0

15.05.2012, 08:30

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797617

nordst

Гость

тему можно закрывать, задания сданы
всем ещё раз большое спасибо

...

Рейтинг:

0 / 0

16.05.2012, 18:14

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797622

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstтему можно закрывать, задания сданы
особенно интересует, как было сдано заданиеnordst2) Используя цикл For...Next, выполните

...

Рейтинг:

0 / 0

16.05.2012, 18:19

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797774

nordst

Гость

Shocker.Pro,

ну то задание я сделал первым поэтому не стал дописывать, а удалить забыл)

...

Рейтинг:

0 / 0

16.05.2012, 20:10

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797777

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

глубоко обидно за наши вузы(( как афффтару удалось сдать зачёт - для меня загадка. мне, конечно, не жалко дипломов, но всё это как-то печально

...

Рейтинг:

0 / 0

16.05.2012, 20:15

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797929

nordst

Гость

BelowZero,

не зачет, это 1 лабораторная
программирование не мой профильный предмет
я не в коем случае не отмазываюсь или что-то подобное, просто на выходе мне это программирование да ещё и в ВБ уверен не понадобится

...

Рейтинг:

0 / 0

16.05.2012, 23:12

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797935

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstмне это программирование да ещё и в ВБ уверен не понадобитсято же самое можно сказать про большинство предметов... Ты читал Дюма "Три Мушкетера"?

...

Рейтинг:

0 / 0

16.05.2012, 23:17

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797997

nordst

Гость

Shocker.Proто же самое можно сказать про большинство предметов... Ты читал Дюма "Три Мушкетера"?

ну не большинство, но процентов 30 точно не понадобится

зы. да читал ещё в школе

...

Рейтинг:

0 / 0

17.05.2012, 00:35

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797998

nordst

Гость

Ребят а скажите если не секрет, сколько вы бы попросили денег за решение этих задач которые в 1 посте?
они то по сути для вас легкими должны быть

...

Рейтинг:

0 / 0

17.05.2012, 00:36

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37797999

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstно процентов 30 точно не понадобитсяnordstда читал ещё в школену и расскажи, зачем читал? Это тебе понадобится в жизни?

...

Рейтинг:

0 / 0

17.05.2012, 00:37

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37798063

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

nordstсколько вы бы попросили денег за решение этих задач которые в 1 посте?
они то по сути для вас легкими должны бытьСтуденты столько не зарабатывают , поэтому Шокер опсолютно прав, говоря о том, что решения спецов будут приводиться только ради "отдыха от забот повседневных"... Понимаете, если человек зарабатывает от 500-1000 в час, или от трех-пяти в день (не по контракту!), а в выходные дни - со вкусом тратит "нажитое непосильным трудом", - то решение студенческих задач будет проходить даже не как хобби, а как альтруизм

...

Рейтинг:

0 / 0

17.05.2012, 02:28

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37798190

nordst

Гость

AndreTM,

=)
и тем не менее есть же какая-то цена?

...

Рейтинг:

0 / 0

17.05.2012, 09:18

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37798192

nordst

Гость

Shocker.Proну и расскажи, зачем читал? Это тебе понадобится в жизни?

ну тогда было интересно, книги читать полезно)

...

Рейтинг:

0 / 0

17.05.2012, 09:19

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37798200

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

nordstAndreTM,

=)
и тем не менее есть же какая-то цена? я бы сделал рублей за 400 все задания полным кодом(500 с объяснениями). я ещё даже не студент, с финансами туго)

...

Рейтинг:

0 / 0

17.05.2012, 09:25

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37798241

_nordst

Гость

BelowZero,

У тебя кишка тонка!

...

Рейтинг:

0 / 0

17.05.2012, 09:50

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37798534

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstкниги читать полезно)программирование изучать тоже полезно, это хорошо развивает логическое и формальное мышление и т.п.

...

Рейтинг:

0 / 0

17.05.2012, 11:59

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37799235

nordst

Гость

Shocker.Pro,

ну если это интересно)

...

Рейтинг:

0 / 0

17.05.2012, 15:32

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37810702

nordst

Гость

все таки я лохонулся с последним своим заданием
Ребята помогите пожалуйста
Дано натуральное число. Определить, является ли оно членом последовательности Фибоначчи. Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1, 2, 3, 5, 8, 13, …).

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Option Explicit
Dim A() As Integer
Dim k As Integer, n As Integer
Private Sub Command1_Click()
Dim i As Integer
k = InputBox("введите число")
ReDim A(1 To n)
A(1) = 1
A(2) = 1
For i = 3 To n
A(i) = A(i - 1) + A(i - 2)
Next
For i = 1 To n
If k = A(i) Then Print "входит в последовательность" Else Print "не входит в последовательность"
Next
End Sub

при компиляции ругается на redim
подскажите где ошибка?

...

Рейтинг:

0 / 0

24.05.2012, 23:19

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37810731

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

25.05.2012, 00:03

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37810738

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Массив в этой проге вообще на фиг не нужен.
Пассаж в конце:
не входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
улыбнул.

...

Рейтинг:

0 / 0

25.05.2012, 00:08

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37810741

nordst

Гость

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

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

...

Рейтинг:

0 / 0

25.05.2012, 00:11

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37810743

nordst

Гость

Shocker.ProМассив в этой проге вообще на фиг не нужен.
Пассаж в конце:
не входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
не входит в последовательность
улыбнул.
вот и у меня пару раз такое писало
через while я тоже где-то остановился и показалось через массив будет легче, ан нет

...

Рейтинг:

0 / 0

25.05.2012, 00:13

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37810746

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

nordstпри компиляции ругается на redimnordstу меня не появляется сообщения об ошибкеинтересно, а как тогда ругается, если не появляется сообщение об ошибке? устно матом из колонок?

nordstа на счет индексов не понял, разжуйте неучу пожалуйстачто конкретно по твоему делает команда:
ReDim A(1 To n)
?

...

Рейтинг:

0 / 0

25.05.2012, 00:20

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37812088

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

    K = Val(InputBox("Введите число:"))
    If K < 1 Then
        MsgBox K & " не является ЧЛЕНОМ"
    Else
        F1 = 0
        F2 = 1
        Do While F2 < K
            F2 = F1 + F2
            F1 = F2 - F1
        Loop
        If F2 = K Then
            MsgBox K & " является ЧЛЕНОМ"
        Else
            MsgBox K & " НЕ является ЧЛЕНОМ"
        End If
    End If

...

Рейтинг:

0 / 0

25.05.2012, 16:36

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37813575

nordst

Гость

AndreTM,

не подумайте что я не благодарный, пару дней не был дома
спасибо Вам большое за решение.

...

Рейтинг:

0 / 0

27.05.2012, 20:30

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37813590

nordst

Гость

AndreTM,

только код не работает)
ругается на F1
И ещё хотел поинтересоваться в Вашем коде F1 =0 F2=1, а в последовательности Фибоначи первые 2 члена равны 1

...

Рейтинг:

0 / 0

27.05.2012, 20:55

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37813645

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

nordst, запущенный случай...
F1 - это переменная
переменные нужно объявлять, чтобы и твоя прога понимала, что это переменная :Р
переменная объявляется сразу после Option Explicit примерно так: это глобальная переменная

Код: vbnet

dim переменная as long

числа объявляются as long
произвольный текст as string
вопросы (да\нет) as boolean остальное тебе врят ли пригодится
затрудняешься отличить букву от цифры - пиши просто

Код: vbnet

dim переменная

AndreTMИ ещё хотел поинтересоваться в Вашем коде F1 =0 F2=1, а в последовательности Фибоначи первые 2 члена равны 1 пробежался глазами - код верный. вникни в код, рассмотри каждую строчку, подумай, что в нём происходит. лень - просто скажи спасибо за помощь, копируй код и надейся на авось при зачёте

...

Рейтинг:

0 / 0

27.05.2012, 21:41

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37813658

nordst

Гость

BelowZero,

и вам тоже спасибо, я не программист но переменные я объявил)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Option Explicit
Dim k As Integer, F1 As Long, F2 As Long

Private Sub Command1_Click()
   k = Val(InputBox("Введите число:"))
    If k < 1 Then
        MsgBox k & " не является ЧЛЕНОМ"
    Else
        F1 = 0
        F2 = 1
        Do While F2 < k
            F2 = F1 + F2
            F1 = F2 - F1
        Loop
        If F2 = k Then
            MsgBox k & " является ЧЛЕНОМ"
        Else
            MsgBox k & " НЕ является ЧЛЕНОМ"
        End If
    End If
End Sub

и все равно ругается на F1

...

Рейтинг:

0 / 0

27.05.2012, 21:52

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37813662

nordst

Гость

ан нет, все работает
ещё раз ребят Вам большое спасибо

...

Рейтинг:

0 / 0

27.05.2012, 21:53

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828383

nordst

Гость

всем привет, нужна помощь гуру
задание следующего содержания
Вычислить сумму cos2x+((cos4x)/2)+((cos6x)/2)+...+((cos2nx)/n). Значение n вводится с клавиатуры.
я написал код

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub Command1_Click()
Dim n As Integer, k As Integer, y As Single, S As Single
n = InputBox("Введите n")
For k = 1 To n
y = (Cos(2 * k * y)) / k
S = S + y
Next
Text1.Text = S
End Sub

но он считает не правильно, большая просьба, исправьте пожалуйста что нет так

...

Рейтинг:

0 / 0

06.06.2012, 20:17

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828397

TpaBka

Участник

Сообщения: 564

Рейтинг: 0 / 0

x=1 ' ставь любое, в задании о нем не слова
For k = 1 To n
S = S + (Cos(2 * k * x)) / k
.
.
.

...

Рейтинг:

0 / 0

06.06.2012, 20:30

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828403

nordst

Гость

TpaBkax=1 ' ставь любое, в задании о нем не слова
For k = 1 To n
S = S + (Cos(2 * k * x)) / k
.
.
.

вроде работает, спасибо тебе большое

...

Рейтинг:

0 / 0

06.06.2012, 20:37

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828404

TpaBka

Участник

Сообщения: 564

Рейтинг: 0 / 0

пардон, наверно х = 0 по задумке препода
то есть вот это: x=1 лишнее

...

Рейтинг:

0 / 0

06.06.2012, 20:39

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828408

nordst

Гость

TpaBkaпардон, наверно х = 0 по задумке препода
то есть вот это: x=1 лишнее
Я написал так, что бы уж наверняка

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub Command1_Click()
Dim n As Integer, k As Integer, x As Integer
n = InputBox("Введите n")
x = InputBox("Введите x")
For k = 1 To n
S = S + (Cos(2 * k * x)) / k
Next
Text1.Text = S
End Sub

...

Рейтинг:

0 / 0

06.06.2012, 20:41

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828433

nordst

Гость

Если не затруднит, помогите ещё с одним заданием
Даны два натуральных числа. Выяснить, в каком из них первая цифра больше. (Определить функцию для нахождения первой цифры натурального числа.)
это я сделал, вот код

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Private Sub Command1_Click()
Dim n As Long, m As Long
    n = InputBox("Введите первое число")
    m = InputBox("Введите второе число")
    If (p(n) > p(m)) Then
        MsgBox ("В первом числе первая цифра больше")
    ElseIf (p(n) < p(m)) Then
        MsgBox ("Во втором числе первая цифра больше")
    Else
         MsgBox ("они равны")
    End If
End Sub
Private Function p(s As Long) As Long
    While s > 9
    s = s \ 10
    Wend
    p = s
End Function

теперь его надо модифицировать в
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше. (Определить функцию для нахождения суммы цифр натурального числа.)
если есть желание конечно, за ранее спасибо

...

Рейтинг:

0 / 0

06.06.2012, 21:08

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828460

BelowZeroTooCold

Участник

Сообщения: 142

Рейтинг: 0 / 0

nordst,

функцию не знаю. я бы сделал так

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

n = InputBox("Введите число")
dim x as long
dim symma as long
symma = 0
for x = 1 to len(n)
symma = symma + mid(n, x, 1)
next x

не проверял, но должно работать

...

Рейтинг:

0 / 0

06.06.2012, 21:29

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828461

TpaBka

Участник

Сообщения: 564

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.

натуральное_число1 = 123
For i = 1 To Len(натуральное_число1)
s = s + Val(Mid(натуральное_число1, i, 1))
Next
MsgBox s

...

Рейтинг:

0 / 0

06.06.2012, 21:29

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828463

nordst

Гость

TpaBka,
BelowZeroTooCold,

спасибо большое конечно, но я дуб в ВБ , и надо через функцию делать

...

Рейтинг:

0 / 0

06.06.2012, 21:34

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828467

BelowZeroTooCold

Участник

Сообщения: 142

Рейтинг: 0 / 0

nordstTpaBka,
BelowZeroTooCold,

спасибо большое конечно, но я дуб в ВБ , и надо через функцию делать len и mid - это как бэ функции...

...

Рейтинг:

0 / 0

06.06.2012, 21:37

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828473

TpaBka

Участник

Сообщения: 564

Рейтинг: 0 / 0

Private Function p(s As Long) As Long - это функция

...

Рейтинг:

0 / 0

06.06.2012, 21:44

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828477

nordst

Гость

TpaBkaPrivate Function p(s As Long) As Long - это функция

это понятно, но как применить ваш код в саму функцию, я не знаю

...

Рейтинг:

0 / 0

06.06.2012, 21:48

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828478

nordst

Гость

BelowZeroTooCold len и mid - это как бэ функции...

а как их применить в моем коде не подскажите?

...

Рейтинг:

0 / 0

06.06.2012, 21:48

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828486

BelowZeroTooCold

Участник

Сообщения: 142

Рейтинг: 0 / 0

nordstBelowZeroTooCold len и mid - это как бэ функции...

а как их применить в моем коде не подскажите?

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Function symma(s As Long) As Long
dim x as long
for x = 1 to len(n)
symma = symma + val(mid(s, x, 1))
next x
End Function

...

Рейтинг:

0 / 0

06.06.2012, 21:57

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828502

nordst

Гость

BelowZeroTooCold

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Function symma(s As Long) As Long
dim x as long
for x = 1 to len(n)
symma = symma + val(mid(s, x, 1))
next x
End Function

тут ещё дело в том что len и mid мы не проходили и не пройдем, у нас поверхностный курс ВБ
может есть вариант по проще какой-то?
мне надо если даны например первое число 123 второе 456 должен выполнить 1+2+3 и 4+5+6 и сравнить решения и вывести сумма цифр второго числа больше, как-то так
и даже если так как Вы пишите

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Private Sub Command1_Click()
Dim n As Long, m As Long
    n = InputBox("Введите первое число")
    m = InputBox("Введите второе число")
    If (p(n) > p(m)) Then
        MsgBox ("В первом числе сумма цифр больше")
    ElseIf (p(n) < p(m)) Then
        MsgBox ("Во втором числе сумма цифр больше")
    Else
         MsgBox ("они равны")
    End If
End Sub
Private Function p(s As Long) As Long
    Dim x As Long
For x = 1 To Len(n)
p = p + Val(Mid(s, x, 1))
Next x
End Function

программа все равно не правильно что-то делает

...

Рейтинг:

0 / 0

06.06.2012, 22:10

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828536

BelowZeroTooCold

Участник

Сообщения: 142

Рейтинг: 0 / 0

nordst,

For x = 1 To Len(n)

Код: vbnet

For x = 1 To Len(s)

nordstмы не проходили и не пройдем крепкий косячок, видать, был. жизнь пролетает как одно мгновение, да?)

...

Рейтинг:

0 / 0

06.06.2012, 22:30

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828568

nordst

Гость

BelowZeroTooColdnordst,

For x = 1 To Len(n)

Код: vbnet

For x = 1 To Len(s)

nordstмы не проходили и не пройдем крепкий косячок, видать, был. жизнь пролетает как одно мгновение, да?)

спасибо большое, работает
на счет косячка, на функции была 1 лекция, и там нет функций mid и len. Вы же наверняка изучаете ВБ давно поэтому знаете. Но все равно спасибо большое Вы очень помогли

...

Рейтинг:

0 / 0

06.06.2012, 23:25

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828765

nordst

Гость

Всем привет Помогите пожалуйста доработать код
само задание звучит так
В области n районов. Известны количество
жителей (в тыс. чел.) и площадь (в км2)
каждого района. Определить среднюю
плотность населения по области в целом.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

  Private Sub Command1_Click()
Dim n As Integer , i As Integer , x
As Integer , s As Single, k As
Integer , m As Integer
n = InputBox( "Ввести количество
районов" )
For k = 1 To n
x = InputBox( "ввести количество
жителей" )
i = InputBox( "ввести площадь" )
m = x / i
s = s + m
Next
Text1.Text = s
End Sub

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

...

Рейтинг:

0 / 0

07.06.2012, 08:30

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37828780

херегознает

Гость

nordst,

может как то так, посмотри

...

Рейтинг:

0 / 0

07.06.2012, 09:01

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37830155

nordst

Гость

херегознаетnordst,

может как то так, посмотри

извините не мог раньше ответить, да все верно, больше спасибо Вам

...

Рейтинг:

0 / 0

07.06.2012, 19:52

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37830252

nordst

Гость

Я наверно надоел Вам всем уже, но будьте добры помочь с решением задачи, надеюсь она последняя
Заменить первые k элементов массива на те же элементы в обратном порядке.
т.е. мне дан произвольный массив например -8 5 2 7 9 3 -4, k я ввожу с клавиатуры, например 3, программа должна выдать мне измененный массив 2 5 -8 7 9 3 -4

...

Рейтинг:

0 / 0

07.06.2012, 21:59

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37830346

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Что-то вроде этого:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

    k = Val(InputBox("Введите K (количество):"))
    If k < 1 Or k > n Then
        MsgBox k & " введено неверно"
        Exit Sub
    End If
    
    i = 1
    Do While i < k
        ai = A(i)
        A(i) = A(k)
        A(k) = ai
        i = i + 1
        k = k - 1
    Loop

...

Рейтинг:

0 / 0

08.06.2012, 01:57

| Ответить | Цитировать | Написать

Проблемы с решением задач

#37831752

nordst

Гость

AndreTM,

я доделал, все сработало, спасибо большое

...

Рейтинг:

0 / 0

08.06.2012, 18:56

| Ответить | Цитировать | Написать

93 сообщений из 93, показаны все 4 страниц

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с решением задач

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=60&tid=2157711]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	99ms
get topic data:	12ms
get forum data:	2ms
get page messages:	102ms
get tp. blocked users:	2ms
others:	308ms

total:	555ms