Форум программистов, компьютерный форум CyberForum.ru

Как это все записать в devC++? - C++

Восстановить пароль Регистрация
 
fs_x
1 / 1 / 0
Регистрация: 11.10.2012
Сообщений: 24
23.10.2012, 09:41     Как это все записать в devC++? #1
Помогите все это написать на devC++
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
program fs;
uses crt;
procedure F(x,e:real; var s:real; var i:longint);
var t:real;
begin
     s:=1/x; t:=x; i:=1;
     while abs(1/((2*i+1)*t))>e do
           begin
             i:=i+1;  t:=t*x*x; s:=s+1/(t*(2*i-1));
           end;
     s:=2*s;
end;
var xn,xk,e,dx,s:real; n:longint;
begin clrscr;
   repeat
     write('Vvedite nachalo intervala -1>xn or xn>1 xn=');
     readln(xn);
   until (xn<-1)or(xn>1);
   repeat
     write('Vvedite konec intervala ',xn:0:1,'<xk<1 xk=');
     readln(xk);
   until (xk>xn);
   repeat
     write('Vvedite tochnost v intervale (0,1) e=');
     readln(e);
   until (e>0)and(e<1);
   repeat
    write('Vvedite shag tabulyacii, polojitelnoe chislo menshe ',xk-xn:0:2,'dx=');
    readln(dx);
   until(dx<xk-xn)and(dx>0); clrscr;
writeln('    tablica tabulirovania funkcii ln((1+x)/(1-x))');
writeln('na intervale ',xn:0:2,'  ',xk:0:2,' s tochnostiu',e:0:6);
writeln('----------------------------------------------------');
writeln('|           |               |     1+x       |      |');
writeln('|     x     |  vichisleno   |  ln-----      |   n  |');
writeln('|           |               |     1-x       |      |');
writeln('----------------------------------------------------');
while xn<=xk+e do
begin
F(xn,e,s,n);
writeln('|',xn:6:2,' |',s:10:6,' |',ln((1+xn)/(xn-1)):10:6,' |',n:4,' |');
xn:=xn+dx;
end;
writeln('----------------------------------------------------');
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2012, 09:41     Как это все записать в devC++?
Посмотрите здесь:

как на с++..это записать C++
C++ Кто знает как из DEVc++ транслировать в C++?
что значит !a и a%=(c+10) и как это записать? C++
Возвращаемое значение функции - указатель на массив. КАК это записать? C++
C++ Как работать с графикой DevC++. Нужен пример
Как добавить подсветку синтаксиса STL в Orwell DevC++ C++
Как запустить программу в DevC++? C++
C++ Как записать в вектор структуру? Это вообще возможно сделать?

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
John Prick
754 / 687 / 123
Регистрация: 27.07.2012
Сообщений: 1,974
Завершенные тесты: 3
23.10.2012, 10:35     Как это все записать в devC++? #2
Pascal
1
uses crt;
C++
1
#include <iostream>
Pascal
1
2
3
4
5
6
7
8
9
10
procedure F(x,e:real; var s:real; var i:longint);
var t:real;
begin
     s:=1/x; t:=x; i:=1;
     while abs(1/((2*i+1)*t))>e do
           begin
             i:=i+1;  t:=t*x*x; s:=s+1/(t*(2*i-1));
           end;
     s:=2*s;
end;
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void F(double x, double e, double & s, long & i)
{
     s = 1 / x;
     double t = x;
     i = 1;
     while (abs(1 / ((2 * i + 1) * t)) > e)
     {
             ++i;
             t *= x * x;
             s += 1 / (t * (2 * i - 1));
     }
     s *= 2;
}
Pascal
1
var xn,xk,e,dx,s:real; n:longint;
C++
1
2
double xn,xk,e,dx,s;
long n;
Pascal
1
2
3
begin
{ тут весь код на паскале }
end.
C++
1
2
3
4
5
int main(void)
{
/* тут весь код на С++ */
    return 0;
}
Дальше попробуй сам. Где что не получится, спрашивай.
Yandex
Объявления
23.10.2012, 10:35     Как это все записать в devC++?
Ответ Создать тему
Опции темы

Текущее время: 12:35. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru