лабы по информатике, егэ
лабораторные работы и задачи по программированию и информатике, егэ по информатике
Pascal: Проверь себя (двумерный массив в Паскаль)
Матрица в Паскале: формирование элементов и вывод
* Из задачника М. Э. Абрамян (Matrix1)
Разбор задания смотрите на видео:
var a:array [1..10,1..10] of integer; M, N, i, j:Integer; begin Write(‘M: ‘); Readln(M); Write(‘N: ‘); Readln(N); for i:=1 to M do for j:=1 to N do a[i,j]:=i*10; for i:=1 to M do begin for j:=1 to N do Write(‘ : ‘,a[i,j]); writeln(‘ : ‘); end; end.
* Из задачника М. Э. Абрамян (Matrix5)
var a:array [1..10,1..10] of integer; M, N, D, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); Write(‘D: ‘); Readln(D); Writeln(‘Nabor:’); for i:=1 to M do begin Write(i,’: ‘); readln(a[i,1]); end; for i:=1 to M do for j:=2 to N do a[i,j]:=a[i,j-1]+D; for i:=1 to M do begin for j:=1 to N do Write(‘ : ‘,a[i,j]); writeln(‘ : ‘); end; end.
* Из задачника М. Э. Абрамян (Matrix10)
var a:array [1..10,1..10] of integer; M, N, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); for i:=1 to M do begin for j:=1 to N do begin a[i,j]:=random(10)+1; write(a[i,j]:3) end; writeln; end; writeln; for i:=1 to M do begin j:=1; while (j —>
* Из задачника М. Э. Абрамян (Matrix11)
program Matrix11; var a:array [1..10,1..10] of integer; M, N, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); for i:=1 to M do begin writeln(i,’: ‘); for j:=1 to N do begin Write(j,’ : ‘); Read(a[i,j]); end; end; for i:=1 to M do begin for j:=1 to N do if i mod 2 <> 0 then Write(‘ : ‘,a[i,j]) else Write(‘ : ‘,a[i,N-j+1]); writeln(‘ : ‘); end; end.
Матрица в Паскале: анализ элементов
* Из задачника М. Э. Абрамян (Matrix18)
var a:array [1..10,1..10] of integer; M, N, K, Sum, Mult, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); Write(‘K: ‘); Readln(K); for i:=1 to M do begin writeln(i,’: ‘); for j:=1 to N do begin Write(j,’ : ‘); Read(a[i,j]); end; end; Sum:=0; Mult:=1; for i:=1 to M do begin Sum:=Sum+a[i,K]; Mult:=Mult*a[i,K]; end; Write(‘Sum:’,Sum, ‘ Mult: ‘,Mult); end.
* Из задачника М. Э. Абрамян (Matrix23)
var a:array [1..10,1..10] of integer; Min,M, N, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); for i:=1 to M do begin writeln(i,’: ‘); for j:=1 to N do begin Write(j,’ : ‘); Read(a[i,j]); end; end; for i:=1 to M do begin write(i,’: ‘); Min:=a[i,1]; for j:=2 to N do begin if a[i,j] —>
* Из задачника М. Э. Абрамян (Matrix26)
var a:array [1..10,1..10] of integer; Mult,MinMult,MinI,M, N, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); for i:=1 to M do begin for j:=1 to N do begin a[i,j]:=random(10)+1; write(a[i,j]:3) end; writeln; end; MinMult:=1; for i:=1 to M do begin MinMult:=MinMult*a[i,1]; end; MinI:=1; for j:=2 to N do begin Mult:=1; for i:=1 to M do begin Mult:=Mult*a[i,j]; end; if Mult —>
* Из задачника М. Э. Абрамян (Matrix27)
Предлагаем посмотреть видео с объяснением и решением задания с матрицами в pascal:
var a: array [1..10, 1..10] of integer; MaxMin, MinEl, M, N, i, j: Integer; begin Write(‘N: ‘);Readln(N); Write(‘M: ‘);Readln(M); for i := 1 to M do begin for j := 1 to N do begin a[i, j] := random(21); write(a[i, j]:3); end; writeln; end; writeln(‘Минимальные элементы:’); for i := 1 to M do begin MinEl:=a[i,1]; for j := 2 to N do begin if a[i,j] MaxMin) or(i=1) then MaxMin:=minEl end; writeln; writeln(‘———‘); write(MaxMin:3) end.
* Из задачника М. Э. Абрамян (Matrix28)
var a: array [1..10, 1..10] of integer; MinMax, MaxEl, M, N, i, j: Integer; begin Write(‘N: ‘);Readln(N); Write(‘M: ‘);Readln(M); for i := 1 to M do begin for j := 1 to N do begin a[i, j] := random(21); write(a[i, j]:3); end; writeln; end; writeln(‘Максимальные элементы:’); j:=1; for j := 1 to N do begin MaxEl:=a[1,j]; for i := 2 to M do begin if a[i,j]>maxEl then maxEl:=a[i,j]; end; write (maxEl:3); if (maxEl —>
* Из задачника М. Э. Абрамян (Matrix32)
var a:array [1..10,1..10] of integer; Num, M, N, i, j:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); randomize; for i:=1 to M do begin for j:=1 to N do begin a[i,j]:=random(9)-5; write(a[i,j]:3); end; writeln; end; for i:=1 to M do begin Num:=0; for j:=1 to N do if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j])); <если равное кол-во — то по выходу из цикла num=0>if Num=0 then break; end; if Num=0 then Writeln(i) else Writeln(0); end.
* Из задачника М. Э. Абрамян (Matrix34)
var a:array [1..10,1..10] of integer; Num, M, N, i, j,numStroki:Integer; begin Write(‘N: ‘); Readln(N); Write(‘M: ‘); Readln(M); randomize; for i:=1 to M do begin for j:=1 to N do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; numStroki:=0; for i:=1 to M do begin Num:=0; for j:=1 to N do if a[i,j]mod 2=0 then Num:=Num+1; if Num=N then numStroki:=i; end; Writeln(numStroki) end.
Двумерные массивы паскаль задачи с решением
1. Дана квадратная матрица. Произвести циклический сдвиг элементов каждого столбца матрицы на один элемент влево.
2. Дана квадратная матрица. Произвести циклический сдвиг элементов каждого столбца матрицы на один элемент вправо.
3. Дана квадратная матрица. Произвести циклический сдвиг элементов каждой строки матрицы на К элементов влево.
4. Дана прямоугольная матрица размерности MxN. Сформировать новую матрицу размерности MxN-2, в которой для каждой строки исходной матрицы из последовательности элементов A[I,1], A[I,2], …, A[I, N-1], A[I, N] создать новую последовательность A[I,1]*A[I,3], A[I,2]*A[I,4], …A[I, N-2]*A[I, N] без использования дополнительного массива.
5. Дана прямоугольная матрица размерности MxN. Сформировать одномерный массив, в который занести только первые (сверху вниз ) отрицательные элементы каждого столбца матрицы. Если таких элементов нет, то вывести соответствующее сообщение.
6. Дана прямоугольная матрица размерности MxN. Сформировать одномерный массив, в который занести только последние отрицательные элементы каждой строки матрицы. Если таких элементов нет, то вывести соответствующее сообщение.
7. Дана прямоугольная матрица размерности MxN, все элементы, которой различны. Сформировать одномерный массив, в который занести наибольшие элементы каждого столбца матрицы.
8. Дана прямоугольная матрица размерности MxN, все элементы, которой различны. Сформировать одномерный массив, в который занести наименьшие элементы каждой строки матрицы
9. Дана прямоугольная матрица размерности MxN. Сформировать одномерный массив, в который занести первые (сверху вниз ) максимальные элементы каждого столбца матрицы
10. Дана прямоугольная матрица размерности MxN. Сформировать одномерный массив, в который занести последние (сверху вниз ) минимальные элементы каждого столбца матрицы
11. Дана прямоугольная матрица размерности MxN. Сформировать одномерный массив, в который занести последние минимальные элементы каждой строки матрицы.
12. Дана прямоугольная матрица размерности MxN. Сформировать два одномерных массива: в первый занести количество положительных элементов в каждом столбце; во второй – количество отрицательных элементов в каждом столбце матрицы.
13. Дана прямоугольная матрица размерности MxN. Сформировать вектор В, где: B[I]=1, если элементы I строки составляют строго возрастающую последовательность; B[I]=0 если элементы I строки не составляют строго возрастающую последовательность.
14. Дана прямоугольная матрица размерности MxN. Сформировать вектор В, где: B[I]=1, если элементы I столбца составляют строго убывающую последовательность; B[I]=0 если элементы I столбца не составляют строго убывающую последовательность.
15. Дана прямоугольная матрица размерности Nx2N. Сформировать новую матрицу той же размерности, в которой для каждой строки исходной матрицы из последовательности A[I,1],A[I,2],….A[I,2N-1],A[I,2N] сформировать новую последовательность A[I,1], A[I,2N], A[I,2], A[I,2N-1], …, A[I, N], A[I, N+1].
16. Дана прямоугольная матрица размерности 2NxN. Сформировать новую матрицу той же размерности, в которой для каждого столбца исходной матрицы из последовательности A[1,I],A[2,I],…,A[2N-1,I],A[2N, I] сформировать новую последовательность A[2N, I],A[N, I],A[2N-1,I],A[N-1,I],…,A[N+1,I],A[1,I].
17. Дана прямоугольная матрица размерности MxN. Сформировать вектор В, где: B[I] – это количество элементов в I –том столбце, равных заданному значению.
18. Дана прямоугольная матрица размерности MxN и заданное значение. Составить и вывести новый одномерный массив, в который занести произведение I*J элементов исходной матрицы, равных заданному значению (I, J – номера строки и столбца).
19. Дана прямоугольная матрица размерности MxN и заданное значение. Составить и вывести новый одномерный массив со значениями элементов исходной матрицы, не равных заданному значению.
20. Дана прямоугольная матрица размерности MxN. Сформировать вектор В, где: B[I] – это процент нулевых элементов в I –том столбце матрицы.
21. Дана прямоугольная матрица размерности MxN. Сформировать вектор В, где: B[I]=1, если сумма положительных элементов в I – том столбце больше модуля сумы отрицательных элементов в этом столбце и B[I]=0 — если нет.
22. Дана прямоугольная матрица размерности MxN. Сформировать одномерный массив, в который занести номера тех строк, в которых есть одинаковые элементы. Если таких строк нет, то вывести соответствующее сообщение
23. Дана прямоугольная матрица размерности MxN и заданное значение. Создать одномерный массив, в который занести элементы данной матрицы, меньшие заданного значения.
24. Дана прямоугольная матрица размерности MxN «A». Вводится дополнительный массив «B» разрешенных значений. Создать новый массив “C”, где C[I] – количество элементов I-той строки исходной матрицы»A», имеющих неразрешенные значения
25. Дана прямоугольная матрица размерности MxN «A». Вводится дополнительный массив «B» разрешенных значений. Создать новый массив “C”, где C[I] – количество элементов I-того столбца исходной матрицы»A», имеющих неразрешенные значения
26. Дана прямоугольная матрица размерности MxN «A».Переписать элементы каждого столбца матрицы «A»в обратном порядке на том же месте (перевернуть каждый столбец матрицы «A» без использования дополнительного массива).
27. Дана квадратная матрица. Произвести транспонирование (переворот) матрицы относительно ее главной диагонали. Сформировать новый одномерный массив, в который занести элементы четных строк полученной матрицы в последовательности сверху вниз и слева направо.
28. Дана квадратная матрица. Произвести переворот матрицы относительно ее побочной диагонали. Поменять местами элементы главной и побочной диагонали в каждой строке полученной матрицы.
29. Дана прямоугольная целочисленная матрица. Произвести инвертирование (переворот) элементов нечетных столбцов без использования дополнительного массива и затем сформировать новый одномерный массив, в который занести элементы матрицы, кратные 2 .
30. Дана прямоугольная матрица. Сформировать новый одномерный массив, в который занести элементы, кратные семи и расположенные на соседних двух диагоналях, параллельных главной. Если таких элементов нет, то вывести соответствующее сообщение.
Двумерные массивы паскаль
Двумерный массив в Паскале представляет собой таблицу, состоящую из нескольких одномерных массивов. Двумерные массивы Pascal называют матрицей. Положение элементов в матрице обозначается двумя индексами.
Рассмотрим матрицу 3*3, то есть она будет состоять из 3 строк и 3 столбцов:
Каждый элемент обладает 2-мя индексами. Первый — номер строки, в котором располагается элемент, а второй – номер столбца. Следовательно, индекс элемента определяется местом пересечением столбца и строки . Например, a13 – это элемент, стоящий в первой строке и в третьем столбце массива.
Описание двумерного массива Паскаля.
Имеется ряд методов объявления двумерного массива.
Рассмотри способ, в котором указывается тип элемента и переменные.
В данном варианте матрица mas состоит из 4 строк, в каждой из которых 9 столбцов. При этом мы можем обратиться к любой i -й строке через mas [ i ], а к j -му элементу внутри i строки – m [ i , j ].
Во втором и третьем способе матрицу можно задать в одну строку.
Как и в предыдущем варианте, матрица имеет 4 строки и 9 столбцов, обращение к какому-либо элементу массива имеет вид: mas [ i , j ]. Значит, что элемент, расположен в i -й строке и j -м столбце. Важно не перепутать строки со столбцами, иначе произойдет ошибка в ответе.
Основные действия с двумерными массивами Паскаля
Все основные действия над матрицами выполняются поэлементно, причем типы данных элементов должны быть одинаковыми. То есть, если матрица состоит из чисел, то действия можно выполнять только с числами. Однако для реализации операции присваивания массивам достаточно быть одного размера. Например, дан массив
в ходе выполнения такой программы матрице а можно присвоить значения матрицы b ( a := b ).
Ввод двумерного массива Паскаля.
Для поочередного ввода элементов в матрицу необходимо перебрать элементы с 1-го столбца 1-ой строки до последнего столбца последней строки. Для этого используется два оператора цикла for, причем один вложен в другой.
Проанализируем образец ввода двумерного массива Паскаля с клавиатуры:
Способ заполнения двумерного массива Паскаля зависит от поставленной задачи. Например, функцию random (N) позволяет заполнять матрицу случайными величинами a[i,j]:=random(25)-10. Некоторые задачи требуют содержание выражений в матрице. Не забывайте, что в любом случае должен быть определен каждый элемент в каждых строках и столбцах.
Вывод двумерного массива Паскаля на экран.
При выводе элементы должны печатать по порядку индексов, то есть в строках элементы стоят друг за другом, а в столбах один под другим. Для этого необходимо написать следующие элементы кода:
Примечание! Использовать операторы readln ( a [ i , j ]), writeln именно в таком виде, в противном случае компилятор не сможет считать и напечатать элемент. Ввод в программу операторов в таком виде readln (a), writeln (a) не допустим, так как а – это переменная типа массив.
Представление двумерного массива Паскаля в памяти
В памяти ЭВМ элементы двумерного массива располагаются последовательно и занимают несколько байт. Например, элементы массива типа integer, будут занимать по 2 байта. А весь массив займет S^2 байта, где S – количество элементов в массиве.
В матрице для каждого элемента типа integer потребуется 2 байта памяти. Рассмотрим пример.
В данном случае необходимо 24 байт памяти.
Модель размещения массива M типа matrix в памяти.
Для любого элемента предоставляется две ячейки памяти, размещение осуществляется от первой строки до нижней, в порядке изменения индекса.
Между переменной и адресом ячейки устанавливается соответствие, однако, при объявлении матрицы программе известно только адрес начала массива, к остальным элементам адрес вычисляется по формуле:
где Addres – местоположение первого элемента, выделенного для массива; I , J – индексы элемента в двумерном массиве; SizeElemt – размер элемента массива (например, 2 байта для элементов типа integer ); sum – количество элементов в строке.
SizeElemt * sum *( I -1)+ SizeElemt *( J -1) — смещение относительно начала массива.
Какой размер памяти выделяется для массива?
Чтобы программа работала нормально, компьютер выделят память сегментами по 64 Кбайт. Один из сегментов отводится для данных, которые обрабатываются программой. Для каждой переменной отводится свой сегмент. Например, если переменная состоит из массива, то он не сможет занимать места больше, чем 65536 байт. Естественно, кроме массива в сегменте могут находится и другие переменные, поэтому объем памяти вычисляется по формуле 65536- S , где S – размер памяти, ранее отведенные под другие переменные.
Рассмотрим пример, в котором:
С точки зрения синтаксиса запись верная, но компилятор выдаст ошибку об объявлении слишком длинного массива.
Можно без труда подсчитать количество элементов, которые допустимы по формуле: 65536/2 –1=32767. Однако, других переменных не должно быть. Матрицы обладают еще меньшими пределами индексов.
Решим задачу с двумерным массивом Паскаля.
Задача: Вычислить произведение ненулевых элементов матрицы.
Решение:
- Для начала нужно установить переменные: матрицу, состоящую из целочисленных элементов; P – произведение элементов, не равное 0; I , J – индексы массива; N , M – количество строк и столбцов в матрице.
- Входные данные N , M пусть вводятся с клавиатуры, а матрица зададим с помощью функции random ().
- Выходными параметром получим P (произведение).
- Выведем матрицу на экран, для проверки работы программы.
А теперь поговорим о процедурах.
Примечание! Тип массива должен быть определен заранее. Например:
Для того чтобы вводимая матрица была передана в программу как результат следует воспользоваться процедурой vvod , В таком случае матрица будет передаваться по ссылке. В таком случае процедура выглядит следующее:
Print – процедуры вывода на экран матрицы, которая передается по значению.
Для реализации вложенных циклов внутри процедуры нужно ввести счетчики – k и h . Алгоритм вывода матрицы на экран был описан выше, используем это описанием.
Итак, опишем ход выполнения программы.
- Ввод значений N и M ;
- Обращаемся к процедурам vvod ( a ) и print ( a ) для ввода и вывода матрицы соответственно, где а – матрица;
- Переменной, которая отвечает за произведение P, присвоим значение 1;
- Поочередно перебираем элементы матрицы с индексом 11 до элемента с индексом Каждый элемент матрицы должен удовлетворять условию: если a ij ? 0, то произведение P умножаем на элемент a ij ( P = P * a ij );
- Выводим на экран результат произведения ненулевых элементов матрицы – P
Задачи на массивы
Сумма четных положительных элементов массива
В массиве, содержащем положительные и отрицательные целые числа, вычислить сумму четных положительных элементов.
Максимальный из элементов массива с четными индексами
В массиве найти максимальный элемент с четным индексом.
Другая формулировка задачи: среди элементов массива с четными индексами, найти тот, который имеет максимальное значение.
Элементы массива, которые меньше среднего арифметического
Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива.
Найти два наименьших (минимальных) элемента массива
В одномерном массиве целых чисел определить два наименьших элемента. Они могут быть как равны между собой (оба являться минимальными), так и различаться.
Сжать массив, удалив элементы, принадлежащие интервалу
Сжать массив, удалив из него все элементы, величина которых находится в интервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями.
Сумма модулей элементов массива, расположенных после первого отрицательного
Вычислить сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Например, в массиве [5, 3, -1, 8, 0, -6, 1] первый отрицательный элемент является третьим по счету, а сумма модулей стоящих после него элементов массива будет составлять 8 + 0 + 6 + 1 = 15.
Номер минимального по модулю элемента массива
Найти номер минимального по модулю элемента массива.
Например, в массиве [10, -3, -5, 2, 5] минимальным по модулю элементом является число 2. Его номер 4 (в языках, в которых индексация массивов начинается с нуля, его индекс будет равен 3).
Сумма цифр массива
Найти сумму всех цифр целочисленного массива. Например, если дан массив [12, 104, 81], то сумма всех его цифр будет равна 1 + 2 + 1 + 0 + 4 + 8 + 1 = 17.
Найти сумму элементов между минимальным и максимальным элементами массива
В одномерном массиве найти сумму элементов, находящихся между минимальным и максимальным элементами. Сами минимальный и максимальный элементы в сумму не включать.
Среднее арифметическое положительных элементов массива
Найти среднее арифметическое положительных элементов линейного массива.
Максимальный отрицательный элемент массива
В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.
Число, чаще всего встречающееся в массиве
Определить, какое число в массиве встречается чаще всего.
Поменять местами минимальный и максимальный элементы
В массиве случайных целых чисел поменять местами минимальный и максимальный элементы.
Сдвиг массива
Сдвинуть элементы массива в указанном направлении (влево или вправо) и на указанное число шагов. Освободившиеся ячейки заполнить нулями. Выводить массив после каждого шага.
Вывести неповторяющиеся элементы массива
В массиве найти элементы, которые в нем встречаются только один раз, и вывести их на экран. То есть найти и вывести уникальные элементы массива.
Реверс массива
Переставить элементы заданного массива в обратном порядке, то есть произвести реверс массива.
Найти наибольший элемент и его порядковый номер в массиве
Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший его элемент и порядковый номер этого элемента.
Сколько элементов массива больше по модулю максимального
Создать массив из 20 элементов в диапазоне значений от -15 до 14 включительно. Определить количество элементов по модулю больших, чем максимальный.
Удаление отрицательных элементов массива
Заполнить массив случайными положительными и отрицательными целыми числами. Вывести его на экран. Удалить из массива все отрицательные элементы и снова вывести.
Определить индексы четных элементов массива
Во втором массиве сохранить индексы четных элементов первого массива. Например, если дан массив со значениями 8, 3, 15, 6, 4, 2, то во второй массив надо заполнить значениями 1, 4, 5, 6 (или 0, 3, 4, 5 — если индексация начинается с нуля), т.к. именно в этих позициях первого массива стоят четные числа.
Найти максимальный по модулю элемент в массиве с уникальными по модулю значениями
Заполнить массив случайными положительными и отрицательными числами таким образом, чтобы все числа по модулю были разными. Это значит, что в массиве не может быть ни только двух равных чисел, но не может быть двух равных по модулю. В полученном массиве найти наибольшее по модулю число.
Сортировка выбором
Используя сортировку выбором отсортировать элементы массива по возрастанию.
Разложить положительные и отрицательные числа по разным массивам
Случайные числа в диапазоне от -5 до 5 разложить по двум массивам: в одни помещать только положительные, во второй — только отрицательные. Числа, равные нулю, игнорировать. Вывести на экран все сгенерированные случайные числа и элементы обоих массивов.
Вставка элемента в произвольное место массива
Заполнить вводом с клавиатуры численный массив за исключением последнего элемента, вывести его на экран. Запросить еще одно значение и его позицию в в массиве. Вставить указанное число в заданную позицию, подвинув элементы после него.
Сортировка методом пузырька
Отсортировать массив, заполненный случайными числами, по возрастанию. Для сортировки использовать метод «пузырька». Вывести на экран массив в исходном и отсортированном виде.
Количество кратных чисел от 2 до 99 числам от 2 до 9
В диапазоне натуральных чисел от 2 до 99 определить, сколько из них кратны любому из чисел в диапазоне от 2 до 9.
Количество положительных, отрицательных и равных нулю элементов массива
Сгенерировать 20 случайных целых чисел в диапазоне от -5 до 4, записать их в ячейки массива. Посчитать сколько среди них положительных, отрицательных и нулевых значений. Вывести на экран элементы массива и посчитанные количества.
Сумма и произведение элементов массива
Заполнить массив вещественных чисел вводом с клавиатуры. Посчитать сумму и произведение элементов массива. Вывести на экран сам массив, полученные сумму и произведение его элементов.
Заполнение и вывод массивов
Заполнить один массив случайными числами, другой — введенными с клавиатуры числами, в ячейки третьего записать суммы соответствующих ячеек первых двух. Вывести содержимое массивов на экран.