Найти количество удвоенных нечетных чисел среди компонентов файла

@_Dee_ · Регистрация: 19.03.2015

Студворк — интернет-сервис помощи студентам

Заполнить файл f натуральныи числами,полученными с помощю генератора случайных чисел.Найти количество удвоенных нечетных чисел среди компонентов файла

@ZX Spectrum-128 · 21.03.2015, 10:02

QBasic/QuickBASIC

FUNCTION rnd_range (first AS DOUBLE, last AS DOUBLE) AS DOUBLE
  rnd_range = RND * (last - first) + first
END FUNCTION
 
n=20
RANDOMIZE TIMER
 
OPEN "numbers.dat"  FOR OUTPUT AS #1
PRINT "The original data:"
FOR i=1 TO n 
    x=INT(rnd_range(1,20))
    PRINT x;
    PRINT #1,x  
NEXT
CLOSE #1 
 
PRINT
k=0
PRINT "The resulting data:"
OPEN "numbers.dat"  FOR INPUT AS #1
FOR i=1 TO n 
    INPUT #1,x
    IF (x /2) MOD 2<>0 THEN
        PRINT x;
        k=k+1
    END IF  
NEXT
CLOSE #1
 
PRINT
PRINT "Number of this values:"
PRINT k
SLEEP

@_Dee_ 0 / 0 / 0 Регистрация: 19.03.2015 Сообщений: 1
		1
	Найти количество удвоенных нечетных чисел среди компонентов файла 19.03.2015, 14:09. Показов 1247. Ответов 1 Метки нет (Все метки) Заполнить файл f натуральныи числами,полученными с помощю генератора случайных чисел.Найти количество удвоенных нечетных чисел среди компонентов файла 0

Опции темы

Найти количество удвоенных нечетных чисел среди компонентов файла

Решение