Создание и выполнение программ на языке программирования

Сегодня на уроке мы вспомним как программировать на языке Паскаль и разберём типовые задачи ОГЭ по информатике по данной теме.

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

Запускаем программу PascalABC.NET.

Вспомним основные элементы главного окна.

Панель инструментов содержит кнопки наиболее часто используемых команд меню.

Программа на языке Паскаль – это текстовый документ, который имеет расширение .pas.

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

Меню содержит следующие пункты:

Файл. Здесь есть команды, с помощью которых можно создать, открыть, сохранить и закрыть файлы или выйти из программы.

Правка. Содержит команды, которые дают возможность отменить и восстановить последние действий, вырезать, скопировать и вставить текстовые фрагменты. Также здесь можно организовать поиск и замену нужных фрагментов.

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

Программа. Здесь есть команды различных видов запуска, а также команды управления отладчиком.

Сервис. В этом пункте меню можно вызвать окно настройки и команду форматирования программного кода.

Модуль. Включает команду вызова окна отправки сообщений разработчикам и команды выполнения учебных примеров.

Помощь. Здесь находится встроенный электронный учебник.

Нижняя часть главного окна содержит три вкладки:

Окно вывода. Здесь можно увидеть выводимую информацию. Если есть запрос данных, то появится специальная строка ввода.

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

Сообщения компилятора. Выводится служебная информация, которая формируется при запуске программ.

Вспомним, какие есть возможности запуска программ:

· В пункте меню «Программа» нажать на пункт «Выполнить»;

· В пункте меню «Программа» нажать на пункт «Компилировать»;

· Выполнение в консольном окне, не связанном с PascalABC.NET. В пункте меню «Программа» выбрать пункт «Выполнить без связи с оболочкой»;

· Выполнение в режиме отладки.

Ну что же, перейдём к решению задач.

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, не кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 5. Программа должна вывести одно число – максимальное число, не кратное 5.

Давайте определимся, какие переменные нам понадобятся.

По условию задачи необходимо будет ввести с клавиатуры количество чисел. Обозначим это количество буквой n, а затем ещё n чисел. Значит, необходимо будет организовать цикл, который будет выполняться n раз. Так как нам известно, сколько раз будет выполняться цикл, то воспользуемся циклом FOR. Для работы данного цикла нам понадобится переменная-счётчик цикла. Её обычно обозначают буквой i. На каждом шаге цикла необходимо будет вводить с клавиатуры число. Обозначим для этих чисел переменную а. Также необходимо будет найти максимальное число, не кратное 5. Для хранения этого максимума обозначим переменную maximum.

Все эти переменные будут целого типа.

Давайте опишем перечисленные переменные:

var a, n, i, maximum: integer;

Далее пишем служебное слово begin, что означает начало программы.

В некоторых версиях после ввода begin автоматически появляется end.

Для считывания введённой с клавиатуры переменной эн пишем следующий код:

Для удобства давайте перед этой строкой оставим подсказку для пользователя. Она не обязательна, но тому, кто будет проверять, будет легче понять, что за число нужно ввести и для чего оно требуется.

writeln ('Введите количество вводимых чисел:');

readln (n);

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

maximum := 0;

Организуем цикл с шагом один от единицы до эн.

for i := 1 to n do

Записываем служебное слово begin, так как без него после оператора do может быть выполнен только один оператор или одна команда, а нам может потребоваться больше.

Теперь прописываем считывание с клавиатуры текущего элемента последовательности.

Но перед этим также оставим подсказку для пользователя.

begin

writeln ('Введите элемент последовательности:');

readln (a);

После ввода числа мы должны проверить, кратно ли оно 5 и больше ли оно максимума. Для этого воспользуемся оператором ветвления.

Число кратно 5, если при делении его на 5 в остатке остаётся 0. Применим специальный оператор mod. Так как нам нужно число НЕ кратное 5, то в условии пишем a mod 5 <> 0, что значит остаток от деления не равен 0.

