Лабораторная работа №1

Содержание: Набор и отладка программ №1, №2.

Задание №1: Вычислить корни квадратного уравнения.

Программа:

Var A, B, C, D, x1, x2 : Real;

Begin

WriteLn(‘Введите коэффициенты А, В, С:’);

ReadLn(A, B, C);

D:=B*B –4*A*C;

If D >=0 Then

Begin

x1:= (–B+Sqrt(D))(2*a)

x2 := (B –Sqrt(D))/(2*a)

Wrieln(‘x1=’, x1:8:4, ‘x2=’ , x2:8:4);

End

Else

Writeln(‘Действительных корней нет’);

End.

Задание №2: Простейший вариант игры в случайные бросания.

Программа №2:

Var

x, y : Integer;

Begin

Randomize;

x := Random(2);

Write(‘Введите число 0 или 1’);

ReadLn(y);

If y = x Then WriteLn(‘Вы выиграли’)

Else WriteLn(‘Выиграл компьютер’);

End.

Практическое занятие №2

Тема: Стандартные функции. Арифметические выражения.

Необходимые сведения

Таблица 5 – Стандартные функции

Abs(x)	|x|
In(x)	Ln x
Exp(x)
Sin(x)	sin x
Cos(x)	cos x
Arctan(x)	arctg x
Sqrt(x)
Sqr(x)
Trunc(x)	Вычисление целой части числа
Round(x)	Округление x до ближайшего целого
Odd(x)	Логическое значение True, если число нечетно и значение False, если x четно

В TURBO PASCAL определены только три тригонометрические функции: sin x, cos x, arctg x. Для вычисления других функций необходимо использовать преобразования:

tg x= sin x / cos x; ctg x = cos x / sin x;

sec x = 1 / cos x; cosec x = 1 / sin x;

Операцию возведения любого числа а в любую степень b можно реализовать с помощью стандартных функций Exp(x) и Ln(x), используя следующее тождество:

, т.е.

соответствует .

Варианты заданий:

1. Написать фрагменты программ, реализующих следующие вычисления:

1. 

2. 

3. 

4. 

5. 

2. Написать в общепринятой форме:

1. ;

2. ;

3. Записать с помощью оператора присваивания b переменную d:

1. среднее арифметическое чисел x, y, z;

2. расстояние между точками и;

3. площадь треугольника со сторонами a, b, c

Примечание: Использовать формулу для площади треугольника, выраженной через полупериметр

IY. Вычислить:

1) Trunc (6.9) 2) Round (6.9)

3) Trunc (6.2) 4) Round (6.2)

5) Trunc (-1.8) 6) Round (-1.8)

7) 20 Div 6 8) 20 Mod 6

9) 20 Div 4 10) 20 Mod 4

11) 2 Div 5 12) 2 Mod 5

13) 3*7 Div 2 Mod 7/3 – Trunc (1.5)

Y. Поменять местами значения целых X и Y, не используя

дополнительные переменные.

Лабораторная работа №2

Тема: Стандартные функции. Арифметические выражения.

Необходимые сведения:

Запуск программы на трансляцию и выполнение – команда Ctrl-F9;

Просмотр результатов расчетов – команда Alt-F5.

Пример задания: Вычислить значение арифметического выражения следующего вида:

Вариант программы:

Var

A, B, C, D, Y : Real;

Begin

A:=1.5; B:=4.3; C:=10: {ввод данных}

D:=7.1;

Y:=(A*Sqrt(Abs(Sin(A+B*C)))-Exp(-A*C))/Sqrt(Abs(2*B+D));

WriteLn (“Y=’.Y:8:3): {вывод результата}

End.

Варианты заданий:

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

Таблица 6 – Варианты арифметических выражений

Номер варианта	Выражение	Исходные данные
1		x, y
2		c, x, y
3		b, x, y
4		x, y, z
5		x, y, z
6		x, y, z
7		x, y
8		x, y, z
9		x, y, z
10		x, y, z
11		x, y, z
12		x, y
13		x, y
14		x, y
15		x, z
16		x, z

Контрольные вопросы

1. Какие подменю имеет главное меню среды TURBO PASCAL?

2. Как войти (выйти) из главного меню?

3. Какие команды управления маркером имеет текстовый редактор TURBO PASCAL?

4. Какие команды работы с блоками имеет текстовый редактор TURBO PASCAL?

5. Из каких разделов состоит программа на языке TURBO PASCAL?

Практическое занятие №3

Тема: Логические выражения. Условные операторы.