Написать программу в delphi 7, содержащую цикл для вычисления функции если n=10, a0=0.75, a1=1.6, a2=a3==a10=2.0; x изменяется с шагом h=0.2 от x1=0 дo x2=2.0.

Const   a: array[1..11] of real = (0.75, 1.6, 2, 2, 2, 2, 2, 2, 2, 2, 2); var   x, h, x1, x2: real; function f(x: real): real; var   i: integer;   x_n, res : real; begin   res : = a[1];   x_n : = 1;   for i : = 1 to 10 do   begin       x_n : = x_n * x;       res : = res + a[i + 1] * x_n;   end;   f : = res; end; begin   x1 : = 0; x2 : = 2;   h : = 0.2;   x : = x1;   repeat       writeln('x = ', x: 3: 1, '  y = ', f(x): 9: 3);       x : = x + h;   until x > x2; end.

странное , но все же:

#include < string> #include < vector> #include < iostream> bool compose( std: : vector< std: : wstring> & input, std: : wstring result ){      for( int i = 0; i < result.size(); ++i ) {            bool found( false );             for( int j = 0; j < input.size(); ++j ) {                  if( input[j].find( result[i] ) ! = -1 ) {                        found = true;                         input[j].erase( input[j].begin() + input[j].find( result[i] ) );                   }            }            if( found == false )                  return false;       }      std: : wcout < < l"";       for( int i = 0; i < input.size(); ++i )      {            std: : wcout < < input[i] < < l"\n";       }      std: : wcout < < l"";       std: : wcout < < result < < l"\n";       std: : wcout < < l"";       return true; }int main(int argc, wchar_t* argv[]){      std: : vector< std: : wstring> v1;       v1.push_back( l"инструменты" );       compose( v1, l"струны" );       std: : vector< std: : wstring> v2;       v2.push_back( l"инструменты" );       compose( v2, l"трус" );       std: : vector< std: : wstring> v3;       v3.push_back( l"инструменты" );       compose( v3, l"турист" );       std: : vector< std: : wstring> v4;       v4.push_back( l"шишка" );       v4.push_back( l"флаг" );       v4.push_back( l"трос" );       compose( v4, l"шрифт" );       std: : wstring text;       std: : wcout < < l"\nтекст: ";       std: : wcin > > text;       int count = 0;       for( int i = 0; i < text.size(); ++i ) {            if( text[i] == l'm' )                  ++count;       }      std: : wcout < < l"\nколичество m: " < < count;       return 0; }

var a,r: real;

begin

readln(a,r);

if a> 2*r then writeln('proidet') else writeln('ne proidet');

end.

 

var a: array[1..100]of integer;

s,i,n: integer;

begin

readln(n);

for i: =1 to n do readln(a[i]);

for i: =2 to n-1 do begin

if a[i]< (a[i-1]+a[i+1])/2 then s: =s+1;

end;

writeln(s);

end.

 

function fib(b: integer): integer; begin if (b< =1) then fib: =b else fib : = fib(b - 1)+fib(b - 2) ; end;

var a: integer; beginreadln(a); writeln(fib(a)); end.

 

var m,k: integer;

begin

readln(m);

k: =m div 4;

writeln(k);

end.

 

var a: array[1..10]of integer; i,n,k: integer; beginreadln(n); for i: =1 to n do readln(a[i]); for i: =1 to (n div 2) do begink: =a[n-i+1]; a[n-i+1]: =a[i]; a[i]: =k; end; for i: =1 to n do write(a[i],' '); end.