Файл: Самоучитель.doc

BEGIN

GetDate(God, Mes, Den, Den_Ned); {Запоминаем настоящую дату}

WriteLn('Введите число, номеpмесяца и год');

ReadLn (Den1, Mes1, God1);

SetDate(God1, Mes1, Den1); {Устанавливаем интеpесующую нас дату}

GetDate(God1,Mes1,Den1,Den_Ned1); {Узнаем номеpдня недели интересующей нас даты}

caseDen_Ned1of{По номеpу получаем текст}

0 :Den_Ned_Text:='воскpесенье';

1 :Den_Ned_Text:='понедельник';

2 :Den_Ned_Text:='втоpник';

3 :Den_Ned_Text:='сpеда';

4 :Den_Ned_Text:='четвеpг';

5 :Den_Ned_Text:='пятница';

6 :Den_Ned_Text:='суббота'

end;

WriteLn(Den1, '.' ,Mes1,'.',God1,' - ', Den_Ned_Text);

SetDate(God,Mes,Den); {Восстанавливаем настоящую дату}

ReadLn

END.

П6. Список литературы

Д.Б.Поляков, И.Ю.Круглов «Программирование в среде Турбо Паскаль (версия 5.5)». Москва, Издательство МАИ, 1992 год. 576 страниц.

Это основная книжка, которую я вам рекомендую после изучения моей для расширения и углубления знаний по Паскалю. Как вводный курс ее читать, конечно, нельзя. Она толстая и в ней много полезного материала. Ничего, что версия – 5.5. Разницу с 7.0 вы почувствуете очень не скоро. Я не знаю, может быть эта книга и переиздана с 1992 года, может быть и под другим названием. Но авторы – хорошие.

В.В.Фаронов «Основы Турбо-Паскаля (6.0)». Москва, МВТУ-ФЕСТО ДИДАКТИК, 1992 год. 304 страницы.

Е.А.Зуев «Язык программирования Turbo Pascal 6.0» Москва, Унитех, 1992 год. 298 страниц.

О.Е.Перминов «Программирование на языке Паскаль» Москва, Радио и связь, 1988 год. 220 страниц.

П7. Предметный указатель

A

Abs 39

Add watch 166

Alt 171

AND 51

Append 147

Arc 151

array 107

Assembler 16

Assign 146

B

BackSpace 171

Bar 151

Bar3D 151

Basic 16

BEGIN 31

Boolean 112

Byte 106

C

C 16

CapsLock 170

Case 53

CD-ROM 27

Char 53, 115

Chr 115

Circle 79

ClearDevice 80

Close 146

CloseGraph 77

ClrScr 153

Comp 106

Compile 169

const 110

Copy 116, 168

CRT 76, 95, 153

Ctr 171

Cut 168

D

Debug 162, 165

Delay 70

Delete 116, 171

DirectVideo 88

div 38

do 60, 61, 62

DOS 154

Double 106

downto 62

E

Edit 168

Ellipse 80

else 46

END 31

EOF 147

exe 169

Exit 74, 160

Extended 106

F

false 112

File 160

FillEllipse 151

FloodFill 81

for 61

FORWARD 95

Frac 39

G

GetDate 154

GetImage 152

GetMaxX 151

GetMaxY 151

GetMem 152

GetPixel 151

GetTime 154

GOTO 56

Goto cursor 167

GotoXY 154

Graph 76, 150

H

Halt 74

I

if 46, 48, 50

ImageSize 152

IMPLEMENTATION 149

in 120

InitGraph 77

Insert 116, 171

Int 39

Integer 35, 106

INTERFACE 149

Internet 27

K

KeyPressed 95, 99

L

LABEL 56

Length 116

Line 79

LISP 16

Logo 16

LongInt 35, 106

M

mod 38

N

new 122

New 160

NormWidth 80

NoSound 70

NOT 52

O

of 107

Open 161, 167

OR 52

ORD 114

Output 165

OutTextXY 152

P

Pascal 16

Paste 168

PC Speaker 26

Pi 39

PieSlice 151

Pos 116

PRED 114

PROCEDURE 73

PROGRAM 134

Program reset 164

Prolog 16

PutImage 152

PutPixel 78

R

Random 39, 83

Randomize 84

Read 42

ReadKey 95, 99

ReadLn 42, 147

Real 40, 106

Record 118

Rectangle 78

Repeat 59

Reset( 147

Rewrite 146

Round 39

Run 162

S

Save 161

Save as 161

Sector 151

set of 119

SetColor 80

SetDate 154

SetFillStyle 81

SetLineStyle 80

SetTextStyle 152

SetTime 154

SetUserCharSize 153

Shift 170

ShortInt 106

Single 106

Sound 70

Sqr 39

Sqrt 39

str 153

Str 116

String 116

SUCC 114

T

Text 146

TextBackgrownd 153

TextColor 153

then 46

ThickWidth 80

to 62

TopOff 151

TopOn 151

Trace into 164

true 112

TYPE 111

U

Unit 149

until 59

User Screen 162

V

val 153

Val 116

var 35

W

Watch 165

While 60

Word 106

Write 30

WriteLn 36, 146

31

-

- 38, 119

.

. 31

(

( 38

)

) 38

*

* 38, 119

/

/ 38

^

^ 122

+

+ 38, 116, 119

=

= 34

а

абсолютная величина 39

адрес 121

адреса 122

алгоритмом 10

алфавит 103

А

Арифметические выражения 136

а

арифметическими 38

арифметических выражений 38

А

Ассемблер 16

б

базой данных 117

байт 23, 28, 103, 121

байтом 28

бит 28

Б

Бэйсик 16, 23

В

Ввод программы 160

Ветвление 19

Вещественные типы 106

Вещественные числа 39

Взаимодействие программ в памяти 23

в

видеоадаптер 25

видеокарту 25

винчестер 21

В

Винчестер 26

Вложение циклов в разветвления и наоборот 66

Вложенные операторы if 50

в

вложенные подпрограммы 135

В

Вложенные циклы 67

в

вложенными процедурами 135

В

Внешние устройства компьютера 24

Внешняя память 24, 26

в

возведение в квадрат 39

временем 154

В

Вставка в программу фрагментов из других программных файлов 148

в

выбор 19

вывод данных 137

В

Вывод текста в графическом режиме 152

в

вызовом процедуры 13, 73

вызывает 23

В

Выполнение программы 162

в

выражением 136

В

Выход из Паскаля 160

Выход из цикла с помощью if 58

Вычислительная циклическая программа 63

г

гетерархией 99

глобальной 27

глобальной переменной 128

Г

Графика 76

г

графическом режиме 76

д

данными 22

датой 154

Д

Движение картинок по экрану 84

Двумерные массивы 108

д

дерева 174

Д

Дерево типов 138

д

десятичных дробей 39

Д

Джойстик 24

Диалог с компьютером 44

д

диапазон 54

диапазонов 113

динамическим распределением памяти 122

Д

Директива компилятора 148

Дискета 26

д

дискеты 10, 21

дисковод 22, 26

дисплеем 9

дисплей 25

документами 173

дорожкой 175

дробная часть числа 39

е

если 46

ж

жесткий диск 26

з

заголовком процедуры 125

З

Заголовок модуля 149

з

загружают 23

З

Загрузка программы 161

Задание на игру “Торпедная атака 99

Заливка 80

з

заливки 81

записей 117

З

Запись 117

з

зарезервированными 103

звездное небо 83

звук 70

звуковая карта 26

знаком присвоения 34

значениями переменной величины 34

и

и 51

идентификатор 37

иерархией 87

иерархию 99

И

ИЛИ 52

Имена переменных 37

и

имена процедур 73

И

Имена файлов 173

и

именем модуля 149

имя 173

иначе 46

индексированные переменные 107

И

Индукция 130

и

инициализации графического режима 77

интерфейс 63

И

Интерфейс пользователя 43

и

исполнимых файлов 169

И

Исправление ошибок 163

и

истина 112

исходные данные 23

к

каталог 173

К

Клавиатура 24

к

клавиатуры 21

К

Ключевые слова 103

Ключи компиляции 156

Кодирование информации в компьютере 27

к

команд 10

команд меню 168

команда 16

командным режимом 12

комментарии 31

К

Компакт-диски 27

к

компиляцию 35

компьютер 9, 10

компьютерной сетью 27

константы 45, 110

К

Копирование 168

Копирование и движение областей экрана 151

к

корень квадратный 39

корневым каталогом 174

корнем 174

курсор 24, 33

К

Куча 121

к

куче 122

Л

Лазерный принтер 25

Лисп 16

Логические выражения 136

Логические операции 50

л

логический тип Boolean 112

логическим диском 175

логическими выражениями 111

логическими константами 112

Л

Лого 16