Получить таблицу значений функции

@Machunja5 · Регистрация: 18.01.2011

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

Порядок решения задачи цикла с параметром оператором REPEAT
Получить таблицу значений функции:
y=〖arcsin〗^3 √(sin (π-x)/x), для 100≤х≤1000, ∆х=100

Pascal

Program tablica_2;
uses Wincrt;
  Var
    Xn,Xk,Xr,dX,x,y : Real;
Begin
  WriteLn('Лабораторная работа N 4');
  WriteLn('Программирование циклических алгоритмических структур');
  WriteLn('Цикл с параметром. Задание 1');
  WriteLn('Выполнил студентка группы ИСу-10-1 Конева Мария ');
  Xn:=10;
 Xk:=100; 
dX:=10; 
x:=Xn;
  Repeat
     Xr:=x*Pi/180;
     y:= (arcsin*arcsin*arcsin)*(SQRT(sin*((Pi-x)/x));
     WriteLn('При x=',х:10:0,' функция y=',y:10:2);
     x:=x+dX;
   Until x>Xk;
End.

@Puporev · 28.01.2011, 17:27

Проверьте пожалуйста!!!!!

А тут и проверять нечего. Нет в Паскале функции arcsin, ее нужно выводить через arctg, функция arctan есть.

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	28.01.2011, 17:27	2
	Проверьте пожалуйста!!!!! А тут и проверять нечего. Нет в Паскале функции arcsin, ее нужно выводить через arctg, функция arctan есть. 1

Опции темы