Var m1: array[1..200] of integer; a1: array[100..200] of real;
ch1: array['A'..'Z'] of char; ch2: array[0..255] of char;
{ М1, A1 - одномерные массивы целых и вещественных чисел }
{ сh1, ch2 - одномерные массивы символов }
Примеры присвоения значения:
M1[1]:=5; M1[2]:=8; M1[3]:= M1[1]; M1[100]:=32;
A1[101]:=0.2; A1[102]:=2.31; ch1['B']:='C'; ch2[1]:='!'
Тип-диапазон и перечислимый тип задаются программистом. Примеры описания:
TYPE Date_M= 1..31; Rush_b= 'А..Я'; Lat_b= 'A..Z'; {тип диапазон}
Otmetka= (2,3,4,5); Ball= (1,2,3,4,5,6,7,8,9,10); {перечислимый тип}
Var t1,t2:Date_m; c1:Ruch_b; s1:Lat_b; a1,a2:Otmetka; b:Ball;
Примеры присвоения значения: t1:= 10; c1:= 'Л'; s1:= 'F'; a1:=5; b:= 8;
11
Файлы
Файл - именованная область внешней памяти ЭВМ, содержащая различные данные. Длина файла ограничена доступной дисковой памятью. Файлы могут быть текстовые, типизированные и нетипизированные. Рассмотрим описание текстовых файлов, хранящих информацию в виде строк переменной длины с последовательным доступом к данным.
Примеры описания: VAR f1, f2: text;
Примеры присвоения значения: Assign( f1, 'file1. in' );
Assign( f2, 'C:\ PASCAL\ WORK\ file2. out' );
Оператор Assign присваивает файловой переменной имя файла на диске.
Файл file1. in содержится в текущем каталоге. Для файла file2. out указывается дорожка DOS.
Записи
Записи - вводимый программистом тип, определяемый как структура данных разного типа, содержащая названия полей с указанием их типов, расположенных между служебными словами Record и End.
Примеры описания: Type Sity = Record
Name_G: String[20]; { название города }
Numb_G: LongInt; { число жителей }
Stol_G: Boolean; { Столица (Да, Нет) }
Shir, Dol: Real { Координаты: широта, долгота }
End;
Var St1, St2, St3: Sity; { Переменные типа запись }
Примеры присвоения значения:
St1. Name_G:= 'Уфа'; St1. Numb_G:=1200000; {Отдельным полям переменной St1 }
St2. Name_G:= 'Москва'; St2. Numb_G:=8200000;
St3:= St1; { Всем полям переменной St3 }
Переменные типа запись могут обозначаться с помощью оператора присоединения:
WITH "имя переменной" DO "оператор";
Например: With St1 do Begin
Name_G:= 'Уфа'; Stol_g:= True; Readln(Shir, Dol);
z:= Numb_G - St2. Numb_G; Writeln(Name_G:5, Numb_G:10) end;
Практическое задание N 1. 1
1) Создайте три файла с именами f1. pas, f2. pas, File_1. pas.
Запишите в первый файл структуру программы, приведенную ниже.
Скопируйте текст файла f1. pas в окно с файлом f2. pas. В файле f2. pas исключите разделы с процедурами и функциями.
В файл File_1. pas скопируйте разделы с процедурами и функциями из файла f1. pas. В файле f1. pas уберите подключение файла File_1. pas.
Откомпилируйте файлы f1. pas и f2. pas.
12