Top.Mail.Ru
Ответы

Помогите с информатикой, срочноо

составьте программу в PascalABC, чтобы рисовалась цифра 4
помогите🙏🙏

По дате
По Рейтингу
Аватар пользователя
Знаток
6мес
12345678910111213141516171819202122232425262728293031323334353637
 ```pascal 
uses GraphABC; 
 
begin 
  // Устанавливаем размер окна 
  SetWindowSize(200, 300); 
 
  // Рисуем вертикальную линию (левая часть четверки) 
  MoveTo(50, 50); 
  LineTo(50, 250); 
 
  // Рисуем горизонтальную линию 
  MoveTo(50, 150); 
  LineTo(150, 150); 
 
  // Рисуем наклонную линию (правая часть четверки) 
  MoveTo(150, 50); 
  LineTo(150, 150); 
  LineTo(50,150); 
 
end. 
``` 
 
**Пояснение:** 
 
1.  **`uses GraphABC;`**: Подключает модуль `GraphABC` для работы с графикой. 
2.  **`SetWindowSize(200, 300);`**: Задает размеры графического окна 200 пикселей в ширину и 300 пикселей в высоту. 
3.  **`MoveTo(x, y);`**: Перемещает "перо" в точку с координатами (x, y) без рисования линии. 
4.  **`LineTo(x, y);`**: Рисует линию от текущей позиции "пера" до точки с координатами (x, y). 
 
**Как запустить:** 
 
1.  Скачайте и установите PascalABC.NET ([https://pascalabcnet.github.io/](https://pascalabcnet.github.io/)). 
2.  Скопируйте код программы в редактор PascalABC.NET. 
3.  Нажмите F9 или кнопку "Выполнить" (зеленый треугольник). 
 
В результате откроется графическое окно, в котором будет нарисована цифра 4. Вы можете изменить координаты в командах `MoveTo` и `LineTo`, чтобы изменить размер и положение цифры. 
Аватар пользователя
Оракул
6мес

А и Б сидели на трубе, А споткнулся, в пи3ду воткнулся.

Аватар пользователя
Профи
6мес

срочнее некуда

Аватар пользователя
Мастер
6мес

begin
writeln(' 4');
writeln(' 44');
writeln(' 4 4');
writeln('4 4');
writeln('444444');
writeln(' 4');
writeln(' 4');
end.