М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
TEMOXAA
TEMOXAA
26.08.2020 00:44 •  Информатика

Для заданной функции составить блок-схему и программу для построения графика функции в заданном интервале и с заданным шагом. Построить таблицу значений для аргумента и функций на заданном интервале. Таблица должна содержат заголовок и шапку. При составлении программы использовать подпрограмму вывода горизонтальной линии.

Функция
Y=2Sin3x
Интервал
[0;2П]
Шаг
П/10

👇
Открыть все ответы
Ответ:
seba777
seba777
26.08.2020
Для случайных чисел:

var
   a: array[1..5] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 5 do
      a[i] := random(100);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.

Для ручного заполнения:

var
   a: array[1..5] of integer;
   i: integer;
begin
   for i:=1 to 5 do
      readln(a[i]);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.
4,4(57 оценок)
Ответ:
Апрепр
Апрепр
26.08.2020
Program example;

const

A=30;

Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный

var

flag_max : integer;
flag_min : integer;

i. jmin,jmax : integer; //счетчики

Randomize;

array max[A];

//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;

//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max

jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;

//минимальный элемент

for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;

//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;

//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
4,4(74 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