Программирование на языке PASCAL

Введение

В современном мире специалисту любого профиля, да и вообще любому человеку, необходимо уметь мыслить логически для решения самых разнообразных задач, как жизненных, так и профессиональных. Ничто так не развивает логическое мышление, как занятие разработкой алгоритма решения поставленной задачи и непосредственно процесс программирования. Именно поэтому основы программирования на каком-либо алгоритмическом языке изучают в рамках учебной дисциплины «Основы информатики и ИКТ».

Кроме того, программирование – это очень творческое, увлекательное занятие. Как сказал Дональд Кнут в своей монографии «Искусство программирования», «оно может вызвать эстетические переживания, подобные тем, которые испытывают творческие личности при написании музыки или стихов».

В данном сборнике приведены задачи, для решения которых надо составить программы (раздел 1), и их решение (раздел 2) на языке Pascal в системе PascalABC, а именно, исходный текст программы и окно выполнения. Для некоторых задач, где есть ветвление, приведено два варианта выполнения программы.

Существует несколько модификаций языка программирования Pascal, наиболее популярная из них – TurboPascal. PascalABC отличается от TurboPascal незначительно, в основном различия касаются типов данных.

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

Цель настоящего пособия – помочь учащимся освоить основы программирования на языке Pascal.

Задача № 1.
Ввести два целых числа. Вычислить их сумму. Результат вывести на экран.
Ввести длину и ширину прямоугольника (два целых положительных числа). Вычислить площадь и периметр прямоугольника. Результат вывести на экран.
Вычислить площадь круга по формуле: S = 3,14R². Радиус вводить с клавиатуры. Результат вывести на экран в виде:
                    «Радиус равен . . . , площадь равна . . .»
Ввести с клавиатуры четырехзначное число. Вычислить произведение цифр этого числа. Результат вывести на экран.
Ввести координаты (x, y) точки на плоскости. Вычислить расстояние от точки до начала координат. Результат вывести на экран.

Задача № 2.
Составить программу, организующую следующий диалог.

ЭВМ:              Меня зовут IBM. А тебя?

Студент:        < имя >                     

ЭВМ:              А фамилия?

Студент:        < фамилия >

ЭВМ:              Какое твое любимое занятие?

Студент:        < хобби >

ЭВМ:              Понятно. Твое хобби - . . . . Тебя зовут . . . , фамилия . . . .

Задача № 3.
Составить программу, организующую следующий диалог.

ЭВМ:              В каком городе ты живешь?

Студент:        ввести ответ < название города >

ЭВМ:              Как называется твоя улица?

Студент:        < название улицы >

ЭВМ:              А номер дома?

Студент:        < номер дома >

ЭВМ:              Понял, ты живешь по адресу: г. . . . , ул. . . . , дом №  . . . .

Задача № 4.
Составить программу, организующую следующий диалог.

ЭВМ:              Я компьютер. А как тебя зовут?

Студент:        ввести ответ  < имя >

ЭВМ:              Привет,  . . .!

ЭВМ:              А фамилия?

Студент:        ввести ответ   < фамилия >

ЭВМ:              Я знаю еще одного студента с фамилией . . . . На каком курсе учишься?

Студент:        < номер курса >      

ЭВМ:              Так ты уже < номер курса >- курсник!

ЭВМ:              А в какой группе ты учишься?

Студент:        < шифр группы >

ЭВМ:              Итак, ты учащийся . . .  курса . . .  группы

Студент:        Да, скоро перейду на . . .  курс

ЭВМ:              А  "двойки"  у тебя есть?

Студент:        < ответ (да нет) >

ЭВМ:              У моего приятеля тоже . . . 

ЭВМ:              Какое у тебя хобби?

Студент:        < ответ >

ЭВМ:              Так ты занимаешься в секции . . . а?

Студент:        < ответ (да нет) >

ЭВМ:              Приятно было познакомиться, . . . !

Студент:        Пока, компьютер

1.2.Тема: Ветвление в программе. Условный оператор, оператор выбора

