Ответы и объяснения

2013-06-18T20:15:17+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program OlyaKokos_20_for;
uses crt;
var
  a,n,f,x:integer;
  y:real;
begin
  writeln('+--------------------------------------+');
  writeln('|              ПР. РАБ № 20            |');
  writeln('+--------------------------------------+');
  write('Введите число a: '); readln(a);
  write('Введите число n: '); readln(n);
  writeln();
  writeln('+--------------------------------------+');
  writeln('|              Результат:              |');
  writeln('+--------------------------------------+');
  writeln('|     N     |    Y=(2a+7n!)/sqrt(a)    |');
  writeln('+--------------------------------------+');
  f:=1;
  for x:=1 to n do
    begin
      f:=f*x;
      y:=(2*a+7*f)/sqrt(a);
      writeln('| ',x:5,'     |     ',y:14:3,'       | ');
    end;
  writeln('+--------------------------------------+');
end.

Program OlyaKokos_20_while;
uses crt;
var
  a,n,f,x:integer;
  y:real;
begin
  writeln('+--------------------------------------+');
  writeln('|              ПР. РАБ № 20            |');
  writeln('+--------------------------------------+');
  write('Введите число a: '); readln(a);
  write('Введите число n: '); readln(n);
  writeln();
  writeln('+--------------------------------------+');
  writeln('|              Результат:              |');
  writeln('+--------------------------------------+');
  writeln('|     N     |    Y=(2a+7n!)/sqrt(a)    |');
  writeln('+--------------------------------------+');
  f:=1; x:=1;
  while x<=n do
    begin
      f:=f*x;
      y:=(2*a+7*f)/sqrt(a);
      writeln('| ',x:5,'     |     ',y:14:3,'       | ');
      x:=x+1;
    end;
  writeln('+--------------------------------------+');
end.

Program OlyaKokos_20_repeat;
uses crt;
var
  a,n,f,x:integer;
  y:real;
begin
  writeln('+--------------------------------------+');
  writeln('|              ПР. РАБ № 20            |');
  writeln('+--------------------------------------+');
  write('Введите число a: '); readln(a);
  write('Введите число n: '); readln(n);
  writeln();
  writeln('+--------------------------------------+');
  writeln('|              Результат:              |');
  writeln('+--------------------------------------+');
  writeln('|     N     |    Y=(2a+7n!)/sqrt(a)    |');
  writeln('+--------------------------------------+');
  f:=1; x:=1;
  repeat
    f:=f*x;
    y:=(2*a+7*f)/sqrt(a);
    writeln('| ',x:5,'     |     ',y:14:3,'       | ');
    x:=x+1;
  until x>n;
  writeln('+--------------------------------------+');
end.

 

Program OlyaKokos_21_repeat;
uses crt;
const   h=0.2;
var
  a,b,x,y:real;
begin
  writeln('+------------------------------------+');
  writeln('|            ПР. РАБ № 21            |');
  writeln('+------------------------------------+');
  write('Введите начальную границу табулирования a: '); readln(a);
  write('Введите конечную границу табулирования b: '); readln(b);
  writeln();
  writeln('+------------------------------------+');
  writeln('|            Результат:              |');
  writeln('+------------------------------------+');
  writeln('|         X        |         Y       |');
  writeln('+------------------------------------+');
  x:=a;
  repeat
       if x<=4 then y:=2+sin(x);
       if x>5 then y:=3*sin(x)+1
          else y:=0;
       writeln('|    ',x:8:3,'      |    ',y:8:3,'     | ');
       x:=x+h;
  until x>b;
  writeln('+------------------------------------+');
end.

 

Program OlyaKokos_21_while;
uses crt;
const   h=0.2;
var
  a,b,x,y:real;
begin
  writeln('+------------------------------------+');
  writeln('|            ПР. РАБ № 21            |');
  writeln('+------------------------------------+');
  write('Введите начальную границу табулирования a: '); readln(a);
  write('Введите конечную границу табулирования b: '); readln(b);
  writeln();
  writeln('+------------------------------------+');
  writeln('|            Результат:              |');
  writeln('+------------------------------------+');
  writeln('|         X        |         Y       |');
  writeln('+------------------------------------+');
  x:=a;
  while x<=b do
    begin
      if x<=4 then y:=2+sin(x);
      if x>5 then y:=3*sin(x)+1
      else y:=0;
      writeln('|    ',x:8:3,'      |    ',y:8:3,'     | ');
      x:=x+h;
    end;
  writeln('+------------------------------------+');
end.