egorpolozuk
27.09.2021 12:10

САМОСТОЯТЕЛЬНАЯ РАБОТА (оценка определяется номером выполненного задания). Выполните на экране компьютера следующие графические построения:
1. Треугольник с вершинами 1(10,10), 2(300,470), 3(630,10);
2. Прямоугольник с вершинами 1(50,50) 2(400,50), 3(400,200), 4(50,20)
3. Шестиугольник с вершинами 1(100,100), 2(200,10), 3(300,10), 4(400,100), 5(300,190), 6(200,190).
4. Нарисуйте куб.
5. Нарисуйте 2 куба, со сторонами в 2 раза меньше сторон исходного.
6. Нарисуйте 3 куба, имеющие стороны длиной 10,20 и 30 единиц соответственно.
7. Выведите на экран 5 вложенных квадратов. Попробуйте закрашивать их поочерёдно разными цветами.
8. С команды рисования закрашенного прямоугольника выведите на экран рисунки «ШТАНГА», «ПИРАМИДА» и «РОБОТ».
9. Постройте на экране «ЗАМОК». Воспользуйтесь всеми известными вам возможностями операторов LINE, RECTANGLE, окрашивания.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mirnayamilena
28.03.2023 16:23
Const
  n = 15;

var
  a: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(61) - 30;
    Write(a[i]:4);
    if a[i]>0 then a[i]:=2*a[i]
    else
      if a[i]<0 then a[i]:=7
  end;
  Writeln;
  Writeln('После преобразования');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
 -20  15  16  20   0  16 -15  -1  -2  21  -8 -10   4 -24   1
После преобразования
   7  30  32  40   0  32   7   7   7  42   7   7   8   7   2
0,0(0 оценок)
Ответ:
холпяик
28.03.2023 16:23

1)  

var mas:array[1..7] of integer;

    i:integer;

begin

writeln('Введите 7 целых чисел:');

for i:=1 to 7 do

begin

readln(mas[i]);

if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;

end;

writeln('Изменённый массив:',mas);

end.

2) var mas:array[1..9] of integer;

    i,b:integer;

begin

writeln('Введите 9 целых чисел:');

for i:=1 to 9 do

begin

readln(mas[i]);

if(mas[i] <0) then b:=b+mas[i];

end;

writeln('Сумма отрицательных элементов= :',b);

end.

3) var mas:array[1..4] of integer;

    i,b:integer;

   

 

begin

writeln('Введите 4 целые числа:');

b:=1;

for i:=1 to 4 do

begin

readln(mas[i]);

b:=b*mas[i];

 

end;

writeln('Произведение чисел= ',b);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота