Практические задания

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

; ; ; ; (m, n, k, j – целые).

Указание. Использовать соотношения: ; ; ; ; .

2. Составить программу, печатающую на экране код, который соответствует нажимаемой клавише.

Uses crt;

Var c: char;

I: integer;

Begin

Writeln('Hажмите клавишу: '); c:=ReadKey;

Writeln('ASCII код символа ''',c,

''' равен: ',Ord(c));

Readln

End.

Задания для самостоятельной работы

1. Составить программы, вычисляющие и выводящие на экран значения выражений:

a) y = (2^–x–1 + 3^–x +4^–x+1) ;

б) ({ } – дробная часть числа);

в) ;

г) ;

д) .

2. Составить программу, печатающую на экране символ, соответствующий введенному с клавиатуры коду (от 0 до 255).

3. Составить программу, которая для введенного положительного числа а вычисляет площади следующих фигур: равностороннего треугольника со стороной а, квадрата со стороной а, круга радиуса а.

4. Составить программу, которая для введенного целого трехзначного числа N находит и печатает сумму цифр числа и число, составленное из тех же цифр в обратном порядке.

,

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

6. Поменять местами значения двух целых переменных x и y, не используя дополнительные переменные.

7. Составить программу, которая для введенного номера дня в году (от 1 до 365) определяет день недели, при условии, что 1 января – среда.

Лабораторная работа №2 Программы разветвляющейся структуры

Для программирования разветвлений в программах на языке Turbo Pascal используются два оператора:

1) Условный оператор обеспечивает разветвление на две ветви:

IF <условие> THEN <оператор1>

ELSE <оператор2>

Вторая ветвь (т.е. ELSE <оператор2>) может отсутствовать.

Например:

IF x>y THEN z:=x ELSE z:=y;

IF a<b THEN a:=0;

Если требуется после слов THEN или ELSE использовать несколько операторов, то их необходимо объединить в один составной оператор с помощью операторных скобок BEGIN и END:

IF x>y THEN BEGIN a:=x; b:=y END

ELSE BEGIN a:=y; b:=x END

При использовании сложных логических выражений, включающих операции AND, OR, NOT, операции отношения необходимо заключать в скобки, например:

IF (a>b) AND ((x>y) OR (x>z)) THEN ...

Порядок выполнения операций в выражении определяется их приоритетами. Среди логических операций сначала выполняется операция NOT (наивысший приоритет), затем AND, последней – OR (низший приоритет). Для изменения этого порядка нужно использовать скобки.

2) Оператор варианта (оператор множественного выбора) обеспечивает разветвление на произвольное число ветвей:

CASE <выражение> OF

<список значений 1> : <оператор 1>;

<список значений 2> : <оператор 2>;

...

<список значений N> : <оператор N>;

ELSE <оператор>

END

Здесь также ветвь ELSE может отсутствовать.

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

Например:

CASE ErrorCode OF

1: writeln(’Файл не найден’);

2..4,6: writeln(’Ошибка открытия файла: ’, ErrorCode);

5: writeln(’Недопустимое имя файла’);

END