Задача № 5.
Ввести с клавиатуры два целых числа из диапазона от 0 до 255. Если первое из них больше второго, то вычислить их сумму, а иначе вычислить их произведение. Результат вывести на экран.
Ввести с клавиатуры вещественное число M. Вычислить значение функции N по следующему алгоритму:
   N = 4 M + 5    при M ≥ 2
   N = 3 M – 8     при M < 2
Вывести на экран значение M и результат.
Составить программу, организующую следующий диалог.

ЭВМ:              В каком городе ты живешь?

Студент:        ввести ответ < название города >

ЭВМ:              (при ответе «Лермонтов»)             Рядом с колледжем живешь!

                        (при других ответах)                       Приходится ездить?

ЭВМ:              (в любом случае)                             Надо учиться!

Задача № 6.
Решить квадратное уравнение вида ах²+вх+с. Коэффициенты а, в, с вводить с клавиатуры. Напечатать количество корней и значения корней.

Задача № 7.
Написать программу, которая по номеру дня недели (целому числу от 1 до 7) печатает на экране название этого дня.
Написать программу, которая по номеру дня недели (целому числу от 1 до 7) печатает на экране, является ли этот день будним или выходным и печатает название этого дня.

Всего в сборнике 30 задач и их решения также приведены.

Рожкова Г.Е. Программирование на языке PASCAL. Задачи и решения 39

Сборник прАктических заданиЙ

Задачи и решения

по теме «Программирование на языке PASCAL»

по предмету «Основы информатики и ИКТ»

г.Лермонтов

2012

СОДЕРЖАНИЕ

Введение

В современном мире специалисту любого профиля, да и вообще любому человеку, необходимо уметь мыслить логически для решения самых разнообразных задач, как жизненных, так и профессиональных. Ничто так не развивает логическое мышление, как занятие разработкой алгоритма решения поставленной задачи и непосредственно процесс программирования. Именно поэтому основы программирования на каком-либо алгоритмическом языке изучают в рамках учебной дисциплины «Основы информатики и ИКТ».

Кроме того, программирование – это очень творческое, увлекательное занятие. Как сказал Дональд Кнут в своей монографии «Искусство программирования», «оно может вызвать эстетические переживания, подобные тем, которые испытывают творческие личности при написании музыки или стихов».

В данном сборнике приведены задачи, для решения которых надо составить программы (раздел 1), и их решение (раздел 2) на языке Pascal в системе PascalABC, а именно, исходный текст программы и окно выполнения. Для некоторых задач, где есть ветвление, приведено два варианта выполнения программы.

Существует несколько модификаций языка программирования Pascal, наиболее популярная из них – TurboPascal. PascalABC отличается от TurboPascal незначительно, в основном различия касаются типов данных.

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

Цель настоящего пособия – помочь учащимся освоить основы программирования на языке Pascal.

1. ПРАКТИЧЕСКИЕ ЗАДАНИЯ

1.1.Тема: Ввод, вывод данных. Арифметические действия

1. 
   Ввести два целых числа. Вычислить их сумму. Результат вывести на экран.
   
   

2. 
   Ввести длину и ширину прямоугольника (два целых положительных числа). Вычислить площадь и периметр прямоугольника. Результат вывести на экран.
   
   

3. 
   Вычислить площадь круга по формуле: S = 3,14R². Радиус вводить с клавиатуры. Результат вывести на экран в виде:
   «Радиус равен . . . , площадь равна . . .»
   
   

4. 
   Ввести с клавиатуры четырехзначное число. Вычислить произведение цифр этого числа. Результат вывести на экран.
   
   

5. 
   Ввести координаты (x, y) точки на плоскости. Вычислить расстояние от точки до начала координат. Результат вывести на экран.

1. 
   Составить программу, организующую следующий диалог.

ЭВМ: Меня зовут IBM. А тебя?

Студент: имя

ЭВМ: А фамилия?

Студент: фамилия

ЭВМ: Какое твое любимое занятие?

Студент: хобби

ЭВМ: Понятно. Твое хобби - . . . . Тебя зовут . . . , фамилия . . . .

