В первой фотографии код, во второй результат (пример)
Что нужно сделать в этом задании?
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
if a>b then Swap(a,b); // если перепутали границы
var x:=a;
while x<=b+h/2 do begin
Write(x:10:5);
var y:=Ln(x)/Tan(x);
if real.IsNaN(y) or real.IsInfinity(y) then
Writeln(' значение не существует')
else Writeln(y:15:5);
x+=h
end
end.
<u>Примеры</u>
Введите границы и шаг табуляции: -5 5 1
-5.00000 значение не существует
-4.00000 значение не существует
-3.00000 значение не существует
-2.00000 значение не существует
-1.00000 значение не существует
0.00000 значение не существует
1.00000 0.00000
2.00000 -0.31722
3.00000 -7.70704
4.00000 1.19733
5.00000 -0.47609
Введите границы и шаг табуляции: -1 1 0.2
-1.00000 значение не существует
-0.80000 значение не существует
-0.60000 значение не существует
-0.40000 значение не существует
-0.20000 значение не существует
0.00000 значение не существует
0.20000 -7.93961
0.40000 -2.16723
0.60000 -0.74667
0.80000 -0.21672
1.00000 0.00000
<em>Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Summa(a:array of integer):=a.Sum;
begin
var a:=ArrRandom(10,-99,99); a.Println; Writeln;
var b:=ArrRandom(20,-99,99); b.Println; Writeln;
var c:=ArrRandom(30,-99,99); c.Println; Writeln;
Writeln('S=',Summa(a)+Summa(b)+Summa(c))
end.
<u>Пример</u>
53 34 13 64 79 28 -98 -43 -19 23
96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44
-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89
S=244
100111001
начиная справа налево складываем
1 + 0 + 4 + 8 + 16 + 0 + 0 + 128 = 20 + 9 + 128 = 157
234
тут мы считаем по другому
каждую цифру умножаем на 5 в ином степени
4*1 + 3*5 + 2*5*5 = 4 + 15 + 50 = 69
2 на 5 в степени 2 т.к. в 3 позиции
3 на 5 в степени 1 т.к в 2
4 просто т.к. любое число в степени 0 равно 1
71 = 64 + 0 + 0 + 0 + 4 + 2 + 1
значит 1000111
1022(по умолчанию 10)
1022 это как 1023 только без 1
1024(10) = 1000 0000 000
1023(10) = 0111 1111 111
1022(10) = 0111 1111 110
1376 тоже самое как и 234
1*8*8*8 + 3*8*8 + 7*8 + 6 = 512 + 192 + 56 + 6 =766
276 мы тут делим всегда на 4 при этом выделяя остаток
276 : 4 = 69 ост:0
69 : 4 = 17 ост:1
17 : 4 = 4 ост:1
4 : 4 = 1 ост:0
1 : 4 = 0 ост:1
сверху вниз считаем остатки
10110 это ответ