Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
elena12345
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 24
1

Найти и исправить ошибки в коде

14.01.2015, 22:59. Просмотров 348. Ответов 1
Метки нет (Все метки)

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
program ciklicheskie;
var n1, n2, nom :integer;
    u1, u2, u3 : boolean;
    k1, k2, k3, k4, x, y, hx, hy, t1, t2, s, s1, s2, x1, x2,y2 :real;
    const e=0.00005;
    begin
    x:=-1;
    y:=-1;
    hx:=0.1;
    hy:=0.1;
    K1:=0;
    K2:=0;
    K3:=0;
    K4:=0;
    begin
    while x<=1 do begin
    while y<=1 do begin
    u1:= (x>0) and (y<(-x)) and (y>(x-1));
    u2:= (x<0) and (y>x) and (y<(-x)) ;
    u3:=(x>0) and (y>x) and (y<(1-x));
    if u1 then begin k1:=k1+1; end
    else if u2 then begin k2:=k2+1; end
    else if u3 then begin k3:=k3+1; end
    else begin k4:=k4+1; end;
    y:=y+hy; end;
    x:=x+hx;
    y:=-1;
    end;
    writeln ('K1 =  ', k1);
    writeln ('K2 =  ', k2);
    writeln ('K3 =  ', k3);
    writeln ('K4 =  ', k4);
    end;
    
    if (k1<(k2-k3)) and ((k2-k3)<k4) then 
     begin
     
     writeln ('                                                  ');
     x1:=pi/6;
      n1:=0;
      t1:=1;
      s1:=t1;
     
 while abs(t1)>e do 
      begin
        n1:=n1+1;
  t1:=-t1*x1*x1/(2*n1-1)/(2*n1);
  s1:=s1+t1;
 end;
     end
   else begin writeln ('      ');
  
t2:=0;
s2:=0;
x2:=0.25;
n2:=1;
nom:=1;
 
repeat
t2:=-1/n2*exp(n2*ln((x2-1)/(x2+1)));
n2:=n2+2;
t2:=-t2;
s2:=s2+t2;
nom:=nom+1;
until n2=21;
     end;
  writeln('N=',nom,' Z= ',s:1:5);
end.

Z=0. а должно вроде 0,000005
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2015, 22:59
Ответы с готовыми решениями:

Исправить ошибки в коде
Старая программа, помогите исправить ошибки или подскажите, какая программа поддерживает такой...

Сортировка - исправить ошибки в коде
Const x:arrayof integer=(-1,2,4,-8,1,3,5,13,-4,7); Var i,s,k:integer; Begin for k:=5 to 8...

Найти ошибки в коде
Помогите пожалуйста найти ошибку. Код: program lab6; type a1 = array of integer; b1 =...

Найти ошибки в коде
Помогите найти ошибки! program one; var a:array of integer; a,n:integer; begin...

Найти ошибки в коде
uses SysUtils; const t=5; type t1=array of integer; var n,m,max1,max2,l:integer; mas:t1;...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5067 / 3521 / 4100
Регистрация: 05.06.2014
Сообщений: 17,784
15.01.2015, 11:01 2
Pascal
1
writeln('N=',nom,' Z= ',s:1:5);
'Z', которое у вас на самом деле s , в программе встречается только здесь (ну и в var).
То есть, вы нигде s НЕ считаете. Вообще.
А только выводите (а добрый компилятор присвоил переменной s значение 0).
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2015, 11:01

Найти и исправить ошибки в игре
program rpg; label back, back2; var select, sct2, sct3, hp, hpe, dmg, dmge: real; var name:...

Метод простой итерации - найти ошибки в коде
Program zadacha1; type matriza= array of real; Var b,prob,x,x1: array of real; i,j:real;...

Найти вектор с наибольшей длиной. Исправить ошибки
Даны веществ квадратная матрица A порядка n, n-мерный веществ вектор x. Среди векторов x, Ax, Ax-x...


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

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

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