Решение задач по дисциплине "Основы программирования"

Задача :

Организовать ручное заполнение

одномерного массива Z ,

размерностью 8, вещественными

числами.

Переставить местами первый элемент

массива и элемент массива, равный числу Х.

Вывести на экран массив ДО и ПОСЛЕ перестановки.

1.1

X =

8.1

-2.3

9 .7

Z =

- 3 .1

4 .3

7 .9

- 8 .2

1.1

8.1

9 .7

-2.3

- 8 .2

7 .9

4 .3

- 3 .1

1.1

Z =

4

Index =

1.1

X =

Z =

- 3 .1

4 .3

7 .9

- 8 .2

9 .7

8.1

-2.3

1.1

A =

Начало

i : = 1, 8

Введите

элемент

вектора

Вывод сообщения

Ввод Z [ i ]

Исходный

вектор

Вывод

сообщения

i : = 1, 8

Вывод Z [ i ]

A

A

Вывод

сообщения

Введите

число для перестановки

Ввод Х

i : = 1, 8

Z [ i ] = Х

+

-

B

index : = i

B

Index = 0

-

+

А : = Z [ 1 ]

Z [ 1 ] : = Z [ index ]

Массив не

изменился

Вывод

сообщения

Z [ index ] : = A

Массив

ПОСЛЕ

замены

Вывод сообщения

i : = 1, 8

Вывод Z [ i ]

Конец

Program Vektor ;

Var

Z : array [ 1 . . 8 ] of REAL ; { вектор }

i : byte ; { индекс элементов вектора }

A : reaL ; { для перестановки элементов }

X : reaL ; { число для сравнения }

index : byte ; { индекс переставляемого элемента }

BEGIN

FOR i : = 1 to 8 do { заполнение вектора }

begin

Write ( ‘ Введите элемент вектора : ‘ ) ;

ReadLn ( Z [ i ] ) ;

end ;

Writeln ( ‘ Исходный вектор ‘ ) ;

FOR i : = 1 to 8 do { вывод вектора на экран }

Write ( Z [ i ] : 6 : 1 ) ; { форматный вывод }

WriteLn ; { переход на новую строку }

Write ( ‘ Введите число для ПЕРЕСТАНОВКИ : ‘ ) ;

ReadLn ( Х ) ;

FOR i : = 1 to 8 do { поиск индекса переставляемого элемента }

IF Z [ i ] = X THEN index : = i ;

IF index = 0 THEN Writeln ( ‘ Вектор НЕ изменился ‘ )

ELSE

begin

A : = Z [ 1 ] ;

Z [ 1 ] : = Z [ index ] ;

Z [ index ] : = A ;

Writeln ( ‘ Вектор ПОСЛЕ перестановки элементов ‘ ) ;

FOR i : = 1 to 8 do { вывод вектора на экран }

Write ( Z [ i ] : 6 : 1 ) ; { форматный вывод }

end ;

ReadLn; { задержка выполнения программы }

END.

Задача :

Организовать ручное заполнение

одномерного массива В,

размерностью 10, целыми числами.

Найти и вывести на экран произведение

чётных элементов массива.

Начало

i : = 1, 10

Введите

элемент

вектора

Вывод сообщения

Ввод В [ i ]

Исходный

вектор

Вывод

сообщения

i : = 1, 10

Вывод В [ i ]

A

A

Pr : = 1

F : = 5

i : = 1, 10

ODD ( B [ i ] ) = False

+

-

F : = 7

B

Pr : = Pr * B [ i ]

B

F = 5

+

-

Вывод Pr

В массиве нет

чётных

элементов

Вывод

сообщения

Конец

Program Vektor ;

Var

B : array [ 1 . . 10 ] of integer ; { вектор }

i : byte ; { индекс элементов вектора }

F : byte ; { переключатель }

Pr : integer ; { произведение чётных элементов }

BEGIN

FOR i : = 1 to 10 do { заполнение вектора }

begin

Write ( ‘ Введите элемент вектора : ‘ ) ;

ReadLn ( B [ i ] ) ;

end ;

Writeln ( ‘ Исходный вектор ‘ ) ;

FOR i : = 1 to 10 do { вывод вектора на экран }

Write ( B [ i ] : 6 ) ; { форматный вывод }

WriteLn ; { переход на новую строку }

F : = 5 ;

Pr : = 1 ; { первоначальное значение произведения }

