3. Составьте алгоритм вычисления значений функций для значений x=1, 2, 3, 4 …..10

+ 0 -

Lllleeeennnnaaaa

24 апр. 2014 г., 22:19:54 (10 лет назад)

для каждой чему равно х?

+ 0 -

Polincaaaaaaa

25 апр. 2014 г., 0:46:47 (10 лет назад)

В условии не указано, для какой именно функции вычислять значения. Я сочинил свою :)

Если тебе нужна другая функция, замени строку   y:=(2*sin(x)+7*x*x)/sqrt(x); на то, что тебе нужно.

Program L1e2na_2;
uses crt;
var
  x:integer;
  y:real;
begin
  writeln('+---------------------------------------+');
  writeln('|           КАКАЯ-ТО ФУНКЦИЯ            |');
  writeln('|      Вычисление значения функции      |');
  writeln('|       для Х = 1, 2, 3, ... , 10       |');
  writeln('+---------------------------------------+');
  writeln();
  writeln('+---------------------------------------+');
  writeln('|              Результат:               |');
  writeln('+---------------------------------------+');
  writeln('|         X         |         Y         |');
  writeln('+---------------------------------------+');
  for x:=1 to 10 do
    begin
      y:=(2*sin(x)+7*x*x)/sqrt(x);
      writeln('|  ',x:8,'         | ',y:11:3,'       | ');
    end;
  writeln('+---------------------------------------+');
end.