For I = 1 to 12 icon

For I = 1 to 12



НазваниеFor I = 1 to 12
Дата конвертации15.07.2012
Размер13.28 Kb.
ТипДокументы











CLS

DIM A(12)

FOR i = 1 TO 12

INPUT A(i)

NEXT i

CLS

DIM A(5)

DATA 7, -3, 2.6, 8, 11

FOR i = 1 TO 5

READ A(i)

NEXT i


CLS

RANDOMIZE TIMER

DIM А(20)

FOR i = 1 TO 20

A(i)=INT (RND(1)*100)

PRINT A(i)

NEXT i

Дан массив R (20), сформированный любым из первых 3-х способов. Сформировать массивы: С (20),
S (20).


DIM R(20): DIM C(20)

DIM S(20)

FOR i = 1 TO 20

C(i)= R(i)*2*3.14

S(i)= R(i)2*3.14

NEXT i












gif" align=bottom width=131 height=32>

FOR i=1 TO 12

PRINT A(i)

NEXT i

S = 0

FOR i=1 TO 12

S = S + A(i)

NEXT i

PRINT «S=»; S

P = 1

FOR i=1 TO 12

P = P * A(i)

NEXT i

PRINT «P=»; P

min = A(1)

FOR i=2 TO 12

IF A(i) < min THEN min=A(i)

NEXT i

PRINT «min=»; min

max = A(1)

FOR i=2 TO 12

IF A(i) > max THEN max=A(i)

NEXT i

PRINT «max=»; max





Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов