Карта сайта

Это автоматически сохраненная страница от 23.10.2013. Оригинал был здесь: http://2ch.hk/b/res/56585971.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Срд 23 Окт 2013 19:14:37
Сап, двощ.
Я знаю, на тебе есть аноны шаряшие в паскале, будь добр, помоги, программа отказывается работать.
program Bisection;
var k : integer;
xL, xP, xS:real;
function F(var x:real):real;
begin
F:=(1/2)*(2-sin((1+x)/x) + 1/2*ln(sqrt(x))) - x ;
end;
BEGIN
readLn(xL, xP);
k:=1;
While(F(xP)-F(xL))>0.0001 do
begin
xS:=(1/2)*(xP - xL);
if F(xS)*F(xP)<0 then
begin
xL:=xS ;
k:=k+1;
end
else
begin
xP:=xS ;
k:=k+1;
end;

end;
WriteLn(xL);
ReadLn(xP);
end.


Срд 23 Окт 2013 19:26:23
>>56585971
Научись в тег
. [spoiler]Паскалисты не нужны.[/spoiler]

Срд 23 Окт 2013 19:27:41
>>56586462
Как все забавно поломалось. Тег
, имел в виду.

Срд 23 Окт 2013 19:28:32
>>56586530
Сука, ты по делу чего напиши, у меня не работает эта хуйня, почему?

Срд 23 Окт 2013 19:28:36
>>56586530
А так прокатит?
[code]
</code></pre>

Срд 23 Окт 2013 19:32:58
>>56586568
>по делу
Научись в пробелы, хотя бы вокруг присвоения и после запятых. Что не работает, как работать должно?

Срд 23 Окт 2013 19:35:41
>>56586568
var
op: string;
begin
op:='ХYN';
ShowMessage(op);
end;

Срд 23 Окт 2013 19:41:47
>>56585971
Компилируется? Выдает какие-то предупреждения или ошибки? Что должна делать программа?
ОП ХУЙ

Срд 23 Окт 2013 19:42:10
>>56586843
>op: string;
>op:='ХYN';
Можешь уебывать отсюда.

Срд 23 Окт 2013 19:44:41
>>56587068
Добавляю
Если это нахождения корня функции то косяк здесь
>xS:=(1/2)*(xP - xL);
Нужен + вместо -

Срд 23 Окт 2013 19:45:51
>>56587085
нет

Срд 23 Окт 2013 19:51:36
Не проще вместо (1/2) написать 0.5?

Срд 23 Окт 2013 20:05:56
Посоны, сократил это говно, а оно все равно не работает.
Алсо, ошибку с промежутком профиксил.

program Bisection;
var
xL, xP, xS:real;
function F(var x:real):real;
begin
F:=(1/2)*(2-sin((1+x)/x) + 1/2*ln(sqrt(x))) - x ;
end;

BEGIN
{ TODO -oUser -cConsole Main : Insert code here }
readLn(xL, xP);
While(F(xP)-F(xL))>0.001 do
begin
xS:=0.5*(xP + xL);
if F(xS)*F(xP)&lt;0 then
xL:= xS
else if F(xS)*F(xP)>0 then
xP:= xS ;
end;
WriteLn(xL);
ReadLn(xS);
end.

Срд 23 Окт 2013 20:10:16
Лол, ебаный аваст блокировал компилятор, все заработало посоны.

Срд 23 Окт 2013 20:14:27
>>56585971
Дебил блядь.

Срд 23 Окт 2013 20:17:11
>>56588207
> аваст

Срд 23 Окт 2013 20:22:52
>>56588207

>>2013
>>AVAST

Срд 23 Окт 2013 20:30:25
>>56588207
>avast

Срд 23 Окт 2013 20:32:16
>>56588207
>ебаный аваст блокировал компилятор
>Аваст
СОДОМИТ! О ГОСПОДИ, ЕБАННЫЙ СОДОМИТ

Срд 23 Окт 2013 20:34:48
>>56588207
> аваст
> блокировал компилятор

Срд 23 Окт 2013 20:37:56
>2013
>аваст
>паскаль

Срд 23 Окт 2013 20:39:21
>>56589355
Одно другого стоит, все норм.

Срд 23 Окт 2013 20:40:38
>>56588207
> программа отказывается работать
> аваст блокировал компилятор
> аваст

Срд 23 Окт 2013 20:47:22
>>56585971
Что делает твоя программа?
Зачем объявлена k?

Срд 23 Окт 2013 20:49:30
>>56588207
Йобаный стыд.


← К списку тредов