Предмет: Информатика, автор: AliceMagic

2 любых задачи на qbasic + блок-схема

Приложения:

Ответы

Автор ответа: Аноним
0
№143

DIM n AS INTEGER
CLS
INPUT "n=", n
REDIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
   a(i) = INT(50 * RND)
   PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n
   IF a(i) MOD 2 = 0 THEN a(i) = 2 * a(i)
   PRINT a(i);
NEXT i
PRINT

Пример
n=13
 22  28  35  7  48  1  23  31  23  0  20  29  28
 44  56  35  7  96  1  23  31  23  0  40  29  56

№146

DIM n AS INTEGER
CLS
DIM a(1 TO 20) AS INTEGER
RANDOMIZE TIMER
PRINT "A:";
FOR i = 1 TO 20
   a(i) = INT(99 * RND)
   PRINT a(i);
NEXT i
PRINT
DIM b(1 TO 10) AS INTEGER, c(1 TO 10) AS INTEGER
ib = 1: ic = 1
FOR i = 1 TO 20
   IF i MOD 2 = 0 THEN
      b(ib) = a(i)
      ib = ib + 1
   ELSE
      c(ic) = a(i)
      ic = ic + 1
   END IF
NEXT i
PRINT "B: ";
FOR i = 1 TO 10
   PRINT b(i);
NEXT i
PRINT
PRINT "C: ";
FOR i = 1 TO 10
   PRINT c(i);
NEXT i
PRINT

Пример
A: 10  13  38  1  58  43  37  58  54  80  83  68  1  38  42  20  84  89  2  29
B:  13  1  43  58  80  68  38  20  89  29
C:  10  38  58  37  54  83  1  42  84  2
Приложения:
Автор ответа: AliceMagic
0
а в первой задаче разве не должно быть еще массива В?
Автор ответа: Аноним
0
Да, просмотрел. Но часть вины разрешите все же переадресовать Вам: картинка повернута набок и на мониторе компьютера приходится все читать, буквально укладывая голову на стол.
Автор ответа: Аноним
0
Исправьте в последнем цикле:

REDIM b(1 To n) AS INTEGER
FOR i = 1 TO n
IF a(i) MOD 2 = 0 THEN
b(i) = 2 * a(i)
ELSE
b(i) = a(i)
END IF
PRINT b(i);
NEXT i
Автор ответа: Аноним
0
Блок-схему уже не могу поправить, сами по аналогии...
Автор ответа: AliceMagic
0
да, ничего, хорошо, что исправили
Похожие вопросы
Предмет: Русский язык, автор: Аноним
8. Укажите предложение, в котором употреблен глагол ІІ спряжения:
А. Одному хорошо дума…тся.
Б. Что-то слыш…тся родное в долгой песне ямщика (А. С. Пушкин).
В. Осенью быстро смерка…тся.
9. Укажите возвратный глагол:
А. успокоить;
Б. успокаивать;
В. успокоиться;
Г. успокоил.
10. Укажите строку, в которой оба глагола относятся к І спряжению:
А. ненавидеть, стелить;
Б. колоть, брить;
В. плыть, штукатурить;
Г. дышать, слышать.

11. Укажите строку, в которой оба глагола несовершенного вида:
А. рассказать, брать;
Б. сбежать, велеть;
В. значить, стать;
Г. положить, хлынуть.
12. Укажите разноспрягаемый глагол:
А. зашуметь;
Б. признать;
В. перебежать;
Г. кипеть.
13. Укажите глагол в форме повелительного наклонения:
А. подойдет;
Б. подойдите;
В. пойдете;
Г. подойдешь
14. Укажите глагол с нулевым окончанием:
А. замерз;
Б. поколебали;
В. таскать;
Г. подойдешь.
2. Установите соответствие между глаголами и заданными грамматическими категориями.
1. Улыбаться А. безличный
2. вечереет Б. возвратный
3. смолоть В. совершенный вид
Г. повелительное наклонение

3. Установите соответствие между предложениями и наклонениями глаголов, которые в них
употреблены:
1. повелительное наклонение А. Мыслить по шаблону – вернейший способ завалить дело.
2. условное наклонение Б. Жили бы мы совсем рядом с морем!
3. изъявительное наклонение В. Не жалей алтына, отдашь полтину.

Г. Ради красного словца не пожалеет ни матери, ни отца.

Прочитайте текст. Выполните задания 4 и 5 к нему.
(1) Намечаются сумерки, затушевываются люди, автомобили, дома.. (2) Высятся, а потом
проступают, угадываются лишь заводские корпуса, усеченные конусы домен, трубы. (3) Растет
сталь, колосится прокат, цветет чугун. (4) По радио зовут на ужин. (5) Палуба пустеет, а когда
вновь заполняется сытым народом, оказывается, что пейзаж по правому борту не изменился. (По
П. Вайлу)
4. Укажите номер предложения, в котором все сказуемые выражены возвратными
глаголами.
А. 1;
Б. 2;
В. 3;
Г. 4.
5. Укажите, сколько переходных глаголов в личной форме употреблено в тексте:
А. 1;
Б. 2;
В. 3;
Г. 4.
Предмет: Математика, автор: raynaforeva