Язык программирования Pascal. Строки и записи. Васильев В.В - 23 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

23
tColor = (red, green, blue);
Point = record x,y: real end;
Figures = record
Color: tColor;
case FigureType: tFigure of
circle: (center: point; radius: real);
rectangle: (s1, s2: point);
triangle: (t1, t2, t3: point)
end;
tList = array[1..n] of Figures;
ColorRect = array[1..n] of tColor;
Var List:tList;{массив из фигур}
i, j, s, c:byte; Mas: ColorRect;
{массив цветов прямоугольников}
r, g, b: boolean;
Begin
Textbackground(7); Textcolor(1); Clrscr;
{Чтение информации о фигурах}
for i:=1 to n do
begin
writeln('* Введите информацию о ',i,'-й фигуре *');
{Заполнение фиксированной части записи}
write('Цвет (1-красный, 2-зеленый, 3-синий)');
repeat
readln(c)
until (c>=1) and (c<=3);
case c of
1: List[i].Color:=Red;
2: List[i].Color:=Green;
3: List[i].Color:=Blue
end;
{Чтение значения поля признака}
write('Форма (1-круг, 2-прямоугольник, 3-треугольник)');
repeat
readln(c)
until (c>=1) and (c<=3);
case c of
1: List[i].FigureType:=Circle;
2: List[i].FigureType:=Rectangle;
3: List[i].FigureType:=Triangle
end;
{Заполнение вариантной части записи}
with List[i] do
case FigureType of
Circle: begin
write('Координаты центра: ');
readln(center.x, center.y);

Страницы