Найти значение функции у=х^2+1, для х=0,2; 0,4; 0,6; ; 20.

program picaso; uses crt; var x,y: real; begin clrscr;       x: =0;       while x< =20 do      begin            y: =sqr(x)+1;             writeln('y=',x: 3: 1,'^2+1=',sqr(x): 4: 2,'+1=',y: 3: 2);             x: =x+0.2;       end; end.

 

 

результаты

y=0.0^2+1=0.00+1=1.00y=0.2^2+1=0.04+1=1.04y=0.4^2+1=0.16+1=1.16y=0.6^2+1=0.36+1=1.36y=0.8^2+1=0.64+1=1.64y=1.0^2+1=1.00+1=2.00y=1.2^2+1=1.44+1=2.44y=1.4^2+1=1.96+1=2.96y=1.6^2+1=2.56+1=3.56y=1.8^2+1=3.24+1=4.24y=2.0^2+1=4.00+1=5.00y=2.2^2+1=4.84+1=5.84y=2.4^2+1=5.76+1=6.76y=2.6^2+1=6.76+1=7.76y=2.8^2+1=7.84+1=8.84y=3.0^2+1=9.00+1=10.00y=3.2^2+1=10.24+1=11.24y=3.4^2+1=11.56+1=12.56y=3.6^2+1=12.96+1=13.96y=3.8^2+1=14.44+1=15.44y=4.0^2+1=16.00+1=17.00y=4.2^2+1=17.64+1=18.64y=4.4^2+1=19.36+1=20.36y=4.6^2+1=21.16+1=22.16y=4.8^2+1=23.04+1=24.04y=5.0^2+1=25.00+1=26.00y=5.2^2+1=27.04+1=28.04y=5.4^2+1=29.16+1=30.16y=5.6^2+1=31.36+1=32.36y=5.8^2+1=33.64+1=34.64y=6.0^2+1=36.00+1=37.00y=6.2^2+1=38.44+1=39.44y=6.4^2+1=40.96+1=41.96y=6.6^2+1=43.56+1=44.56y=6.8^2+1=46.24+1=47.24y=7.0^2+1=49.00+1=50.00y=7.2^2+1=51.84+1=52.84y=7.4^2+1=54.76+1=55.76y=7.6^2+1=57.76+1=58.76y=7.8^2+1=60.84+1=61.84y=8.0^2+1=64.00+1=65.00y=8.2^2+1=67.24+1=68.24y=8.4^2+1=70.56+1=71.56y=8.6^2+1=73.96+1=74.96y=8.8^2+1=77.44+1=78.44y=9.0^2+1=81.00+1=82.00y=9.2^2+1=84.64+1=85.64y=9.4^2+1=88.36+1=89.36y=9.6^2+1=92.16+1=93.16y=9.8^2+1=96.04+1=97.04y=10.0^2+1=100.00+1=101.00y=10.2^2+1=104.04+1=105.04y=10.4^2+1=108.16+1=109.16y=10.6^2+1=112.36+1=113.36y=10.8^2+1=116.64+1=117.64y=11.0^2+1=121.00+1=122.00y=11.2^2+1=125.44+1=126.44y=11.4^2+1=129.96+1=130.96y=11.6^2+1=134.56+1=135.56y=11.8^2+1=139.24+1=140.24y=12.0^2+1=144.00+1=145.00y=12.2^2+1=148.84+1=149.84y=12.4^2+1=153.76+1=154.76y=12.6^2+1=158.76+1=159.76y=12.8^2+1=163.84+1=164.84y=13.0^2+1=169.00+1=170.00y=13.2^2+1=174.24+1=175.24y=13.4^2+1=179.56+1=180.56y=13.6^2+1=184.96+1=185.96y=13.8^2+1=190.44+1=191.44y=14.0^2+1=196.00+1=197.00y=14.2^2+1=201.64+1=202.64y=14.4^2+1=207.36+1=208.36y=14.6^2+1=213.16+1=214.16y=14.8^2+1=219.04+1=220.04y=15.0^2+1=225.00+1=226.00y=15.2^2+1=231.04+1=232.04y=15.4^2+1=237.16+1=238.16y=15.6^2+1=243.36+1=244.36y=15.8^2+1=249.64+1=250.64y=16.0^2+1=256.00+1=257.00y=16.2^2+1=262.44+1=263.44y=16.4^2+1=268.96+1=269.96y=16.6^2+1=275.56+1=276.56y=16.8^2+1=282.24+1=283.24y=17.0^2+1=289.00+1=290.00y=17.2^2+1=295.84+1=296.84y=17.4^2+1=302.76+1=303.76y=17.6^2+1=309.76+1=310.76y=17.8^2+1=316.84+1=317.84y=18.0^2+1=324.00+1=325.00y=18.2^2+1=331.24+1=332.24y=18.4^2+1=338.56+1=339.56y=18.6^2+1=345.96+1=346.96y=18.8^2+1=353.44+1=354.44y=19.0^2+1=361.00+1=362.00y=19.2^2+1=368.64+1=369.64y=19.4^2+1=376.36+1=377.36y=19.6^2+1=384.16+1=385.16y=19.8^2+1=392.04+1=393.04y=20.0^2+1=400.00+1=401.00

y=0,2^2+1=0.04+1=1.04

у=0,4^2+1=1.16

у=0,6^2+1=1,36

Const   rn : string[36] = '0123456789abcdefghijklmnopqrstuvwxyz'; function decton(a : longint; raz : byte) : string; begin   if a> raz-1 then decton: =decton(a div raz,raz)+rn[(a mod raz)+1]   else decton: =rn[a+1]; end; function ntodec(a : string; raz : byte) : longint; begin   if length(a)> 0 then ntodec: =pos(a[length(a)],rn)-1+raz*ntodec(copy(a,1,length(a)-1),raz)   else ntodec: =0; end; var a,b : string; begin   a: ='1011'; b: ='110';   writeln('a = ',a,' (bin) = ',ntodec(a,2),' (dec)');   writeln('b = ',b,' (bin) = ',ntodec(b,2),' (dec)');   writeln(a+'+'+b+' = ',decton(ntodec(a,2)+ntodec(b,2),2),' (bin)  ',ntodec(a,2)+ntodec(b,2),' (dec)');   writeln(a+'-'+b+' = ',decton(ntodec(a,2)-ntodec(b,2),2),' (bin)  ',ntodec(a,2)-ntodec(b,2),' (dec)');   writeln(a+'*'+b+' = ',decton(ntodec(a,2)*ntodec(b,2),2),' (bin)  ',ntodec(a,2)*ntodec(b,2),' (dec)'); end.