Заданы одномерные массивы X(N),Y(M),Z(L). Для каждого из них: 1) Подсчитать количество элементов равных нулю 2)Дробные элементы увеличить в 20 раз. Подсчитать количество преобразованных элементов — QBasic(Бейсик)

disel
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
INPUT "vvedite razmer massiva X ", n
INPUT "vvedite razmer massiva Y ", m
INPUT "vvedite razmer massiva Z ", l
DIM X(n), Y(m), Z(l)
 
FOR i = 1 TO n
    INPUT "vvedite element massiva X ", X(i)
NEXT
 
FOR i = 1 TO m
    INPUT "vvedite element massiva Y ", Y(i)
NEXT
 
FOR i = 1 TO l
    INPUT "vvedite element massiva Z ", Z(i)
NEXT
 
PRINT "Massiv X "
FOR i = 1 TO n
    PRINT X(i);
NEXT
PRINT
PRINT "Massiv Y "
FOR i = 1 TO m
    PRINT Y(i);
NEXT
PRINT
PRINT "Massiv Z"
FOR i = 1 TO l
    PRINT Z(i);
NEXT i
PRINT
 
'Schitaem nulevie el-ti
FOR i = 1 TO n
    IF X(i) = 0 THEN nulX = nulX + 1
NEXT i ' Eto bil pervii massiv
 
FOR i = 1 TO m
    IF Y(i) = 0 THEN nulY = nulY + 1
NEXT i ' Eto bil vtoroi massiv
 
FOR i = 1 TO l
    IF Z(i) = 0 THEN nulZ = nulZ + 1
NEXT i ' I sootv. tretii
 
'  Pechataem kol-vo nulevikh el-v
PRINT "Nulevyh v X:"; nulX
PRINT "Nulevyh v Y:"; nulY
PRINT "Nulevyh v Z:"; nulZ
 
'Ishchem veshchestvennie chisla & domnozhaem
PRINT "Novyj Massiv X "
FOR i = 1 TO n
    IF (X(i) - INT(X(i))) <> 0 THEN X(i) = X(i) * 20: UmnX = UmnX + 1
    PRINT X(i);
NEXT i
PRINT ' Eto bil pervii massiv
PRINT "Novyj Massiv Y "
FOR i = 1 TO m
    IF (Y(i) - INT(Y(i))) <> 0 THEN Y(i) = Y(i) * 20: UmnY = UmnY + 1
    PRINT Y(i);
NEXT i
PRINT ' Eto bil vtoroi massiv
PRINT "Novyj Massiv Z "
FOR i = 1 TO l
    IF (Z(i) - INT(Z(i))) <> 0 THEN Z(i) = Z(i) * 20: UmnZ = UmnZ + 1
    PRINT Z(i);
NEXT i
PRINT ' Eto bil poslednii massiv
PRINT "Veshestvennyh v X:"; UmnX
PRINT "Veshestvennyh v Y:"; UmnY
PRINT "Veshestvennyh v Z:"; UmnZ
END ' Konets programmi

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment