Ошибка типа данных

@Priveeetkakdela · Регистрация: 05.03.2017

Author24 — интернет-сервис помощи студентам

Добрый вечер! Такое задание: Ввести с клавиатуры название фигуры, которую надо построить: телевизор или круг. Нарисовать и раскрасить соответствующую фигуру на белом фоне. Использовать оператор условия.
В строке 10 выдает ошибку "Нельзя преобразовать тип integer к System.Drawing.Color". Не могу никак понять, в чем дело.

Pascal

Uses GraphABC;
var
a:string[10];
begin
writeln('Введите фигуру');
readln(a);
if (a='телевизор') then begin
Rectangle (100,100,600,600);
rectangle(200,200,500,500);
floodfill (100,150,1);
floodfill (100,150,7);
circle(30,650,50);
circle(570,650,50);
floodfill (30,650,0);
floodfill (570,650,0);
setcolor(0);
line (200,100,30,10);
line (400,100,570,10); end
else if (a='круг') then begin 
circle (200,200,100);
floodfill(200,200,14);
end;
end.

@Puporev · 18.04.2017, 18:29

А не нужно пытаться запускать код написанный для Турбо Паскаля в АВС. Цвета имеют константы типа clWhite, clYellow, clBlue, clGray и т.д.
setcolor->setpencolor.

Добавлено через 2 минуты
И если у Вас правильные фигуры, то выкиньте floodfill, a используйте

Pascal

1 2	setbrushcolor(clYellow); circle(x,y,r);

@Priveeetkakdela · 18.04.2017, 18:56 **[ТС]**

Не понимает команду, сразу в 8 строке ошибка "Неизвестное имя 'clcream'"

Pascal

Uses GraphABC;
var
a:string[10];
begin
writeln('Введите фигуру');
readln(a);
if (a='телевизор') then begin
setpencolor(clcream);
setpenwidth(2);
Rectangle (100,100,600,600);
setbrushcolor (clBlack);
rectangle(200,200,500,500);
circle(30,650,50);
circle(570,650,50);
line (200,100,30,10);
line (400,100,570,10); end
else if (a='круг') then begin 
setpencolor (clgreen);
setpenwidth(2);
circle (200,200,100);
end;
end.

@Puporev · 18.04.2017, 19:23

Код взяли в Турбо Паскале, тему создали в разделе АВС, а пишете в АВС.net, короче сплошная тупость. Нет в АВС.net цветовой константы clCream, откройте справку и найдите про цветовые константы, их там море.

@Priveeetkakdela · 18.04.2017, 19:30 **[ТС]**

спасибо

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.04.2017, 19:23	4
	Сообщение было отмечено Priveeetkakdela как решение Решение Код взяли в Турбо Паскале, тему создали в разделе АВС, а пишете в АВС.net, короче сплошная тупость. Нет в АВС.net цветовой константы clCream, откройте справку и найдите про цветовые константы, их там море. 1

@Priveeetkakdela 0 / 0 / 0 Регистрация: 05.03.2017 Сообщений: 10
	18.04.2017, 19:30 [ТС]	5
	спасибо 0

Ошибка типа данных

Решение