Датчик случайных чисел на языке Паскаль презентация

7 31 16 37 42

PROGRAM

VAR

:

INTEGER

FOR

TO

Example

;

END

.

:=

i

1

10

DO

BEGIN

WRITE

(

)

random (50) : 4

i

;

;

random

( x )

0 . . . x

RANDOMIZE

;

(на Алгоритмическом языке).
На языке программирования линейная таблица – это одномерный массив

Т – имя массива,
Т [3], Т [7], . . . . - индексированные имена элементов массива
индекс – это порядковый номер элемента в таблице (массиве), записывается в квадратных скобках
Значения индексов не должны выходить за допустимые границы (в нашем примере диапазон Т [ 1..12]) Индексы могут быть представлены не только в виде констант, но и в виде целых переменных и даже выражений целого типа: T [i], T [k + 1], T [I + k], T [2*k] . . . . .
Все элементы массива должны иметь одинаковый тип, который описывается в декларативной части алгоритма (программы).
Массив – это пронумерованная конечная последовательность однотипных величин.
Решение задач по обработке массива связано, как правило, с перебором элементов массива. Такой перебор происходит в цикле, в котором изменяются значения индексов от начальной до конечной величины.

:= 1, 12

вывод ” T [ i ] = ”

ввод T [ i ]

var имя массива : array [ нижняя граница индекса . . верхняя граница индекса ] of тип массива ;

PROGRAM

VAR

READLN

:

INTEGER

T

(

)

FOR

TO

Temperature

;

T [ i ]

;

END

.

:=

i

1

12

DO

BEGIN

WRITE

(

)

’ T [ ’ , i , ’ ] = ’

:

ARRAY

[ 1 . . 12 ]

OF

REAL

i

;

BEGIN

END

;

;

1, 12

вывод ” T [ i ] = ”

ввод T [ i ]

PROGRAM

VAR

READLN

:

INTEGER

T

(

)

FOR

TO

Temperature

;

T [ i ]

;

END

.

:=

i

1

12

DO

BEGIN

WRITE

(

)

’ T [ ’ , i : 2, ’ ] = ’

:

ARRAY

[ 1 . . 12 ]

OF

REAL

i

;

BEGIN

END

;

;

;

:

Tsred

;

REAL

:=

0

;

Tsred

FOR

TO

:=

i

1

12

DO

:=

;

Tsred

Tsred +

T [ i ]

:=

Tsred

Tsred /12

;

WRITELN

(

)

’ Среднегодовая температура = ’ ,

Tsred : 6 : 2 ,

’ градусов ’

Tsred := 0

i := 1, 12

Tsred := Tsred + T [i]

Tsred := Tsred / 12

вывод Tsred

вывод ” В массиве нет числа ” X

PROGRAM

VAR

,

INTEGER

Rand

FOR

TO

Example2

;

:=

i

1

20

DO

BEGIN

WRITE

(

)

:

ARRAY

[ 1 . . 20 ]

OF

i

;

BEGIN

;

:

NumberX

;

:=

WRITELN

(

’ Массив случайных чисел : ’

NamberX := 0

,

X

INTEGER

RANDOMIZE

;

) ;

Rand [ i ]

Random ( 50 )

Rand [ i ] : 4

;

;

READLN

(

)

;

END

.

END

;

0

WRITELN

;

WRITE

(

)

;

’ Введите X : ’

X

NumberX

;

FOR

TO

:=

i

1

20

DO

:=

IF

THEN

ELSE

Rand [ i ] = X

NumberX

:=

NumberX + 1

IF

NumberX = 0

THEN

WRITELN

WRITELN

(

’ В массиве нет числа ’ , X

)

(

’ Число ’ , X ,

’ в массиве присутствует ’ , NumberX , ’ раз’

)

NamberX := NamberX + 1

вывод ” Число ” X
” в массиве присутствует ”
NumberX ” раз ”

4

2, 16

MaxT := T [ 1 ] ; Nmax := 1

MaxT := T [ i ] ; Nmax := i

i := 2, 16

MinT:= T [ 1 ] ; Nmin := 1

MinT := T [ i ] ; Nmin := i

FOR i := 2 TO 16 DO

BEGIN

END ;

WRITELN (MaxT) ;

MaxT : = T[ 1 ] ; Nmax : = 1 ;

MinT : = T [ 1 ] ; Nmin : = 1 ;

FOR i := 2 TO 16 DO

BEGIN

END ;

IF T [ i ] > MaxT THEN

MaxT : = T [ i ] ; Nmax : = i ;

END ;

IF T [ i ] < MinT THEN

MinT: = T [ i ] ; Nmin : = i ;

END ;

WRITELN (Nmax) ;

WRITELN (MinT) ;

WRITELN (Nmin) ;

BEGIN

BEGIN

X : = T [ i ]

T [ i ] : = T [ i + 1]

T [ i + 1 ] : = X

вывод ” T [ ”, i , ” ] = ”,T [ i ]

FOR k := 1 TO 16 DO

IF T [ i ] < T [ i + 1] THEN

PROGRAM Sortirovka_Puzirek ;

VAR T: ARRAY [ 1..16 ] OF integer ;

BEGIN

BEGIN

END ;

WRITE (‘ T [ ‘ , k , ‘ ] = ‘ ) ;

READ ( T [ k ] ) ;

i, K, X : integer ;

FOR k := 1 TO 15 DO

FOR i := 1 TO 16 - K DO

WRITELN (‘ T [ ‘ , i , ‘ ] = ‘ , T [ i ] ) ;

X : = T [ i ] ;
T [ i ] : = T [ i + 1] ;
T [ i + 1 ] : = X ;

BEGIN

END;

FOR i := 1 TO 16 DO

END.

Что нужно изменить в программе для сортировки массива от меньшего к большему?