Составить программу вычисления и печати значений функции nbsp;Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего nbsp;из 6 частей. Значения функции записать в массив Y.
- Konstantin Galbrajh
- Подготовка к ЕГЭ/ОГЭ
- 2019-11-05 09:33:51
- 2
- 1
Маргарита Актураева 2019-11-05 09:41:39
USES Crt;
nbsp;VAR
nbsp;nbsp;nbsp;X,Y:ARRAY[0..6] OF REAL;
nbsp;nbsp;nbsp;I: BYTE;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr;
nbsp;nbsp;nbsp;FOR I:=1 TO 6 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;Write(Введите ,I, значение довода ); ReadLn(X[I]);
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;FOR I:=1 TO 6 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;Y[I]:=SIN(X[I]-1)/(2*X[I]);
nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( X= ,X[I]:4:1, nbsp;nbsp;Y=,Y[I]:5:2);
nbsp;nbsp;nbsp;End;
nbsp;END.
Источник: obrazovalka.com
Составить программу на языке Паскаль для вычисления и печати таблицы значений функции Y=sin2(x-1…
Составить программу на языке Паскаль для вычисления и печати таблицы значений функции Y=sin2(x-1)+2cos((x-1)/2), при условии, что X0=0.3, Xк=1.7, DX=0.2.
Ксения Иланова Вопрос задан 6 июля 2019 в 10 — 11 классы, true»> Поделиться
Построение таблицы значений функций в EXCEL
1 Ответ (-а, -ов)
// PascalABC.Net v2.2 build 1019
program znanija_12709887;
const
xMin = 0.3;
xMax = 1.7;
xStep = 0.2;
var
y : real;
x : real;
begin
x := xMin;
while x y := sin(2)*(x — 1) + 2 * cos((x — 1) / 2);
writeln (‘x = ‘ , x, ‘ y = ‘, y);
x := x + xStep;
end;
end.
Маргарита Бурвикова Отвечено 6 июля 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru
Составить программу вычисления и печати значений функции y sin x 1 2x
Составить программу на языке Паскаль для вычисления и печати таблицы значений функции Y=sin2(x-1)+2cos((x-1)/2), при условии, что X0=0.3, Xк=1.7, DX=0.2.
Комментарии
sin2(x-1) — это sin(2(x-1)) или квадрат синуса (x-1) ?
Запись sin2(x-1) некорректна, потому что допускает разночтения.
5 (1 оценка)
§151 Функция y=sin x
DagotPavel 7 лет назад
Светило науки — 36 ответов — 79 раз оказано помощи
// PascalABC.Net v2.2 build 1019
program znanija_12709887;
const
xMin = 0.3;
xMax = 1.7;
xStep = 0.2;
var
y : real;
x : real;
begin
x := xMin;
while x y := sin(2)*(x — 1) + 2 * cos((x — 1) / 2);
writeln (‘x = ‘ , x, ‘ y = ‘, y);
x := x + xStep;
end;
end.
Источник: vashurok.com