Program Zadacha;
var
x, y: real;
Begin
Write('Enter x, y ');
ReadLn(x, y);
WriteLn(x, ' + ', y, ' = ', x+y);
WriteLn(x, ' - ', y, ' = ', x-y);
WriteLn(x, ' * ', y, ' = ', x*y);
WriteLn(x, ' / ', y, ' = ', x/y);
ReadLn;
End.
//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.
64*1024=65436 байт
65436*8=524288 бит
524288/4096=128 секунд
256*128=32768 бит
32768/8=4096 байт
4096/1024=4 Кб
<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.
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.