if (a mod 5 <> 0)

Далее прописываем ещё одно условие, в котором проверяется, больше ли число максимума. Между условиями ставим and, так как оба эти условия должны выполнится.

Если оба условия выполняются, тогда считаем введённое число максимумом.

if (a mod 5 <> 0) and (a > maximum) then

maximum := a;

Закрываем цикл.

Выводим ответ на экран.

В конце программы не забываем про end.

end;

writeln ('Максимальное число не кратное 5:');

writeln (maximum);

end.

Теперь нажимаем на кнопку «Выполнить».

На вкладке «Окно вывода» читаем, что нужно сделать, и вводим необходимые данные в поле «Ввод данных». После ввода числа нажимаем на клавиатуре клавишу «Enter». И дальше вводим данные.

После того как последовательность чисел введена, появляется ответ.

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

Если на вкладке выводит сообщение «Параметр цикла for в Паскаль должен описываться в заголовке цикла», то в разделе описания переменных удаляем переменную i. А в описании цикла перед i ставим служебное слово var.

Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число, не оканчивающееся на 8. Программа получается на вход последовательность натуральных чисел, заканчивающуюся нулём. В последовательности всегда имеется чётное число, оканчивающееся на 8.

Количество чисел не превышает 2 000, введённые числа не превышают 20 000.

Программа должна вывести одно число – минимальное чётное число, не оканчивающееся на 8.

Согласно условиям задачи, мы должны будем вводить числа, пока не введём 0. То есть нам неизвестно количество вводимых чисел, значит, здесь мы не будем использовать цикл FOR, так как непонятно, сколько раз должен выполняться цикл. Воспользуемся циклом WHILE. Цикл будет работать, пока не будет введён 0. Чтобы цикл WHILE начал работу, должно быть известно первое число. Получается, что первое число необходимо ввести до начала работы цикла. Введённое число будет проверяться в цикле на соответствие условию и при необходимости переменная минимум будет меняться. В конце цикла необходимо будет ввести новое число.

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

Опишем переменные.

Далее пишем служебное слово begin.

Необходимо задать начальное значение переменной минимум. Согласно условию задачи, все элементы последовательности – это натуральные числа, значения которых не превышают 20 000, значит присвоим переменной минимум число, которое на единицу больше самого большого возможного значения элемента последовательности.

Далее прописываем код для считывания введённого с клавиатуры первого элемента последовательности.

Прописываем цикл WHILE, который будет работать, пока введённое число не будет равно нулю.

Записываем служебное слово begin.

Далее записываем оператор ветвления: если элемент последовательности будет чётным И не будет оканчиваться на 8, а также он будет меньше минимума, то будем считать его минимумом.

Не забываем прописать считывание очередного элемента с клавиатуры.

Закрываем цикл.

Выводим ответ на экран.

В конце программы не забываем про end.

Выполним программу. Вводим значения из таблицы, что дана после условий задачи.

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получается на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число, оканчивающееся на 3.

Количество чисел не превышает 100, введённые числа по модулю не превышают 400.

Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.

Для решения задачи нам понадобятся следующие переменные:

n – количество чисел последовательности.

а – вводимое число – элемент последовательности.

i – счётчик цикла.

summa – сумма чисел, оканчивающихся на 3.

Инициализируем переменные.

Начинаем программу.

Вводим с клавиатуры количество чисел последовательности.

Обнуляем переменную сумма.

Выполняем эн раз цикл, в котором вводим число, затем проверяем, заканчивается ли оно на 3. Если заканчивается, то прибавляем его к переменной сумма.

Заканчиваем цикл.

Выводим результат.

Заканчиваем программу.

Выполняем программу.

В конце урока попробуйте ответить на следующие вопросы:

Как выглядит знак присваивания?

Что такое служебные слова?

Зачем обнулять переменные?

Как объявить в программе переменные целого типа?

Как проверить чётное ли число?

Внимательно посмотрев урок, вам не составит труда ответить на вопросы.