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

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

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

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

спасибо!

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

маркизетка

	Табулирование функции, массив. 11.06.2009, 08:33. Показов 2149. Ответов 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.

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

Решение