[Закрыть]
 
popoff.donetsk.ua
Все проявления, происходящие из тени, человек приписывает анонимному «мировому Злу», потому что боится обнаружить истинный источник нездоровья в себе самом.
Начало | Новости | Статьи | Форум | Опросы | Карта сайта | Обо мне
popoff.donetsk.ua - Форум - Основы программирования и алгоритмические языки - Переделал простенькую програмку на Паскале в СИ. Не работает, в чем грабли?

Переделал простенькую програмку на Паскале в СИ. Не работает, в чем грабли?

форумы popoff.donetsk.ua
Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен

Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.

Автор Сообщение
vitiv
Viktor
Ноя, 2006
Сообщений: 3
vitiv url://forum.message:1674
Переделал простенькую програмку на Паскале в СИ. Не работает, в чем грабли?

Вот исходники на паскале и си:
Это СИ:

#include<stdio.h> #include<stdlib.h> #include<conio.h> #include<math.h> void main () { float a,b,m,k,E,x,x1; a=-1;b=1;m=1.2;k=1000;E=0.001; system("cls"); while (a<b) {x=a; x1=x+abs(sin(x-0.3)+0.2*x)/m; while ((abs(abs(x1)-abs(x)) >=E && x1<b)) {x=x1; x1=x+abs(sin(x-0.3)+0.2*x)/m;} if (x1<=b) printf("x1=%f\n",x1); a=x1+k*E; } getch();}

Это Паскаль:

program RUBAKOV; uses crt; function MR(x:real):real; begin   MR:=sin(x-0.3)+0.2*x; end; var p1,k,p2,E,x,x1,M:real; begin clrscr;   writeln('');   p1:=-1; p2:=1; M:=1.2; K:=1000; E:=0.001;   while p1<p2 do   begin     x:=p1;     x1:=x+abs(MR(x)/M);    while (abs(abs(x1)-abs(x))>=(E)) and (x1<p2) do      begin         x:=x1; x1:=x+abs(MR(x))/M;      end;   if x1<=p2 then writeln(x1:10:9); p1:=x1+K*E;   end; end.

Зарание благодарен.

Это сообщение было отредактировано popoff 12.11.06 19:25.
popoff
Yuri
Июл, 2004
Сообщений: 944
popoff url://forum.message:1675

Отладку запускал?

________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить.
vitiv
Viktor
Ноя, 2006
Сообщений: 3
vitiv url://forum.message:1676

Отладку запускал?
ctl-F9?
Запускал, программа работает без ошибок, но выдает не один правильный как на паскале, а два и оба не правильных ответа.

~~~~~ 12 Ноя 2006, 17:21 ~~~~~

Хорошее же у меня сообщение получилось.
Программа на СИ не прошла, теги нееезяяя!
А паскаль скомканый в кучу, мдя.

~~~~~ 12 Ноя 2006, 17:32 ~~~~~

Отладку запускал?
ctl-F9?
Запускал, программа работает без ошибок, но выдает не один правильный как на паскале, а два и оба не правильных ответа.

~~~~~ 12 Ноя 2006, 17:21 ~~~~~

Хорошее же у меня сообщение получилось.
Программа на СИ не прошла, теги нееезяяя!
А паскаль скомканый в кучу, мдя.

vitivфорумы popoff.donetsk.ua



Во, уже все исправили, Спасибо.

popoff
Yuri
Июл, 2004
Сообщений: 944
popoff url://forum.message:1677

Вот, только что специально для Вас написал:
http://popoff.donetsk.ua/text/work/prg/debug.html

________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить.
vitiv
Viktor
Ноя, 2006
Сообщений: 3
vitiv url://forum.message:1678
<p>Вот, только что специально для Вас написал:<br />Все получилось, заменой abs на fabs и добавлением #include</p><stdlib.h><br /><p>Спасибо за помощь.</p>

Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.

Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен
Вход
Поиск[?]:
Программное обеспечение любой сложности
koins.com.ua