Проверьте то что сделал / Visual Basic

ReSQL.ru

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

Гость

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

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

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

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

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

3 сообщений из 3, страница 1 из 1

Проверьте то что сделал

#39213043

1000 and 1 Poland

Гость

Прошу проверить правильность моих работ в vb , изучаю около 1 недели, надеюсь на вашу помощь.

Заполнить одномерный массив С нечётными по порядку элементами одномерного массива D размерности k.
Входящие данные:
D() – вещественного типа
k – целого типа
Выходящие данные:
D(), C() – вещественного типа
Математическая модель:
i = 1 … k шаг 2
s = s + 1
j = 1
i = 1 … s
C(i) = D(j)
j = j + 2

Код программы:

Код: vbnet

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

Private Sub Command1_Click()
Dim C() As Single, D() As Single, k As Integer, i As Integer
k = InputBox("k")
Print "D"
ReDim D(1 To k)
For i = 1 To k
D(i) = InputBox("D(" & i & ")")
Print D(i);
Next
Print
Print
For i = 1 To k Step 2
s = s + 1
Next 
j = 1
Print "C"
ReDim C(1 To s)
For i = 1 To s
C(i) = D(j)
j = j + 2
Print C(i);
Next
End Sub

----------------------------------

Заполнить в памяти ЭВМ матрицу следующего вида:

1 1 1 10
1 1 20 -1
1 30 -1 -1
40 -1 -1 -1
Входящие данные: нет
Выходящие данные: A() – вещественного типа
Математическая модель:
q = 4
i = 1 … 4
j = 1 … 4
Если j < q Тогда
A(i, j) = 1
Иначе если j > q Тогда
A(i, j) = -1
Иначе
A(i, j) = i * 10
Следующие j
q = q - 1
Код программы:

Код: vbnet

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

Private Sub Command1_Click()
Dim A(1 To 4, 1 To 4) As Single, q As Integer, i As Integer, j As Integer
q = 4
For i = 1 To 4
For j = 1 To 4
If j < q Then
A(i, j) = 1
ElseIf j > q Then
A(i, j) = -1
Else
A(i, j) = i * 10
End If
Print A(i, j);
Next
q = q - 1
Print
Next
End Sub

------------------------------------------
Математическое описание
Вычислить произведение элементов с индексами 2, 6, 8, 4 од¬номерного массива M размерности К. Проанализировать выполнение программы на примере
М={2; 4; 6; -3; 8; 12; -6, 1}

Входные данные: {X}; J – вещественного типа
Выходные данные: P – вещественного типа

Программирование

Код: vbnet

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

Private Sub Command1_Click()
Dim M() As Single
Dim i As Integer
Dim P As Single
Dim j As Single
Dim k As Integer
k = InputBox("BBEDITE k")
ReDim M(1 To k)
P = 1
For i = 1 To k
M(i) = InputBox("BBEDITE M")
Next
For n = 1 To 4
i = InputBox("BBEDITE i")
P = P * Abs(M(i))
Next
Print "P=" & P
End Sub

------------------------------------
Математическое описание

Вычислить сумму элементов первого столбца и последней строки матрицы S размерности М*N.
Для отладки программы принять N=З; М=4. Значение элементов матрицы выбрать самостоятельно.

Программирование

Код: 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.

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim S() As Single
Dim S1 As Single
Dim S2 As Single
Dim Su As Single
m = InputBox("Введите количество строк")
n = InputBox("Введите количество столбцов")
ReDim S(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
S(i, j) = InputBox("Введите массив ")
Next
Next
S1 = 0
S2 = 0
For i = 1 To m
S1 = S1 + S(i, 1)
Next
For j = 1 To n
S2 = S2 + S(m, j)
Next
Su = S1 + S2
Print "Su=" & Su
End Sub

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

...

Рейтинг:

0 / 0

11.04.2016, 21:06

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

Проверьте то что сделал

#39213073

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Программы выдают на выходе то, что требуется по условию?

...

Рейтинг:

0 / 0

11.04.2016, 22:04

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

Проверьте то что сделал

#39213205

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Жуть какая...
Задача 1.
1000 and 1 Poland

Код: vbnet

1.
2.
3.

For i = 1 To k Step 2
s = s + 1
Next

А просто поделить пополам религия не позволила?
Задача 2.
Почему не просто

Код: vbnet

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

If i=j
  Then 
    A(i, j) = i * 10
  Else
    A(i, j) = Sign(j-i)
End If

Задача 3.
Откуда взялась Abs() ?
Задача 4.
Зачем две переменные под суммы?

...

Рейтинг:

0 / 0

12.04.2016, 09:06

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

3 сообщений из 3, страница 1 из 1

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=60&fpage=23&tid=2155571]:	0ms
get settings:	8ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	51ms
get topic data:	11ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	302ms

total:	436ms