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

@vasilisa-9090 · Регистрация: 30.03.2013

помогите перевести программу с паскаля на С++.

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.

@art3330 · 25.04.2013, 10:23

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;
};

Тогда вот так получается.

@-=ЮрА=- · 25.04.2013, 10:28

Проверка здесь
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

оно зависит от погрешности и вчисляется в итерационном процессе.

Новые блоги и статьи Все статьи Все блоги /
Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .