Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
Омский государственный технический университет
Кафедра: «Средства связи и информационная безопасность»
Курсовая работа
по дисциплине «Информатика»
тема:
Алгоритмизация и программирование на языке Паскаль
Выполнил студент:
Кузюков Виктор Васильевич
Группа: ЗРП-118 (210402)
Вариант: № 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 написать алгоритм и программу для вычисления формулы для х, введенных с клавиатуры
. Произвести тестирование программы с помощью имеющегося математического пакета или калькулятора.
Алгоритм выполнения:
Текст программы:
Programlab1v8;
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 (' √a^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 (210402) 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 (210402) 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 (' √a^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 (' √a^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 (210402) 2009г.');
end.
алгоритм программа формула тестирование
Лабораторная работа 4
«Цикл с постусловием» (Repeat..until)
Лабораторное задание
Задание 1. Написать алгоритм и программу вычисления функции у(х) из лабораторной работы №2 в N равномерно распределенных в диапазоне Х1<х<Х2 точках, таблица 6. Результаты сформировать в виде таблицы. Произвести тестирование.
Задание 2. Произвести пошаговое выполнение программы, наблюдая переменные х, у, n
Алгоритм выполнения:
Текст программы:
Programlab4v8;
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
:=
X
1;
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 (210402) 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 (210402) 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^2 x^4 x^6 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^2 x^4 x^6 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 (210402) 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; {640x480x16}
InitGraph (GraphDriver, GraphMode, 'C:PascalBpBgi');
if GraphResult <> grOk then Halt (1);
{начинаем рисовать}
dx := GetMaxXdiv 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 (210402) 2009г.');
end.
Результат выводимый на дисплей:
Список используемой литературы:
1. Алгоритмизация и программирование на языке паскаль. Методические указания к лабораторным работам. Омск 2005. Составитель Осипов Вадим Евгеньевич
2. Сухарёв М. Turbo Pascal 7.0, теория и практика программирования. – СПб: Наука и Техника, 2003. – 576 стр. с ил. Под редакцией М.В. Финкова ISBN 5-94387-062-8