Образовательный маршрут
Условный оператор в языке программирования Паскаль
Автор: Крутикова Е.М.
МАОУ СОШ №46, учитель информатики
Если Вы давно хотели освоить основы языка программирования Паскаль, узнать как составляют программы, а также рассмотреть операторы, используемые в компилятореFreePascal, но никак не получалось, тогда этот образовательный маршрут для Вас!
Подготовительный этап
Для работы по этому маршруту Вам необходим компьютер, подключенный к сети Интернет, компилятор FreePascal (если у Вас его нет, то ниже будет перечислено как можно установить дистрибутив этой программы) и около 50 минут вашего времени. В дальнейшем Вы узнаете какие условные операторы есть, а также сможете применить полученные знания на практике.
Титульный лист
Язык Паскаль был создан как учебный язык программирования в 1968 –1971г. Никлаусом Виртом. В настоящее время этот язык имеет более широкую сферу применения, чем предусматривалось при его создании. Целью работы Вирта было создание языка, который:
- Строился бы на небольшом количестве базовых понятий;
- Имел бы простой синтаксис;
- Допускал бы перевод программ в машинный код простым компилятором;
Все эти качества сделали язык очень популярным и удобным для применения в школе.
Процесс решения задач на компьютере – это совместная деятельность человека и ЭВМ.Для того, чтобы работа в программе осуществлялась параллельно с работой в образовательном маршруте, следует установить дистрибутив. Установка компилятора Pascal -процесс не очень сложный, но очень нужный. В этой статье рассказывается о том как правильно установить и настроить Free Pascal для работы в Windows 7 (установка дистрибутива займет 5 мин.)
Для лучшего знакомства с интерфейсом Free Pascal, посмотрите небольшой видеоролик. ( продолжительность 10 мин.)
После просмотра видеоролика необходимо повторить для себя следующие моменты:
Кто является разработчиком компилятораFree Pascal?
В каком году был создан язык Паскаль как учебный?
Расскажи о каждом пункте меню.
Содержание.
Сейчас на Вашем компьютере открыты: браузер интернета, образовательный маршрут, а также компилятор.
Один из важнейших операторов Паскаля – условный оператор. Он позволяет изменять порядок выполнения операторов в зависимости от некоторого условия, представляющего собой логическое выражение типа Boolean. Если значение равно True, то выполняется одна группа операторов, если False, то другая группа операторов или не выполняется ничего.
В языке Паскаль имеются два условных оператора: if (оператор ветвления) и case (оператор выбора). Оператор if обеспечивает выбор из двух альтернатив, оператор выбора case позволяет сделать выбор из произвольного числа имеющихся вариантов.
Полная форма условного оператора называется If-then-else.
Неполная форма условного оператора называется if-then.
Более подробно ознакомиться с блок-схемой операторов можно, если пройти по ссылке. Кроме этого, следует рассмотреть написание программы на языке Паскаль, с использованием данных операторов. Отдельно рассмотрим оператор выбора.
Теперь ты можешь сказать:
Какие 2 условные операторы есть в языке программирования Паскаль?
В чем разница между этими операторами?
Какие операторы ветвления if мы рассмотрели?
В чем разница написания программыоператоровif?
Рассмотрим примеры программ на операторы:
Полная форма условного оператора: Программа должна определять, ввел пользователь четное или нечетное число, и выводить на экран сообщение. Тогда программный код на языке Pascal может быть таким:
varn:integer;
begin
write ('Введите целое число: ');
readln (n);
if n mod 2 = 0 then
write ('Оно четное.')
else
write ('Оно нечетное.');
readln;
end.
Неполная форма условного оператора: В примере ниже, если переменная имеет значение меньше нуля, то ее значение изменяется (находится модуль числа). Если же значение переменной изначально больше нуля, то блок кода при операторе if вообще не выполняется, т.к. не соблюдено условие (n<0).
var n: integer;
begin
write ('Введитецелоечисло: ');
readln (n);
if n < 0 then
n := abs (n);
write (n);
readln;
end.
Оператор выбора: По введенному номеру дня недели вывести на экран его название.
var day: byte;
begin
writeln ('Введитеномерднянедели: ');
readln (day);
case day of
1: writeln ('Понедельник');
2: writeln ('Вторник');
3: writeln ('Среда');
4: writeln ('Четверг');
5: writeln ('Пятница');
6: writeln ('Суббота');
else
writeln ('Воскресенье');
end;
end.
Для компиляции и выполнения программы нажмите Ctrl+F9. Если вы сделали все как написано, то процесс должен пройти успешно. Чтобы посмотреть результат работы программы воспользуйтесь сочетанием клавиш Alt+F5.
Для закрепления материала, предлагаю Вам решить следующие задачи, которые находятся по ссылке. Здесь же представлены ответы, на случай, если Вы не уверены в правильности написания программы.
Задачи для самостоятельного выполнения:
Найти наибольшее из трех данных чисел.
Запишите условный оператор, в котором значение переменной вычисляется по формуле: a + b, если a – нечетное и a*b, если a – четное.
Вывести на экран номер четверти, которой принадлежит точка с координатами (x, y), при условии, что x и y отличны от 0.
После выполнения операторов
a := 0;
If a<>0 Then; a := 2 значение переменной равно двум. Объясните почему.
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае – сообщение ”M на N нацело не делится”.
Составьте программу, которая переводила бы арабские цифры в римские.
Составить программу, которая по номеру месяца определяла время года.
Заключение.
Молодец! Ты мужественно дошел до конца, выполнив все задания и узнал все условные операторы. Но перед тем, как закрыть этот маршрут, ответь на вопросы, чтобы узнать свой уровень усвоения материала, пройдя по ссылке на тему условный оператор if и оператор выбора case.
Желаем Вам удачи!
