Лабораторная работа №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), используя следующее тождество:
, т.е.
соответствует .
Варианты заданий:
Написать фрагменты программ, реализующих следующие вычисления:
Написать в общепринятой форме:
;
;
Записать с помощью оператора присваивания b переменную d:
среднее арифметическое чисел x, y, z;
расстояние между точками и;
площадь треугольника со сторонами 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 |
Контрольные вопросы
Какие подменю имеет главное меню среды TURBO PASCAL?
Как войти (выйти) из главного меню?
Какие команды управления маркером имеет текстовый редактор TURBO PASCAL?
Какие команды работы с блоками имеет текстовый редактор TURBO PASCAL?
Из каких разделов состоит программа на языке TURBO PASCAL?
Практическое занятие №3
Тема: Логические выражения. Условные операторы.