Программирование на Pascal / Delphi / Лабораторный практикум по программированию на Паскале / Лаб5П

Лабораторная работа 5

Циклы, с внутренними ветвлениями

Цель работы: Формирование умений и навыков в разработке циклических программ с с внутренними ветвлениями.

Что нужно знать для выполнения работы

1. Структура цикла, назначение и порядок следования его отдельных частей.

2. Операторы цикла и условные операторы.

3. Описание и использование одномерных массивов.

Примеры выполнения задания лабораторной работы

Пример 1

Составьте программу, нахождения наибольшего элемента данного массива а с указанием его номера.

Основная часть цикла – нахождение наибольшего из просморенных элементов массива и очередного. Для нахождения наибольшего из всех элементов достаточно в блоке подготовки цикла положить наибольший, равным а₁, а затем повторить цикл, изменяя номер элемента массива от 2 до n с шагом 1.

Схема алгоритма

Нет

Да

maxa:=a_i

nommax:=i

maxa:=a₁

nommax:=1

Рис. 5.1 Схема алгоритма программы примера 1

Текст программы

program lr5_1_1;

{Нахождение наибольшего элемента массива с указанием его номера

Назаров Л.В.}

uses

crt;

const

maxn=100;

var

n,i,nommax:integer;

maxa:real;

a:array[1..maxn] of real;

begin

clrscr;

write('Введите количество элементов массива a ');

readln(n);

writeln('Введите элементы массива a ');

for i:=1 to n do

begin

write('a[',i,']= ');

readln(a[i]);

end;

maxa:=a[1];

nommax:=1;

for i:=2 to n do

if maxa<a[i] then

begin

maxa:=a[i];

nommax:=i;

end;

writeln('Массив a ');

for i:=1 to n do

write(a[i]:8:2);

writeln;

writeln('Наибольший элемент a[',nommax,']=',maxa:8:2);

readkey;

end.

Задания

Разработать алгоритм решения задачи и программу ее реализующую. Программу испытать на контрольных примерах.

1. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n возрастающей.

2. Информация о температуре воздуха за месяц задана в виде массива. Определить, сколько раз температура опускалась ниже 0^оC. Число дней конкретного месяца ввести с клавиатуры.

3. Информация о среднесуточной температуре воздуха за месяц задана в виде массива. Определить, сколько дней температура была ниже среднесуточной.

4. Дан числовой массив А, состоящий из n-элементов. Найти среднее арифметической положительных элементов этого массива.

5. Дан числовой массив А, состоящий из n-элементов. Все положительные элементы этого массива уменьшить на 0.5.

6. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива больше заданного числа.

7. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива, являющихся нечетными числами.

8. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива, являющихся кратными 7.

9. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива кратных 3, но не кратных 5.

10. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива, удовлетворяющих условию А_i < (A_i-1 + A_i+1)/2.

11. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива, удовлетворяющих условию 2k<A_k<3k.

12. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива, имеющих четные порядковые номера и являющихся нечетными числами.

13. Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива, которые при делении на 7 дают остаток 1, 2 или 5.

14. Имеется n итоговых оценок студента. Определить является ли студент отличником.

15. Имеется n итоговых оценок студента. Определить является ли студент неуспевающим.

16. Имеется n итоговых оценок студента. Подсчитать количество двоек, троек, четверок и пятерок.

17. Дана последовательность х₁, х₂, …, х_n, упорядоченная в порядке возрастания и вещественное у. Найти такое k, что x_k < y  x_k.

18. Имеется n итоговых оценок студента. Расположить эти оценки в следующем порядке: пятерки, двойки, четверки, тройки.

19. Дана последовательность х₁, х₂, …, х_n.

Подсчитать количество таких троек, что x_i-1<x_i<x_i+1 (i=2,n-1).

20. Дана последовательность х₁,х₂,…,х_n. Найти номер элемента, который отличается от среднего арифметического значения элементов последовательности на минимальную величину.

21. Дана последовательность х₁,х₂,…,х_n. Найти наибольшую сумму подряд идущих элементов.

22. Дана последовательность х₁,х₂,…,х_n. Подсчитать количество элементов последовательности, больших среднего арифметического значения положительных элементов последовательности.

23. Дана последовательность натуральных чисел х₁,х₂,…,х_n. Изменить данную последовательность так, чтобы в начале стояли все четные, а затем нечетные элементы последовательности.

24. Дана последовательность натуральных чисел х₁,х₂,…,х_n. Изменить данную последовательность так, чтобы в начале стояли все нулевые элементы, затем отрицательные, а затем положительные элементы последовательности.

25. Даны две последовательности чисел а₁,а₂,…,а_n и b₁,b₂,…,b_n. Подсчитать, какое число раз встречается ситуация, когда а_i>b_i и а_i+1<b_i+1 (i=1,n-1).

26. Даны две последовательности чисел а₁,а₂,…,а_n и b₁,b₂,…,b_n. Найти i, при котором а_i+b_i наибольшая из всех таких пар.

27. Даны две последовательности чисел а₁,а₂,…,а_n и b₁,b₂,…,b_n. Найти количество пар а_i,b_i (i=1,n) таких, что оба числа в паре четные.

28. Дана последовательность х₁,х₂,…,х_n. Найти наибольший по модулю элемент последовательности с указанием его номера.

29. Дана последовательность х₁,х₂,…,х_n. Поменять местами самый большой элемент с самым маленьким.

30. Дана последовательность х₁,х₂,…,х_n. Найти самый большой по модулю отрицательный элемент.

31. Дана последовательность х₁,х₂,…,х_n и число у. Подсчитать количество элементов последовательности, которые меньше у.

32. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n убывающей;

33. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n невозрастающей.

34. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n неубывающей.

35. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n постоянной (все члены равны между собой).

36. Дана последовательность целых чисел a₁, a₂,...,a_n. Найти модуль наибольшего по модулю элемента последовательности.

37. Дана последовательность целых чисел a₁, a₂,...,a_n. Найти модуль наибольшего элемента последовательности.

38. Дана последовательность целых чисел a₁, a₂,...,a_n. Найти модуль наименьшего по модулю элемента.

39. Дана последовательность целых чисел a₁, a₂,...,a_n. Найти наименьший среди положительных элементов.

40. Дана последовательность целых чисел a₁, a₂,...,a_n. Найти наибольший среди отрицательных элементов.

41. Дана последовательность целых чисел a₁, a₂,...,a_n. Найти наибольший среди элементов, стоящих на четных местах.

42. Дана последовательность действительных чисел a₁, a₂,...,a_n. Найти сумму первых чисел, произведение которых меньше заданного числа b.

43. Дана последовательность действительных чисел a₁, a₂,...,a_n. Получить из заданной последовательности другую, в которой сначала бы шли отрицательные члены исходной последовательности, а затем неотрицательные.

44. Дана последовательность действительных чисел a₁, a₂,...,a_n. Найти сумму членов, удовлетворяющих условию |a_k|>k.

45.Даны координаты x_i и y_i n-точек на плоскости. Подсчитать количество точек, лежащих в первой четверти.

5