0 / 0 / 0
Регистрация: 31.10.2013
Сообщений: 84
1

Нужно найти ошибку

17.06.2014, 14:06. Показов 413. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Компилятор ошибок не выдает, при запуске после ввода переменной Х в нужном диапазоне строка переводится и больше ничего не происходит.
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program laba1;
 uses crt;
 var
  x, y, s, sum, sum1, s1 : real;
  i, n, a : integer;
  function fact(n : integer) : longint;
   begin
    if n <= 1 then
      fact := 1
    else
      fact := n * fact(n - 1);
   end;
   begin
  clrscr;
   y:=(1-(power(x,2)/2))*cos(x)-((x/2)*sin(x)); 
   Write('Введите значение х в диапазоне от 0.1 до 1: ');
   ReadLn(x);
   While (x>=1) or (x<=0.1) do
      begin
         Write('Введите значение х в диапазоне от 0.1 до 1: ');
         ReadLn(x);
      end;
  for i:=0 to 18 do
   begin
    s:=s+(power(-1,i)*(2*power(i,2)+1)*power(x,2*i))/fact(2*i);
    sum:=y-s;
   end;
   a:=1;
   s1:=(power(-1,i)*(2*power(i,2)+1)*power(x,2*i))/fact(2*i);
   sum1:=s1;
   while s1 > 0.001 do
    begin
    s1:=(power(-1,i)*(2*power(i,2)+1)*power(x,2*i))/fact(2*i);
    sum1:=sum1+s1;
    a:=a+1;
   end;
  WriteLn('Сумма ряда = ',s:2:2);
  WriteLn('Отклонение от функции =',sum:2:2);
  WriteLn('-----------------------------------');
  WriteLn('Сумма ряда с точностью до 0.001 = ',sum1:2:2);
  WriteLn('Кол-во членов ряда = ',a);
  WriteLn('-----------------------------------');
  WriteLn('Значение функции =',y:2:2);
  ReadLn;
  End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2014, 14:06
Ответы с готовыми решениями:

Нужно найти ошибку
Написал модуль для выявления правильности введенных данных, при его использовании результат...

Нужно найти ошибку
Разработать алгоритм и составить программу, выполняющей ввод элементов массива А(4х4) вещественных...

дана программа нужно найти и объяснить ошибку...
case x of 0...9:write ('введена цифра'); 10...99:('введено двухзначное число'); end.

Нужно найти ошибку
VAR N: INTEGER; X, Y: REAL; H, X0, XN: REAL; BEGIN WRITELN('ВВЕДИТЕ X0, XN '); READLN(X0,...

3
266 / 192 / 50
Регистрация: 16.06.2014
Сообщений: 424
17.06.2014, 14:11 2
y:=(1-(power(x,2)/2))*cos(x)-((x/2)*sin(x));
Write('Введите значение х в диапазоне от 0.1 до 1: ');
ReadLn(x);
Сначала ввод, потом вычисление.
Перенести y:= после ввода x
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
17.06.2014, 14:14 3
Вообще такие задачи решаются без power и fact с применением рекуррентных формул и ничего тогда не заклинивает.
0
266 / 192 / 50
Регистрация: 16.06.2014
Сообщений: 424
17.06.2014, 14:21 4
s1:=(power(-1,i)*(2*power(i,2)+1)*power(x,2*i))/fact(2*i);
Вне цикла записан оператор, но используется параметр i
В программе есть содержательные ошибки...
0
17.06.2014, 14:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2014, 14:21
Помогаю со студенческими работами здесь

Нужно найти ошибку
Вычислить F=A(3,4)*PT(4,5)*R(5,2),если y&gt;6 если y=&lt;6 F=P(4,5)*T(5,3)*Q(3,3); program z42;...

Нужно найти ошибку!
Помогите Пожайлуста Найти ошибку в программе Там когда запускаешь программу выдаёт ошибку Invalid...

программа нужно найти ошибку
помогите найти ошибку должно получится по сторонам матрицы верхняя строка убывающая начиная с 1 а...

Нужно найти ошибку в выражении
1) Переменная F определена как файловая с базовым типом Integer. Переменная N относится к типу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru