Основы программирования на языке Паскаль

lx:=x-r-1;

ly:=y-14;

rx:=x+r+1;

ry:=y+r div 6;

Width:=rx-lx+1;

Height:=ry-ly+1;

Size:=Imagesize(lx-9,ly,rx+3,ry+10);

GetMem(Saucer,size);

GetiMage(lx-9,ly,rx+10,ry+3,saucer^);

{создаемзвездноенебо}

Rectangle(xm,ym,3*xm,3*ym);

SetViewPo

rt(xm+1,ym+1,3*xm-1,3*ym-1,Clipon);

xm:=2*xm;

ym:=2*ym;

for i:=1 to 200 do

PutPixel(random(xm),random(ym),white);

{дом}

SetFillStyle(solidfill,DarkGray);

bar(320,240,640,480); Delay(p*10); {дом}

bar(370,220,600,240); Delay(p*10); {чердак}

Line(320,240,640,240); Delay(p*10); {крыша}

Line(370,240,370,220); Delay(p*10); {левая стена чердака}

Line(600,220,600,240); Delay(p*10); {правая стена чердака}

Line(370,220,600,220); Delay(p*10); {крышачердака}

Line(430,220,430,180); Delay(p*10); {мачтаантенны}

Line(430,180,410,170); Delay(p*10); {верхнийусантенны}

Line(430,180,410,190); Delay(p*10); {нижнийусантенны}

Line(430,180,410,180); Delay(p*10); {среднийусантенны}

bar(0,460,640,480); Delay(p*10); {земля}

Line(0,460,640,460); Delay(p*10);

SetFillStyle(solidfill,Yellow);

b:=270; {окна}

for i:=1 to 4 do

begin a:=350; f:=b+20; c:=a+15; Delay(p*5);

for j:=1 to 8 do

begin

bar(a,b,c,f); Delay(p*5);

SetColor(DarkGray);

Line(a,b+8,c,f-12); Delay(p*5);

Line(a+5,b+8,a+5,b+20); Delay(p*5);

a:=a+35; c:=c+35; end;

b:=b+50; end; Delay(p*10);

Pieslice(500,80,300,100,20); {месяц}

SetColor(green); Delay(p*10);

Line(150,460,150,400); Delay(p*10); {дерево}

Circle(170,365,25); Delay(p*10);

Circle(165,375,25); Delay(p*10);

Circle(150,375,25); Delay(p*10);

Circle(135,365,25); Delay(p*10);

Circle(155,345,25); Delay(p*10);

{задаем начальное положение нло и направление движения}

x:=xm div 2;

y:=ym div 2;

dx:=100;

dy:=100;

{основнойцикл}

Repeat

PutImage(x,y,Saucer^,XorPut);

Sound(Random(2*2000));

Delay(pr*2); NoSound;

Putimage(x,y,Saucer^,XorPut);

{получаем новые координаты}

loop:x:=x+dx;

y:=y+dy;

if (x<0) or (x+width+1>xm) or (y<0) or (y+height+1>ym) then

begin

{НЛО достиг границы экрана, меняем направление его движения}

x:=x-dx; y:=y-dy;

dx:=GetMaxX div 10 - random(GetMaxX div 5);

dy:=GetMaxY div 30 - random(GetMaxY div 15);

goto loop;

end until KeyPressed;

if ReadKey=#0 then x:=ord(ReadKey);

endelseCloseGraph;

end.

Список использованной и рекомендуемой литературы:

1. А.Н. Воловачев, В.С. Крисевич. Программирование на языке Паскаль для персональных ЭВМ ЕС. – Минск: "Высшая школа", 1989.

2. В.Я. Сердюченко. Розробка алгоритмів та програмування мовою TURBO PASCAL. – Харьков: "Паритет", 1995.

3. В.В. Фаронов. TURBO PASCAL 7.0 /Практика программирования/ – "Нолидж", 1997.

4. В.В. Фаронов. TURBO PASCAL 7.0 /Начальный курс/ – "Нолидж", 1997.

ОГЛАВЛЕНИЕ

1. Предварительные сведения 4

1.1. Алфавит . 4

1.2. Решение задач . 4

2. Простейшие программы . 5

2.1. Оператор присваивания . 5

2.2. комментарии . 7

2.3. Программа . 7

2.4. Простейший ввод-вывод 8

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

2.6. Описания переменных . 12

2.7. Раздел описания типов 14

3. Разветвляющиеся программы . 16

3.1. Общие положения . 16

3.2. Оператор goto, раздел описания меток . 17

3.3. Оператор if . 19

3.4. Оператор case (оператор выбора) 25

4. Циклические программы . 27

4.1. Оператор for 27

4.2. Оператор repeat. Общий вид 32

4.3. Оператор While . 33

4.4. Вложенные циклы . 34

5. Ввод – вывод 37

5.1. Общие положения . 37

5. 2. Ввод . 38

5. 3. Вывод . 39

5. 4. Некоторые возможности ввода-вывода . 39

6. Массивы 41

6. 1. Описание массивов 41

7. Подпрограммы 49

7.1. Общие положения . 49

7.2. Подпрограммы-функции, определенные пользователем . 51

7.3. Подпрограммы-процедуры . 54

7.4. Локальные и глобальные описания объектов 58

8. Строковые данные . 59

8.1. Общие замечания 59

8.2. Строковые выражения 60

8.3. Стандартные процедуры и функции для обработки строк 61

8.3.1. Процедуры обработки строк 61

8.3.2. Функции обработки строк . 62

9. Записи . 63

9.1. Комплексные данные . 68

9.2. Запись с вариантами 70

10. Файлы 71

10.1. Общие замечания 71

10.2. Стандартные процедуры и функции для работы с файлами 72

10. 3. Стандартные файлы . 73

10.4. Файлы последовательного доступа, созданные пользователем. 74

10.5. Файлы произвольного доступа 80

10.6. Текстовые файлы 83

11. Использование библиотеки CRT . 85

11.1. Программирование клавиатуры . 85

11.2. Текстовый вывод на экран 88

11.3. Программирование звукового генератора 96

12. Графика в Паскале 99

12.1. Инициализация графического режима 99

12.2. Процедуры и функции библиотеки Graph 99

12.3. Примеры программ 102

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 109

 Скачать реферат