Question

К среде надо сделать. Задание а) и б). Тема по информатике: основы алгоритмизации и программирования. Очень нужно! Сама писать программы не умею, но немного понимаю. Пожалуйста! Помогите кто-нибудь!!!

Answer 1

uses GraphABC;
begin
  LockDrawing;
  for var i:=1 to 800 do
  begin
    Window.Clear;
    Brush.Color := clGray;
    FillRectangle(i+10,90,i-110,430);
    Brush.Color := clRed;
    Ellipse(i,100,i-100,200);
    Brush.Color := clYellow;
    Ellipse(i,210,i-100,310);
    Brush.Color := clGreen;
    Ellipse(i,320,i-100,420);
    Redraw;
    Sleep(1);
  end;
  for var i:=1 to 900 do
  begin
    Window.Clear;
    Brush.Color := clBlack;
    Ellipse(i,100,i-200,300);
    Brush.Color := clWhite;
    Ellipse(i-1,101,i-199,299);
    Brush.Color := clRed;
    Ellipse(i-20,120,i-180,280);
    Brush.Color := clWhite;
    FillRectangle(i-50,180,i-150,220);
    Redraw;
    Sleep(1);
  end;
end.

Answer 2

Да. У вас АБС паскаль установлен? если нет - скачивайте, запускайте, увидите.

Answer 3

Хорошо, когда освободиться, то скачаю. Попробовала на телефоне через онлайн pascal abc запустить. Светится ошибка на счёт "GraphABC". Почему так?

Answer 4

О, да его ещё и онлайн можно запускать! Ни разу не слышал. Может, просто графика онлайн не поддерживается?

Answer 5

Возможно. Спасибо за потраченное время. Я весьма вам благодарна!

Answer 6

Разберётесь, там всё просто, прямоугольники и круги, и всё.