Графические средства ТурбоПаскаля.
Построение графика функции.
Задание к лабораторной работе № 4П
Набрать и отладить программу построения графика функции  для  , используя точечный метод.
Рекомендации по выполнению задания
к лабораторной работе № 4.
В соответствии с порядком построения на экране дисплея графика функции y=F(x) сначала необходимо определить границы значений аргумента, в пределах которых будет строиться график, обозначив их Xmin и Xmax.
Из условия задачи следует, что Xmin=0, Xmax=2.
На следующем этапе для найденной области значений аргумента определяются предельные значения функции Ymin иYmax. В пределах Xmin=0, Xmax=2 функция sin x изменяется от −1 до 1, поэтому Ymin=−1, Ymax=1.
На следующем этапе необходимо задать границы графического окна, в пределах которого будет рисоваться график: [Xgmin, Xgmax], [Ygmin, Ygmax]. Поскольку в крафических координатах вертивкальная ось направлена вниз, то Ygmin>Ygmax.
Выберем следующие границы графического окна: Xgmin=10; Xgmax=200; Ygmin=140; Ygmax=40.
График строится в виде последовательности точек со следующими математическими координатами:
 Xi=Xmin+ih; Yi=sin(Xi); i=0,…,190.
Шаг h выбирается минимально возможным, соответствующим шагу графической сетки:
Формулы пересчёта математических координат в графические примут следующий вид:
Вместе с графиком функции строятся оси координат. Ось X имеет координату Yg=90, а ось Y – координату Xg=10.
После составления своей программы можно для проверки правильности сравнить ее с одним из возможных вариантов программы, приведенным ниже.
Program GRAFIK_SIN;
Uses Graph;
Var Drive, Mode : integer;
X : Real; Xg, Yg, I : integer;
Begin
{---- Инициализация графического режима ----}
Driver := Detect;
InitGraph (Driver, Mode, ‘C:\TP\BGI’);
SetColor (White); {Белый цвет линий}
SetBkColor (Black); {Чёрный цвет фона}
Line (10, 90, 200, 90); {ОсьX}
Line (10, 20, 10, 160); {Ось Y}
{---- Построение графика функции жёлтыми точками ----}
X:= 0;
For I:= 0 To 190 Do
Begin Xg := 10+Round (95/Pi*X);
Yg := 90-Round(50*Sin(X));
PutPixel (Xg, Yg, Yellow);
X := X+Pi/95
End;
{---- Разметка осей, запись функции ----}
OutTextXY (15, 30, ‘Y’);
OutTextXY (205, 90, ‘X’);
OutTextXY (130, 40, ‘Y=Sin(X)’);
ReadLn; {Задержка}
CloseGraph; {Выход из графики}
End.
Произведите отладку программы рисования графика функции, добавьте вывод подписи под рисунком и предъявите отлаженную программу преподавателю.
Лабораторная работа № 5П
Символьные строки в ТурбоПаскале.
Задание к лабораторной работе № 5П
Набрать и отладить программу получения из слова «ВЕЛИЧИНА» слова «НАЛИЧИЕ».
Набрать и отладить программу получения из слова «СТРОКА» слова «СЕТКА».
Набрать и отладить программу, формирующую символьную строку, состоящую из N звездочек. Здесь N – целое число, 1 < N < 255.
Краткие теоретические сведения
Строковый тип данных есть в ТурбоПаскале и отсутствует в стандартном Пас кале.
Строка — это последовательность символов. Каждый символ занимает I байт памяти (код ASCII). Количество символов в стро ке называется ее длиной. Длина строки может находиться в диапа зоне от 0 до 255. Строковые величины могут быть константами и переменными.
Строковая константа — это последовательность символов, зак люченная в апострофы. Например:
' Язык программирования ПАСКАЛЬ',
' IBM PC — computer',
' 33-45-12'.
Строковая переменная описывается в разделе описания пере менных следующим образом:
Var <идентификатор> : String[<максимальная длина
строки>].
Например:
Var Name : String[20].
Длина строки может и не указываться в описании. В этом слу чае подразумевается, что она максимальна — 255 символов. На пример:
Var Slovo : String.
Строковая переменная занимает в памяти на 1 байт больше, чем указанная в описании ее длина. Дело в том, что один (нуле вой) байт содержит значение текущей длины строки. Если строко вой переменной не присвоено никакого значения, ее текущая дли на равна нулю.
По мере заполнения строки символами ее текущая длина воз растает, но она не должна превышать максимального по описа нию значения.
Символы внутри строки индексируются (нумеруются), начи ная с единицы. Каждый отдельный символ идентифицируется име нем строки с индексом, заключенным в квадратные скобки. На пример:
Name[5], Name[i], Slovo[k+1].
Индекс может быть положительной константой, переменной величиной и выражением целого типа. Значение индекса не долж но выходить за границы описания.
Тип String и стандартный тип Char совместимы. Строки и сим волы могут употребляться в одних и тех же выражениях.
Строковые выражения строятся из строковых констант, пере менных, функций и знаков операций. Над строковыми данными допустимы операции сцепления и операции отношения.
Операция сцепления (+) применяется для соединения несколь ких строк в одну результирующую строку. Сцеплять можно как строковые константы, так и переменные. Например:
'ЭВМ'+' IBM'+' PC'.
В результате получится строка
'ЭВМ IBM PC'.
Длина результирующей строки не должна превышать 255 сим волов.
Операции отношений (=, <, >, <=, >=, <>) производят сравне ние двух строк, в результате чего получают логическую величину (True или False). Операция отношения имеет более низкий при оритет, чем операция сцепления. Сравнение строк производится слева направо до первого несовпадающего символа, и большей считается та строка, в которой первый несовпадающий символ имеет больший номер в таблице символьной кодировки.
Если строки имеют различную длину, но в общей части сим волы совпадают, считается, что более короткая строка меньше, чем более длинная. Строки равны, если они полностью совпадают по длине и содержат одни и те же символы. Например:
Выражение
|
Результат
|
'cosml' < 'cosm2'
|
True
|
'pascal' > 'PASCAL'
|
True
|
'Ключ_' <>'Ключ'
|
True
|
'MS DOS' = 'MS DOS'
|
True
|
• Функция Copy (S, Poz, N) — выделяет из строки S подстроку длиной N символов, начиная с позиции Poz. Здесь N и Poz — целочисленные выражения. Например:
Значение S
|
Выражение
|
Результат
|
'ABCDEFG'
|
Copy(S, 2, 3)
|
'BCD'
|
'ABCDEFG'
|
Copy(S, 4, 4)
|
'DEFG'
|
• Функция Concat (SI, S2,..., SN) выполняет сцепление (конка тенацию) строк S1,..., SN в одну строку. Например:
Выражение
|
Результат
|
Concat('AA', 'XX' , ' Y' )
|
'AAXXY'
|
• Функция Length (S) — определяет текущую длину строки S. Результатом будет являться значение целого типа. Например:
Значение S
|
Выражение
|
Результат
|
'test-5'
|
Length(S)
|
6
|
'(A+B)*C'
|
Length(S)
|
7
|
• Функция Pos(Sl,S2)— обнаруживает первое появление в строке S2 подстроки S1. В результате получают целое число, рав ное номеру позиции, где находится первый символ подстроки S1. Если в S2 подстроки S1 не обнаружено, результат равен 0. Например:
Значение S2
|
Выражение
|
Результат
|
'abcdef'
|
Pos('cd', S2)
|
3
|
'abcdcdef'
|
Pos('cd', S2)
|
3
|
'abcdef'
|
Pos('k', S2)
|
0
|
• Процедура Delete (S, Poz, N) — удаляет N символов из стро ки S, начиная с позиции Poz. Например:
Исходное значение S
|
Оператор
|
Конечное значение
|
'abcdefg'
|
Delete(S,3,2)
|
'abefg'
|
'abcdefg'
|
Delete(S,2,6)
|
'a'
|
В результате выполнения процедуры уменьшается текущая длина строки в переменной S.
• Процедура Insert (SI, S2, Poz) — вставляет строку SI в строку S2, начиная с позиции Poz. Например:
Начальное S2
|
Оператор
|
Конечное S2
|
'ЭВМ PC'
|
Insert('IBM-',S2,5)
|
'ЭВМ IBM-PC'
|
'Рис. 2'
|
Insert('N',S2,6)
|
'Рис. N2'
|
Порядок выполнения задания к лабораторной работе № 5
На основании теоретических сведений составьте программы в соответствии с заданием к лабораторной работе № 5 ( см. п.п. 1, 2, 3 раздела Задание к лабораторной работе № 5).
После составления своих программ для проверки правильности сравните их с одними из возможных вариантов программ, приведенными ниже.
Program Slovo_1;
Var S11, S121 : String[10];
Begin
S11 := ‘ВЕЛИЧИНА’;
S12 := Copy (S11, 7, 2) + Copy (S11, 3, 4) + S11 [2];
WriteLn (S12)
End.
Program Slovo_2;
Var S1 : String[10];
Begin
S1 := ‘СТРОКА’;
Delete (S1, 3, 2);
Insert (‘E’, S1, 2);
WriteLn (S1)
End.
Program Stars;
Var A : String;
N, I : Byte;
Begin
Write (‘Введите число звёздочек’);
ReadLn (N);
A : ‘’;
For I:= 1 To N Do
A := A + ‘*’;
WriteLn (A)
End.
В последней программе строковой переменной А сначала присваивается значение пустой строки (' '), а затем к ней присоединяются звёздочки.
Произведите отладку своих программ и предъявите отлаженные программы преподавателю.
Лабораторная работа № 6П
Массивы в ТурбоПаскале.
Задание к лабораторной работе № 6П
Составить программу для вычисления среднегодовой температуры и ежемесячных отклонений от этого значения для заданного в табл. 1 массива среднемесячных температур Т[1…12].
Таблица 1.
Месяц года
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
Температура, 
|
-21
|
-18
|
-7,5
|
5,6
|
10
|
18
|
22,2
|
24
|
17
|
5,4
|
-7
|
-18
|
Краткие теоретические сведения
Множество значений, содержащихся в таблице, обозначается следующим образом:
Порядковые номера элементов (1, 12, i и др.) называются индексами. Индексированные величины удобнее использовать при записи их для математической обработки. Например, для вычис ления среднегодовой температуры используется следующая фор мула:
В Паскале аналогом таблиц является структурированный тип данных, который называется регулярным типом, или массивом. Как и таблица, массив представляет собой совокупность пронумеро ванных однотипных значений, имеющих общее имя. Элементы мас сива обозначаются как переменные с индексами. Индексы запи сываются в квадратных скобках после имени массива. Например:
Т[1], Т[5], Т[i].
Массив, хранящий линейную таблицу, называется одномерным, а прямоугольную — двухмерным. В программах могут использоваться массивы и большей размерности.
|
