Question

(ДАМ 40 БАЛЛОВ)здравствуйте, столкнулся с проблемой, помогите пожалуйста. мне нужно вот прям щас. мне нужно составить такую задачу: Напишите программу которая рисует фигуру в случайном месте и закрашиваете случайным цветом, обводка фигуры 6 пикселей. Начинать с черной точки, длина стороны квадрата вводиться с клавиатуры, также задается количество фигур. Оформить задачу с помощью процедуры.я вроде как составил (правильно, не правильно) суть не в этом.я когда нажимаю посмотреть, что получилось выдает следующие : неверное количество фактических параметров.вот что у меня получилось:uses graphABC;var x1, x2, x3, x4, y1, y2, y3, i:integer;beginsetwindowwidth(1000);setwindowheight(1000);for i:= 1 to 10 dobeginx1:=random(301);y1:=random(801);x2:=random(901);y2:=random(401);x3:=random(801);y3:=random(201);x4:=random (801);line(x1, x2, x3, x4, y1, y2, y3);end;end.

Answer 1

Пока не похудеешь нечиго не скажу
Объяснение:

Answer 2

Привет! У тебя почти все верно, но есть несколько проблем, из-за которых возникает ошибка "неверное количество фактических параметров".

1. В процедуре line должны быть указаны четыре аргумента, но у тебя их сейчас семь. Аргументы x1, x2, x3, x4, y1, y2, y3 следует передать в процедуру line по отдельности.

2. Тебе также нужно задать цвет фигуры и толщину обводки перед вызовом line. Для этого можно использовать функции SetPenColor и SetPenWidth.

3. Не забудь добавить Randomize в начало программы, чтобы генератор случайных чисел работал правильно.

Вот исправленный вариант программы:

pascalCopy code
uses graphABC;

var
  x1, x2, x3, x4, y1, y2, y3, i, side: integer;

procedure DrawRandomShape();
begin
  x1 := random(901);
  y1 := random(601);
  x2 := x1 + side;
  y2 := y1;
  x3 := x2;
  y3 := y1 + side;
  x4 := x1;
  
  SetPenWidth(6);
  SetPenColor(RandomColor());
  
  line(x1, y1, x2, y2);
  line(x2, y2, x3, y3);
  line(x3, y3, x4, y1);
  line(x4, y1, x1, y1);
end;

begin
  Randomize;
  SetWindowWidth(1000);
  SetWindowHeight(1000);
  
  write('Введите длину стороны квадрата: ');
  readln(side);
  
  write('Введите количество фигур: ');
  readln(i);
  
  for var j := 1 to i do
  begin
    DrawRandomShape();
  end;
end.

Этот код генерирует случайное местоположение для каждой фигуры, а также случайный цвет и обводку толщиной 6 пикселей. Заданная длина стороны квадрата считывается с клавиатуры, а количество фигур также вводится пользователем.