Закрыть
Все сервисы
Главная
Лента заметок
Теги
Группы
Рейтинги

qb

5 июня´07 19:59 Просмотров: 404 Комментариев: 2
' laba 1
' Boroday Nadya

INPUT "c, y, x, beta, q ", c, y, x, beta, q
b = 12 * SQR(c * (SQR(y) + x * x)) * ABS(SIN(3 * x - beta) - q ^ 6)

PRINT "b= "; b
END

-------- rezultati-----------

c, y, x, beta, q 2,6,3,6,3
b= 41853.59


' laba 5
' Boroday Nadya

CLS
RANDOMIZE TIMER
CONST n = 11
DIM z(n)
PRINT "ishodniy massiv"
FOR i = 1 TO n
z(i) = INT(RND * 80)
PRINT z(i),
NEXT
PRINT

min = z(1)
imin = 1

FOR i = 2 TO n
IF z(i) < min THEN imin = i: min = z(i)
NEXT

WRITE "menyaem", 1, imin
SWAP z(1), z(imin)


PRINT " massiv posle perestanovki"
FOR i = 1 TO n
PRINT z(i),
NEXT
PRINT


-------- rezultati

ishodniy massiv
37 77 10 7 37
38 18 4 0 67
39
"menyaem",1,9
massiv posle perestanovki
0 77 10 7 37
38 18 4 37 67
39


Пожаловаться
Комментариев (2)
Отсортировать по дате Вниз
Ванильное_Небо    05.06.2007, 21:08
Оценка:  0
Ванильное_Небо
Бейсик)
xtfkpi    05.06.2007, 21:08
Оценка:  0
xtfkpi
потрясающе верное замечание
Реклама
Реклама