- •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. Решение задач на двухмерные массивы.
26. Объявление массивов в программе.
Var имя, имя, имя : Array[диапазон значений индексов] of Тип;
Примеры:
Var a,b,c : Array[1..10] of Real; k, m : Array[1..4,1..3] of Integer; fio : Array[1..25] of String; |
Три массива, каждый из 10 вещественных чисел Два двухмерных массива по 12 целых чисел Один одномерный массив из 25 строк |
После объявления массивов они пусты. Поэтому перед обработкой массивов их нужно заполнять данными.
27. Заполнение одномерных массивов данными.
А) Данные вводятся с клавиатуры через пробел
Program OM_Kbd; Const n=5; Var a: Array[1..n] of Integer; i: Integer; Begin WriteLn(‘Введите ’,n,’ чисел:’); For i:=1 To n Do Read(a[i]); ReadLn; Решение основной задачи ReadLn; End. |
Имя программы – придумали сами Константа n – число элементов в массиве Объявляем массив из n целых чисел Объявляем переменную для цикла
Подсказка для ввода чисел Основной цикл по вводу чисел Обязательная команда для завершения ввода через <Enter> Место для решения основной задачи Обычная пауза Завершение программы. |
Б) Данные создаются генератором случайных чисел, человеку вводить ничего не надо.
При использовании генератора случайных чисел его нужно сначала инициализировать с помощью команды:
Randomize;
Далее можно получать целые случайные числа из диапазона [0..N-1] с помощью функции Random(N), где N – целое положительное число.
Примеры:
Random(4) – даст случайное целое число из набора 0, 1, 2, 3
Random(10) – даст случайное целое число из набора 0, 1, 2, 3….9
Random(4)+2 – даст случайное целое число из набора 2, 3, 4, 5
Random(640) – даст случайное целое число из набора 0, 1, 2, 3….639
Random(480) – даст случайное целое число из набора 0, 1, 2, 3….479
Program OM_Rnd; Const n=50; Var a: Array[1..n] of Integer; i: Integer; Begin WriteLn(‘Массив случайных чисел:’); Randomize; For i:=1 To n Do Begin a[i]:=Random(21)-10; Write(a[i]:4); End; WriteLn; Решение основной задачи ReadLn; End. |
Имя программы – придумали сами Константа n – число элементов в массиве Объявляем массив из n целых чисел Объявляем переменную для цикла
Подсказка перед выводом чисел на экран Инициализация генератора случайных чисел Основной цикл Заполнение массива случайными числами Вывод на экран полученных чисел После вывода чисел переход на новую строку Место для решения основной задачи Обычная пауза Завершение программы. |