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

«Графические средства» (модуль - 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;