1. 
   Составить программу, организующую следующий диалог.

ЭВМ: В каком городе ты живешь?

Студент: ввести ответ название города

ЭВМ: Как называется твоя улица?

Студент: название улицы

ЭВМ: А номер дома?

Студент: номер дома

ЭВМ: Понял, ты живешь по адресу: г. . . . , ул. . . . , дом № . . . .

1. 
   Составить программу, организующую следующий диалог.

ЭВМ: Я компьютер. А как тебя зовут?

Студент: ввести ответ имя

ЭВМ: Привет, . . .!

ЭВМ: А фамилия?

Студент: ввести ответ фамилия

ЭВМ: Я знаю еще одного студента с фамилией . . . . На каком курсе учишься?

Студент: номер курса

ЭВМ: Так ты уже номер курса - курсник!

ЭВМ: А в какой группе ты учишься?

Студент: шифр группы

ЭВМ: Итак, ты учащийся . . . курса . . . группы

Студент: Да, скоро перейду на . . . курс

ЭВМ: А "двойки" у тебя есть?

Студент: ответ (да \ нет)

ЭВМ: У моего приятеля тоже . . .

ЭВМ: Какое у тебя хобби?

Студент: ответ

ЭВМ: Так ты занимаешься в секции . . . а?

Студент: ответ (да \ нет)

ЭВМ: Приятно было познакомиться, . . . !

Студент: Пока, компьютер

1.2.Тема: Ветвление в программе. Условный оператор, оператор выбора

1. 
   Ввести с клавиатуры два целых числа из диапазона от 0 до 255. Если первое из них больше второго, то вычислить их сумму, а иначе вычислить их произведение. Результат вывести на экран.
   
   

2. 
   Ввести с клавиатуры вещественное число M. Вычислить значение функции N по следующему алгоритму:
   N = 4 M + 5 при M ≥ 2
   N = 3 M – 8 при M Вывести на экран значение M и результат.
   
   

3. 
   Составить программу, организующую следующий диалог.

ЭВМ: В каком городе ты живешь?

Студент: ввести ответ название города

ЭВМ: (при ответе «Лермонтов») Рядом с колледжем живешь!

(при других ответах) Приходится ездить?

ЭВМ: (в любом случае) Надо учиться!

1. 
   Решить квадратное уравнение вида ах²+вх+с. Коэффициенты а, в, с вводить с клавиатуры. Напечатать количество корней и значения корней.

1. 
   Написать программу, которая по номеру дня недели (целому числу от 1 до 7) печатает на экране название этого дня.
   
   

2. 
   Написать программу, которая по номеру дня недели (целому числу от 1 до 7) печатает на экране, является ли этот день будним или выходным и печатает название этого дня.
   
   

3. 
   Написать программу, которая по числу (целому числу от 1 до 31) печатает на экране, является ли этот день мая праздником (и каким), или субботой, или воскресеньем, или рабочим днем.
   
   

1.3.Тема: Циклы

1. 
   Напечатать в столбик все натуральные числа от 1 до 20 включительно.
   
   

2. 
   Напечатать в одной строке через пробел все натуральные числа от 1 до 20 включительно.
   
   

3. 
   Ввести натуральное число M. Напечатать все натуральные числа от 1 до M включительно.
   
   

4. 
   Вычислить сумму натуральных чисел от 1 до 100 включительно. Результат вывести на экран

1. 
   Ввести с клавиатуры любое натуральное число ли ноль. Подсчитать количество цифр в этом числе. Результат вывести на экран.
   
   

У гусей и кроликов вместе 64 лапы. Сколько может быть кроликов и гусей (указать все сочетания и количество вариантов)?

1. 
   Определить, являются ли результаты вычислений по формуле х²+х+17 при 0  х 15 простыми числами. Все результаты вывести на экран. В конце напечатать «Все числа простые» или «Не все числа простые» (простыми называют числа, которые делятся без остатка только на себя и на 1).

