Новая Школа - онлайн-школа подготовки к ЕГЭ
Задача Задача №2291419
А
Аноним
20 ноября 2024 05:23 · публичный вопрос
А
Аноним

напиши программу на языке Pascal ABC, с условием программа которая запрашивает показания температуры T и рисует снежинку синего цвета если ты меньше или равно 0, или жёлтое…

Запрос пользователя

Напиши программу на языке Pascal ABC, с условием программа которая запрашивает показания температуры T и рисует снежинку синего цвета если ты меньше или равно 0, или жёлтое Солнышко если Т больше нуля

Ответ нейросети
20 ноября 2024 05:23

Конечно! Давайте напишем программу на языке 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, чтобы увидеть результат! Если у вас есть вопросы по коду или нужна дополнительная помощь, не стесняйтесь спрашивать.