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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
fs_x
1 / 1 / 0
Регистрация: 11.10.2012
Сообщений: 24
#1

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

23.10.2012, 09:41. Просмотров 364. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2012, 09:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как это все записать в devC++? (C++):

как на с++..это записать - C++
В конструктор добавляем следующее: public Form1() { InitializeComponent(); this.KeyPreview = true; ...

For i:=0 to c do как это записать в си++ - C++
for i:=0 to c do как это записать в си++??

что значит !a и a%=(c+10) и как это записать? - C++
что значит !a и a%=(c+10) и как это записать? заранее благодарен...

Как записать это математическое выражение на языке C++ - C++
Здравствуйте , напишите пожалуйста как записать числитель данного математического выражения на языке С++? У меня почему то не получается...

Как записать в вектор структуру? Это вообще возможно сделать? - C++
Привет всем! Как записать в вектор структуру? Это вообще возможно сделать? Надо, чтоб первая строка из файла записывалась в вектор,...

Возвращаемое значение функции - указатель на массив. КАК это записать? - C++
Функция заполняет массив. например (кусок проги) .... int mas; int fun() { заполнила массив

1
John Prick
801 / 734 / 145
Регистрация: 27.07.2012
Сообщений: 2,107
Завершенные тесты: 3
23.10.2012, 10:35 #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;
}
Дальше попробуй сам. Где что не получится, спрашивай.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2012, 10:35
Привет! Вот еще темы с ответами:

Как запустить программу в DevC++? - C++
Как в Del C++ попробовать свою программу, ну как бы запустить свою программу в самой Del C++?

Кто знает как из DEVc++ транслировать в C++? - C++
Есть программа написанная в Dev, которая не работает в Visual C++. Как данную программу перевести в Си? В чем их особенности? Вот сама...

Как работать с графикой DevC++. Нужен пример - C++
Помогите, как поключить граф. драйвера, жду не дождусь когда уже начну работу с графикой. Скиньте нетрудный пример.

Как добавить подсветку синтаксиса STL в Orwell DevC++ - C++
Обычно работаю в Code::Blocks, но Dev мне показался удобнее. Единственный минус -- у него нет подсветки STL. Можно ли что то перенести...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru