<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,h,b):=(-0.1,0.02,0.1);
var y:real->real:=t->t<=0 ?
Sqr(Sin(9*t-3))+0.7*t :
5*Cos(25*t+0.37)**3-5*t*t;
var x:=a;
while x<=b+h/2 do begin
Writeln(x:5:2,y(x):15:10);
x+=h
end
end.
<u>Пример</u>
-0.10 0.4030222897
-0.08 0.2428711009
-0.06 0.1085059147
-0.04 0.0189480905
-0.02 -0.0125256009
0.00 4.0520544419
0.02 1.3385985058
0.04 0.0316707402
0.06 -0.1460479966
0.08 -1.8734753767
0.10 -4.5200806881
<u>2. Более "традиционное" решение</u>
const
a=-0.1;
h=0.02;
b=0.1;
var
x,y:real;
begin
x:=a;
while x<=b+h/2 do begin
if x<=0 then
y:=Sqr(Sin(9*x-3))+0.7*x
else
y:=5*(Cos(25*x+0.37))*Sqr(Cos(25*x+0.37))-5*x*x;
Writeln(x:5:2,y:15:10);
x+=h
end
end.
Написано на Pascal:
Program ArraySequence;
Var a: Array [1..10] Of Integer;
i: Integer;
Begin
a[0] := 2;
For i := 1 To 9 Do
a[i] := 2*a[i-1] - 1;
For i := 0 To 9 Do
Write(a[i], ' ');
ReadLn;
End.<span>
</span>
170 = 10101010
242 = 11110010
158 = 10011110
70 = 01000110
-50 = 11001110
-90 = 10100110<span>
</span>