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

Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования Омский государственный технический университет Кафедра: «Средства связи и информационная безопасность»

Курсовая работа

по дисциплине «Информатика»

тема:

Алгоритмизация и программирование на языке Паскаль Выполнил студент:

Кузюков Виктор Васильевич Группа: ЗРП-118 (210 402)

Вариант: № 8

Омск 2009 г.

Лабораторная работа 1 «Программирование формул; операторы ввода и вывода» (Read, Write)

Лабораторная работа 2 «Условный оператор» (If.then.else)

Лабораторная работа 3 «Цикл с предусловием» (While.do)

Лабораторная работа 4 «Цикл с постусловием» (Repeat.until)

Лабораторная работа 5.1 «Цикл с заданным числом повторений» (For.to.do)

Лабораторная работа 5.2 «Цикл с заданным числом повторений» (For.to.do)

Лабораторная работа 10 «Графические средства» (модуль — Graph)

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

Лабораторная работа 1

Программирование формул; операторы ввода и вывода (Read, Write)

Лабораторное задание Для данных из таблицы 3 написать алгоритм и программу для вычисления формулы для х, введенных с клавиатуры. Произвести тестирование программы с помощью имеющегося математического пакета или калькулятора.

Алгоритм выполнения:

Текст программы:

Program lab1v8;

Uses

Crt ;

Label

1,2 ;

const

a = 1.1;

b = 4;

var

y, x: Real;

ch: Char;

begin

1:

clrscr;

textcolor (11);

Writeln (' ПРОГРАММИРОВАНИЕ ФОРМУЛ; ОПЕРАТОРЫ ВВОДА И ВЫВОДА');

Writeln ;

Writeln (' Лабораторная работа № 1, 8-ой вариант');

Writeln (' Дано:');

Writeln (' Константы a=1.1 и b=4');

Writeln (' Переменные x, которые надо ввести с клавиатуры = -3 и 3');

Writeln ;

Writeln (' При -3 y=1.31; 3 y=2.87');

Writeln (' Вычисленение производится по формуле:');

Writeln ;

Writeln (' ln (|x+a|)*b');

Writeln (' y = —————-');

Writeln (' va^b-sin (b)');

Writeln ;

textcolor (LightGreen);

Write ('Введите значение x: ');

Read (x);

{-= вычисляем формулу =-}

y:= ln (abs (x+a))*b/(sqrt (exp (b*ln (a)))-sin (b));

{Выводим полученный результат}

Writeln ;

textcolor (Yellow);

WriteLn ('Результат вычисления y =', y:6:2);

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 Then goto 2;

goto 1;

2:

Writeln ('До свидания');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end.

Лабораторная работа 2

Условный оператор (If.then.else)

Лабораторное задание Написать алгоритм и программу для вычисления значения у из таблицы 4 для х, введенного с клавиатуры. Произвести тестирование программы.

Алгоритм выполнения:

Текст программы:

Program lab2v8;

Uses Crt ;

Label 1,2 ;

Var y, x: Real; ch: Char;

begin

1:

clrscr;

textcolor (11);

Writeln (' УСЛОВНЫЙ ОПЕРАТОР');

Writeln ;

Writeln (' Лабораторная работа № 2, 8-ой вариант');

Writeln (' Дано:');

Writeln (' Дана система уравнений для вычисления значения y');

Writeln (' при котором x требуется ввести с клавиатуры.');

Writeln ;

Writeln (' Диапазон, при которых значение x подходит к решению,');

Writeln (' должно контролироваться программой.');

Writeln (' /');

Writeln (' | x*(3-x), -1<= x <0');

Writeln (' y = < 1, 0<= x <1');

Writeln (' | tg (2x), 1<= x <=2');

Writeln (' ');

Writeln (' Производя проверку, в значении tg (2x) — х является ГРАДУСОМ!');

Writeln ;

textcolor (LightGreen);

Write ('Введите значение x: ');

Read (x);

{-= делаем проверку и вычисления =-}

if ((x<-1) or (x>2)) then Writeln ('Введённое значение выходит за пределы')

else

Begin

if x<0 then y := x*(3-x)

else if x<1 then y := 1

else y := (sin (2*x*Pi/180)/cos (2*x*Pi/180));

{Выводим полученный результат }

Writeln ;

textcolor (Yellow);

WriteLn ('Результат вычисления y =', y:7:3);

End;

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 Then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end.

Лабораторная работа 3

«Цикл с предусловием» (While.do)

Лабораторное задание Написать алгоритм и программу вычисления у (х) или z (t) из лабораторной работы № 1 для заданных значений диапазона и шага аргументов z, t, таблица 5. Первое значение вычисляется в крайней левой точке заданного диапазона значений аргументов х. Произвести тестирование программы.

Алгоритм выполнения:

Текст программы:

Program lab3v8;

Uses

Crt ;

Label

1,2 ;

const

a = 1.1;

b = 4;

dx = 0.5;

var

y, x: Real;

ch: Char;

begin

1:

clrscr;

textcolor (11);

Writeln (' ЦИКЛ С ПРЕДУСЛОВИЕМ');

Writeln ;

Writeln (' Лабораторная работа № 3, 8-ой вариант');

Writeln (' Дано:');

Writeln (' Константы a=1.1; b=4');

Writeln ;

Writeln (' Изменение x происходит от -3 до 3 с шагом 0,5');

Writeln (' Вычисленение производится по формуле:');

Writeln ;

Writeln (' ln (|x+a|)*b');

Writeln (' y = —————-');

Writeln (' va^b-sin (b)');

Writeln ;

textcolor (LightGreen);

Writeln ('Для продолжения нажмите «Enter» ');

Ch := ReadKey;

If Ch<>#13 Then goto 1;

clrscr;

Writeln (' Вычисленение производится по формуле:');

Writeln ;

Writeln (' ln (|x+a|)*b');

Writeln (' y = —————-; a=1.1, b=4');

Writeln (' va^b-sin (b)');

Writeln ;

{-= вычисляем формулу в цикле =-}

x := -3;

While (x<=3) do

Begin

y:= ln (abs (x+a))*b/(sqrt (exp (b*ln (a)))-sin (b));

{Выводим полученный результат}

textcolor (Yellow);

WriteLn ('Результат вычисления y =',y:6:2, ' при x = ', x:6:2);

x := x+dx;

End;

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 Then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end.

алгоритм программа формула тестирование

Лабораторная работа 4

«Цикл с постусловием» (Repeat.until)

Лабораторное задание Задание 1. Написать алгоритм и программу вычисления функции у (х) из лабораторной работы № 2 в N равномерно распределенных в диапазоне Х1<�х<�Х2 точках, таблица 6. Результаты сформировать в виде таблицы. Произвести тестирование.

Задание 2. Произвести пошаговое выполнение программы, наблюдая переменные х, у, n

Алгоритм выполнения:

Текст программы:

Program lab4v8;

Uses

Crt ;

Label

1,2 ;

Const

X1=-1; X2=2; N=11;

var

y, x, dx: Real;

i: Integer;

ch: Char;

vr: Byte;

begin

1:

clrscr;

textcolor (11);

Writeln (' ЦИКЛ С ПОСТУСЛОВИЕМ');

Writeln ;

Writeln (' Лабораторная работа № 4, 8-ой вариант');

Writeln (' Дано:');

Writeln (' Дана система уравнеий для вычисления значения y,');

Writeln (' /');

Writeln (' | x*(3-x), -1<= x <0');

Writeln (' y = < 1, 0<= x <1');

Writeln (' | tg (2x), 1<= x <=2');

Writeln (' ');

Writeln (' При выводе значении tg (2x) — х является ГРАДУСОМ!');

Writeln ;

Writeln (' Значение x = [-1;2]. ');

Writeln (' Из диапазона x выбирается 10 значений, которые');

Writeln (' атоматически вычисляются, разбив промежуток на равные части.');

Writeln ;

textcolor (LightGreen);

Writeln ('Выберите вариант вывода значений:');

Writeln (' 1 — вывод всех значений');

Writeln (' 2 — пошаговый режим');

Writeln ('(нажмите соотв. цифру на клавиатуре)');

{Проверяем выбораный режим 49="1″, 50="2″ }

