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

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

Восстановить пароль Регистрация
 
DunSet
0 / 0 / 0
Регистрация: 10.01.2013
Сообщений: 57
09.04.2013, 15:07     Первести программу с Паскаля на Си++ #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program mm;
uses crt;
var m:array[1..100]of longint;
i,n:integer;
begin
clrscr;
write('razmernost:');
readln(n);
write('1 i 2 element massiva');
readln(m[1],m[2]);
for i:=3 to n do m[i]:=m[i-1]*m[i-2]*i;
for i:=1 to n do write(m[i],'');
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Croessmah
Модератор
Эксперт С++
 Аватар для Croessmah
11811 / 6790 / 767
Регистрация: 27.09.2012
Сообщений: 16,840
Записей в блоге: 2
Завершенные тесты: 1
09.04.2013, 15:12     Первести программу с Паскаля на Си++ #2
Я так понял - числа Фибоначчи?
DunSet
0 / 0 / 0
Регистрация: 10.01.2013
Сообщений: 57
09.04.2013, 15:14  [ТС]     Первести программу с Паскаля на Си++ #3
наверное. можешь просто перевести плиз
Ternsip
 Аватар для Ternsip
660 / 188 / 6
Регистрация: 10.05.2012
Сообщений: 595
09.04.2013, 15:18     Первести программу с Паскаля на Си++ #4
DunSet,
1) Это не числа Фибоначчи, гадать не стоит.
2) Обратите внимание, я подредактировал
3) в С++ 0-индексация
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <iostream>
#include <cmath>
#include <vector>
 
using namespace std;
 
int main(){
    freopen("input.txt", "rt", stdin);
    freopen("output.txt", "wt", stdout);
    vector < int > m(100);
    int n;
    printf("razmernost: ");
    scanf("%d", &n);
    printf("1 i 2 element massiva: ");
    scanf("%d%d", &m[0], &m[1]);
    for (int i = 2; i < n; i++){
        m[i] = m[i-1]*m[i-2]*i;
    }
    for (int i = 0; i < n; i++)
        printf("%d ", m[i]);
    return 0;
}
Croessmah
Модератор
Эксперт С++
 Аватар для Croessmah
11811 / 6790 / 767
Регистрация: 27.09.2012
Сообщений: 16,840
Записей в блоге: 2
Завершенные тесты: 1
09.04.2013, 15:18     Первести программу с Паскаля на Си++ #5
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <iostream>
 
int main(){
    long int * arr;
    int n;
    std::cout<<"Enter n ->";
    std::cin>>n;
    arr=new long int[n];
    std::cout<<"Enter arr[0] and arr[1] ->";
    std::cin>>arr[0]>>arr[1];
    for(int i=2;i<n;++i)
        arr[i]=arr[i-1]*arr[i-2];
    for(int i=0;i<n;++i)
        std::cout<<arr[i]<<" ";
    std::cout<<std::endl;
    delete [] arr;
    return 0;
}

Не по теме:

Цитата Сообщение от Croessmah Посмотреть сообщение
числа Фибоначчи?
нет, не оно...

Ternsip
 Аватар для Ternsip
660 / 188 / 6
Регистрация: 10.05.2012
Сообщений: 595
09.04.2013, 15:23     Первести программу с Паскаля на Си++ #6
Croessmah, у вас не правильно
C++
1
arr[i]=arr[i-1]*arr[i-2];
вы забыли на i умножить. И размерность массива 100, а не n
DunSet
0 / 0 / 0
Регистрация: 10.01.2013
Сообщений: 57
09.04.2013, 15:30  [ТС]     Первести программу с Паскаля на Си++ #7
а в итоге как будет выглядить конечный файл программы??
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2013, 15:32     Первести программу с Паскаля на Си++
Еще ссылки по теме:

C++ Переписать программу из паскаля в с++
Переписать программу из паскаля в с++ C++
Переписать программу из паскаля на с++ C++

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

Или воспользуйтесь поиском по форуму:
Ternsip
 Аватар для Ternsip
660 / 188 / 6
Регистрация: 10.05.2012
Сообщений: 595
09.04.2013, 15:32     Первести программу с Паскаля на Си++ #8
DunSet, я уже вам скинул исходник. смотрите сверху.
C++
1
2
freopen("input.txt", "rt", stdin);
freopen("output.txt", "wt", stdout);
уберите, это я для себя делал
Yandex
Объявления
09.04.2013, 15:32     Первести программу с Паскаля на Си++
Ответ Создать тему
Опции темы

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