Вычислить значение выражения

@Илина · Регистрация: 28.01.2013

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

Вынуждена написать тут,ибо не ответили мне в прошлой теме.
Название: imgcon.jpg.gif
Просмотров: 67

Размер: 7.6 Кб

Есть такое выражение
Входные данные:

Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x < 1). Значения исходных данных подобраны так, что выражение имеет смысл.

Вывести надо ответ с точностью до 3 знаков после запятой.

При этом использовать вложенный цикл(for,ничего больше)
Спасибо.Ума не приложу,мы с сигмой никогда не сталкивались.
Тем более с двойной.И тем более с вложением.

@Puporev · 05.02.2013, 08:39

Очевидно задание с какого-то сайта, где входные данные дает проверяющая система.
Для решения без сайта вводить нужно самому и поэтому вводить ограничения.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var p,k:integer;
    a,b,x,r,s:real;
begin
repeat
writeln('Введите a>0, b<0:');
read(a,b);
until(a>0)and(b<0)and(frac(a)=0)and(frac(b)=0)and(43-5*b>20*a);
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
r:=0;
for p:=round(20*a) to 43-round(5*b) do
 begin
  s:=0;
  for k:=p-9 to p do
  if odd(p)then s:=s+p*k/(k*k-x*p)
  else s:=s-p*k/(k*k-x*p);
  r:=r+a*b*b*s/sqrt(p);
 end;
write('R=',r:0:3);
end.

@Илина · 05.02.2013, 09:32 **[ТС]**

Спасибо огромное,но цикл repeat не поможет.Сайтом он и точно,не воспринимается.

@Puporev · 05.02.2013, 09:35

Сообщение от Илина

но цикл repeat не поможет

Так для сайта проверка данных, а следовательно и этот цикл не нужны, читайте внимательно, чуть думайте и не гоношитесь.

@Илина · 05.02.2013, 09:42 **[ТС]**

Простите,немного не поняла.Я увидела,что нужна проверка.
Да,этот код не проходит всего один тест,ума не приложу почему и как.На другой задаче то работает.

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
var
a,b,x,e,q,n,u,R:real;
p,k:integer;
begin
read(a);
read(b);
read(x);
u:=0;
e:=0;
q:=0;
n:=0;
R:=0;
 
for p:= round (20*a) to round (43-5*b) do begin
e:= (a*sqr(b))/sqrt(p);
for k:=p-9 to p do begin
q:=((p*k)/(sqr(k)-x*p));
if ((p+1) mod 2=1) then q:=-q;
  n:=n+q;
end;
u:=(u+e*n);
n:=0;
end;
R:=u;
writeln (R:0:3);
end.

На другой задаче такая же проверка..

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника 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. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Илина 1 / 1 / 0 Регистрация: 28.01.2013 Сообщений: 29

	Вычислить значение выражения 04.02.2013, 23:04. Показов 1054. Ответов 4 Метки нет (Все метки) Вынуждена написать тут,ибо не ответили мне в прошлой теме. Есть такое выражение Входные данные: Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x < 1). Значения исходных данных подобраны так, что выражение имеет смысл. Вывести надо ответ с точностью до 3 знаков после запятой. При этом использовать вложенный цикл(for,ничего больше) Спасибо.Ума не приложу,мы с сигмой никогда не сталкивались. Тем более с двойной.И тем более с вложением. 0

@Илина 1 / 1 / 0 Регистрация: 28.01.2013 Сообщений: 29
	05.02.2013, 09:32 [ТС]
	Спасибо огромное,но цикл repeat не поможет.Сайтом он и точно,не воспринимается. 0