В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
vladaleonova
vladaleonova
25.09.2020 01:06 •  Информатика

В какие наборы данных сгруппированы данные о проекте? Какие виды таблиц используются в системе?
Какие виды представлений используются в системе?
Как выбрать вид таблицы отображаемой в представлении?
Какие имеются приемы для ввода и редактирования ячеек таблицы?
Перечислить выделения фрагментов таблицы.
Какие имеются приемы форматирования таблиц?
Какие виды сортировки таблицы предусмотрены системой?
Какие виды фильтрации таблиц существуют в системе?
Что такое структурный фильтр и как его применить?
Что такое автофильтр и как его применить?
Что такое предопределенный фильтр?
Как самостоятельно определить свой собственный фильтр и как его удалить?
Какие виды группировки таблиц используются в системе?
Что такое предопределенная группировка?
Как создать свою собственную группировку и как ее удалить?
Что такое временная группировка и каковы ее параметры?
Что такое диаграмма Ганта и из каких элементов она состоит?
Какие основные виды значков используются на диаграмме Ганта?
Какие используются приемы редактирования плана проекта на диаграмме Ганта?
Как изменить формат отдельного отрезка диаграммы Ганта?
Как изменить формат всех отрезков задач заданного типа диаграммы Ганта?
Из каких уровней состоит шкала времени диаграммы Ганта?
Какие имеются параметры уровней шкалы времени диаграммы Ганта?
Какие задаются параметры нерабочего времени диаграммы Ганта?
Что задает макет диаграммы Ганта?
Что и в какой форма отображается на сетевом графике?
Каковы приемы редактирования плана проекта с использованием сетевого графика?
Что задает макет сетевого графика?
Как изменить формат отдельной рамки сетевого графика?
Как изменить формат всех рамок для заданного вида задач на сетевом графике?
В какой форме изображен план проекта на календаре?
Каковы приемы редактирования плана проекта на календаре?
Какие возможности форматирования элементов календаря имеются в системе?

Показать ответ
Ответ:
95Laura95
95Laura95
30.04.2022 12:20

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

a, b : array [1..n] of integer;

i, max, min, p, imax, imin : integer;

begin

randomize;

writeln('исходный массив a[]:');

for i := 1 to n do

begin

a[i] := random(50) - 25;

write(a[i]:8)

end;

writeln;

{формируем и выводим новый}

{сразу осуществляем поиск максимума и минимума}

max := -1000; min := 1000;

writeln('новый массив b[]:');

for i := 1 to n do

begin

b[i] := a[i] * a[i] * a[i];

write(b[i]:8);

if b[i] > max then

begin

imax := i;

max := b[i]

end;

if b[i] < min then

begin

imin := i;

min := b[i]

end

end;

writeln;

{считаем произведение и выводим результаты}

p := max * min;

writeln('максимальный элемент нового массива - b[', imax, '] = ', max);

writeln('минимальный элемент нового массива - b[', imin, '] = ', min);

writeln('их произведение = ', p);

readln

end.

0,0(0 оценок)
Ответ:
Ням1111
Ням1111
19.02.2021 10:35

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

uses crt,graphABC;

var h,c,r1,r2,r3,i,x1,y1,x2,y2:integer;

   u:real;

begin

repeat

write('Введите время в часах, от 0 до 24 кратное 3 h=');

readln(h);

until (h in [0..24])and(h mod 3=0);

setwindowsize(400,400);

c:=200;

r1:=c-30;

r2:=r1-40;

r3:=r1+20;

centerwindow;

clrscr;

hidecursor;

circle(c,c,r1);

//u:=pi/2-pi/6;

for i:=1 to 12 do

begin

 u:=-i*pi/6+pi/2;

 x1:=c+round(r1*cos(u));

 y1:=c-round(r1*sin(u));

 setbrushcolor(clBlack);

 setbrushstyle(bsSolid);

 circle(x1,y1,2);

 x2:=c+round(r3*cos(u));

 y2:=c-round(r3*sin(u));

 u:=u-pi/6 ;

 setbrushstyle(bsClear);

 textout(x2-3,y2-5,inttostr(i));

end;

setpenwidth(3);

h:=h mod 24 mod 12;

u:=-h*pi/6+pi/2;

line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));

end.

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