.php> Содержание: "В. А. Давыденко программирование и основы алгоритмизации лабораторный практикум"
Geum.ru

В. А. Давыденко программирование и основы алгоритмизации лабораторный практикум



СодержаниеМодульное программирование
Секция реализации
Секция инициализации
Compile – компилируется только основная программа, все модули должны быть предварительно откомпилированы в tpu
Build – все ранее откомпилированные tpu–модули
Build, а при отладке программы – режим Compile
Демонстрационный пример
X и их значения} Procedure Print (n: byte; X: TM1_r)
Задания для выполнения
Построение программного меню
Window (X1, Y1, X2, Y2: byte)
GotoXY (X, Y: byte)
Procedure MENU
Задания для выполнения
Лабораторная работа
Алгоритмы работы экрана в текстовом режиме
CRT Работа с экраном в целом Процедура Window (X1, Y1, X2, Y2: byte)
X1 = Lo (WindMin); Y1 = Hi (WindMin)
ClrEOL – стирает все символы строки справа от курсора. Процедура InsLine
TextAttr: word
Sound (Hz: word)
KeyPressed: Boolean
KeyPressed = False
Лабораторная работа
ООП. Разработка программы с объектом «Окно»
Объектный тип
Задания для выполнения
Function GetSizeX: byte
Лабораторная работа
ООП. Наследование
Field indentifier expented
Begin a1:=
Begin Init
Init; MakeWin
N-кратный вывод символа, построенный на основе переопределения вывода символа преды­дущего класса.
Лабораторная работа
ООП. Полиморфизм. Сокрытие полей и методов
Задания для выполнения
Обработка символьной информации
Char, а для объявления данных строкового типа используется служебное слово String
Type Tchar = char
Type TStr1 = string[CStr]
Операция сцепления (+)
Delete (Var S: string; Pos, N: integer)
X целого или вещественного типа, если данная строка действительно отвечает правилам записи чисел. Строка S
Pos (Fragment, S: string): byte
Copy (S: string; Pos, N: integer): string
S1:= ‘Весна идёт, весне дорогу!
Var S1: string
Задания для выполнения
Лабораторная работа
Обработка данных типа записи
Var : record
Var : array [..] of record
Type T_Rec = record
Лабораторная работа
Формирование и обработка переменных файлового типа. Типизированные файлы
Type < имя типа> = file of
Type TStud = record
Var : < тип файла>
Var f_Rec: file of TStud
Fs: string[30]
END.Процедура Rewrite (var f)
Seek (var f; n: longint)
Rename (var f; New_name: string)
Eof (f): Boolean
FileSize (f): longint
Assign (f, Name_File)
Rewrite (f)
Reset (f)
Reset (f)
Close (f)
Контроль входных знаний
Задания для выполнения
Лабораторная работа
Формирование и обработка данных файлового типа. Текстовые файлы
Eof используется признак конца строки Eoln
Eoln. Объявление текстового файла
Assign (var f: text
Writeln (var f: text; S1, S2, …, SN)
Eoln. Процедура Append (var f: text)
Reset (var f: text)
Readln (var f: text; S1, S2, …, SN)
Eoln (var f: text): Boolean
False в противном случае. Функция SeekEoln (var f: text): Boolean
SeekEof (var f: text): Boolean
SetTextBuf (var f:text; var Buf [; BufSize: word])
Flush (var f: text)
Erase (var f: text)
Признак конца файла
Набор файла
Append (f1)
Предмет, Количество студентов, Oценка
Задания к выполнению
Type Trec = record
Type Trec = record
Type Trec= record
Фамилия Имя, Год рождения, Результат
Фамилия Имя, Год рождения, Результат, Призовая сумма.
Type Trec= record
Лабораторная работа
Динамические структуры данных
X – выражение любого типа, имя процедуры или функции.Указатели могут обмениваться значениями через оператор присваивания (:=)
P или сочетание Ptr
TM1 = array[1..20] of real
Var PtrA: real
Var P: Pointer
Лабораторная работа
Работа в графическом видеорежиме
Graph. Пиксель
Procedure GrInit
InitGraph (GraphDriver, GraphMode
ErrorCode:= GraphResult
PutPixel (X, Y: integer; Pixel: word)
Pattern обычно задается равным нулю. Константа Thickness
Bar (X1, Y1, X2, Y2: integer)
Circle (X, Y: integer; Radius: word)
CharSize (1..10)
FloodFill (X, Y: integer; Border: word)
ImageSize (X1, Y1, X2, Y2: integer): word
FreeMem (P: pointer; SizeOf: word)
GetImage (X1, Y1, X2, Y2: integer; var P)
P в прямоугольник, левый верхний угол которого определён координатами (X, Y)
Xp, Yp: integer
BEGIN ... Size:= ImageSize (X1, Y1, X2, Y2)
P в динамической памяти} GetImage (X1, Y1, X2, Y2, P)
PutImage (Xp, Yp, P, XorPut)
Лабораторная работа
Последовательности, рекуррентные соотношения
0! принято считать равным единице. Обобщённым членом
Задания для выполнения
Лабораторная работа
Рекурсивные алгоритмы
Function Fact_V1 (n: integer): longint; {n >= 1}
Procedure Fact_V2 (n: integer; var P: longint)
Q1, Q2 – операторы.Условное выражение L
Как бы в цикле”
P – текущее значение факториала = i!
Var P: longint
Fact_V4 для n=4
RacPak:Procedure RacPak (N, i: integer; var k: integer; var x: TM1_i)
Var ct, d: integer
RacPak для n=4
Контроль входных знаний
Лабораторная работа
Алгоритмы на множествах
Type T_Day = (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday )
Var Symbol: T_Symbol
Function Eoln
Function High
Procedure ReadSet (var m: Tm)
Function Min_Set (m: Tm): Tb
Задания для выполнения
Библиографический список
Учебное издание