Типовые задачи для составления программ на Pascal

Лабораторная работа 15.

Одномерные массивы

Массив - это множество однотипных элементов

При описа­нии массива необходимо указать общее число входящих в массив элементов и тип этих элементов. Например:

Var

А : array [1..10] of real;

В : array [1..5] of integer;

Из описания массивов следует, что одномерный массив А состоит из 10 вещественных чисел, а одномерный массив В состоит из 5 элементов целого типа.

При работе с массивами выполняются циклические дейст­вия.

Пример использования массивов.

В массиве Р(20) найти количество положительных элементов и сформировать новый массив Р1, каждый элемент которого полу­чается делением соответствующего элемента массива Р на найден­ное количество. Составить программу.

Программа на Паскале

VAR

Р, Р1 : ARRAY [1..20] OF REAL ;
К, I: INTEGER;

BEGIN

Writeln (‘Введите Р(20)’);

For i:=1 to 20 do Read P[i];

Readln;

K:=0;

For i:=1 to 20 do

If P[i] > 0 then k:=k+1;

For i:=1 to 20 do

P1[i]:=p[i]/k;

Writeln (‘Исходный массив Р’);

For i:=1 to 20 doWrite (p[i]:6:2);

Writeln;

Writeln (‘Количество положительных элементов = ’,k);

Writeln (‘Новый массив Р1’);

For i:=1 to 20 do write (p1[i]:6:2);

Writeln;

Readln

End.

Двумерные массивы

При описании двумерных массивов (матриц) необходимо указать границы изменения двух индексов и тип элементов матри­цы. Например:

Var

А : array [1..3, 1..5] of real;

В : array [1. .2,1. .2] of integer;

В данном примере матрица А состоит из трех строк и пяти столбцов, все элементы матрицы являются вещественными числами. Матрица В состоит из двух строк и двух столбцов. Элементы второй матрицы являются целыми числами.

Пример. Составить программу, которая в матрице А(4,5) оп­ределит сумму элементов каждой строки, выберет среди них наи­большую и выведет на экран дисплея матрицу А, суммы строк, наи­большую сумму и номер строки с наибольшей суммой.

Программа на Паскале

Var

А : array[1..4,1..5] ofreal;

C, N, I, J : integer;

max : real;

Begin

Writeln (‘Введите матрицу А(4,5)’);

For i:=1 to 4 do

For j:=1 to 5 do

Begin

Writeln (‘A(‘,I,’,’,j,’)=’);

Readln (a[I,j])

End;

For i:=1 to 4 do

Begin

C:=0;

For j:=1 to 5 do

C:=C + A[i,j];

Writeln ('Строка № ',i:10, 'сумма элементов = ', C:10:2);

ifi=1 then

Begin

max:= C; n:= i

end;

ifc> maxthen

Begin

max:= C; n:= i

End

end;

Writeln (‘Матрица А’);

For i:=1 to 4 do

Begin

Forj:=1 to 5 do

Write (A[i,j]:8:3);

Writeln

end;

Writeln(‘Максимальная сумма: ’,S:8:3);

Writeln(‘Номер строки: ‘,N:3) end.

Типовые задачи для составления программ на Pascal

