Протабулировать функцию y=x^2-1 на отрезке [-10; 10] с шагом 1 for и с шагом 0, 1 while(записать программой)

1)

#include < iostream>

 

using namespace std;

 

int main()

{

  for(int i=-10; i< =10; i++)

  {

  cout< < "x="< < i< < " - y="< < i*i-1< < endl;

  }

system("pause");

  return 0;

}

 

2)

#include < iostream>

 

using namespace std;

 

int main()

{

  float i=-10;

  while(i< =10)

  {

  cout< < "x="< < i< < " - y="< < i*i-1< < endl;

  i+=0.1;

  }

  system("pause");

  return 0;

}

 

pascal

 

1)

var

i: integer;

begin

for i: =-10 to 10 do begin

wrtite('x=');

wrtite(i);

wrtite(' - y=');

wrtiteln(i*i-1);

end;

end.

2)

var

i: real;

begin

i: =-10;

while not (i> 10) do begin

wrtite('x=');

wrtite(i);

wrtite(' - y=');

wrtiteln(i*i-1);

i: =i+0.1;

end;

end.

 

№1 //pascal var x,y: real; begin   readln(x,y);   if (x> 0) and (y> 0) then writeln('i четверть');   if (x< 0) and (y> 0) then writeln('ii четверть');   if (x< 0) and (y< 0) then writeln('iii четверть');   if (x> 0) and (y< 0) then writeln('vi четверть'); end;   №2 //pascal var a: integer; begin   readln(a);   if a mod 2 =0 then writeln(' четное')   else writeln(' нечетное');   if a mod 10 =7 then writeln(' оканчивается на 7')   else writeln(' не оканчивается на 7 ');   if a mod 5 =0 then writeln(' делится на 5 ')   else writeln(' не делится на 5');   end.

Измените тип переменных n и k на integer: function xfact(o: integer): integer; var   factorial: longint;   i: integer; begin   write('o = ');   readln(o);   factorial : = 1;   for i : = 2 to o do       factorial : = factorial * i; end; var   c: real;   n,k: integer; begin   writeln('введите число n: ');   readln(n);   writeln('введите число k: ');   readln(k);   c : = xfact(n) / xfact(n - k) * xfact(k);   writeln('c = ', c); end.