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; просмотров: 527;