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

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

Войти
Регистрация
Восстановить пароль
 
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
#1

Из Pascal в С++ - C++

13.09.2010, 18:42. Просмотров 387. Ответов 9
Метки нет (Все метки)

Добрый день! Еще не совсем освоил новую среду, поэтому есть проблемы. Написал программу на паскале. Ее надо перевести в с++. Кто сможет помочь, заранее благодарен!

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

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы - Turbo Pascal
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal - Turbo Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг ограниченный окружностью , проходящий...

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC - Turbo Pascal
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой,...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net? - PascalABC.NET
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

9
nikkka
Мат в 32 хода
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
13.09.2010, 18:59 #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;
}
1
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 20:09  [ТС] #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();
    }
0
ForEveR
В астрале
Эксперт С++
7979 / 4738 / 321
Регистрация: 24.06.2010
Сообщений: 10,543
Завершенные тесты: 3
13.09.2010, 20:11 #4
clscr вроде несовместима с Windows
0
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 20:13  [ТС] #5
Lavroff, Да борланд. У меня все прекрасно очищает
0
nikkka
Мат в 32 хода
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
13.09.2010, 20:22 #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();
    }
0
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 21:10  [ТС] #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
0
nikkka
Мат в 32 хода
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
13.09.2010, 21:33 #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;
}
1
jood
3 / 3 / 0
Регистрация: 19.10.2009
Сообщений: 41
13.09.2010, 21:47  [ТС] #9
nikkka, Спасибо огромное!
0
nikkka
13.09.2010, 21:49     Из Pascal в С++
  #10

Не по теме:

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

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

Перевести в код Pascal ABC из кода Pascal Delphi - Pascal ABC
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of real; i,j:byte; begin ...

Необходимо перевести программу с Pascal ABC на free pascal - Free Pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k, n, i:byte; begin ...

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal - Pascal ABC
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt, Graph; Var Punkt : Byte; Knopka :...

Нужен Turbo pascal или Free pascal на русском - Pascal
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo pascal, а установлен pascalABC, в книге...


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

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

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