h2000
25.04.2021 02:50

Вправа 1.
1. Створи програму, після виконання якої, при введені з клавіатури числа 1 буде
побудовано коло, у інших випадках квадрат.
2. Збережіть файл у власній папці з іменем Прізвище_ДЗ_11_1. Запустіть програму
на виконання.
3. Додай файл до завдання.
Вправа 2.
1. Створи програму, після виконання якої, при введені з клавіатури числа 0 буде
побудовано жовтий круг, у інших випадках зелений.
2. Збережіть файл у власній папці з іменем Прізвище_ДЗ_11_2. Запустіть програму
на виконання.
3. Додай файл до завдання.
Вправа 3.
1. Створи програму використовуючи множинне розгалуження, після виконання
якої, у залежності від введеного з клавіатури числа, будується:
- 1 - лінія довжиною 100 пікселів
- 2 - кут
- 3 - трикутник
- 4 - квадрат
- 5 - п’ятикутник
- 6 - шестикутник
- в інших випадках будується коло.

2. Розфарбуй на свій розсуд.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Osminozhka09
22.07.2021 01:34

Создание диаграммы

Выберите данные для диаграммы.

На вкладке Вставка нажмите кнопку Рекомендуемые диаграммы.

На вкладке Рекомендуемые диаграммы выберите диаграмму для предварительного Примечание: Можно выделить нужные данные для диаграммы и нажать клавиши ALT+F1, чтобы сразу создать диаграмму, однако результат может оказаться не самым лучшим. Если подходящая диаграмма не отображается, перейдите на вкладку Все диаграммы, чтобы все типы диаграмм.

Выберите диаграмму.

Нажмите кнопку ОК.

Добавление линии тренда

Выберите диаграмму.

На вкладке Конструктор нажмите кнопку Добавить элемент диаграммы.

Выберите пункт Линия тренда, а затем укажите тип линии тренда: Линейная, Экспоненциальная, Линейный прогноз или Скользящее среднее.

Объяснение:

0,0(0 оценок)
Ответ:
1234567891155
04.12.2021 03:04
Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота