Протабулировать функцию y=x-Pi на заданном отрезке

04.06.2014, 21:48. **Показов** 1306. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Протабулировать функцию y=x-Pi на отрезке [0;8] с шагом h=0,8.
Результаты вычислений вывести на экран в виде таблицы пар чисел x, y.
Если искомых данных нет, вывести об этом сообщение.

Вычислить количество положительных значений функции y.

@CodeR · 05.06.2014, 08:58

Pascal

Const l='---------------';
      a=0;b=8;h=0.8;
Var y,x:real;
    k:integer;
Begin
    writeln(l);
    writeln('|  x   | Y(x) |');
    writeln(l);
    x:=a;
    While x<=b do
    Begin
      y:=x-pi;
      writeln('|',x:6:2,'|',y:6:2,'|');
      if y>0 then inc(k);
      x:=x+h;
    End;
    writeln(l);
    writeln('Положительных Y(x) = ',k);
    readln;
End.

DimaMayer
		1
	Протабулировать функцию y=x-Pi на заданном отрезке 04.06.2014, 21:48. Показов 1306. Ответов 1 Метки нет (Все метки) Протабулировать функцию y=x-Pi на отрезке [0;8] с шагом h=0,8. Результаты вычислений вывести на экран в виде таблицы пар чисел x, y. Если искомых данных нет, вывести об этом сообщение. Вычислить количество положительных значений функции y.

	05.06.2014, 08:58

Протабулировать функцию y=x-Pi на заданном отрезке

Решение