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

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
  
'Считаем нулевые эл-ты
  FOR i = 1 TO N
     IF X(i) = 0 THEN nulX = nulX + 1
  NEXT i  ' Это был первый массив
  
  FOR i = 1 TO M
     IF Y(i) = 0 THEN nulY = nulY + 1
  NEXT i  ' Это был второй массив
  
  FOR i = 1 TO L
     IF Z(i) = 0 THEN nulZ = nulZ + 1
  NEXT i  ' И соотв. третий
  
  '  Печатаем кол-во нулевых эл-в
  PRINT "Nulevyh v X:"; nulX
  PRINT "Nulevyh v Y:"; nulY
  PRINT "Nulevyh v Z:"; nulZ
  
'Ищем вещественные числа & домножаем
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  ' Это был первый массив
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  ' Это был второй массив
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  ' Это был последний массив
   PRINT "Veshestvennyh v X:"; UmnX
  PRINT "Veshestvennyh v Y:"; UmnY
  PRINT "Veshestvennyh v Z:"; UmnZ
END    ' Конец программы

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

Leave a Comment