Основы программирования на языке Паскаль
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
{дом}
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 (xym) 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);
end else CloseGraph;
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. Оператор if19
3.4. Оператор case (оператор выбора)25
4. Циклические программы27
4.1. Оператор for27
4.2. Оператор repeat. Общий вид32
4.3. Оператор While33
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. Использование библиотеки CRT85
11.1. Программирование клавиатуры85
11.2. Текстовый вывод на экран88
11.3. Программирование звукового генератора96
12. Графика в Паскале99
12.1. Инициализация графического режима99
12.2. Процедуры и функции библиотеки Graph99
12.3. Примеры программ102
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ............................................109