ЛАБОРАТОРНАЯ РАБОТА № 3
Тема: Основные приемы работы в инструментальной среде TurboPascal 7.0»
Цель работы: Овладение практическими навыками работы среде Pascal
Пояснения к работе
Система программирования TurboPascal 7.0 представляет собой совокупность системных программ, предназначенных для создания, отладки и выполнения Паскаль-программ. Разработка программы на TurboPascal7.0 проходит в три этапа: создание текста программы; компиляция, исполнение откомпилированной программы. В соответствии с этими функциями система TurboPascal включает в себя три главных компонента: редактор текстов, компилятор, исполнительную систему.
С помощью встроенного в систему текстового редактора можно формировать в памяти любые тексты, не только программы на Паскаль. Текст программы, созданный редактором, можно сохранить на диске в виде файла формата
<Имя_файла>.pas (имя файлу задавать по правилам DOS)
Загрузка системы TurboPascal выполняется файлом
BPascal \ BIN \ tpx.exe
Развернуть окно на весь экран Ctrl\Enter
Выход из системы File \ Exit
Последовательность выполнения
Загрузите TPascal, разверните окно на весь экран.
Используя клавиатуру, введите текст программы для следующего задания: Ввести радиус окружности R. Вычислить длину окружности и площадь круга с радиусом R.
Var
R: Integer;
S,L : Real;
Begin
Write(‘VVod R’);
Readln(R);
L:= 2 * 3.14 * R;
S:= 3.14 * R * R;
Writeln(‘L=’,L);
Writeln(‘S=’,S);
End.
Загрузите программу на выполнение, для этого выполните Ctrl/F9 или Run / Run
Введите любое целое число и нажмите Enter,
Для просмотра результата отобразите окно вывода Debug / Output
Для того, чтобы это окно закрепить на экране выполните Window / Title
Загрузите программу еще несколько раз, вводите разные числа, просмотрите результат вычисления
Сохраните программу
Введите текст другой программы в новом окне (File / New) для следующего задания:
Вычислить значение выражения
Var
X,Y : Real;
Begin
Write(‘Vvod x ’);
Readln(x);
Y:=SQRT(ABS(X-5)+SIN(X)) / SQR(X) – COS((2*X)/(1/SQR(X));
Writeln(‘Y=’,Y);
End.
Проверьте работу программы с различными числовыми данными (целыми или вещественными), в том числе для нулевого значения. Сохраните программу
Контрольные вопросы
Как загрузить TPascal?
Как сохранить программу?
По каким правилам следует давать имя файла с программой?
Как отобразить окно вывода?
Как закрепить окно вывода?
Как запустить программу на выполнение?
Как выйти из среды TPascal?
Варианты к лабораторной работе №3
(ваш номер по журналу соответствует номеру варианта)
№
|
Задание 1
Задание 2
Задание 3(Вычислить)
|
1
|
Ввести время (часы и минуты). Определить сколько секунд прошло с начала суток.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а4 за две операции.
|
Y= cos(sin3x-5)+2
|
2
|
Ввести значение угла в радианах. Определить угол в градусах.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить:а6 за три операции.
|
Y= cos x +sin 2x- tg(-2 x)
|
3
|
Ввести цену (в рублях) и количество для двух товаров. Определить общую стоимость покупки.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а8 за три операции.
|
|
4
|
Вычислить расстояние между двумя точками, если известны координаты точек
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме сложения, получить 4а за две операции.
|
|
5
|
Ввести время вылета (час, минуты) и время прилета (час, минуты) самолета. Определить время полета (часы, минуты), если известно, что перехода через сутки не было.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме сложения, получить: 8а за три операции.
|
|
6
|
Три сопротивления R1, R2, R3 соединены параллельно. Найти общее сопротивления цепи.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а4 и а20 за пять операций.
|
|
7
|
Ввести четырехзначное число. Вывести сумму первой и последней цифры
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а3 и а10 за четыре операции
|
|
8
|
Ввести внутренний и внешний радиусы кольца. Найти площадь кольца.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а7 за четыре операции.
|
|
9
|
Ввести число. Вывести его последнюю цифру
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме сложения, получить 4а и 20а за пять операций.
|
|
10
|
Ввести число. Заменить его последнюю цифру на ноль
|
Ввести стоимость товара в долларах и курс доллара по отношению в рублю.
Определить стоимость в рублях.
|
|
11
|
Даны катеты прямоугольного треугольника. Найти гипотенузу и площадь
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме сложения, получить: 6а за три операции.
|
|
12
|
Ввести трехзначное число. Вывести вторую цифру.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить 3а и 10а за четыре операции
|
|
13
|
Ввести катеты прямоугольного треугольника. Вычислить периметр и площадь треугольника
|
Ввести два положительных числа. Найти их среднее арифметическое и среднее геометрическое значения.
|
|
14
|
Ввести трехзначное число. Найти сумму его цифр.
|
Ввести диаметр окружности. Найти площадь круга.
|
|
15
|
Ввести стороны треугольника. Определить его площадь
|
Ввести двузначное число. Поменять цифры числа местами (например: дано 47, вывести надо 74).
|
|
16
|
Ввести двухзначное число. Вычислить сумму и произведение его цифр
|
Ввести количество секунд с начала суток. Определить сколько часов прошло с начала суток
|
|
17
|
Ввести трехзначное число. Удалить из числа вторую цифру (например, дано 248, результат 28)
|
Три сопротивления R1, R2, R3 соединены последовательно. Найти общее сопротивления цепи.
|
|
18
|
Ввести трехзначное число. Вывести произведение его цифр.
|
Найти площадь кольца, если известны внутренний и внешний радиусы.
|
|
19
|
Ввести четырехзначное число. Найти разницу между числом из первых двух цифр и числом из последних двух цифр.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме сложения, получить: 8а за три операции.
|
|
20
|
Ввести двузначное число. Вычислить сумму квадратов его цифр.
|
Ввести значение угла в радианах. Определить значение в градусах.
|
|
21
|
Ввести трехзначное число. Вычислить корень квадратный торой цифры
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а8 за три операции.
|
|
22
|
Дано двузначное число. Найти разницу между первой и второй цифрой.
|
Ввести время (час, мин.). Сколько секунд прошло с начала суток.
|
|
23
|
Ввести цену товара в $ и курс $ по отношению в рублю.
Определить стоимость в рублях.
|
Ввести время вылета (ч., мин.) и время прилета (ч., мин.) самолета. Определить время полета (ч., мин.). Перехода через сутки не было.
|
|
24
|
Ввести трехзначное число. Вычислить среднее арифметическое его цифр
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а4 и а20 за пять операций.
|
|
25
|
Ввести значение угла в радианах. Определить угол в градусах
|
Ввести четырехзначное число. Найти сумму числа из первых двух цифр с числом из последних двух цифр.
|
|
26
|
Ввести значение угла в градусах. Вывести в радианах.
|
Ввести трехзначное число. Вывести произведение его цифр.
|
|
27
|
Ввести трехзначное число. Первую и последнюю цифру поменять местами (например, дано 123, результат 321).
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а4 за две операции.
|
|
28
|
Ввести трехзначное число. Найти сумму его цифр.
|
Ввести время начала урока (часы, минуты) и время окончания урока (часы, минуты) определить, сколько в часах и минутах длился урок.
|
|
29
|
Вычислить периметр и площадь прямоугольного треугольника по длинам его катетов.
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а8 за три операции.
|
|
30
|
Ввести двухзначное число. Вычислить сумму и произведение его цифр цифру (например, дано 251, результат 51)
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а3 и а10 за четыре операции.
|
|
31
|
Ввести двухзначное число. Вычислить сумму и произведение его цифр
|
Дано число а. Не пользуясь никакими другими арифметическими операциями, кроме сложения, получить 4а за две операции.
|
|
|