(Задачи выбираются в соответствии с вариантом)

  1. Дан массив А(10), найти максимальный элемент, вывести на экран его значение и номер.
  2. Дан массив А(10), найти максимальный элемент среди отрицательных элементов, вывести на экран его значение и номер.
  3. Дан массив В(12), найти минимальный элемент, вывести его значение и номер
  4. Дан массив В(12), найти минимальный элемент среди положительных элементов, вывести на экран его значение и номер.
  5. Дан массив целых чисел К(15), найти и вывести на печать положительные элементы из этого массива.
  6. Дан массив целых чисел К(15), найти и вывести на печать отрицательные элементы из этого массива.
  7. Дан массив целых чисел К(15), найти и вывести на печать сумму положительных элементов этого массива.
  8. Дан массив целых чисел К(15), найти и вывести на печать сумму отрицательных элементов этого массива.
  9. Дан массив целых чисел К(15), найти и вывести на печать произведение положительных элементов этого массива.
  10. Дан массив целых чисел К(15), найти и вывести на печать произведение отрицательных элементов этого массива.
  11. Найти сумму максимального и минимального элементов массива А(10), вывести на экран сумму и найденные элементы.
  12. Найти произведение максимального и минимального элементов массива А(10), вывести на экран произведение и найденные элементы.
  13. Определить, сколько положительных элементов в массиве А(4) Вывести на экран количество положитель­ных элементов.
  14. Определить, сколько отрицательных элементов в массиве А(4) Вывести на экран количество отрицательных элементов.
  15. Определить, сколько нулевых элементов в массиве А(4) Вывести на экран количество нулевых элементов.
  16. Дан массив целых К(15), определить в нем сумму элементов, стоящих на нечетных местах. Вывести результат на экран.
  17. Дан массив целых К(15), определить в нем сумму элементов, стоящих на четных местах. Вывести результат на экран.
  18. В массиве М(20) заменить все отрицательные элементы их модулями. Вывести массив на экран.
  19. В массиве Х(10) определить, каким по счету идет эле­мент Z, если такого элемента нет, то вывести соответ­ствующее сообщение. Вывести массив X на экран.
  20. В массиве К(12) заменить на 10 все отрицательные эле­менты. Вывести массива на экран.
  21. Дан массив А(10,8), найти максимальный элемент, вывести на экран его значение и номер.
  22. Дан массив А(10,9), найти максимальный элемент среди отрицательных элементов, вывести на экран его значение и номер.
  23. Дан массив В(12,23), найти минимальный элемент, вывести его значение и номер
  24. Дан массив В(12,12), найти минимальный элемент среди положительных элементов, вывести на экран его значение и номер.
  25. Дан массив целых чисел К(15,12), найти и вывести на печать положительные элементы из этого массива.
  26. Дан массив целых чисел К(15,12), найти и вывести на печать отрицательные элементы из этого массива.
  27. Дан массив целых чисел К(15,10), найти и вывести на печать сумму положительных элементов этого массива.
  28. Дан массив целых чисел К(15,12), найти и вывести на печать сумму отрицательных элементов этого массива.
  29. Дан массив целых чисел К(n,m), найти и вывести на печать произведение положительных элементов этого массива.
  30. Дан массив целых чисел К(n,m), найти и вывести на печать произведение отрицательных элементов этого массива.
  31. Найти сумму максимального и минимального элементов массива А(n,m), вывести на экран сумму и найденные элементы.
  32. Найти произведение максимального и минимального элементов массива А(n,m), вывести на экран произведение и найденные элементы.
  33. Определить, сколько положительных элементов в массиве А(n,m) Вывести на экран количество положитель­ных элементов.
  34. Определить, сколько отрицательных элементов в массиве А(n,m) Вывести на экран количество отрицательных элементов.
  35. Определить, сколько нулевых элементов в массиве А(n,m) Вывести на экран количество нулевых элементов.
  36. Дан массив целых К(n,m), определить в нем сумму элементов, стоящих на нечетных местах. Вывести результат на экран.
  37. Дан массив целых К(n,m), определить в нем сумму элементов, стоящих на четных местах. Вывести результат на экран.
  38. В массиве М(n,m) заменить все отрицательные элементы их модулями. Вывести массив на экран.
  39. В массиве Х(n,m) определить, каким по счету идет эле­мент Z, если такого элемента нет, то вывести соответ­ствующее сообщение. Вывести массив X на экран.
  40. В массиве К(n,m) заменить на 10 все отрицательные эле­менты. Использовать в программе подпрограмму - функцию. Вывести массива на экран.
  41. Дан массив А(10), найти максимальный элемент, вывести на экран его значение и номер. Использовать в программе подпрограмму - функцию.
  42. Дан массив А(10), найти максимальный элемент среди отрицательных элементов, вывести на экран его значение и номер. Использовать в программе подпрограмму - функцию.
  43. Дан массив В(12), найти минимальный элемент, вывести его значение и номер. Использовать в программе подпрограмму - функцию.
  44. Дан массив В(12), найти минимальный элемент среди положительных элементов, вывести на экран его значение и номер. Использовать в программе подпрограмму - функцию.
  45. Дан массив целых чисел К(15), найти и вывести на печать положительные элементы из этого массива. Использовать в программе подпрограмму - функцию.
  46. Дан массив целых чисел К(15), найти и вывести на печать отрицательные элементы из этого массива. Использовать в программе подпрограмму - функцию.
  47. Дан массив целых чисел К(15), найти и вывести на печать сумму положительных элементов этого массива. Использовать в программе подпрограмму - функцию.
  48. Дан массив целых чисел К(15), найти и вывести на печать сумму отрицательных элементов этого массива. Использовать в программе подпрограмму - функцию.
  49. Дан массив целых чисел К(15), найти и вывести на печать произведение положительных элементов этого массива. Использовать в программе подпрограмму - функцию.
  50. Дан массив целых чисел К(15), найти и вывести на печать произведение отрицательных элементов этого массива. Использовать в программе подпрограмму - функцию.
  51. Найти сумму максимального и минимального элементов массива А(n,m), вывести на экран сумму и найденные элементы. Использовать в программе подпрограмму - функцию.
  52. Найти произведение максимального и минимального элементов массива А(n,m), вывести на экран произведение и найденные элементы. Использовать в программе подпрограмму - функцию.
  53. Определить, сколько положительных элементов в массиве А(n,m) Вывести на экран количество положитель­ных элементов. Использовать в программе подпрограмму - функцию.
  54. Определить, сколько отрицательных элементов в массиве А(n,m) Вывести на экран количество отрицательных элементов. Использовать в программе подпрограмму - функцию.
  55. Определить, сколько нулевых элементов в массиве А(n,m) Вывести на экран количество нулевых элементов. Использовать в программе подпрограмму - функцию.
  56. Дан массив целых К(n,m), определить в нем сумму элементов, стоящих на нечетных местах. Вывести результат на экран. Использовать в программе подпрограмму - функцию.
  57. Дан массив целых К(n,m), определить в нем сумму элементов, стоящих на четных местах. Вывести результат на экран. Использовать в программе подпрограмму - функцию.
  58. В массиве М(n,m) заменить все отрицательные элементы их модулями. Вывести массив на экран. Использовать в программе подпрограмму - функцию.
  59. В массиве Х(n,m) определить, каким по счету идет эле­мент Z, если такого элемента нет, то вывести соответ­ствующее сообщение. Вывести массив X на экран. Использовать в программе подпрограмму - функцию.
  60. В массиве К(n,m) заменить на 10 все отрицательные эле­менты. Вывести массива на экран. Использовать в программе подпрограмму - функцию.