1. Составить алгоритм решения ребуса КОТ + КОТ + 100 = ТОК (различные буквы обозначают различные цифры, старшая – не 0).

1. 
   Ежемесячная стипендия студента составляет А руб., а расходы на проживание превышают стипендию и составляют В руб. в месяц. Рост цен ежемесячно увеличивает расходы 3%. Составьте программу расчета суммы денег, которую необходимо единовременно попросить у родителей, чтобы можно было прожить учебный год (10 месяцев), используя только эти деньги стипендию.

1. 
   Вычислить количество точек с целочисленными координатам, находящимися в круге радиуса R (R0). Точки, лежащие на окружности, также входят в это число. Результат вывести на экран.

1. 
   Найти сумму гармонического ряда: . Суммирование прекращается, когда
   
   слагаемое становится меньше е или i достигает значения MaxInt (максимальное целое).

1. 
   Ввести символьную строку. Удалить все пробелы. Полученную строку вывести на экран.
   
   

2. 
   Ввести символьную строку. Вставить пробел после каждого символа. Полученную строку вывести на экран.

1. 
   Ввести символьную строку. Является ли она палиндромом (т.е. читается ли одинаково слева направо и справа налево)? Ответ вывести на экран.

1. 
   Сформировать и вывести на экран матрицу:

1. 
   Сформировать и вывести на экран матрицу:

1. 
   Сформировать и вывести на экран матрицу:

1. 
   Сформировать и вывести на экран матрицу:

1. 
   Вычислить и напечатать таблицу умножения от 1 до 9 в виде:
   
   

1. 
   Сформировать и вывести на экран квадратную матрицу (число строк равно числу столбцов):

1. 
   Ввести целое положительное двоичное число (последовательность нулей и единиц). Преобразовать его в десятичное число. Результат вывести на экран.

2. РЕШЕНИЯ

2.1.Тема: Ввод, вывод данных. Арифметические действия

Задача 1

Замечание: при вводе с клавиатуры данные разделяются пробелом, в конце нажать Enter. Например: ввести число 5, затем нажать клавишу Пробел, затем – число 12, затем нажать клавишу Enter.

Задача 2

Задача 3

Задача 4

Замечание: в фигурных скобках вводятся так называемые «комментарии». Они служат для пояснений к тексту программы, на работу программы они не влияют.

Задача 5

Задача 6

Задача 7

Задача 8

2.2.Тема: Ветвление в программе. Условный оператор, оператор выбора

Задача 9

Задача 10

Задача 11

При другом ответе – выполнение по другой ветви программы:

Задача 12

Задача 13

При другом ответе:

Задача 14

При другом ответе:

Задача 15

2.3.Тема: Циклы

Задача 16

Задача 17

Задача 18

Задача 19

Задача 20

Та же задача с другим оператором цикла:

Задача 21

Задача 22

Задача 23

Задача 24

Задача 25

Задача 26

Задача 27

Задача 28

Задача 29

Задача 30

Задача 31

Задача 32

Задача 33

Задача 34

Задача 35

Задача 36

Заключение

Знакомство с азами программирования полезно для всех учащихся, так как помогает развитию у них логического мышления, а это необходимо при решении самых разных проблем, в том числе, и при работе в различных областях профессиональной деятельности.

В настоящем пособии приведены задачи и их решения на языке Pascal. Задачи сгруппированы по темам: «Ввод, вывод данных. Арифметические действия», «Ветвление в программе. Условный оператор, оператор выбора» и «Циклы». Рассматриваются задачи на вычисление, на составление программы-диалога, работу с массивами, со строковыми данными и др.

Пособие призвано помочь учащимся познакомиться с языком программирования Pascal, научиться создавать программы с использованием различных операторов для реализации основных алгоритмических конструкций в программе.

СПИСОК РЕКОМЕНДУЕМОЙ ЛИТЕРАТУРЫ

1. О.Н.Перминов. Программирование на языке Паскаль. Москва, Радио и связь, 2002

2. И.Г.Семакин, А.П.Шестаков. Основы программирования. М., «Академия», 2004. – 432