Ch := ReadKey;

If Ch=#49 then vr:=10

else if Ch=#50 then vr := 1

else goto 1;

clrscr ;

Writeln (' Cистема уравнеий для вычисления значения y,');

Writeln (' /');

Writeln (' | x*(3-x), -1<= x <0');

Writeln (' y = < 1, 0<= x <1');

Writeln (' | tg (2x), 1<= x <=2');

Writeln (' ');

if vr = 1 then

begin

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для продолжения любую клавишу');

Writeln ;

textcolor (LightGreen);

end

else Writeln ;

{-= выводим в табличном значении =-}

Writeln (' ==================');

Writeln (' = n = x = y =');

Writeln (' ==================');

dx := (X2-X1)/(N-1);

x := X1;

i := 1;

Repeat

{ на всякий случай пусть проверяет ;) }

if ((x<-1) or (x>2)) then Writeln ('Значение вышло за пределы — ГЛЮК 8)')

else

Begin

if x<0 then y := x*(3-x)

else if x<1 then y := 1

else y := (sin (2*x*Pi/180)/cos (2*x*Pi/180));

Writeln (' =', i:3,'=', x:7:2,'=', y:7:2,'=');

x := x+dx;

i := i+1;

{проверка для пошагового режима}

if vr < 10 then

begin

Ch := ReadKey;

If Ch=#27 then goto 2;

end;

End

Until x>2;

Writeln (' ================== ');

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end

Лабораторная работа 5.1

«Цикл с заданным числом повторений» (For.to.do)

Лабораторное задание Задание 1. Изменить алгоритм и программу из лабораторной работы 4, используя вместо цикла с постусловием счетный цикл.

Алгоритм выполнения:

Текст программы:

Program lab5_1v8;

Uses

Crt ;

Label

1,2 ;

Const

X1=-1; X2=2; N=11;

var

y, x, dx: Real;

i: Integer;

ch: Char;

vr: Byte;

begin

1:

clrscr;

textcolor (11);

Writeln (' ЦИКЛ С ЗАДАННЫМ ЧИСЛОМ ПОВТОРЕНИЙ');

Writeln ;

Writeln (' Лабораторная работа № 5 (задания 1), 8-ой вариант');

Writeln (' Дано:');

Writeln (' Дана система уравнеий для вычисления значения y,');

Writeln (' /');

Writeln (' | x*(3-x), -1<= x <0');

Writeln (' y = < 1, 0<= x <1');

Writeln (' | tg (2x), 1<= x <=2');

Writeln (' ');

Writeln (' При выводе значении tg (2x) — х является ГРАДУСОМ!');

Writeln ;

Writeln (' Значение x = [-1;2]. ');

Writeln (' Из диапазона x выбирается N значений, которые');

Writeln (' атоматически вычисляются, разбив промежуток на равные части.');

Writeln ;

textcolor (LightGreen);

Writeln ('Выберите вариант вывода значений:');

Writeln (' 1 — вывод всех значений');

Writeln (' 2 — пошаговый режим');

Writeln ('(нажмите соотв. цифру на клавиатуре)');

{Проверяем выбораный режим 49="1″, 50="2″ }

Ch := ReadKey;

If Ch=#49 then vr:=10

else if Ch=#50 then vr := 1

else goto 1;

clrscr ;

Writeln (' Cистема уравнеий для вычисления значения y,');

Writeln (' /');

Writeln (' | x*(3-x), -1<= x <0');

Writeln (' y = < 1, 0<= x <1');

Writeln (' | tg (2x), 1<= x <=2');

Writeln (' ');

if vr = 1 then

begin

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для продолжения любую клавишу');

Writeln ;

textcolor (LightGreen);

end

else Writeln ;

{-= выводим в табличном значении =-}

Writeln (' ==================');

Writeln (' = n = x = y =');

Writeln (' ==================');

dx := (X2-X1)/(N-1);

x := X1;

For i:=1 to N do

Begin

if x<0 then y := x*(3-x)

else if x<1 then y := 1

else y := (sin (2*x*Pi/180)/cos (2*x*Pi/180));

