Ошибки в программе

@oleum · Регистрация: 24.02.2014

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

нельзя преобразовать тип boolean к real/

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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
Program T3;
uses crt;
var x, p: array [1..100] of real;       {массивы под значения}
        c: array [1..100, 1..100] of string;
        hx, hp: real;           {размер шага}
        nx, np: integer;        {кол-во шагов}
        x1, x2: real;           {интервалы для значений x}
        p1, p2: real;           {интервалы для значений p}
        a, b, ab: real;         {}
        i, j, k, cod: integer;  {}
        s: string;              {}
        w: char;                {}    
        g: real;                {}
        sum: array [1..100] of real; {}
        MinAbsSum: real;             {}
 
 
                                begin
                                        writeln('Решение функции 1/(ln(2*(abs(p*p*p))+3*x*x+1)) i sin(1-exp(sqrt(x*x-abs(p)+1))).');
                                        writeln;
                                        repeat
                                                repeat
                                                        write('Введите значение x1: ');
                                                        readln(s);
                                                        writeln;
                                                        val (s,x1,cod);
                                                        if cod <> 0 then writeln ('Введите число!');
                                                until cod = 0;
 
                                                repeat
                                                        write('Укажите размер шага: ');
                                                        readln(s);
                                                        writeln;
                                                        val (s,hx,cod);
                                                        if cod <> 0 then writeln ('Введите число!')
                                                        else
                                                                if hx = 0 then
                                                                begin
                                                                        writeln('Шаг не может быть равен 0!');
                                                                        cod := 1;
                                                                end;
                                                until cod = 0;
 
                                                repeat
                                                        write('Введите значение x2: ');
                                                        readln(s);
                                                        writeln;
                                                        val (s,x2,cod);
                                                        if cod <> 0 then writeln ('Введите число!')
                                                        else begin
                                                                if (x2 > x1) and (hx < 0) then
                                                                        begin
                                                                                writeln('x2 не может быть больше x1, т.к. шаг отрицательный');
                                                                                cod := 1;
                                                                        end;
                                                                if (x2 < x1) and (hx > 0) then
                                                                begin
                                                                        writeln('x2 не может быть меньше x1, т.к. шаг положительный');
                                                                        cod := 1;
                                                                end;
                                                        end;
                                                until cod = 0;
 
                                                nx := trunc(abs( (x2 - x1) / hx) + 1); {trunc вовращает целочисленную часть числа}
                                                if nx > 100 then
                                                begin
                                                        writeln('Не хватает размерности массива. Введите данные заново!');
                                                        cod := 1;
                                                end;
                                        until cod = 0;
 
                                        repeat
                                                repeat
                                                        write('Введите значение p1: ');
                                                        readln(s);
                                                        writeln;
                                                        val (s,p1,cod);
                                                        if cod <> 0 then writeln ('Введите число!');
                                                until cod = 0;
 
                                                repeat
                                                        write('Укажите размер шага: ');
                                                        readln(s);
                                                        writeln;
                                                        val (s,hp,cod);
                                                        if cod <> 0 then writeln ('Введите число!')
                                                        else
                                                                if hp = 0 then
                                                                begin
                                                                        writeln('Шаг не может быть равен 0!');
                                                                        cod := 1;
                                                                end;
                                                until cod = 0;
 
                                                repeat
                                                        write('Введите значение p2: ');
                                                        readln(s);
                                                        writeln;
                                                        writeln;
                                                        val (s,p2,cod);
                                                        if cod <> 0 then writeln ('Введите число!')
                                                        else begin
                                                                if (p2 > p1) and (hp < 0) then
                                                                begin
                                                                        writeln('p2 не может быть больше p1, т.к. шаг отрицательный');
                                                                        cod := 1;
                                                                end;
                                                                if (p2 < p1) and (hp > 0) then
                                                                begin
                                                                        writeln('p2 не может быть меньше p1, т.к. шаг положительный');
                                                                        cod := 1;
                                                                end;
                                                        end;
                                                until cod = 0;
 
                                                np := trunc(abs( (p2 - p1) / hp) + 1);
                                                if np > 100 then
                                                begin
                                                        writeln('Не хватает размерности массива. Введите данные заново!');
                                                        cod := 1;
                                                end;
                                        until cod = 0;
 
 
                                        {Заполняем массив x}
                                        for i := 1 to nx do
                                        begin
                                                x[i] := x1;
                                                x1 := x1 + hx;
                                        end;
 
                                        {Заполняем массив p}
                                        for i := 1 to np do
                                        begin
                                                p[i] := p1;
                                                p1 := p1 + hp;
                                        end;
 
                                        {Заполняем массив c}
                                        for i := 1 to nx do
                                                for j := 1 to np do
                                                        if x[i] > 0 then
                                                        begin
                                                                a := 1/(ln(2*(abs(p[j]*p[j]*p[j]))+3*x[i]*x[i]+1));    {Расчет функции a}
                                                                {Проверка возможности вычисления b}
                                                                if (sin(1-exp(sqrt(x[i]*x[i]-abs(p[j])+1))) <> 0) and (sqrt(x[i]*x[i]-abs(p[j])+1 <> 0)) then
                                                                begin
                                                                        b := (sin(1-exp(sqrt(x[i]*x[i]-abs(p[j])+1))));   {Расчет функции b}
                                                                        ab := a / b;
                                                                        str(ab:9:3, c[i,j]);
                                                                end
                                                                else
                                                                        c[i,j] := '    *    ';
                                                        end
                                                        else
                                                                if x[i] = 0 then
                                                                        c[i,j] := '   **    '
                                                                else
                                                                        c[i,j] := '   ***   ';
 
                                        {Выводим таблицу результатов}
                                        write('|');
                                        for i := 1 to np + 1 do
                                                write('-----------|');
                                        writeln;
                                        write('|   x \ p   |');
                                        for i := 1 to np do
                                                write(' ', p[i]:9:3, ' |');
                                        writeln;
                                        write('|');
                                        for i := 1 to np + 1 do
                                                write('-----------|');
                                        writeln;
                                        for i := 1 to nx do
                                        begin
                                                write('| ', x[i]:9:3, ' |');
                                                for i := 1 to np do
                                                        write(' ', c[i,j], ' |');
                                                writeln;
                                                write('|');
                                                for i := 1 to np + 1 do
                                                        write('-----------|');
                                                writeln;
                                        end;
 
                                        {Пояснения}
                                        writeln('* - Знаменатель равен 0;');
                                        writeln('** - Деление на 0;');
                                        writeln('*** - Подкоренное выражение должно быть неотрицательным.');
                                        writeln;
                                        
                                        
                                        
                                        writeln('Индивидуальная задача.');
                                        writeln;
                                        for i:=1 to nx do 
                                          for i:=1 to np do 
                                          begin 
                                               val(c[i,j], g, cod);
                                                if cod=0 then 
                                                if g>0 then 
                                                     a[i]:= a[i] + abs(g[i,j]);
                                                end;
                                               k:=1;
                                               for i :=1 to N do 
                                             begin
 
                                     
 
                                     if ((abs(Min)+abs(Max))< MinAbsSum) then 
                                     begin
                                       nomerStrokiMinAbsSum := i;
                                         MinAbsSum :=  (abs(Min)+abs(Max));
   
                                                    k:=i;
                                                end; 
                                                 write('|');
                                        for i := 1 to np + 1 do
                                                write('-----------|');
                                        writeln;
                                        write('|   x \ p   |');
                                        for i := 1 to np do
                                                write(' ', p[j]:9:3, ' |');
                                        writeln;
                                        write('|');
                                        for i := 1 to np + 1 do
                                                write('-----------|');
                                                                writeln;
                                        write('| ', x[k]:9:3, ' |');
                                        for i := 1 to np do
                                                write(' ', c[k,j], ' |');
                                                                 writeln;
                                                               write('|');
                                        for i := 1 to np + 1 do
                                                write('-----------|');
                                                                   writeln;
                                        
                                                            writeln(' = ', min:5:3);
                                                              writeln;
                                           end;
                         
                                   
                                  
                                     
                               
                                       
                                        readln;
 
                                        end.

@Соловьёв_Егор · 24.04.2014, 21:23

В 145-й строке забыли пару скобок:

Pascal
1
if (sin(1 - exp(sqrt(x[i] * x[i] - abs(p[j]) + 1))) <> 0) and ((sqrt(x[i] * x[i] - abs(p[j]) + 1)) <> 0) then

А ещё в 176-й строке будет ошибка, т.к во вложенном цикле используется в качестве счётчика переменная с таким же именем, как и во внешнем цикле.

@oleum · 24.04.2014, 21:45 **[ТС]**

спасибо) дальше сама разобралась)

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@oleum 0 / 0 / 1 Регистрация: 24.02.2014 Сообщений: 59
	24.04.2014, 21:45 [ТС]
	спасибо) дальше сама разобралась) 0