Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Паскале РУС-Я.doc
Скачиваний:
5
Добавлен:
01.07.2025
Размер:
348 Кб
Скачать
☆
  1. Строковые string

Переменная строкового типа задается набором символов, заключенных в кавычки.

Примеры описания:

VAR

s : string[25]; { Длина переменной s может изменяться от 1 до 25 символов }

s1 : string; { длина переменной s1 не указывается, наибольшее число символов равно 255 }

Примеры присвоения значения:

s := 'Привет';

s1 := 'Hello';

  1. Символьные char

Переменные символьного типа могут принимать значения одного из символов с кодами от #0 до #255, т. е. допускаются буквы русского алфавита и символы псевдографики. Символы с кодами от #0 до #31 (управляющие) в тексте воспринимаются как пробел, а в операторах вывода как символ или команда.

Примеры описания:

VAR

с, ch, e: char;

Примеры присвоения значения:

c := 'A';

c := '!';

c := #33; { символ "!" задается значением кода }

ch := #13; { код клавиши Enter }

e := #27; { код клавиши Esc }

Примеры вывода:

Write(с); { выводится символ "!" }

Write(ch); { команда перевода курсора на новую строчку }

Write(е); { выводится специальный символ, соответствующий коду #27 }

  1. Логические boolean

Переменные логического типа могут принимать значения: False(ложь) или True (истина).

Примеры описания:

VAR

b1, b2, b3, b4 : boolean;

Примеры присвоения значения:

b1 := True; b2 := False; b3 := not b1;

Массив

Массив - упорядоченные данные одного типа, состоящие из переменных (элементов массива). Элементы массива имеют свой порядковый номер (индекс) и значение. Значение присваивается отдельно каждому элементу массива, либо сразу всем элементам массива (копирование одного массива в другой в случае массивов одинакового типа). Массив может быть многомерным (без ограничения), но занимать не более 65520 байт.

Примеры описания:

VAR

M1 : array[1..200] of integer; { М1, A1 - одномерные массивы целых и вещественных чисел }

A1 : array[100..200] of real;

ch1 : array['A'..'Z'] of char; { сh1, ch2 - одномерные массивы символов }

ch2 : array[0..255] of char;

Примеры присвоения значения:

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;

Файлы

Файл - именованная область внешней памяти ЭВМ, содержащая различные данные. Длина файла ограничена доступной дисковой памятью. Файлы могут быть текстовые, типизированные и нетипизированные. Рассмотрим описание текстовых файлов, хранящих информацию в виде строк переменной длины с последовательным доступом к данным.

Примеры описания:

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;

end;

Writeln(Name_G:5, Numb_G:10);