Pascal

Нагаева И.А., Кузнецов И.А. Алгоритмизация и программирование. Практикум: учебное пособие; под редакцией И.А. Нагаевой. — Москва|Берлин: Издательство Директ-Медиа, 2019. — 168 с.

Нагаева И.А. Кузнецов И.А. Основы алгоритмизации и программирования: практикум : [12+] / И.А. Нагаева, И.А. Кузнецов. – Москва ; Берлин : Директ-Медиа, 2021. – 169 с.

Алгоритмизация и программирование. Практикум

Учебное пособие

Основная задача учебного пособия – изучение основ алгоритизации и программирования на практических примерах. Пособие представляет собой сборник задач для самостоятельного решения в среде разработки Pascal. Рассмотренные решения задач различной степени сложности демонстрируют возможности языка структурного программирования.

Пособие предназначено для школьников, абитуриентов, студентов, преподавателей.

Содержание

Введение
Практическая работа № 1. Структура программы. Процедуры ввода-вывода, оператор присваивания
Практическая работа № 2. Простые типы данных. Линейные алгоритмические конструкции
Практическая работа № 3. Условный оператор. Оператор многозначного ветвления
Практическая работа № 4. Циклические алгоритмические конструкции
Практическая работа № 5. Символьный тип данных
Практическая работа № 6. Процедуры и функции
Практическая работа № 7. Строковый тип данных
Практическая работа № 8. Одномерные массивы
Практическая работа № 9. Сортировка одномерных массивов
Практическая работа № 10. Двумерные массивы. Преобразование и построение матриц
Практическая работа № 11. Матричная алгебра
Практическая работа № 12. Тип данных множество
Практическая работа № 13. Перечисляемый и интервальный (диапазоны) типы данных
Практическая работа № 14. Тип данных Запись
Практическая работа № 15. Тип данных файл

Пример

Найти числа Фибоначчи от 1 до N. Каждое число в последовательности Фибоначчи, начиная с третьего, получается сложением двух предыдущих чисел: 1, 1, 2, 3, 5, 8, 13, 21, ….
Program example_4_16;
   Var a, b, c, n, i : integer;
   Begin
     Write('Введите  число n = ');
     Readln( n );
     a := 1;
     b := 1;
     write (a:5, b:5);
     i := 3;
     repeat
       c := a + b;
       write (c:5);
       a := b;
       b := c;
       i := i + 1;
     until i > n
end.