Задачи QBasic - QBasic

Формулировка задачи:

Задачи по QBasic :huh: 1)В воображаемом квадрате заданного размера построить совокупность n*n сопрекасающихся с окружностью окрашеной в случайный цвет. 2)Дан массив целых чисел x(50) и число k, вычеслить сумму элементов массива, превосходящих максимальный элемент среди x(1) ..... x(k) ввести массив, найдите элементы результат. 3)В исходной строке a$ определить и вывесте все символы встречающиеся не мение n-раз.

Код к задаче: «Задачи QBasic - QBasic»

textual
CLS
RANDOMIZE TIMER
CONST n = 50
DIM x(1 TO n)
 
INPUT "K = "; k
PRINT
 
FOR i = 1 TO n
   x(i) = INT(80 * RND) - 40
   PRINT USING "#####"; x(i);
NEXT
PRINT : PRINT
 
max = x(1)
 
FOR i = 1 TO k
   IF max < x(i) THEN
      max = x(i)
   END IF
NEXT
PRINT "Max ="; max
PRINT
 
FOR i = k + 1 TO n
   IF x(i) > max THEN s = s + x(i)
NEXT
PRINT "SUMMA ="; s
END

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