Readln;. Задача №10.Вставка элемента b на k-ое место в массив A длиной n
Readln;
End.
Задача №10.Вставка элемента b на k-ое место в массив A длиной n. Оператор цикла For (обратный пересчет)
Константа: n – длина массива.
Входные данные: элементы массива A[ i ], которые мы сами вводим с клавиатуры;
k – переменная, номер вставки элемента в массив A;
b –вставляемый элемент
Выходные данные: массив A со вставленным элементом b.
| Нет |
| Stop |
| i = n+1 |
| i ≤ k+1 |
| i = i -1 |
| да |
| A[i]:=A[i-1] |
Const n=7;
Var i, k: integer;
A: array [1..n+1] of integer;
Begin
For i:=1 to n do
Begin
Write(' введите A[' , i , '] ');
Readln(A[i]);
End;
Writeln(' массив A: ');
For i:=1 to n do Write(A[i]), ' ');
Write(' введите номер вставки k');
Readln(k);
For i:=n+1 downto k+1 do A[i]:=A[i-1];
A[k]:= b;
Write(' обновленный массив A: ');
For i:=1 to n do Write(A[i]), ' ');
Readln;
Readln;
End.
Задача № 11.Оператор цикла FOR. Прямой пересчет. Ввод матрицыA.
Константы: n - количество строк.
m - количество столбцов.
Рабочие переменные: i – внешний индекс элемента матрицы
j – внутренний индекс элемента матрицы.
| i = 1 |
| i ≤n |
| j = 1 |
| j ≤m |
| ввод A[ i, j ] |
| j = j + 1 |
| i = i + 1 |
| да |
| нет |
Program matr1;
Const n=2;
m=4;
Var i, j: integer;
A: array[1..n, 1..m] of integer;
Begin
For i:=1 to n do
For j:=1 to m do
Begin
Write(' vvedite A[ ', i, ' , ' , j, ' ] ');
Readln(A[ i, j ]);
End;
writeln(' matrica A: ');
For i:=1 to n do
Begin
write(' ');
For j:=1 to m do
Begin
write(A[ i, j ],' ');
End;
Writeln;
End;
Readln;
Readln;
End.
Задача № 12.Оператор цикла FOR. Прямой пересчет. Двойной цикл. Нахождение минимального элемента A[ i, j ] в каждой строке матрицы A.
Константы: n - количество строк.
m - количество столбцов.
Входные данные: А – матрица.
Рабочие переменные: i – индекс номера строки элемента матрицы, переменная внешнего цикла;
j –индекс номера столбца элемента матрицы, переменная внутреннего цикла.
Выходные данные: Т –переменная, в которой находим минимальный элемент матрицы.
| нет |
| да |
| i = 1 |
| i ≤n |
| j = 1 |
| j ≤m |
| j = j + 1 |
| i = i + 1 |
| да |
| нет |
| Т = 10000000 |
| A[ i, j ] < Т |
| Т = A[ i, j ] vbvbP:P:=j |
| нет |
| да |
| P:=j |
| вывод i, Т,P |
| Stop |
Const n=2;
m=4;
Var i, j, T, P: integer;
A: array[1..n, 1..m] of integer;
Begin
For i:=1 to n do
For j:=1 to m do
Begin
Write(' vvedite A[ ', i, ' , ' , j, ' ] ');
Readln(A[ i, j ]);
End;
writeln(' matrica A: ');
For i:=1 to n do
Begin
write(' ');
For j:=1 to m do
Begin
write(A[ i, j ],' ');
End;
Дата добавления: 2015-09-28; просмотров: 505;