Question

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

Answer 1

№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

Answer 2

а в первой задаче разве не должно быть еще массива В?

Answer 3

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

Answer 4

Исправьте в последнем цикле:

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

Answer 5

Блок-схему уже не могу поправить, сами по аналогии...

Answer 6

да, ничего, хорошо, что исправили