Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
XXX_Black_XXX
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 29
1

Кто может исправить код?

23.12.2013, 23:59. Просмотров 425. Ответов 3
Метки нет (Все метки)

Не понимаю, в чём тут ошибка... Голова уже совсем не варит


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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Program RAZCHET1;
uses crt;
var i, fp,t,s,a,b,x1,x2,eps,s,x,dx:real;
       n,j:integer;
function f(x:real):real;
function fp(x:real):real;
function y(x:real):real;
function summa(x,eps:real):real;
 
BEGIN
 
clrscr;
For j:=1 to 100 do
    begin
    CLRSCR;
    writeln('1 - 1 programma');
    writeln('2 - 2 programma');
    writeln('3 - exit');
    readln(i);
 
If i=1 then
 
begin
f:=0.25*sqr(x)*x+x-1.2502;
end;
begin
fp:=0.5*x*x+1;
end;
begin
clrscr;
repeat
write('Vvedite nachalnoe priblijenie x1=[0.5..1.5] x1=');
readln(x1);
until (x1>=0.5)and(x1<=1.5);
repeat
write('Vvedite pogreshnost (0..1) eps=');
readln(eps);
until(eps>0)and(eps<1);
repeat
x2:=x1;
x1:=x1-f(x1)/fp(x1);
until abs(x2-x1)>eps;
writeln('x=',x1:0:4);
readln
end;
 
begin
y:=-ln(abs(2*sin(x/2)))
end;
begin
t:=x;
n:=1;
s:=cos(t);
while abs(cos(t)/n)>eps do
 begin
  n:=n+1;
  t:=t+x;
  s:=s+cos(t)/n
 end;
summa:=s
end;
 
If i = 2 then
    
begin
clrscr;
a:=pi/5;
b:=9*pi/5;
repeat
write('Kolichestvo tochek ne menee 10 n=');
readln(n);
until n>9;
dx:=(b-a)/(n-1);
repeat
write('Vvedite tochnost (0;1) eps=');
readln(eps);
until(eps>0)and(eps<1);
x:=a;
while x<=b+dx/2 do
 begin
  writeln('x=',x:5:2,'  S=',summa(x,eps):9:5,' y=',y(x):9:5);
  x:=x+dx
 end;
readln
end;
 
If i = 3 then exit;
ReadLn;
End;
End.
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2013, 23:59
Ответы с готовыми решениями:

Кто может исправить код?
&lt;a href=&quot;javascript://&quot; onclick=&quot;new _uWnd('callback','Обратный звонок',580,180,{modal:...

Кто может исправить код, чтобы нормально работало окно?
Ребят кто может исправить этот код чтобы нормально работал окно &lt;script type=&quot;text/javascript&quot;...

Может кто исправить ошибку, не могу найти
program abc; var n,c,d,p,e,a,i,j,k,o,m,t,z: longint; function nc(i,j,k,n,z: integer): integer;...

кто может исправить подсказать! 3d график не дорисовываеться весь
ребята нужна очень срочная помощь! почему в маткаде не могу сделать так чтобы поверхность...

3
Puporev
Модератор
59398 / 44825 / 30939
Регистрация: 18.05.2008
Сообщений: 107,542
24.12.2013, 08:11 2
А это?
Объединить программы для задания 1 и задания 2 в одну
0
XXX_Black_XXX
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 29
24.12.2013, 09:09  [ТС] 3
Puporev, нужна программа без использования процедур...
0
Puporev
Модератор
59398 / 44825 / 30939
Регистрация: 18.05.2008
Сообщений: 107,542
24.12.2013, 09:59 4
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
uses crt;
function f(x:real):real;
begin
f:=0.25*x*x*x+x-1.2502;
end;
function fp(x:real):real;
begin
fp:=0.5*x*x+1;
end;
function y(x:real):real;
begin
y:=-ln(abs(2*sin(x/2)))
end;
function summa(x,eps:real):real;
var s,t:real;
    n:integer;
begin
t:=x;
n:=1;
s:=cos(t);
while abs(cos(t)/n)>eps do
 begin
  n:=n+1;
  t:=t+x;
  s:=s+cos(t)/n
 end;
summa:=s
end;
var x1,x2,eps,a,b,x,dx:real;
    n:integer;
    k:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-задача 1');
writeln('2-задача 2');
writeln('другое выход');
readln(k);
case k of
'1':begin
    clrscr;
    repeat
    write('Введите начальное приближение x1=[0.5..1.5] x1=');
    readln(x1);
    until (x1>=0.5)and(x1<=1.5);
    repeat
    write('Введите погрешность (0;1) eps=');
    readln(eps);
    until(eps>0)and(eps<1);
    if abs(f(x1))<eps then writeln('x=',x1:0:4) //добавил это
    else
     begin
      repeat
      x2:=x1;
      x1:=x1-f(x1)/fp(x1);
      until abs(x2-x1)>eps;
      writeln('x=',x1:0:4);
     end;
    readln
    end;
'2':begin
    clrscr;
    a:=pi/5;
    b:=9*pi/5;
    repeat
    write('Количество точек не менее 10 n=');
    readln(n);
    until n>9;
    dx:=(b-a)/(n-1);
    repeat
    write('Введите точность (0;1) eps=');
    readln(eps);
    until(eps>0)and(eps<1);
    x:=a;
    while x<=b+dx/2 do
     begin
      writeln('x=',x:5:2,'  S=',summa(x,eps):9:5,' y=',y(x):9:5);
      x:=x+dx
     end;
   readln
   end;
else exit;
end;
until not(k in ['1'..'2'])
end.
1
24.12.2013, 09:59
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2013, 09:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Кто может исправить, почему программа выводит 0 вместо суммы?
using System; using System.Collections.Generic; using System.Linq; using System.Text; using...

Заморочка со значение поля textaria, может кто знает как исправить
в общем суть в том, что на сайте с помощью php через поле textaria можно редактировать некий ...

кто может перевести код в с++
нужно перевести код в С++ В с++ вообще не понимаю ,а вот в паскале набрасал код! кому не сложно...

Кто может перевести код с С++ на С#
Кто может перевести код с С++ на С#, пожалуйста. #include #include #include #pragma hdrstop...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.