Ремонт принтеров, сканнеров, факсов и остальной офисной техники


назад Оглавление вперед




[2]

Примеры присвоения значения: Assign( f1, file1. in );

Assign( f2, C:\ PASCAL\ WORK\ file2. out );

Оператор Assign присваивает файловой переменной имя файла на диске.

Файл file1. in содержится в текущем каталоге. Для файла file2. out указывается дорожка

Записи - вводимый программистом тип, определяемый как структура данных разного типа, содержащая названия полей с указанием их типов, расположенных между служебными словами Record и End.

Примеры описания: Type Sity = Record

Name G: String[20];{ название города }

Numb G: Longint;{ число жителей }

Stol G: Boolean;{ Столица (Да, Нет) }

Shir, Dol: Real { Координаты: широта, долгота }

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.

1. 5. Структура программы

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


Program NAME;{ Заголовок программы - не обязательный оператор }

{ NAME - имя программы }

{ Раздел описания }

{$N+}{ Режим компиляции для расчетов с подключением сопроцессора }

Uses CRT, DOS, GRAPH;{ Подключение библиотек CRT, DOS, GRAPH }

Label L1, L2, L3;{ Список используемых в программе меток L1, L2, L3 }

Const C=10;

B=0. 15; Y=True; F=Фамилия;

{ Задание значений констант, используемых в программе } { С- целое число, В- вещественное число } { Y- Логическая константа, F- Символьная строка }

Type M= array[1. . 100] of integer;

m1, m2: M; a1: array [ 1. . 100 ] of real; ch: array [ 1. . 200 ] of char; ch1, ch2: char;

s: string[79]; a, d, x: real; yes, no: boolean;

f1, f2: text;

{ Описание типов введенных программистом }

{ Описание переменных } { m1, m2 - массивы целых чисел (типа М) } { а1 - массив вещественных чисел } { ch - массив символов } { ch1, ch2 - символьные переменные } { s - строка до 79 символов } { a, d, x - вещественные переменные } { yes, no - переменные логического типа } { переменные для описания текстовых файлов }

{----------------------------------------------------------------}

Procedure NAME 1(Parm1:Real; Var Parm2:Real);{ Заголовок процедуры }

{ NME 1 - имя процедуры, Parm1, Parm2 - параметры } { Раздел описания }

{ Раздел выполнения }

-------------------------------------------------------------- }

{ --------------------------------------------------------------Function FUN 1(Parm3, Parm4: Real): Real; { Заголовок функции }

{ FUN 1 - имя функции, Parm3, Parm4 - параметры }

{ Раздел описания }

{ Раздел выполнения }

{--------------------------------------------------------------

{ $I File 1. pas }

{ -----------

{ Подключение файла File 1. pas с дополнительными

функциями и процедурами }

{ Раздел выполнения }

{ Начало выполнения программы } { Конец выполнения программы }

1. 6. Операции и стандартные функции


В Турбо-Паскале применяются следующие условные знаки и служебные слова для описания различных операций:

Приоритет операции

Условный ] знак

Выражение Н

азвание Ти

операции

п переменных Тш в выражении вы

результата полнения операции

ЛОГИЧЕС

логическое "не"

КИЕ ОПЕРАЦ

логический

логический

A and B

логическое "и"

логический

логический

логическое "или"

логический

логический

A xor B

логическое исключающее

"или"

логический

логический

умножение

АТИЧЕСКИЕ О

целый ц смешанный вещественный

елый при умножении делых чисел, иначе вещественный

деление

N div M

деление

N mod M

остаток от деления

сложение

целый смешанный с вещественный

целый при операции целыми числами, иначе вещественный

вычитание

РАЦИИ СРАВН

число = число строка=символ строка=строка ( аналогично для всех операций сравнения )

логический ( для всех операций сравнения )

<>

X <> Y

не равно

X > Y

X < Y

X >= Y

больше или равно

X <= Y

меньшеили

Отметим, что операции в скобках имеют высший приоритет, т. е. сначала выполняются операции в скобках, в том числе вычисление аргументов и значения функции. Операции одинакового приоритета выполняются слева направо, например a/c*b соответствует (a/c)*b.



[стр.Начало] [стр.1] [стр.2] [стр.3] [стр.4] [стр.5] [стр.6] [стр.7] [стр.8] [стр.9] [стр.10] [стр.11] [стр.12] [стр.13] [стр.14] [стр.15] [стр.16] [стр.17] [стр.18] [стр.19] [стр.20] [стр.21] [стр.22] [стр.23] [стр.24] [стр.25] [стр.26] [стр.27] [стр.28] [стр.29] [стр.30] [стр.31] [стр.32] [стр.33] [стр.34] [стр.35] [стр.36] [стр.37] [стр.38] [стр.39] [стр.40] [стр.41] [стр.42] [стр.43] [стр.44] [стр.45] [стр.46] [стр.47] [стр.48] [стр.49] [стр.50] [стр.51] [стр.52] [стр.53]