Информатика. Толстяков Р.Р - 100 стр.

UptoLike

100
IF bx >x1 AND bx<(x1+L) THEN LINE (bx,y1)-(bx,
y1 + h)
Текст программы для этапа 4:
x = a
PSET (kx * x + bx, -ky * y + by)
FOR x = a TO b STEP .1
y = x ^ 2 - 4
LINE -(kx * x + bx, -ky * y + by)
NEXT x
ПОИСК НАИМЕНЬШЕГО (НАИБОЛЬШЕГО) ЭЛЕМЕНТА МАССИВА
Алгоритм поиска наибольшего/наименьшего алгоритма массива
аналогичен поиску наибольшего/наименьшего значения функции. По-
требуются две переменные, в которых будут храниться текущее наи-
большее (max) и текущее наименьшее (min) значения элементов мас-
сива, дополнительно необходимы две переменные, в которых будут
храниться индекс наибольшего элемента Imax и индекс наименьшего
элемента Imin массива. На начальном этапе наибольшему и наимень-
шему значению присваивается значение первого элемента, после чего
в цикле проверяется условие:
1. Если новый элемент массива больше max, то переменной max
присваивается значение этого элемента.
2. Если новый элемент массива меньше min, то переменной min
присваивается значение этого элемента.
Пример нахождения наибольшего и наименьшего элемента мас-
сива из n элементов, которые задаются случайными числами от –100
до 100.
INPUT "Введите число элементов массива", n
RANDOMIZE TIMER
DIM mas(n)
FOR I=0 TO n-1
mas(I) = (RND*200-100)\1
NEXT I
PRINT "Вывод массива"
FOR I=0 TO n-1
PRINT mas(I);
NEXT
max=mas(0)
min= mas(0)
Imax=0
Imin=0
FOR I=0 TO n-1