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

Из Pascal в С++ - C++

Восстановить пароль Регистрация
 
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 18:42     Из Pascal в С++ #1
Добрый день! Еще не совсем освоил новую среду, поэтому есть проблемы. Написал программу на паскале. Ее надо перевести в с++. Кто сможет помочь, заранее благодарен!

Условие задачи: В массиве С1, С2...С24 есть два элемента равные 0. Заменить все элементы, стоящие между ними, на единицы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var
С :array[1..24]of real;
i,o1,o2:integer;
Begin
clrscr;
writeln('Введите массив: ');
for i:=1 to 24 do begin
read(C[i]);
if C[i]=0 then o2:=i;
end;
for i:=24 downto 1 do if C[i]=0 then o1:=i;
for i:=o1 to o2 do C[i]:=1;
writeln ('Результирующий массив: ');
for i:=1 to 24 do write(C[i]:3:0);
while not keypressed do;
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.09.2010, 18:42     Из Pascal в С++
Посмотрите здесь:

C Pascal на C++ C++
C++ Pascal to C++
C++ С Pascal на C++
C++ Pascal to c++
Pascal C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
nikkka
Мат в 32 хода
 Аватар для nikkka
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
13.09.2010, 18:59     Из Pascal в С++ #2
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
#include <iostream>
#include <conio.h>
#include <math.h>
using namespace std;
int main()
{
    int nn;
    cout<<"Enter the size of an array: ";
    cin>>nn;
    cout<<"Enter the range:\n";
    cout<<"x1=";
    int x1,x2;
    cin>>x1;
    cout<<"x2=";
    cin>>x2;
    const int n=nn;
    int a[n];
    cout<<"Enter the array:\n";
    for(int i=0;i<n;i++)
    {
        cout<<"a["<<i+1<<"]=";
        cin>>a[i];
        if(i<x2 && i>x1)
            a[i]=0;
    }
    getch();
    return 0;
}
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 20:09  [ТС]     Из Pascal в С++ #3
У меня не работает. Размерность сделал константой. Массив ввожу, но вывода не происходит.
Вот что поправил:
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
#include <iostream.h>
#include <conio.h>
#include <math.h>
#define n 24
void main()
{
    clrscr();
    cout<<"Enter the range:\n";
    cout<<"x1= ";
    int x1,x2;
    cin>>x1;
    cout<<"x2= ";
    cin>>x2;
    int a[n];
    cout<<"Enter the array:\n";
    for(int i=0;i<n;i++)
    {
    cout<<"a["<<i+1<<"]=";
    cin>>a[i];
    if(i<x2 && i>x1)
        a[i]=0;
    }
    getch();
    }
ForEveR
Модератор
Эксперт C++
 Аватар для ForEveR
7927 / 4709 / 318
Регистрация: 24.06.2010
Сообщений: 10,524
Завершенные тесты: 3
13.09.2010, 20:11     Из Pascal в С++ #4
clscr вроде несовместима с Windows
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 20:13  [ТС]     Из Pascal в С++ #5
Lavroff, Да борланд. У меня все прекрасно очищает
nikkka
Мат в 32 хода
 Аватар для nikkka
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
13.09.2010, 20:22     Из Pascal в С++ #6
jood, а вывод и не предусмотрен.
вот с выводом.
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.h>
#include <conio.h>
#include <math.h>
#define n 24
void main()
{
    clrscr();
    cout<<"Enter the range:\n";
    cout<<"x1= ";
    int x1,x2;
    cin>>x1;
    cout<<"x2= ";
    cin>>x2;
    int a[n];
    cout<<"Enter the array:\n";
    for(int i=0;i<n;i++)
    {
        cout<<"a["<<i+1<<"]=";
        cin>>a[i];
        if(i<x2 && i>x1)
            a[i]=0;
    }
    for(int k=0;k<n;k++)
        cout<<a[k]<<"\n";
    getch();
    }
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 21:10  [ТС]     Из Pascal в С++ #7
И снова я. Все работает, но немного не по условию. Нам надо менять не по индексу, а по значению, так как у меня в паскале. Т.е:

Исходный массив : 1 2 3 4 5 6 0 1 2 3 4 5 0 2 3 4 5 6
Рез-тат: 1 2 3 4 5 6 0 0 0 0 0 0 0 2 3 4 5 6
nikkka
Мат в 32 хода
 Аватар для nikkka
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
13.09.2010, 21:33     Из Pascal в С++ #8
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
#include <iostream.h>
#include <conio.h>
#include <math.h>
#define n 24
void main()
{
    clrscr();
    cout<<"Enter the range:\n";
    cout<<"x1= ";
    int x1,x2;
    cin>>x1;
    cout<<"x2= ";
    cin>>x2;
    int a[n];
    cout<<"Enter the array:\n";
    for(int i=0;i<n;i++)
    {
        cout<<"a["<<i+1<<"]=";
        cin>>a[i];
    }
    for(int l=x1;l<=x2;l++)
    {
        if(a[l]!=0)
            a[l]=0;
    }
    for(int k=0;k<n;k++)
        cout<<a[k]<<"\n";
    getch();
    }
Добавлено через 20 секунд
так чтоль?

Добавлено через 11 минут
а, все, понял!
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
32
#include <iostream>
#include <conio.h>
#define n 24
using namespace std;
int main()
{
    int x1,x2;
    int a[n];
    cout<<"Enter the array:\n";
    for(int i=0;i<n;i++)
    {
        cout<<"a["<<i+1<<"]=";
        cin>>a[i];
    }
    for(int k=0;k<n;k++)
    {
        if(a[k]==0)
        {
            x1=k+1;
            while(a[x1]!=0)
            {
                a[x1]=0;
                x1++;
            }
            break;
        }
    }
    for(int d=0;d<n;d++)
        cout<<a[d]<<"\n";
    getch();
    return 0;
}
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 21:47  [ТС]     Из Pascal в С++ #9
nikkka, Спасибо огромное!
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.09.2010, 21:49     Из Pascal в С++
Еще ссылки по теме:

из Pascal в C++ C++
C++ Из Pascal в C++
Из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
nikkka
13.09.2010, 21:49     Из Pascal в С++
  #10

Не по теме:

jood, фуф... а я то думал что никогда не пойму как надо

Yandex
Объявления
13.09.2010, 21:49     Из Pascal в С++
Ответ Создать тему
Опции темы

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