- •1. Структура программы.
- •2. Раздел объявлений.
- •3. Раздел исполняемых операторов.
- •4. Решение вычислительных задач.
- •5. Структура графической программы.
- •6. Графические операторы.
- •7. Решение графических задач.
- •8. Блок операторов.
- •9. Оператор ветвления.
- •10. Решение задач на ветвления.
- •11. Оператор цикла с параметром.
- •12. Решение задач на цикл с параметром.
- •13. Двойные и тройные циклы.
- •14. Решение задач на двойные циклы.
- •15. Решение задач на циклы по окружности.
- •16. Использование генератора случайных чисел.
- •17. Операции над строками.
- •18. Решение задач на обработку строк.
- •19. Функции пользователя.
- •20. Построение графиков функций.
- •21. Решение задач на построение графиков функций.
- •22. Подпрограммы.
- •23. Решение задач на подпрограммы.
- •1. Написать программу для построения изображения:
- •2. Добавьте в вашу программу следующие элементы:
- •3. Дополнительно добавьте следующие элементы.
- •24. Задача «Звездный коврик».
- •25. Понятие массива.
- •26. Объявление массивов в программе.
- •27. Заполнение одномерных массивов данными.
- •28. Решение простых задач на массивы.
- •29. Решение задач средней сложности.
- •30. Сортировка элементов массива.
- •31. Решение задач на сортировку.
- •32. Заполнение двухмерных массивов данными
- •33. Решение задач на двухмерные массивы.
31. Решение задач на сортировку.
Задача 1. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -10 до 10. Выполнить сортировку элементов массива по возрастанию.
За основу берем программу OM_Rnd
В области программы, предназначенной для решения основной задачи, вводим следующий код:
For k:=1 To n-1 Do For i:=1 To n-k Do
If a[i]>a[i+1] Then Begin p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p; End
WriteLn(‘Отсортированный массив:’);
For i:=1 To n Do Write(a[i]:4);WriteLn;
При этом следует не забыть объявить переменные k и p целого типа, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(21)-10.
В итоге получим следующую программу:
|
Program Sort; Const n=10; Var a: Array[1..n] of Integer; i: Integer; k,p: Integer; Begin WriteLn(‘Массив случайных чисел:’); Randomize; For i:=1 To n Do Begin a[i]:=Random(21)-10; Write(a[i]:4); End; WriteLn; |
|
For k:=1 To n-1 Do For i:=1 To n-k Do If a[i]>a[i+1] Then Begin p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p; End WriteLn(‘Отсортированный массив:’); For i:=1 To n Do Write(a[i]:4);WriteLn; |
|
ReadLn; End. |
Задача 2. Заполнить одномерный массив из 8 элементов целыми случайными числами в пределах от 0 до 10. Выполнить сортировку элементов массива по убыванию.
Задача 3. Заполнить одномерный массив из 20 элементов целыми случайными числами в пределах от -10 до 10. Выполнить сортировку первых 10-ти элементов массива по возрастанию, а вторых 10-ти по убыванию.
За основу берем программу из задачи №1.
Изменяем фрагмент сортировки:
For k:=1 To 9 Do For i:=1 To 10-k Do
If a[i]>a[i+1] Then Begin p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p; End
For k:=1 To 9 Do For i:=11 To n-k Do
If a[i]<a[i+1] Then Begin p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p; End
WriteLn(‘Отсортированный массив:’);
For i:=1 To n Do Write(a[i]:4);WriteLn;
Задача 4. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -5 до 5. Выполнить сортировку первых 5-ти элементов массива по убыванию, а вторых 5-ти по возрастанию.
Задача 5. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -2 до 2. Выполнить сортировку по возрастанию. Найти наибольший элемент и их количество.
За основу берем программу из задачи №1.
Изменяем фрагмент сортировки:
For k:=1 To n-1 Do For i:=1 To n-k Do
If a[i]>a[i+1] Then Begin p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p; End
For i:=1 To n Do Write(a[i]:4);WriteLn;
Max:=a[n];
Kol:=0;
For i:= To n Do If a[i]=Max Then Kol:=Kol+1;
WriteLn(‘Kol=’,Kol);
Нужно не забыть объявить переменные Max и Kol
Задача 6. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -2 до 2. Выполнить сортировку по возрастанию. Найти наименьший элемент и их количество.
Задача 7. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -2 до 2. Выполнить сортировку по убыванию. Найти наименьший элемент и их количество.