Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
Очень прошу помочь моей дочке (9 класс). Злой учитель информатики дал ей задание. Она долго болела и не понимает его. А я в Бэйсике вообще ничего не понимаю. Если завтра не сдаст дискету-будет двойка в году. Требуется в Бейсике V4.5. (смог найти только такую програму) написать, как я понимаю, программу. Задание звучит так: "Умножьте элементы массива на 2 и выведите в столбик положительные из них (одномерные массивы)". Это наверное должно быть просто - но для тех кто понимает. Помогите дочке и ее папе пожалуйства с текстом программы. Заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.05.2003, 18:10 |
|
||
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
Dim M(10) Rem Заполняем массив For I=1 to 10 M(I) = I-5 Next I Rem Решаем поставленную задачу For I=1 to 10 M(I)=M(I)*2 IF M(I)>0 THEN PRINT "M("; I; ")="; M(I) Next I ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.05.2003, 18:36 |
|
||
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
А учитель что, математику не изучал т.к. число умноженное на 2 всегда положительно! MAHOUNE ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2003, 10:02 |
|
||
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
Спорное утверждение -1 * 2 = -2 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2003, 10:10 |
|
||
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
Промашечка ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2003, 10:17 |
|
||
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
Ну перепутал с квадратом! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2003, 10:39 |
|
||
|
Люди, помогите моей дочке с Бэйсиком
|
|||
|---|---|---|---|
|
#18+
dim x(30) input "Введите размерность массива:(<30) ";n print "Исх. Массив"; for i=1 to n x(i)=rnd(time-1)*9+1 print x(i);","; next i print "Этот Массив х2 "; for i=1 to n x(i)=x(i)*2 print x(i);","; next i print "Рез-т: "; for i=1 to n if x(i)>0 then print x(i);","; end if next i ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2003, 13:26 |
|
||
|
|

start [/forum/topic.php?fid=16&msg=32166855&tid=1348846]: |
0ms |
get settings: |
9ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
59ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 12ms |
| total: | 165ms |

| 0 / 0 |
