Основы программирования на языке Turbo Pascal. Беляева И.В. - 202 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

202
begin
writeln;
writeln;
writeln('Введите информацию о прямоугольнике:');
{Ввод фиксированной части записи}
writeln(' Координаты верхней левой точки:');
write (' X ='); readln(Left);
write (' Y ='); readln(Top);
write (' Ширину='); readln(Width);
write (' Высоту='); readln(Height);
write (' Цвет рамки='); readln(ClBorder);
writeln;
{Ввод вариантной части записи}
writeln('Введите тип прямоугольника:');
writeln(' 1 – пустой прямоугольник');
writeln(' 2 – прямоугольник с заполнением');
writeln(' 3 – прямоугольник с текстом');
readln(case_type); {ввод номера типа}
{в зависимости от типа вводим дополнительные поля}
case case_type of
2: {прямоугольник с заполнением}
begin
fig:=FTFillRect;
write('Введите цвет заливки :'); readln(ClFill);
write('Введите стиль заливки:'); readln(StyleFill);
end;
3: {прямоугольник с текстом}
begin
fig:=FTTextInRect;
write('Введите цвет текста :'); readln(ClText);
write('Введите текст :'); readln(Str);
end;
else {пустой прямоугольник}
fig:=FTRect;
end;{case ... end}
end; {With ... end}

Страницы