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

Составить программу для вычисления и печати таблицы значений функции y=x*sin(5*x+1) на отрезке [0; 1] с шагом 0,1.

👇
Ответ:
Tima908
Tima908
29.04.2022
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0.0,1.0,10).Tabulate(x->x*sin(5*x+1)).Println(NewLine)
end.

Результат
(0,0)
(0.1,0.0997494986604054)
(0.2,0.181859485365136)
(0.3,0.179541643231187)
(0.4,0.0564480032239469)
(0.5,-0.17539161384481)
(0.6,-0.454081497184757)
(0.7,-0.684271082365568)
(0.8,-0.767139419730511)
(0.9,-0.634986293013353)
(1,-0.279415498198927)
4,7(87 оценок)
Открыть все ответы
Ответ:
tiger071
tiger071
29.04.2022
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Число элементов в массиве:');
  var a:=ArrRandom(n,1,99);
  Write('Исходный массив: '); a.Println;
  var n1,n2:integer;
  Write('Границы номеров элементов для суммы: '); Read(n1,n2);
  if n1>n2 then Swap(n1,n2);
  if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
  else Writeln('S=',a[n1-1:n2].Sum)
end.

Пример
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272
4,5(63 оценок)
Ответ:
//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;

procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;

procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;

procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;

begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);

writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.
4,5(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