уроков по теме «Программирование на языке Паскаль»

1.1 Создание программы.
Каталог с библиотеками Turbo Pascal называется TP (если у вас Borland Pascal то BP). В этом каталоге надо найти файл с именем turbo.exe, подвести к нему курсор и нажать <Enter>. При запуске системы появляется окно редактора текстов программ (его можно использовать и как текстовый редактор). Для входа в меню служит клавиша <F10> (или "мышь"). Строка меню расположена вверху экрана, передвижение по ней производится клавишами управления курсором. Если экран пуст, то можно сразу набирать текст программы, делая такие же отступы, какие имеются в примере. Эти отступы облегчают чтение текста и поиск ошибок. Если на экране после запуска системы находится ненужная программа, то следует войти в пункт меню File и выполнить команду New. Набор каждой строки программы завершается нажатием клавиши <Enter>.
1.2 Запуск программы.
Для выполнения программы надо выйти в меню и в пункте Run выполнить команду Run (или одновременно нажать клавиши Ctrl и F9). Система сначала запускает транслятор, который переводит программу с Паскаля на язык машинных кодов и ищет синтаксические ошибки в программе. Если они найдены, то программа не будет выполняться, произойдет возврат в редактор. Поверх текста программы появляется красная строка с сообщением об ошибке. После нажатия <Esc> окно исчезает, курсор устанавливается в строку с ошибкой. Для получения информации об ошибке надо нажать <Ctrl>+<F1>. Когда все ошибки исправлены, программа начинает выполняться.
Задание.
1. Запустите Паскаль и наберите текст приведенной программы. Для перехода на русский нажмите правые <Shift> + <Ctrl>, на английский левые <Shift> + <Ctrl>. Запустите программу на выполнение. Если нет ошибок, то на черном экране появится текст "Введите два числа". Наберите на клавиатуре через пробел два целых числа и нажмите <Enter>. После выполнения программы на экране появится окно редактора. Чтобы посмотреть полученный результат нажмите <Alt>+<F5>.
2. Сохраните программу. Нажмите <F2>, в появившемся окне введите имя файла (например, PRIM1_1).
3. Составьте программу для нахождения суммы трех чисел. Сохраните ее.

и 5 стандартных вещественных типов:

Аргумент функции обязательно заключается в скобки.
Выражение на Паскале, как впрочем, и на других языках программирования, записывается в одну строчку, а для сохранения порядка действий используются скобки. Все действия должны быть указаны. Например, 2Х + XY надо записать как 2*Х + Х*Y.

Если перевести на русский язык английские слова то получим:

ЕСЛИ условие ТО оператор_1 ИНАЧЕ оператор_2; или ЕСЛИ условие ТО оператор;

В качестве условия применяют операции сравнения: =, <>, <=, >=, <, >. Слева и справа от знака сравнения записывают арифметические выражения.
Например, оператор
If x<>0 then z:=y/x
еlse write('Ошибка!');
присвоит переменной Z значение частного y/x, если x<>0, в противном случае высветит на экране слово "Ошибка!".
7.2. Составной оператор.
В некоторых случаях после слов THEN и ELSE надо выполнить не один оператор, а несколько. Тогда эти операторы заключаются в так называемые операторные скобки, где BEGIN - открывающая скобка, END - закрывающая скобка. Все операторы находящиеся внутри операторных скобок называются составным оператором. Перед словом ELSE точка с запятой никогда не ставится.
Формат команды: BEGIN оператор; оператор; ... оператор END;
Например:
If a<b then
begin
R:=a;
A:=b
B:=r
End
После выполнения такого оператора в переменной А будет большее, а в переменной В - меньшее из двух значений, находившихся там ранее.

В качестве выполняемого в условном операторе действия может быть другой условный оператор. Например:
If sqr(x)+sqr(y)>1 then
If x>y then z:=0
Else z:=1;
При такой форме записи со сдвигом вправо для каждого внутреннего действия, легко понять, к какому из двух слов IF относится слово ELSE. Рассмотрим пример программы с использованием условного оператора. Пусть для двух целых чисел надо определить, являются они четными или нет. Для проверки четности используем условие: остаток от деления на 2 четного числа равен 0.
Program prim_7;
Var a,b:integer;
Begin
Write('введите два целых числа');
Readln(a,b);
If a mod 2 = 0 then Writeln (' а - четное ')
Else Writeln (' a - нечетное ');
If b mod 2 = 0 then Writeln (' b - четное ')
Else Writeln (' b -нечетное ');
Readln
End
Задания для тренировки.
1. Вычислить значение у при заданном значении х:
2. Ввести два числа. Напечатать сначала меньшее, затем большее из них.
3. Даны числа x и y. Вычислите число z, равное x+y, если x<=y, и 1 - х + y в противном случае
4. Даны два числа. Выведите первое из них, если оно больше второго, и оба числа, если это не так.
5. Если данное число х меньше нуля, то z присвойте значение большего из двух чисел х и у, иначе z присвойте значение полусуммы этих чисел.
6. *Даны два числа. Меньшее из них замените полусуммой этих чисел, а большее - их произведением.
7. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше?
8. Дано целое число. Определить:
a. Является ли оно четным;
b. Оканчивается ли оно цифрой 7;
c. Делится ли оно на 13.

Разбор тренировочного задания урока 6.
8. *Дано вещественное число А, содержащее два знака до запятой и два после. Получить новое число, поменяв в числе А целую и дробную части.

Данная задача не относится к целочисленной арифметике, ведь дано вещественное а не целое число. Попробуем найти целую и дробную части. А потом просто соберем новое число увеличив дробную часть в 100 раз и уменьшив целую часть тоже в 100 раз.

Program prim_8;
Var a,b,x1,x2:real;
Begin
Write('введите число');
Readln(a);
X1:=int(a) ; {целая часть}
X2:=frac(a); {дробная часть}
b:=x1/100+x2*100; {новое число}
Writeln(b);
Readln
End.
9. *В кассе имеются купюры достоинством в К рублей и в 1 рубль. Выдать N рублей минимальным набором купюр заданного достоинства.
Определим сколько купюр достоинством K необходимо для выдачи суммы наиболее близкой к данной, но меньше ее. А затем какую сумму осталось выдать.

Program prim_6;
Var k,n,m,p:integer;
Begin
Write('введите число рублей');
Readln(n);
Write('введите достоинство купюры');
Readln(k);
m:=n div k;
p:=n mod k;
Writeln(p,' купюр по 1 рублю, ', m,' купюр по ',k,'руб. Итого=',p+m);
Readln
End.

где А и В результат операции отношения.
Приоритеты логических операций: 1) not; 2) and; 3) or; 4) xor.
Примеры логических выражений:
a) (0<x) AND (x<=1)
b) (a=0) OR (abs(x)<5)
c) NOT (x=y)
Операции отношений имеют более низкий приоритет, чем логические операции, поэтому их следует заключать в скобки при использовании с логическими операциями.
Из переменных, констант, сравнений, логических операций и скобок можно строить логические выражения.
Рассмотрим следующую задачу:
Имеется прямоугольное отверстие со сторонами а и b и кирпич с ребрами х, у, z. Требуется определить пройдет ли кирпич в отверстие.
Решение.
Кирпич имеет три грани, каждую из которых мы можем повернуть на 90 градусов, т.е. для каждой грани надо проверит два случая. Итого шесть. Получаем условие:
(a>x)and(b>y) or (b>x) and (a>y) or
(a>x) and(z>y) or (z>x) and(a>y) or
(b>x) and(z>y) or (z>x) and(b>y)
Код программы:
Program prim_8;
Var a,b,x,y,z:integer;
F:boolean;
Begin
Write('введите размеры отверстия');
Readln(a,b);
Write('введите размеры кирпича');
Readln(x,y,z);
If (a>x)and(b>y) or (b>x)and(a>y) or (a>x)and(z>y) or
(z>x)and(a>y) or (b>x)and(z>y) or (z>x)and(b>y)
then Writeln ('Кирпич пролезет в отверстие')
Else Writeln ('Кирпич не пролезет в отверстие');
Readln
End
Тренировочные задания к 8 уроку.
1. Установить, истинны или ложны следующие условия:
(A=0) and not (B=0) or not (a=0) and (B=0) при
a) А=0, В=0
b) А=0, В=1
2. Ввести три числа. Выбрать и напечатать наибольшее из них.
3. Написать программу, которая требует ввода времени дня и, в зависимости от введенного значения, желает доброго утра, доброго дня, доброго вечера или спокойной ночи.
4. Даны три числа. Найдите наибольшее значение их суммы и произведения.
5. Даны три числа а, b, с. удвойте эти числа, если они являются упорядоченными по возрастанию.
6. Проверьте, есть ли среди трех заданных чисел равные.
7. Дано двузначное число. Определить:
a) какая из его цифр больше, первая или вторая;
b) одинаковы ли его цифры.
8. Известны площади круга и квадрата. Определить:
a) Уместится ли круг в квадрате;
b) Уместится ли квадрат в круге.
9. Дано трехзначное число. Выяснить, является ли оно палиндромом ("перевертышем"), т.е. таким числом, десятичная запись которого читается одинаково слева направо и справа налево.
Разбор тренировочного задания урока 7.
8. *Дано целое число. Определить:
a) Является ли оно четным;
b) Оканчивается ли оно цифрой 7;
c) Делится ли оно на 13.
Program prim_6;
Var a:integer;
Begin
Write('введите целое число');
Readln(a);
If a mod 2 = 0 then Writeln (а,' - четное ')
Else Writeln (а,' -нечетное ');
If а mod 10 = 7 then Writeln (а,'- оканчивается на 7 ')
Else Writeln (а,' -не оканчивается на 7 ');
If а mod 13 = 0 then Writeln (а,'- делится на 13 ')
Else Writeln (а,' -не делится на 13');
Readln
End