Программирование ЭВМ. Раздел : программирование в среде Турбо Паскаль

 

 

Жучин А.В., Корочкин Ю.Д., Кузин Е.В. 

 

Одобрено Редакционноиздательским советом 
института 

ПРОГРАММИРОВАНИЕ ЭВМ 

Раздел: Программирование в среде Турбо Паскаль 

Лабораторный практикум 
для студентов специальностей 
1108, 1204, 1101, 0608, 2903, 2103 

МОСКВА 2001 

 

УДК 

АННОТАЦИЯ 

 

 Московский государственный 
институт стали и сплавов 
(Технологический университет) 
(МИСиС) 2001 
 

СОДЕРЖАНИЕ 

Лабораторная работа 1. Математические выражения и 
функции на языке Турбо Паскаль .......................................................... 4 
Лабораторная работа 2. Структурирование программ. 
Основные операторы языка Турбо Паскаль ........................................ 15 
Лабораторная работа 3. Массивы ......................................................... 31 
Лабораторная работа 4. Множества ..................................................... 40 
Лабораторная работа 5. Процедуры и функции ................................. 47 
Лабораторная работа 6. Динамические данные .................................. 61 
Лабораторная работа 7. Записи на языке Турбо Паскаль .................. 71 
Лабораторная работа 8. Типизированные файлы ............................... 85 
Лабораторная работа 9. Текстовые файлы .......................................... 92 
Лабораторная работа 10. Вывод графической информации .............. 99 
 

ЛАБОРАТОРНАЯ РАБОТА 1. 
МАТЕМАТИЧЕСКИЕ ВЫРАЖЕНИЯ И 
ФУНКЦИИ НА ЯЗЫКЕ ТУРБО ПАСКАЛЬ 

1. Цель работы 

Практическое овладение навыками записи и вычисления математических выражений и особенностями использования математических функций на языке Турбо Паскаль. 

2. Теоретическое введение 

Выражение – это синтаксическая единица языка программирования, определяющая способ вычисления некоторого значения. 
Выражения в языке Турбо Паскаль формируют из следующих элементов-операндов: констант, переменных (в том числе и компонент 
массивов), функций (стандартных и написанных самостоятельно), 
знаков операций программирования и круглых скобок. 
В общем случае тип выражения определяется типом операндов и видом применяемых к ним операций программирования. Частным случаем выражения может быть одиночный элемент, т. е. константа, переменная или функция, значение такого выражения имеет 
тот же тип, что и сам элемент. 
Рассмотрим подробнее отдельные элементы выражения. 
Константа – конкретное значение определенного типа, которое зафиксировано в тексте программы и которое не может быть 
изменено в процессе выполнения программы. Все описания констант 
должны содержаться в разделе констант программы. Этот раздел 
начинается служебным словом const (константа) и заканчиваться 
символом «;». Если в разделе содержится несколько описаний констант, то они отделяются друг от друга точкой с запятой, например: 

const 
Rad = 57.23; 
const 
Elec = 2.5647e3; Text = 'переменная'; 
const 

Func = Sin(Rad + Pi); 
Переменные, используемые в программе, предварительно 
должны быть объявлены в разделе переменных. Для этой цели в языке Турбо Паскаль существует такое понятие, как описание переменной. В этом описании каждой вводимой в употребление переменной 
дают имя и указывают тип значения, которое может принимать эта 
переменная. Попытка программы присвоить переменной значение 
иного типа в процессе выполнения расценивается как ошибка в программе. Все описания переменных содержатся в разделе переменных, который начинается служебным словом var (сокращение от 
variable – переменная), например: 

var 
I,J,K: integer; 
X,Way,Sum: real; 
N,M: integer; Day: week; 
Каждая переменная, используемая в программе, должна быть описана не более одного раза – повторное описание переменной расценивается как ошибка в программе. 
Функция, как один из операндов в выражениях вводится самим программистом или является стандартной функцией, используемой как готовый элемент языка Турбо Паскаль. В таблице приведены стандартные функции, используемые в выражениях: 

Функция 
Назначение функции 
Значение функции 

Abs(x) 
Arctan(x) 
Cos(x) 
Exp(x) 
Ln(x) 
Pi 
Sin(x) 
Sqr(x) 
Sqrt(x) 

абсолютное значение аргумента 
арктангенс аргумента 
косинус аргумента 
показательная функция ex 
натуральный логарифм 
значение числа  
синус аргумента 
квадрат аргумента 
квадратный корень из аргумента 

совпадает с х 
вещественный 
вещественный 
вещественный 
вещественный 
 
вещественный 
вещественный 
вещественный 

В язык Турбо Паскаль введены не все математические функции, например, Tan(x), Ctg(x), Arcsin(x), Arccos(x), Arcctg(x), Lg(x), 
Loga(x), ax, xa. Для вычисления значений этих функций надо воспользоваться либо математическим определением этих функций, либо 
тождественными выражениями, в которые входят стандартные 
функции: 

Функция 
Запись на языке Паскаль 

Tan(x) 
Sin(x) / Cos(x) 

Ctg(x) 
Cos(x) / Sin(x) 

Arcsin(x) 
ArcTan(x / Sqrt(1 – x  x)) 

Arccos(x) 
ArcTan(Sqrt(1 – x  x) / x)) 

Arcctg(x) 
ArcTan(1 / x) 

Lg(x) 
Ln(x) / Ln(10) 

Loga(x) 
Ln(x) / Ln(a) 

ax 
Exp(x  Ln(a)) 

xa 
Exp(a  Ln(x)) 

При использовании указанных функций необходимо учитывать 
множество значений аргумента, при которых эти функции имеют 
смысл. 
При написании программы следует учитывать следующие 
особенности языка программирования: 
 
аргументы всех тригонометрических функций задают в 
радианах; аргумент выраженный в градусах, должен быть переведён 
в радианы (180  =  радиан). 
 
десять в целой степени (положительной или отрицательной) не следует записывать через показательную функцию, а использовать запись числа в экспоненциальной форме, например: 

 
23.5  104  23.5e4, 1.67  10–3  1.67e–3 

Круглые скобки предназначены для заключения в них той части выражения, значение которой необходимо определить в первую 
очередь. В выражении может быть любое количество круглых скобок, при этом количество открывающихся скобок должно быть равно 
количеству закрывающихся скобок. Части выражений, заключённые 
в круглые скобки, должны быть либо непересекающимися, либо 
вложенными друг в друга. 
Арифметические операции являются частным случаем операций программирования. Они применимы только к величинам целых и вещественных типов. Арифметические операции делятся на 
унарные и бинарные.  
Знак бинарной операции знак «+», поставленный перед величиной либо целого, либо вещественного типа, не оказывает никакого 
влияния на значение этой величины. 

Знак унарной операции «–», поставленный перед величиной, 
приводит к изменению знака этой величины на противоположный. 
Бинарные арифметические операции приведены в таблице: 

Знак 
Операция 
Типы операндов 
Тип результата 

+ 
сложение 
целые 
целое 

хотя бы один из них вещественный
вещественное 

– 
вычитание 
целые 
целое 

хотя бы один из них вещественный
вещественное 

 
умножение 
целые 
целое 

хотя бы один из них вещественный
вещественное 

/ 
деление 
целые или вещественные 
вещественное 

div деление целых 
чисел 
целые 
целое 

mod 
остаток от деления целых 
чисел 
целые 
целое 

В операциях деления делитель не должен равняться нулю, а 
служебные слова div и mod должны быть отделены от операндов 
скобкой или пробелом. 
Вычисление значений выражений выполняется в определённом порядке. Начинается вычисление с определения значений переменных и констант, входящих в выражение. Они являются основой 
для дальнейших вычислений. 
 Дальнейшие действия выполняются в соответствии с их приоритетом. Так, в первую очередь вычисляются выражения, заключённые в круглые скобки. Для любых двух вложенных друг в друга 
пар круглых скобок вычисляется сначала внутреннее выражение, а 
затем внешнее. Далее вычисляются значения входящих в выражение 
функций и т.д. Если в выражении нет круглых скобок и операнды соединены операциями с одним уровнем приоритета, то операции выполняются слева направо. Приоритеты всех действий, выполняемых 
при вычислении выражений представлены в таблице: 

Группа 
приоритета 
Тип действия 
Операции или 
элементы 

1 
2 
3 
4 
5 

вычисления в круглых скобках 
вычисление значений функций 
унарные операции 
операции типа умножение 
операции типа сложение 

( ) 
функции 
унарные + и –  
*, /, div, mod 
+, – 

Пример выполнения лабораторной работы. 

Задание. 
Вычислить 
значение 
выражения 

)
259
Lg
(
Ctg 3
2


 b
a
, если 

3
2

3
3
1

z
x

y
x
a





; 
),
(
sin
3
4
z
x
b


 

при 

3

3
3
10
,
47
,0
,
10
48
,3









x
z
y
x
 

Составим текст программы вычисления заданного выражения 
на языке Турбо Паскаль: 

{зададим начальные значения констант x, y, z} 
const 
X = 3.48e3; 
Y = 0.47; 
Z = X * 1e-3/Exp(Ln(Pi)/3); 
{опишем рабочие переменные A, B, C} 
var 
A,B,C: single; 
BEGIN 
{вычислим элементы заданного выражения} 
A := (Exp(Ln(X – 1)/3) – Exp(Ln(Abs(Y))))/ 
/Exp(Ln(X * X + Z)/3); 
B := Exp(4 * Ln(X)/3) * Sin(Z); 
C := Exp(Ln(Ln(Abs(A + B * B))/Ln(10))/3) + 259 *
 Pi/180; 
WriteLn( Cos(C)/Sin(C)); {вывод результата на экран монитора} 
END. 

3. Варианты лабораторной работы 

1. Вычислить значение выражения 
3
2
3
Log
b
a 
, если 


;
e
Ctg
e
)
(
Sin
2
5
z
y
x
a



 











3
Cos

)
(
Cos

3

2

z
y
x

a
b
, 

при x = – 0,0871; y = 0,0023  103; z = 2. 

2. Вычислить 
3
2
3
b
a 
, 
если 
;
e
)
(
Cos
y
x
a


 

3
5
10
345
,
12
e
Log
1






z
x
a
b
,  

при x = 7,0871  102; y = – 0,9023; z = Arc cos(0,76123). 

3. Вычислить 


b
a
2
Tg 3

, 
если 













x
z
a
Arcsin
Lg
; 

100
1
y
x
z
a
b




,  

при x = – 0,00671  105; y = – 0,6023; 
π
2 

z
. 

4. Вычислить 


b
a
4
Lg
Sin

, 
если 

8
2
1

1

4
2

3

y
x

y
x
a






; 

)
3
(
5
)
(
Arcctg




x
z
b
,  

при x = 3,4871; y = 4675,23  10–3; 

 3
z
. 

5. Вычислить 
Arctan(Ln(a – b)), 
если 

4
1
e

4
)
1(

2
2

2











x

x
y
x
y
a
x
, 

z
x
y
b

2
4
sin
2

)
2
cos(
1






,  

при x = 1828,4  10–3; y = 2,1093; 
15
7


z
. 

6. Вычислить 
3
2
3
Log
b
a 
, 
если 

),
4
(
ctg
e
2
cos
2
5
z
y
x
a




)
3
(
cos

cos

2

2

z
y
x

a
b



 

при x = – 1,67  10–3; y = 1,79; z = arctg(2). 

7. Вычислить 
)
4
Lg
sin(3
b
a


, 
если 

3
5,3
2

3
3
1

y
x

y
x
a





; 

),
(
tg
3
z
x
b


 

при x =3,48  103; y = 0,47; 
3
3



z
. 

8. Вычислить 
)
Ln
(
Arccos
b
a 
, 
если 

4
1
e

4
)
3
(
)
1(

2
2

2
5,2













x

x
y
x
x
y
a
x
, 

z
x
a
b

2
4
sin
2

)
2
cos(
1






, 

при 
5,9
7
,
1093
,4
,
10
4,
2828
3







z
y
x
. 

9. Вычислить 


2
10
2
Lg
Co



b
a
s
, 
если 

;
)
(
Tg
1
3

1,3

1

z
y
x
e
a

y








 
100

4
(
)
(
1

3
2








y
y
x

z
a
x
y
b
, 

при 
;
10
671
,0
3



x
 
;
6023
,2


y
 
π
e


z
. 

10. Вычислить 


b
a
g

)
251
,3
(
T
, 
если 




























z
x
z

y
x
x
y
a
2
4
2
Log
; 
y

y

z
a
x
x
b

5,1
2
5
(





, 

при 
;
10
1,
67
3




x
 
;3,
602

y
 
4
,3
1,2

z
. 

11. Вычислить 
)
Arcctg(
b
a 
, 
если 

)
(
Sin
5.0
6
Cos
2

5,2
y

x
a











; 

2

2

z
a
z
x
b



, 

при 
;
10
001571
,0
3


x
 
;
256

y
 
e



z
. 

12. Вычислить 


b
a
Ln
3
Sin

, если 

x
y
x
y

x
y
a






3
4
,2
; 

















3
Tg
1
2 z
b
, 

при 
;
671
,
18

x
 
;
10
02467
,0
3


y
 
)
37
(
Sin
e



z
. 

13. Вычислить 
3
8
Log
b
a 
, 
если 

,

1
2
2

)
(
Sin
1

3
2

2

y
x
x
x

y
x
a









)
Arcctg(
Cos
1


z
b
 

при 
2
/
π
4
3
2
,
10
179
,0
,
10
67
,1






z
y
x
 

14. Вычислить 
)
Arcctg(
2
/
5
2
/
3
b
a

, 
если 



5e

127
Cos
2
3,2

x
x
a



; 
z
y
a
b



Lg
, 

при 
;
10
00571
,0
3


x
 
;
10
e
6.4
2


y
 
)
27
Sin(


z
. 

15. Вычислить 
)
53
4
sin(Lg
5,1




b
a
, 
если 

2
2

3

e
5
1

e

y
x

y
a

x






; 
,
e
)
Arctg(
3




x
z
b
 

при 




2,3
,
47
,0
,
48
,3
z
y
x
. 

16. Вычислить 


5
67
Sin
Log
4
9




b
a
, 
если 


,)
Tg(
e
Arcsin
2
z
a
y
x



,
4
)
Sin(z
a
b


,