Некоторые процедуры и функции

Odd(x) – Проверяет аргумент на чётность (true, если аргумент нечётный);

Ord(x) – Возвращает код символа;

Abs(x) – Модуль x;

Chr(x) – Возвращает символ с кодом x;

Sqr(x) – Квадрат числа x;

Sqrt(x) – Квадратный корень числа x;

Exp(x) – Экспонента в степени x;

Sin(x) – Синус x;

Cos(x) – Косинус x;

Ln(x) – Натуральный логарифм от x;

Arctan(x) – Арктангенс x;

Trunc(x) – Отсечение дробной части;

Round(x) – Округление числа x;

Read (x1, x2, …, xn) – Считывание значений переменных с клавиатуры без перехода на следующую строку;

ReadLn (x1, x2, …, xn) – Cсчитывание значений переменных с клавиатуры построчно;

Write (x1, x2, …, xn) – Вывод значений переменных на экран без перехода на следующую строку;

WriteLn (x1, x2, …, xn) – Вывод значений переменных на экран с последующим переходом на следующую строку.

Выполнение работы:

1. Запустить среду программирования Turbo Pascal (C:\BP\BIN\Turbo.exe).

2. Набрать код программы.

3. Запустить программу командой Runà Run или сочетанием клавиш <Ctrl+F9>.

4. Сохранить код программы в файле.pas командой Fileà Save as.

5. Создать exe-файл программы (Compileà Destinationà Disk).

Задания (1 раздел):

1. Создайте программу для вычисления площади прямоугольника по введен­ным в диалоге двум сторонам.

2. Создайте программу для вычисления длины окружности и площади круга по указанному радиусу.

3. Создайте программу для вычисления длин высот треугольника, у которого длины сторон равны А, В, С.

4. Создайте программу для вычисления длин медиан треугольника, у которого длины сторон равны А, В, С.

5. Создайте программу для вычисления работы, совершенной при равномерном подъеме груза массой m [кг] на высоту h [м]. Ускорение свободного падения опишите как константу g = 9,81.

6. Создайте программу для вычисления давления столба жидкости плотностью r высотой h на дно сосуда.

7. Создайте программу для вычисления давления на пол, создаваемого сто­лом массой m, если суммарная площадь опоры его ножек равна 100 см².

8. Создайте программу для вычисления выталкивающей силы, действующей на тело объемом V, наполовину погруженное в жидкость плотностью r.

9. Создайте программу для вычисления количества теплоты, полученного при сгорании m [г] керосина, если его теплота сгорания равна q.

10. Создайте программу для вычисления количества теплоты, затраченного на нагревание тела плотностью r, объемом V на t градусов Цельсия, если его удельная теплоемкость равна С.

11. Создайте программу для вычисления силы тока на участке электрической цепи сопротивлением R [Ом] при напряжении U [В].

12. Создайте программу для вычисления напряжения на каждом из последо­вательно соединенных участков электрической цепи сопротивлением R₁, R₂, R₃ [Ом], если сила тока при напряжении U [В] составляет I [А].

13. Создайте программу для вычисления силы тока I на участке, состоящем из двух параллельно соединенных резисторов сопротивлением R₁ и R₂, если напряжение на концах этого участка равно U.

14. Создайте программу, определяющую плотность тела, объем которого равен V, а масса - m.

15. Создайте программу, определяющую количество теплоты Q, требуемое для нагревания V [л] жидкости температурой t₁ до температуры кипения t₂, если известна удельная теплоемкость жидкости q.

 

Задания (2 раздел):

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

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

3. Создайте программу, вычисляющую по введенному значению радиуса дли­ну окружности и ее площадь. Для вычисления значения числа π ≈ 3,141592... в Pascal используется стандартная функция с идентификатором PI.

4. Создайте программу, вычисляющую периметр квадрата по указанному зна­чению его площади.

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

6. Создайте программу подсчета размера платы за электроэнергию по введенным значениям расхода электроэнергии и тарифа (тариф – стоимость 1 кВт/ч).

 

Задания (3 раздел):

1. Создайте программу, которая, используя процедуру WriteLn, изображает на экране домик:

*

* *

* *

***********

* *

* *

***********

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

**********************************

* Программа *

* вычисления суммы чисел *

* Автор: _____________ *

**********************************

