Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.
| Автор | Сообщение |
| Ноя, 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. |
| |
 Июл, 2004
Сообщений: 925 | popoff url://forum.message:1675 ________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить. |
| |
| Ноя, 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 |
Во, уже все исправили, Спасибо. |
| |
| Июл, 2004
Сообщений: 925 | popoff url://forum.message:1677 ________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить. |
| |
| Ноя, 2006
Сообщений: 3 | vitiv url://forum.message:1678 <p>Вот, только что специально для Вас написал:<br />Все получилось, заменой abs на fabs и добавлением #include</p><stdlib.h><br /><p>Спасибо за помощь.</p> |
| |
Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.