FOR i : = 1 to 10 do { поиск произведения чётных элементов }

IF ODD ( Z [ i ] ) = FALSE THEN begin

F : = 7 ;

Pr : = Pr * B [ i ] ;

end ;

IF F = 5 THEN Writeln ( ‘ В массиве НЕТ чётных элементов ‘ )

ELSE Writeln ( ‘ Произведение чётных элементов равно ‘ , Pr ) ;

ReadLn; { задержка выполнения программы }

END.

Задача :

Организовать ручное заполнение

двумерного массива В, размерностью

5 х 7, целыми числами.

Найти и вывести на экран количество

чётных элементов массива и максимальный

элемент матрицы.

Начало

i : = 1, 5

j : = 1, 7

Введите

элемент

матрицы

Вывод сообщения

Ввод В [ i , j ]

A

A

Исходная

матрица

Вывод сообщения

i : = 1, 5

j : = 1, 7

Переход на

новую строку

Вывод В [ i , j ]

В

В

Kol : = 0

i : = 1, 5

j : = 1, 7

Вывод

Kol

ODD ( B [ i , j ] ) =

false

+

-

Kol : = Kol + 1

C

Max + - Max : = B [ i , j ] Конец " width="640"

C

Max : = B [ 1, 1 ]

i : = 1, 5

j : = 1, 7

Вывод

Max

B [ i , j ] Max

+

-

Max : = B [ i , j ]

Конец

Задача :

Организовать случайное заполнение

двумерного массива А, размерностью

3 х 5, целыми числами.

Найти и вывести на экран произведение

нечётных элементов массива в столбце W .

Начало

Randomize

i : = 1, 3

j : = 1, 5

A [ i , j ] : = Random ( 99 )

A

A

Исходная

матрица

Вывод сообщения

i : = 1, 3

j : = 1, 5

Переход на

новую строку

Вывод A [ i , j ]

В

=1) and (W A " width="640"

Вывод

сообщения

Введите номер столбца

Ввод W

-

+

(W=1) and

(W

A

В

P : = 1

F : = 4

i : = 1, 3

ODD ( A [ i , W ] ) =

true

+

-

F : = 7

P : = P * A [ i , W ]

C

C

F = 7

+

-

Вывод Р

Вывод

сообщения

В столбце

нет нечётных

элементов

Конец

Задача :

Организовать ручное заполнение

двумерного массива В, размерностью

9 х 9, целыми числами.

Заменить все элементы главной диагонали

на сумму их индексов.

Вывести на экран массив В ДО и ПОСЛЕ

изменения.

Начало

i : = 1, 9

j : = 1, 9

Введите

элемент

матрицы

Вывод сообщения

Ввод В [ i , j ]

A

A

Матрица

ДО изменения

Вывод сообщения

i : = 1, 9

j : = 1, 9

Переход на

новую строку

Вывод В [ i , j ]

В

В

i : = 1, 9

В [ i , i ] : = i + i

С

С

Матрица

ПОСЛЕ изменений

Вывод сообщения

i : = 1, 9

j : = 1, 9

Переход на

новую строку

Вывод В [ i , j ]

Конец

Задача :

Организовать случайное заполнение

двумерного массива М, размерностью

Т х Т, целыми числами.

Заменить все элементы выше главной

диагонали на первый элемент матрицы.

Вывести на экран массив М ДО и ПОСЛЕ

изменения.

1 0 ) Размерность Введена не верно ! Вывод сообщения + - ( Т =1) and ( Т 0 ) A " width="640"

Начало

Вывод

сообщения

Введите размерность

квадратной матрицы

( max = 10 )

Ввод Т

-

+

( Т or

( Т 1 0 )

Размерность

Введена не верно !

Вывод

сообщения

+

-

( Т =1) and

( Т 0 )

A

A

Randomize

i : = 1, Т

j : = 1, Т

М [ i , j ] : = Random ( 99 )

В

В

Матрица

ДО изменения

Вывод сообщения

i : = 1, Т

j : = 1, Т

Переход на

новую строку

Вывод М [ i , j ]

С

С

i : = 1, T

j : = 1, T

i

+

-

M [ i , j ] : = M [ 1 , 1 ]

D

D

Матрица

ПОСЛЕ изменений

Вывод сообщения

i : = 1, T

j : = 1, T

Переход на

новую строку

Вывод M [ i , j ]

Конец