3. Напишите программу, которая вводит значения трёх переменных: А, В, С типа Word и выводит их сумму. Каждое значение следует выводить с отдельной строки. Результат также помещается на отдельную строку. При составлении программы обеспечьте приглашение к вводу данных.

4. Напишите программу, которая вводит значения четырех переменных, А, В, С, D, типа integer и выводит их сумму. Пару значений А и В следует вводить на одной строке, С и D - на другой. Результат следует вывести на отдель­ную строку и курсор оставить на той же строке.

5. Напишите программу, которая вводит значения двух переменных, А и В, типа integer с приглашениями к вводу каждой переменной и выводит их разность. Результат ввода и результат расчета требуется выводить на экран. Приглашение и ввод каждого значения следует произве­сти в отдельных строках. Вывод сопроводите пояснением.

6. Напишите программу ввода значений А, В, С в одной строке и выведите результат вычисления выражения А*(В/3,14) + (С*3) в отдельной строке.

7. Напишите программу ввода значений R, Y в одной строке и выведите ре­зультат вычисления выражения R*Y²+(Y/5) в той же строке.

8. Напишите программу вычисления площади прямоугольного треугольника значения катетов которого А и В вводятся с клавиатуры. Результат требу­ется вывести в следующем виде: «Для значений катетов 4 и 6 площадь пря­моугольного треугольника равна 12».

9. Напишите программу вычисления идеального веса человека по формуле [Идеальный вес]=[Рост в см]-100. Значение роста вводится с клавиату­ры. Результат требуется вывести в следующем виде: «Идеальный вес чело­века ростом 165 см равен 65 кг».

10. Напишите программу получения следующей формы:

*************************************

* А * В * А+В * А-В * А/В *

*************************************

6 2 8 4 3.0

*************************************

11. Вы положили деньги в банк на срочный депозит на три месяца из расчета 60 % годовых. Напишите программу, которая вычислит причитающуюся вам через три месяца сумму.

12. Розничная цена мужского костюма составляет Р [руб.]. Торговая скидка в пользу магазина составляет Т [%] от розничной цены. Создайте програм­му определения оптовой цены костюма.

13. Создайте программу расчета масс соли и воды, требующихся для приготов­ления раствора массой m [г] с массовой долей w [%].

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

15. Создайте программу, определяющую, сколько времени в минутах затратит школьник на дорогу от школы до стадиона, если известна длина этого рас­стояния s и средняя скорость движения школьника v [км/ч]? Значения s и v вводятся с клавиатуры.

16. Создайте программу, вычисляющую, сколько процентов от А+В-С при­ходится: 1) на А; 2) на В; 3) на С.

 

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

1. Основные компоненты окна редактирования программ среды программирования Turbo Pascal и их назначение.

2. Как откомпилировать программу?

3. Как посмотреть результаты выполнения программы в окне пользователя.

4. Дайте определение следующим понятиям:

· Алфавит;

· Зарезервированное слово;

· Выражение;

· Оператор;

· Идентификатор;

· Константы;

· Переменные.

5. Как будет выглядеть структура простейшей программы в Turbo Pascal.

Содержание отчёта:

1. Номер, тема, цель работы.

2. Результаты работы в распечатанном виде.

3. Ответы на контрольные вопросы.

4. Вывод.

Отчёт по лабораторной работе №17

 

Тема:

Цель работы:

Выполнение работы:

 

 

Ответы на контрольные вопросы:

1.

 

2.

 

3.

 

4.

 

5.

 

Вывод:

Тест по теме «Основные элементы и типы данных Pascal»

 

