Назад на содержание Массивы в Basic


Общая информация

Ввод массива

Вывод массива

Поиск

Сортировка

Вычисление
колличественных

характеристик массива


Котрольные вопросы

Задания


Вычисление колличественных характеристик

Задача: Определить количество четных элементов в массиве. Пусть массив называется A, количество четных элементов Kol_Chet, параметр цикла для перебора элементов I

Алгоритм:
  1. Объявить массив
  2. Формирование элементов
  3. Kol_Chet = 0
  4. Для каждого I от 1 до 10 повторять:
  5. Если A(I) четное, то:
  6. Kol_Chet = Kol_Chet + 1
  7. Конец Цикла
  8. Если Kol_Chet = 0, то:
           сообщить "четных чисел не было",
           иначе сообщить "четных чисел" Kol_Chet
  9. Конец Алгоритма
Программа:
10 DIM A(4)
20 FOR I=1 TO 4
30 INPUT "Введите целое число";
      A(I)                                             
40 NEXT I
50 Kol_Chet=0
60 FOR I=1 TO 4
70 IF  A mod 2=0 THEN          
          Kol_Chet = Kol_chet + 1

80 NEXT I
90 IF Kol_Chet=0
  THEN PRINT "Четных чисел нет"
  ELSE PRINT "Кол. чет.:";Kol_Chet
100 END
Алгоритм:
10 Объявим массив из 4 Элементов
20 Формируем значения элементов
30 Ввод с клавиатуры

40 Конец Цикла
50 Обнулим счетчик четных чисел
60 Для всех I от 1 до 4 повторять:
70 Если A делится на 2 без остатка:
Увеличиваем счетчик четных чисел
Конец Если
80 Конец Цикла
90 Сообщаем результат


100 Конец
вводим число1:    Ввод!!!
вводим число2:    Ввод!!!
вводим число3:    Ввод!!!
вводим число4:    Ввод!!!
Введено =
Введено =
Введено =
Введено =
Результат ввода:
На начало страницы
Hosted by uCoz