Табулирование функции, массив.

11.06.2009, 08:33. **Показов** 2060. **Ответов** 2

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

1.Составить алгоритм для расчета функции
у= (0.95*sin(x)*sin(x)*sin(x))/(1+0.95*x*x*x)
при изменении x от x0 до xk с шагом hx.

2.Const N=40;
Var X:Array[l..N] of Integer;
Y,K:Integer;
T:Boolean;
Переменной К присвоить либо номер первого вхождения Y в массив X, либо - число N+1, если Y не входит в X.

@mamedovvms · 11.06.2009, 08:57

Pascal

uses crt;
var x,x0,xk,hx,y:real;
      k:integer;
begin
 clrscr;
 k:=0;
 writeln('x0, xk, hx ');
 readln(x0,xk,hx)
x:=x0;
 repeat   
   y:=(0.95*sin(x)*sin(x)*sin(x))/(1+0.95*x*x*x);
   writeln(y,' В точке x',k);
   x:=x+hx;
 until(x>xk);
readln;
end.

Добавлено через 6 минут 49 секунд

Pascal

uses crt;
const n=40;
var x:array[1..n] of integer;
     Y,K:Integer;
     T:Boolean;     
begin
 clrscr;
 writeln('y ');
 readln(y);
 t:=false;
 for i:=1 to n do
   begin
    x[i]:=random(100);
    write(x[i],' ')
     if (x[i]=y)and(l=false) then 
                                     begin
                                       k:=i;
                                       l:=true;
                                     end;
   end;
if l=false then k:=n+1;
 
writeln(k);
 
 
end.

11.06.2009, 09:05

спасибо!

маркизетка
		1
	Табулирование функции, массив. 11.06.2009, 08:33. Показов 2060. Ответов 2 Метки нет (Все метки) 1.Составить алгоритм для расчета функции у= (0.95sin(x)sin(x)sin(x))/(1+0.95xxx) при изменении x от x0 до xk с шагом hx. 2.Const N=40; Var X:Array[l..N] of Integer; Y,K:Integer; T:Boolean; Переменной К присвоить либо номер первого вхождения Y в массив X, либо - число N+1, если Y не входит в X.

	11.06.2009, 09:05

Табулирование функции, массив.

Решение