Вариант №1 1. Зарезервированное слово, обозначающее название программы. š Sub š Unit š Program 2. Каким зарезервированным словом обозначаются функции? š Procedure š Function š Unit 3. Как обозначаются директивы компилятора? š {…} š {$...} š (*…*) 4. Какой объём памяти занимает тип данных Word? š 1 байт š 2 байта š 4 байта	Вариант №2 1. Какой объём памяти занимает тип данных Real? š 2 байта š 4 байта š 6 байт 2. Какой объём памяти занимает тип данных Double? š 4 байта š 6 байт š 8 байт 3. Какой объём памяти занимает тип данных Comp? š 4 байт š 6 байт š 8 байт 4. Какой объём памяти занимает тип данных Boolean? š 1 байт š 2 байта š В зависимости от значений
Вариант №3 1. Подключение модулей обозначается словом… š Module š Uses š Unit 2. Раздел описания идентификаторов. š Var š Type š Identification 3. Какой тип данных имеет диапазон значений от 0 до 255? š Byte š Shortint š Char 4. Какой тип данных имеет диапазон значений от -32768 до 32767? š Word š Integer š Longint	Вариант №4 1. Какой диапазон значений имеет тип Real? š 2,9*10E-39…1,7*10E+38 š 5,0*10E-324…1,7*10E+308 š 1,9*10E-4951…1,1*10E+4932 2. Какой тип данных имеет диапазон значений от 5,0*10E-324 до 1,7*10E+308? š Real š Double š Single 3. Какие значения имеет тип Char? š True или False š 0…255 š ASCII 4. Раздел описания констант. š Constant š Const š Var
Вариант №5 1. Как обозначаются комментарии? š /…/ š {…} š Rem… 2. Какой тип данных имеет диапазон значений от -128 до 127? š Byte š Char š Shortint 3. Какой объём памяти занимает тип данных Longint? š 2 байта š 4 байта š 8 байт 4. Какой диапазон значений имеет тип Double? š 1,5*10E-45…3,4*10E+38 š 5,0*10E-324…1,7*10E+308 š 1,9*10E-4951…1,1*10E+4932	Вариант №6 1. Какой объём памяти занимает тип данных Char? š 1 байт š 2 байта š В зависимости от значений 2. Раздел описания пользовательских типов. š Var š User type š Type 3. Какой диапазон значений имеет тип Byte? š -128…127 š 0…255 š Диапазон не определён 4. Какой диапазон значений имеет тип Word? š 0…255 š -32768…32767 š 0…65535
Вариант №7 1. Какой объём памяти занимает тип данных Single? š 4 байта š 6 байт š 8 байт 2. Какой тип данных имеет диапазон значений от -2E+63+1 до 2E+63-1? š Single š Double š Comp 3. Каким зарезервированным словом обозначаются процедуры? š Procedure š Function š Unit 4. Какой диапазон значений имеет тип Shortint? š -128…127 š 0…255 š Диапазон не определён	Вариант №8 1. Какой тип данных имеет диапазон значений от -2147483648 до 2147483647? š Real š Shortint š Longint 2. Какой тип данных имеет диапазон значений от 1,9*10E-4951 до 1,1*10E+4932? š Double š Single š Extended 3. Раздел описания меток. š Var š Type š Label 4. Какой диапазон значений имеет тип Integer? š -32768…32767 š 0…65535 š Любые целые числа
Вариант №9 1. Какой тип данных имеет диапазон значений от 1,5*10E-45 до 3,4*10E+38? š Single š Double š Extended 2. Какой тип данных имеет значения True или False? š Char š Boolean š Variant 3. Операторные скобки. š {…} š Program…End š Begin…End 4. Какой тип данных имеет диапазон значений от 0 до 65535? š Word š Integer š Longint	Вариант №10 1. Какой диапазон значений имеет тип Comp? š 2,9*10E-39…1,7*10E+38 š 5,0*10E-324…1,7*10E+308 š -2E+63+1…2E+63-1 2. Как обозначаются комментарии? š /…/ š (*…*) š {$...} 3. Какой тип данных имеет диапазон значений от 2,9*10E-39 до 1,7*10E+38? š Real š Single š Double 4. Какой объём памяти занимает тип данных Byte? š 1 байт š 2 байта š В зависимости от значений
Вариант №11 1. Какой диапазон значений имеет тип Extended? š 2,9*10E-39…1,7*10E+38 š 5,0*10E-324…1,7*10E+308 š 1,9*10E-4951…1,1*10E+4932 2. Какой объём памяти занимает тип данных Shortint? š 1 байт š 2 байта š 4 байта 3. Какой тип данных имеет значения ASCII? š Byte š Char š Boolean 4. Какой объём памяти занимает тип данных Integer? š 1 байт š 2 байт š 4 байта	Вариант №12 1. Какой диапазон значений имеет тип Longint? š -32768…32767 š -2147483648…2147483647 š 2,9*10E-39…1,7*10E+38 2. Какой объём памяти занимает тип данных Extended? š 6 байт š 8 байт š 10 байт 3. Какой диапазон значений имеет тип Single? š 2,9*10E-39…1,7*10E+38 š 1,5*10E-45…3,4*10E+38 š 5,0*10E-324…1,7*10E+308 4. Какие значения имеет тип Boolean? š True или False š ASCII š Любые значения