Const e=0.001;
var x,a,s:real; n:integer;
begin
write('x=');readln(x);
writeln(' x S(x) y(x)');
a:=1; s:=1; n:=1;
while abs(a)>e do
begin
a:=-a*x*x/(2*n-1)/(2*n);
s:=s+a;
n:=n+1;
end;
writeln(x:3:1,' ',s:8:5,' ',cos(x):8:5);
<span>end.
Пример:
x=0.6
x S(x) y(x)
<span>0.6 0.82534 0.82534</span></span>
<em>// PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var p:=ReadInteger('Номер строки для формирования вектора:');
var x:=a.Row(p-1); x.Println
end.
<u>Пример:</u>
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив [6,9] ***
25 -94 49 38 93 6 76 61 -79
49 25 -82 -43 -92 -51 -78 62 4
-31 43 -78 -34 48 19 -17 -26 -98
82 44 -43 36 82 50 -14 39 -87
88 -25 12 -94 -96 68 7 9 -28
96 38 -15 -77 -99 -78 -60 -21 57
------------------------------------
Номер строки для формирования вектора: 4
82 44 -43 36 82 50 -14 39 -87
Первое слово флаг. палец указывает первую букву заменить на П, значит плаг. Следующая буква И, значит плаги. Затем идёт перевернутый танк, т.е. кнат. две запятые перед ним призывают выкинуть две первые буквы. остается ат. соединим вместе: плагиат. это решение ребуса.
А ты не пробовала написать этот кусок алгаритма в Pascal?
если х=-3, а у=-2; Х=-2,У=-1.
если х=-1, а у=4; Х=0 ,У=2
1) Как представлено число 8310 в двоичной системе счисления?В этом вопросе нет ни одного числа двоичного кода. В двоичном коде будет: 10000001110110
2) Дано: , . Какое из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству ? Я думаю, что вопрос звучал так: <em>Дано: a=222 8 , b=94 Какое из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству?</em><em>Ответ:</em>2) С = 250(8сч) удоволетворяет неравенству а=247 меньше С=250 и b= 251 больше С=250.
3) Даны 4 целых числа, записанные в двоичной системе...
<em>Ответ: </em><span><em>все четыре числа меньше чем 396
</em>
4) </span>
Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 39 оканчивается на 3.
<em>Ответ: 4, 6, 9, 12, 18, 36
5) </em>
Запись числа 30 в некоторой системе счисления выглядит так: 110N. Найдите основание системы счисления N.
6) Решить уравнение: где????????????????
7) Сколько единиц в двоичной записи числа 42016 + 22018 – 6?
<em /><em>Я не смог решить
</em>
8)<span>
Значение арифметического выражения: 274 – 95 + 38 – 25 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи?
<em>Я не смог решить</em></span><span>
</span>