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

перевести программу на С++ - C++

Восстановить пароль Регистрация
 
 
vasilisa-9090
 Аватар для vasilisa-9090
1 / 1 / 0
Регистрация: 30.03.2013
Сообщений: 108
25.04.2013, 08:08     перевести программу на С++ #1
помогите перевести программу с паскаля на С++.
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
uses crt; 
var i,n:integer; 
     a1,a2,a,eps:real; 
      l:boolean; 
begin 
 clrscr; 
 l:=false; 
 writeln($$n,eps $$); 
  
 readln(n,eps); 
 a1:=1; 
 a2:=2; 
i:=2; 
 repeat 
 i:=i+1; 
  a:=(a1+a2)/2;   
  a2:=a1; 
  a1:=a; 
 if ((a1-a2))and(l=false) then 
   begin 
     l:=true; 
     writeln($$наименьший номер члена последовательно*сти $$,i); 
   end; 
 writeln(a); 
 if i mod 25=0 then readln; 
 until(i>=n); 
 if l=false then writeln($$Такой номер не найден$$); 
readln 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2013, 08:08     перевести программу на С++
Посмотрите здесь:

C++ Из Pascal в C++ программу перевести
C++ Перевести программу в С++
перевести программу на С++ C++
C++ Перевести программу с языка С++
C++ Перевести программу на сайт
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
art3330
 Аватар для art3330
9 / 9 / 1
Регистрация: 16.12.2012
Сообщений: 141
25.04.2013, 10:23     перевести программу на С++ #21
C++
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
#include <iostream>
#include <cmath>
using namespace std;
int main(){
    int i=0,n=25; 
    float a1=1,a2=2,a,eps=0.001; 
    bool l=false;
    cout<<"n="<<n<<" eps="<<eps<<"\n";
    do{
        i=i+1;
        a=(a1+a2)/2;
        a2=a1;
        a1=a;
        if(fabs(a1-a2)<eps){
            l=true;
            cout<<"#"<<i<<" fabs(a1-a2)="<<fabs(a1-a2)<<"\n";
            cout<<"Наименьший номер члена последовательности: "<<i<<"\n";
            break;
        };
        cout<<"#"<<i<<" a="<<a<<"\n";
        if (i%25==0) {break;}   
    }while(i<=n);
    if (l==false) {cout<<"\nТакой номер не найден.\n";}
    cin.get();
    return 0;
};
Тогда вот так получается.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2013, 10:28     перевести программу на С++
Еще ссылки по теме:

C++ Перевести программу с Pascal на С++
C++ Перевести программу с Pascal на С++
Перевести программу на С++ C++

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

Или воспользуйтесь поиском по форуму:
-=ЮрА=-
Заблокирован
Автор FAQ
25.04.2013, 10:28     перевести программу на С++ #22
Проверка здесь
http://codepad.org/BsQAzNew
Output:
Enter e : 0.0001

n : 0 an : 1.5 error : 1
n : 1 an : 1.75 error : 0.5
n : 2 an : 1.625 error : 0.25
n : 3 an : 1.6875 error : 0.125
n : 4 an : 1.65625 error : 0.0625
n : 5 an : 1.67188 error : 0.03125
n : 6 an : 1.66406 error : 0.015625
n : 7 an : 1.66797 error : 0.0078125
n : 8 an : 1.66602 error : 0.00390625
n : 9 an : 1.66699 error : 0.00195312
n : 10 an : 1.6665 error : 0.000976562
n : 11 an : 1.66675 error : 0.000488281
n : 12 an : 1.66663 error : 0.000244141
n : 13 an : 1.66669 error : 0.00012207
Calculations stoped

n : 14 an : 1.66666 error : 6.10352e-05
Enter any key for exit...

Не по теме:


Для art3330:

Кликните здесь для просмотра всего текста
b]art3330[/b], если ещё раз приведёшь код с заданным n я лично поставлю тебе минус за навязывание бреда.
Цитата Сообщение от art3330 Посмотреть сообщение
n=25;
- повторюсь - в данном задании N заранее не известно и его надо найти
Цитата Сообщение от vasilisa-9090 Посмотреть сообщение
Найти наименьший номер члена последовательно*сти, для которого выполняется условие .
Выве*сти на экран этот номер и все элементы аi, где i = 1, 2..... n. ε=0.001
оно зависит от погрешности и вчисляется в итерационном процессе.

Yandex
Объявления
25.04.2013, 10:28     перевести программу на С++
Ответ Создать тему
Опции темы

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