Табулирование фукнции и решение нелинейного уравнения через процедуры

@Zhill · Регистрация: 20.12.2012

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

Вот, собственно, код программы. Компилятор в ответ выводит ересь. Где я накосячил, никак увидеть не могу...толи слепой, толи ещё что...

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
program infa;
type mas=array[1..50] of real;
var a,b,eps,c,dx,xn,xk:real;
x,y:mas;
str,km,i,n:byte;
k:integer;
Procedure DNo(a,b,eps:real; km:byte; var str:byte; var c:real);
var i:byte;
fa,fc,w:real;
 
Function F(x:real):real;
begin 
F:=x+arctan(sqrt(x))-3.4;
end;
 
Begin{DNo}
str:=0;
 
fa:=F(a);
 for i:=1 to km do
 begin
  c:=(a+b)/2;
 fc:=F(c);
 if fa*fc>0
  then a:=c else  BEGIN b:=c;
 i:=km;
 END;
begin 
str:=1; 
{i:=km;}
end;
End;
writeln(' Koren =');
End;{DNo}
Begin{infa}
k:=1;
x[k]:=xn;
repeat
y[k]:=(a-b)*(x[k]*(cos(2*x[k]/3)/(sin(2*x[k]/3)))+2*sin((pi*x[k])/2));
k:=k+1;
x[k]:=x[k-1]+dx;
Until
x[k]>=xk;
writeln(' результаты');
n:=TRUNC(Abs(xk-xn)*(dx)+1);
for k:=1 to n do
writeln(' x[',k,']=',x[k]:10:5,'y[',k,']=',y[k]:10:5);
end.

@Puporev · 24.12.2012, 16:13

Вместо слез и соплей нужно условие писать...

@Taftis · 24.12.2012, 19:29

Сообщение от Zhill

y[k]:=(a-b)*(x[k]*(cos(2*x[k]/3)/(sin(2*x[k]/3)))+2*sin((pi*x[k])/2));

компилятор ясно пишет где у тебя ошыбка в большынстве случаев это изза того что у тебя не верно росставлены скобки так что или сам исправляй или послушай Puporev, и напишы условие.
если делиш то (a+b)/(b+c) а не a+b/b+c

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	24.12.2012, 16:13
	Вместо слез и соплей нужно условие писать... 0