Реферат: Курсовая по информатике

min = r(1)

FOR i = 2 TO 6

IF r(i) = 0 THEN GOTO 5

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

5 NEXT i

PRINT "Точка пересечения диагоналей O ("; x; ","; y; ")"

PRINT "Радиус окружности лежащей в 4-х угольнике ABCD, R=", min

PRINT #2, "Точка пересечения диагоналей O ("; x; ","; y; ")"

PRINT #2, "Радиус окружности лежащей в 4-х угольнике ABCD, R=", min

Данные с диска а:

1,1 2,1 1,2 2,2

Результаты:

Точка пересечения диагоналей O ( 1.5 , 1.5 )

Радиус окружности лежащей в 4-х угольнике ABCD, R= .5

3. Элементы двумерного массива Q( m , n ) ( m > n ) определяются по одной из формул :

- если номер строки i < номера столбца j ,то элемент Q(i, j) вычисляется по формуле

- если i < j, то Q(i, j) = e ^Rnd *Sin(Rnd-0.5),

- еслиi = j, то Q(i, j)=Log(10*Rnd)/Sin(Rnd),

- если i > j, то Q(i, j)=Rnd*Q(j,i).

По полученным таким образом данным найти и выдать на печать :

- строку с наибольшим средним значением элементов,

- строку, в которой разность рядом стоящих элементов - наименьшая,

- Элементы квадратной матрицы ( n , n ), c максимальной суммой диагональных элементов.

Текст программы:

CLS

2 INPUT "Число строк столбцов"; m, n

IF m >= n THEN 1

PRINT "Число строк должно быть больше числа столбцов": GOTO 2

1 DIM q(m, m)

FOR i = 1 TO m

FOR j = 1 TO m

IF i < j THEN q(i, j) = EXP(RND) * SIN(RND - .5)