Форумы-->Форум для внеигровых тем-->
1|2
| Автор | Пара задач по Basic'у. Помогите решить |
|---|
для Balmung:
во 2ой задаче таблица с данными самостоятельно набирается | ЕГЭ по информатике вполне адекватная работа, я гарантирую. Впрочем, во времена моего поступления ЕГЭ по этой дисциплине требовалось всего в 1 вуз из более или менее адекватных. Сейчас этот косяк в зачислении исправили, вроде.
Эм, там же вроде аж дискретка в части C была (вы поняли, да? Какая нафиг дискретка в школе!!!). Хотя, в остальных вроде перевод из одной с/с в другую, то есть жить можно.
для i2li:
Так конкретизируй тогда, на каком именно языке нужно писать - на VB или QB.
VB тоже знаю, но давно уже забыл. И вообще, имхо, это жалкие подобия Pascal-я и Object pascal-я. | | VB или VBA, не знаю как правильно, но не QB факт. | VB или VBA, не знаю как правильно, но не QB факт.
Можно было в 1 посте это написать? >< | to Self-Deception
Да какой же извращенец будет давать такое задание в Бейсике, я вообще не думаю, что его сейчас изучают. | для Ньюанс:
Чего только у нас не изучают...
А в Бейсике это не так уж сложно решить. | Можно было в 1 посте это написать? ><
Проглядел 3 пост, но все равно, заголовок темы вводит в заблуждение. | Простите, что ввел в заблуждение, для меня в них нет принципиальной разницы, если честно. Вот методичка, кстати!)
http://zalil точка ru/32922173 | Пускай подруга почитает про сортировку массивов.
Вроде, задачки элементарные.
Но, Бейсик подзабыл мну, поэтому проги не будет. А так - два вложеных цикла for-else-next, и массивчег отсортируется. | to Self-Deception
В простом бейсике? 1мерным массивом?) | Эм, там же вроде аж дискретка в части C была (вы поняли, да? Какая нафиг дискретка в школе!!!). Хотя, в остальных вроде перевод из одной с/с в другую, то есть жить можно.
Пруф имеется? Лично я не припомню что-то сверхъестественное в тех задачах. | | лучше бы в ГВД на информатике поиграли... | Решение полностью по методичке.
Вывод идет в окно Immediate (Ctrl+G)
Sub z2()
Dim A() As Single
Dim m, n, i, j As Integer
n = InputBox("Введите кол-во абонентов")
ReDim A(1 To n, 1 To 3)
Debug.Print "Номер"
Debug.Print "Сумма за МТР"
Debug.Print "Внесено"
For i = 1 To n
A(i, 1) = InputBox("Введите номер телефона " & i & "-го абонента")
Debug.Print A(i, 1);
A(i, 2) = InputBox("Введите сумму за МТР " & i & "-го абонента")
Debug.Print A(i, 2);
A(i, 3) = InputBox("Введите сумму, внесенную " & i & "-м абонентом")
Debug.Print A(i, 3);
Debug.Print
Next i
Debug.Print "Номера абонентов с задолженностью:"
Debug.Print
For i = 1 To n
If A(i, 2) - A(i, 3) > 0 Then
Debug.Print A(i, 1);
End If
Next i
End Sub
Тупо, но так надо, видимо) | | Да, описание m и j можно убрать, они тут не нужны, скопировалось из примера в методичке) | для Ньюанс:
В простом бейсике? 1мерным массивом?)
3xN. С чего вы взяли, что в qбейсике нельзя юзать двумерные (и более) массивы? :) | Упс, поправочки:
Sub z2()
Dim A() As Single
Dim n, i As Integer
n = InputBox("Введите кол-во абонентов")
ReDim A(1 To n, 1 To 3)
Debug.Print "Номер ";
Debug.Print "Сумма за МТР ";
Debug.Print "Внесено";
Debug.Print
For i = 1 To n
A(i, 1) = InputBox("Введите номер телефона " & i & "-го абонента")
Debug.Print A(i, 1);
A(i, 2) = InputBox("Введите сумму за МТР " & i & "-го абонента")
Debug.Print A(i, 2);
A(i, 3) = InputBox("Введите сумму, внесенную " & i & "-м абонентом")
Debug.Print A(i, 3);
Debug.Print
Next i
Debug.Print "Номера абонентов с задолженностью:"
For i = 1 To n
If A(i, 2) - A(i, 3) > 0 Then
Debug.Print A(i, 1)
End If
Next i
Debug.Print
End Sub | to Self-Deception
Можно и нужно как раз | для Ньюанс:
В первом задании да, и одномерного достаточно, ибо id-ами выступают индексы элементов массива, а в 3-м без двумерного никак. Хотя, можно 3 одномерных, но нафиг так жить? :) | для Balmung:
спасибо, дождемся экзамена, узнаем правильность решения. | для Balmung:
говорит, что решила почти так же, только у неё с выводом таблицы была загвоздка. |
1|2К списку тем
|
