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

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

Войти
Регистрация
Восстановить пароль
 
 
vasilisa-9090
1 / 1 / 0
Регистрация: 30.03.2013
Сообщений: 108
#1

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

25.04.2013, 08:08. Просмотров 753. Ответов 21
Метки нет (Все метки)

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

Перевести программу на С++ - C++
нужно перевести в с++ Дан текст, в котором имеются цифры. а) Найти их сумму. б) Найти максимальную цифру var s: string; ...

Перевести программу из C++ в Си - C++
#include <iostream> int main() { int size=3; int max_size=size+(size-1); int**pMagic_square = new int*; ...

Перевести программу из С в С++ - C++
Что следует изменить помимо операторов ввода-вывода? Пожалуйста, помогите!#include <stdio.h> #include <locale.h> #include <stdlib.h> ...

Перевести программу в С++ - C++
Вот это нужно оформить в C++ #include <cstring> #include <iostream> using namespace std; bool orly(char *s, char *f) { ...

перевести программу на С++ - C++
вот условие: Дано натуральное число. а)-верно ли, что сумма его цифр меньше А? б)-верно ли, что произведение его цифр больше B? ...

Перевести программу C# в С++ - C++
Добрый вечер. Написал программу на языке C#, но сдать ее нужно на языке С++. Несколько попыток перевести программу самостоятельно были...

21
art3330
10 / 10 / 1
Регистрация: 16.12.2012
Сообщений: 141
25.04.2013, 10:07 #16
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
27
28
29
30
31
#include <iostream>
#include <math.h>
using namespace std;
int main(){
    int i,n; 
    float a1,a2,a,eps; 
    bool l;
    l=false;
    cout<<"n eps \n";
    cin>>n>>eps;
    a1=1; 
    a2=2;
    i=0;;
    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;
};
Добавлено через 1 минуту
Это Ваша программа, с исправленными ошибками.
0
-=ЮрА=-
25.04.2013, 10:13
  #17

Не по теме:

Цитата Сообщение от art3330 Посмотреть сообщение
Это Ваша программа, с исправленными ошибками.
art3330, в данном заднии не следует вводить n.
Цитата Сообщение от art3330 Посмотреть сообщение
cout<<"n eps \n";
* * cin>>n>>eps;
- NO!
Лучше всегда анализировать задание и сравнивать с предложенной реализацией, в которой была куча упущений и ошибок
Цитата Сообщение от art3330 Посмотреть сообщение
#include <math.h>
- инклудится в плюсах в новом стиле #include <cmath>

0
vasilisa-9090
1 / 1 / 0
Регистрация: 30.03.2013
Сообщений: 108
25.04.2013, 10:14  [ТС] #18
что-то у меня не получается ее на стандартные команді С++ переделатью вот єту строчку:
C++
1
 printf("\rn : %d an : %lf error : %lf", n, an, fabs(an_2 - an_1))ж
просто нам с командами и библиотеками Си запрещают писать=((
0
-=ЮрА=-
25.04.2013, 10:16
  #19

Не по теме:

Цитата Сообщение от vasilisa-9090 Посмотреть сообщение
просто нам с командами и библиотеками Си запрещают писать=((
- хорошо сейчас будет на плюсах

0
-=ЮрА=-
Заблокирован
Автор FAQ
25.04.2013, 10:22 #20
Вот на плюсах
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
27
28
29
30
#include <iostream>
#include <cmath>
using namespace std;
 
//Äëÿ 4-ГЈГ® áîðëГ*Г*Г¤Г* ГёГ*ГЇГЄГі õåäåðîâ Г§Г*ГЇГЁГ±Г*ГІГј ГІГ*ГЄ
//#include <iostream.h>
//#include <math.h>
 
int main()
{
    long    n;
    double e = 0;//Г*Г*ГёГ* ïîãðåøГ*îñòü
    cout<<"Enter e : ";cin>>e;cin.get();
    double an_2 = 1;
    double an_1 = 2;
    double an   = (an_1 + an_2) / 2;
    
    for(n = 0; e < fabs(an_2 - an_1); n = n + 1)
    {
        cout<<"\rn : "<<n<<" an : "<<an<<" error : "<<fabs(an_2 - an_1);
        an_2 = an_1;
        an_1 = an;
        an   = (an_1 + an_2) / 2;
    }
    cout<<"\n\tCalculations stoped\n";
    cout<<"\rn : "<<n<<" an : "<<an<<" error : "<<fabs(an_2 - an_1)<<"\n";
    cout<<"Enter any key for exit...";
    cin.get();
    return 0;
}
2
Миниатюры
перевести программу на С++  
art3330
10 / 10 / 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;
};
Тогда вот так получается.
1
-=ЮрА=-
Заблокирован
Автор 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
оно зависит от погрешности и вчисляется в итерационном процессе.

1
25.04.2013, 10:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2013, 10:28
Привет! Вот еще темы с ответами:

Перевести программу с языка С++ - C++
С языком Си плохо знаком, ну очень плохо, переведите программу с языка С++ на язык Си #include &lt;iostream&gt; #include &lt;vector&gt; ...

Из Pascal в C++ программу перевести - C++
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить...

Перевести программу с Pascal на С++ - C++
Program SumCuba; var x, {пробное число} n, {последняя цифра} p, {число без последней цыфры} s:integer; {сумма кубов цифр} ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr; write('vvedite chislo: '); readln(s); repeat a:=s; ...


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

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

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