Writeln (' =', i:3,'=', x:7:2,'=', y:7:2,'=');

x := x+dx;

{проверка для пошагового режима}

if vr < 10 then

begin

Ch := ReadKey;

If Ch=#27 then goto 2;

end;

End;

Writeln (' ==================');

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end.

Лабораторная работа 5.2

«Цикл с заданным числом повторений» (For.to.do)

Лабораторное задание Задание 2. Для заданного х, числа слагаемых или п вычислить следующее.

Алгоритм выполнения:

Текст программы:

Program lab5_2v8;

Uses Crt ;

Label 1,2 ;

var

b, x, s: real;

a: Shortint;

ch: Char;

vr: Byte;

c, zn, zi, i, n: Longint;

begin

1:

clrscr;

textcolor (11);

Writeln (' ЦИКЛ С ЗАДАННЫМ ЧИСЛОМ ПОВТОРЕНИЙ');

Writeln ;

Writeln (' Лабораторная работа ь 5 (задания 2), 8-ой вариант');

Writeln (' Дано:');

Writeln (' Дана последовательность s,');

Writeln ;

Writeln (' x² x⁴ x⁶ x^n');

Writeln (' s = 1 — —- + —- - —- + … —-');

Writeln (' 2! 4! 6! n!');

Writeln ;

Writeln (' Значение x и n надо ввести с клавиатуры.');

Writeln (' Где: x — не известная x');

Writeln (' n — кол-во решений (дробей)');

Writeln ;

Writeln (' *для примера x, n большими лучше не вводить ');

Writeln (' ограничение и переполнение не учитывается ');

Writeln (' т.к. это выходит за рамки данного задания* ');

Writeln ;

textcolor (LightGreen);

Write ('Введите занчение х нажмите Enter: ');

Read (x);

Write ('Введите значенеи n нажмите Enter: ');

Read (n);

Writeln ;

Writeln ('Выберите вариант вывода значений:');

Writeln (' 1 — вывод итогового значения s');

Writeln (' 2 — вывод значения s, для каждого решения');

Writeln ('(нажмите соотв. цифру на клавиатуре)');

{Проверяем выбораный режим 49="1″ vr=10, 50="2″ vr=1}

Ch := ReadKey;

If Ch=#49 then vr:=10

else if Ch=#50 then vr := 1

else goto 1;

clrscr ;

if vr = 1 then

begin

textcolor (LightRed);

Writeln ;

Writeln (' для завершения нажмите «Esc», для продолжения любую клавишу');

Writeln ;

textcolor (LightGreen);

end

else Writeln ;

Writeln (' x² x⁴ x⁶ x^n');

Writeln (' s = 1 — —- + —- - —- + … —-');

Writeln (' 2! 4! 6! n!');

Writeln ;

{-= выводим в табличном значении =-}

Writeln (' ==================');

Writeln (' = решение = s при x = ', x:6:5);

Writeln (' ==================');

s := 1;

For i:=1 to n do

Begin

{проверяем на чётность и соответственно добавляем знак}

if odd (i) then a := -1 else a := 1;

{находим степень с}

c := 2*i;

{вычисляем факториал знаменателя — zn (n!)}

zn := 1; {zn — факториал в знаменателе}

For zi:=1 to c do zn := zn * zi;

{находим дробь — b = x^c / zn

!ПРИМЕЧАНИЕ так как отрицательное число под знаком логарифма приведёт к ошибке, дополнительно при вычислении избавляемся от знака «-». В нашём конкретном случае это не будет ошибкой т.к. при нашем задании степень ЧЕТНАЯ т. е. при любом значении x оно всегда будет чётное. Поэтому смело можно применять abs.}

b := exp(c*ln(abs(x)))/zn;

{находим результат s = s+a*b (= 1 — (x^n/n!) +. — .}

s := s+a*b ;

{проверка дял пошагового режима}

if vr < 10 then

begin

Writeln (' =', i:7,'=', s:7:5,' x^', c,'=', b*zn:7:5,' ', c,'≠', zn);

Ch := ReadKey;

If Ch=#27 then goto 2;

end;

End;

if vr = 10 then Writeln (' =', i:7,'=', s:7:5);

Writeln (' ==================');

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end.

Лабораторная работа 10

«Графические средства» (модуль — Graph)

Лабораторное задание Пользуясь, по возможности, процедурами: Bar, Bar3D, Line, Ellipse, FloodFill, написать программу рисования на экране Вашей фамилии.

Текст программы:

Program lab10v8;

Uses

Crt, Graph;

Label

1,2 ;

var

ch: Char;

GraphDriver, GraphMode: Integer;

dx, dy, dy2, dx2: Integer;

Color: Byte;

begin

1:

clrscr;

textcolor (11);

Writeln (' ГРАФИЧЕСКИЕ СРЕДСТВА');

Writeln ;

Writeln (' Лабораторная работа ь 10');

Writeln ;

Writeln (' Вывести на экран фамилию в графическом режиме.');

Writeln ;

textcolor (LightRed);

Writeln (' для завершения нажмите «Esc», для продолжения любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

GraphDriver := Detect;

GraphMode := 0; {640×480×16}

InitGraph (GraphDriver, GraphMode, 'C:PascalBpBgi');

if GraphResult <> grOk then Halt (1);

{начинаем рисовать}

dx := GetMaxX div 40;

dy := GetMaxY div 35;

dx2 := dx div 2;

dy2 := dy div 2;

Color := White;

SetColor (Color);

SetFillStyle (1,Color);

{Cкобки}

Bar (2*dx, 2*dy, 6*dx, 3*dy);

Bar (2*dx, 2*dy, 3*dx, 6*dy);

Bar (35*dx, 10*dy, 36*dx, 13*dy);

Bar (32*dx, 14*dy, 36*dx, 13*dy);

{——-}

{К}

SetFillStyle (7,green);

Line (4*dx, 11*dy, 4*dx, 4*dy);

Line (4*dx, 4*dy, 5*dx, 4*dy);

Line (5*dx, 4*dy, 5*dx, 7*dy);

Line (5*dx, 7*dy, 7*dx, 4*dy);

Line (8*dx, 4*dy, 7*dx, 4*dy);

Line (8*dx, 4*dy, 5*dx+dx2,8*dy);

Line (5*dx+dx2,8*dy, 8*dx, 11*dy);

Line (8*dx, 11*dy, 7*dx, 11*dy);

Line (7*dx, 11*dy, 5*dx, 9*dy);

Line (5*dx, 9*dy, 5*dx, 11*dy);

Line (5*dx, 11*dy, 4*dx, 11*dy);

FloodFill { PutPixel} (5*dx, 8*dy, Color);

{У}

SetFillStyle (2,Yellow);

Line (10*dx, 6*dy, 9*dx, 6*dy);

Line (11*dx, 9*dy, 10*dx, 6*dy);

Line (12*dx, 6*dy, 11*dx, 9*dy);

Line (13*dx, 6*dy, 12*dx, 6*dy);

Line (11*dx, 11*dy, 13*dx, 6*dy);

Line (9*dx, 11*dy, 11*dx, 11*dy);

Line (9*dx, 11*dy, 9*dx, 10*dy);

Line (9*dx, 10*dy, 10*dx+dx2,10*dy);

Line (9*dx, 6*dy, 10*dx+dx2,10*dy);

FloodFill { PutPixel} (10*dx, 8*dy, Color);

{З}

SetFillStyle (5,White);

Line (14*dx, 7*dy, 13*dx+dx2,6*dy+dx2);

Line (13*dx+dx2,6*dy+dx2,14*dx+dx2,5*dy+dx2);

Line (14*dx+dx2,5*dy+dy2,15*dx+dx2,5*dy+dy2);

Line (15*dx+dx2,5*dy+dy2,16*dx+dx2,6*dy+dy2);

Line (16*dx+dx2,6*dy+dy2,16*dx+dx2,7*dy+dy2);

Line (16*dx+dx2,7*dy+dy2,15*dx, 8*dy+dy2);

Line (15*dx, 8*dy+dy2,16*dx+dx2,9*dy);

Line (16*dx+dx2,9*dy, 16*dx+dx2,10*dy+dy2);

Line (16*dx+dx2,10*dy+dy2,16*dx, 11*dy);

Line (16*dx, 11*dy, 13*dx+dx2,11*dy);

Line (13*dx+dx2,11*dy, 13*dx, 10*dy+dy2);

Line (13*dx, 10*dy+dy2,13*dx+dx2,10*dy);

Line (13*dx+dx2,10*dy, 14*dx, 10*dy+dy2);

Line (14*dx, 10*dy+dy2,15*dx+dx2,10*dy+dy2);

Line (15*dx+dx2,10*dy+dy2,15*dx+dx2,9*dy+dy2);

Line (15*dx+dx2,9*dy+dy2,14*dx+dx2,9*dy);

Line (14*dx+dx2,9*dy, 14*dx, 8*dy+dy2);

Line (14*dx, 8*dy+dy2,14*dx+dx2,8*dy);

Line (14*dx+dx2,8*dy, 15*dx+dx2,7*dy+dy2);

Line (15*dx+dx2,7*dy+dy2,15*dx+dx2,6*dy+dy2);

Line (15*dx+dx2,6*dy+dy2,14*dx+dx2,6*dy+dy2);

Line (14*dx+dx2,6*dy+dy2,14*dx, 7*dy);

FloodFill { PutPixel} (15*dx, 9*dy, Color);

{Ю}

SetFillStyle (9,Magenta);

Line (17*dx, 5*dy, 18*dx, 5*dy);

Line (18*dx, 5*dy, 18*dx, 8*dy);

Line (19*dx, 8*dy, 18*dx, 8*dy);

Line (19*dx, 8*dy, 19*dx, 9*dy);

Line (18*dx, 9*dy, 19*dx, 9*dy);

Line (18*dx, 11*dy, 18*dx, 9*dy);

Line (17*dx, 11*dy, 18*dx, 11*dy);

Line (17*dx, 5*dy, 17*dx, 11*dy);

{Circle (20*dx, 8*dy, 7); }

FillEllipse (20*dx, 8*dy, 15,40);

FloodFill {PutPixel} (20*dx, 8*dy, Color);

FloodFill {PutPixel} (18*dx, 8*dy+dy2,Color);

{К}

SetFillStyle (9,Red);

Line (22*dx, 5*dy, 23*dx, 5*dy);

Line (23*dx, 5*dy, 23*dx, 7*dy);

Line (23*dx, 7*dy, 24*dx, 5*dy);

Line (24*dx, 5*dy, 25*dx, 5*dy);

Line (25*dx, 5*dy, 24*dx, 8*dy);

Line (24*dx, 8*dy, 25*dx, 11*dy);

Line (25*dx, 11*dy, 24*dx, 11*dy);

Line (24*dx, 11*dy, 23*dx, 9*dy);

Line (23*dx, 9*dy, 23*dx, 11*dy);

Line (22*dx, 11*dy, 23*dx, 11*dy);

Line (22*dx, 5*dy, 22*dx, 11*dy);

FloodFill { PutPixel} (23*dx, 8*dy, Color);

{О}

SetFillStyle (6,Blue);

Circle (27*dx, 8*dy, 10);

FillEllipse (27*dx, 8*dy, 20,40);

FloodFill { PutPixel} (27*dx, 7*dy, Color);

{В}

SetFillStyle (4,Green);

Line (30*dx, 5*dy, 30*dx, 11*dy);

Circle (31*dx+dx2,6*dy, 7);

Circle (31*dx+dx2,9*dy, 9);

Arc (31*dx, 6*dy+dy2, 330, 125, 25);

Arc (31*dx+dx2, 9*dy+dy2, 225, 64, 30);

FloodFill {PutPixel} (32*dx, 10*dy, Color);

ReadKey;

CloseGraph;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210 402) 2009 г.');

end.

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

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

1. Алгоритмизация и программирование на языке паскаль. Методические указания к лабораторным работам. Омск 2005. Составитель Осипов Вадим Евгеньевич

2. Сухарёв М. Turbo Pascal 7.0, теория и практика программирования. — СПб: Наука и Техника, 2003. — 576 стр. с ил. Под редакцией М. В. Финкова ISBN 5−94 387−062−8