Конечно! Давайте напишем программу на языке Pascal ABC, которая будет запрашивать у пользователя показания температуры и рисовать снежинку синего цвета, если температура меньше или равна 0 градусам, или желтое солнышко, если температура больше 0 градусов.
Вот пример такой программы:
uses ABCPrint;
var
T: integer;
begin
// Запрос температуры у пользователя
Write('Введите показания температуры (T): ');
ReadLn(T);
if T <= 0 then
begin
// Рисуем снежинку синего цвета
SetPenColor(clBlue);
Circle(200, 200, 50);
Line(200, 150, 200, 250);
Line(150, 200, 250, 200);
Line(175, 175, 225, 225);
Line(175, 225, 225, 175);
WriteLn('Снежинка нарисована.');
end
else
begin
// Рисуем солнышко желтого цвета
SetPenColor(clYellow);
Circle(200, 200, 50);
Line(200, 150, 200, 100); // Верхний луч
Line(200, 250, 200, 300); // Нижний луч
Line(150, 200, 100, 200); // Левый луч
Line(250, 200, 300, 200); // Правый луч
Line(175, 175, 150, 150); // Левый верхний луч
Line(225, 175, 250, 150); // Правый верхний луч
Line(175, 225, 150, 250); // Левый нижний луч
Line(225, 225, 250, 250); // Правый нижний луч
WriteLn('Солнышко нарисовано.');
end;
// Ожидание закрытия окна
ReadLn;
end.
В этом коде мы сначала запрашиваем у пользователя температуру. Затем, в зависимости от введенного значения, программа будет рисовать синюю снежинку или желтое солнышко. Не забудьте запустить программу в среде Pascal ABC, чтобы увидеть результат! Если у вас есть вопросы по коду или нужна дополнительная помощь, не стесняйтесь спрашивать.