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

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

Войти
Регистрация
Восстановить пароль
 
Dakster
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 75
#1

перевести из Турбо Паскальа в С++ - C++

19.11.2013, 22:19. Просмотров 423. Ответов 4
Метки нет (Все метки)

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
30
31
32
33
34
35
36
37
program inversiya;
uses crt;
var
a:array[1..10] of integer;
k,i,j,n:integer;
begin
  clrscr;
  randomize;
  writeln('исходный массив:');
  for i:=1 to 10 do
  begin
    a[i]:=random(21)-10;
    write(a[i]:5);
  end;
  n:=0;
  for i:=1 to 2 do
  begin
    k:=a[i];
    a[i]:=a[5-n];
    a[5-n]:=k;
    n:=n+1;
  end;
  n:=0;
  for i:=6 to 8 do
  begin
    k:=a[i];
    a[i]:=a[10-n];
    a[10-n]:=k;
    n:=n+1;
  end;
  writeln;
  textcolor(10);
  writeln('преобразованный массив:');
  for i:=1 to 10 do
  write(a[i]:5);
  readln;
end.
Очень прошу помочь...а вообще в программе надо заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельно для 1-ой и 2-ой половины массива.. Если можно мне надо не случайными а чтобы я сам мог давать числа..
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2013, 22:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевести из Турбо Паскальа в С++ (C++):

перевести с турбо паскаля в с++ вид - C++
type konf=record name: string; cena:integer; god:integer; mag:integer; end; var kon: array of konf; I,k,max:...

Нужно перевести из турбо паскаля - Pascal ABC
Program aero; uses crt,graph; const xp0=-2;xp1=0;yp0=-1;yp1=1; xs0=40;xs1=600;ys0=440;ys1=40; Var h,x,y,xx,yy:real; ...

Перевести линейные уровние в турбо паскаль - Turbo Pascal
Здраствуйте всем. Срочно по понедельника надо линейные задачи перевести в турбо паскаль. Желательно задач больше 20 штук перевести. Рисунок...

Нужно перевести из турбо паскаля - Pascal ABC - Pascal ABC
uses graph; var mx,my:real; x0,y0,grD,grM,i,k:integer; s:string; begin grD:=detect; initgraph(grD,grM,''); X0:=getmaxX div 2;...

Перевести код с Турбо на АВС (с модулем Graph) - Pascal ABC
ребят можете перекодировать программу а то на моей системе TP не работает. Модуль Graph не работает program Potokk1; uses...

Перевести код из Турбо Паскаля в PascalАВС.NET - PascalABC.NET
program lab1; uses Crt; const Nmax = 50; { MAX kolichestvo elementa mnozestva } type T = Char; { tip elementa...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
bars268
7 / 7 / 0
Регистрация: 26.01.2013
Сообщений: 58
20.11.2013, 07:31 #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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#define  _CRT_SECURE_NO_WARNINGS
 
#include <stdio.h>
#include <conio.h>
#include <iostream>
#include <iomanip>
 
using namespace std;
 
int main()
{
    srand (time(NULL));
int buf;
//объявляем массив 
int arr[9];
cout<<"Source array:\n";
//задаем массив
for (int i=0; i<10; i++) {
    arr[i] = rand() % 20 -10;
    cout<<setw(5)<<arr[i];
}
cout<<endl;
//инверсия первой половины
for (int i=0; i<=2;i++) {
    buf = arr[4-i];
    arr[4-i] = arr[i];
    arr[i] = buf;
}
//инверсия второй половины
for (int i=5; i<=7;i++) {
    buf = arr[14-i];
    arr[14-i] = arr[i];
    arr[i] = buf;
}
//выводим готовый массив
cout<<"array:\n";
for (int i=0; i<10; i++) {
    cout<<setw(5)<<arr[i];
}
_getch();
return 0;
}
0
Dakster
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 75
24.11.2013, 23:29  [ТС] #3
Цитата Сообщение от bars268 Посмотреть сообщение
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
33
34
35
36
37
38
39
40
41
42
#define  _CRT_SECURE_NO_WARNINGS
 
#include <stdio.h>
#include <conio.h>
#include <iostream>
#include <iomanip>
 
using namespace std;
 
int main()
{
    srand (time(NULL));
int buf;
//объявляем массив 
int arr[9];
cout<<"Source array:\n";
//задаем массив
for (int i=0; i<10; i++) {
    arr[i] = rand() % 20 -10;
    cout<<setw(5)<<arr[i];
}
cout<<endl;
//инверсия первой половины
for (int i=0; i<=2;i++) {
    buf = arr[4-i];
    arr[4-i] = arr[i];
    arr[i] = buf;
}
//инверсия второй половины
for (int i=5; i<=7;i++) {
    buf = arr[14-i];
    arr[14-i] = arr[i];
    arr[i] = buf;
}
//выводим готовый массив
cout<<"array:\n";
for (int i=0; i<10; i++) {
    cout<<setw(5)<<arr[i];
}
_getch();
return 0;
}
а если я хочу ввести суммы сам? без randomize! где нужно поменять?
0
bars268
7 / 7 / 0
Регистрация: 26.01.2013
Сообщений: 58
25.11.2013, 18:12 #4
C++
1
2
3
4
for (int i=0; i<10; i++) {
    arr[i] = rand() % 20 -10;
    cout<<setw(5)<<arr[i];
}
это поменять на
C++
1
2
3
for (int i=0; i<10; i++) {
    cin>>arr[i];
}
0
Dakster
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 75
25.11.2013, 19:45  [ТС] #5
Спасибо большое! можешь помочь еще с одним решением? Надо заполнить массив из 12 элементов в интервале [-12..12] и выполнить инверсию для каждой трети массива. и суммы должен вводить сам..например
4 -5 3 10| -4 -6 8 -10| 1 0 5 7
и выходит у нас
10 3 -5 4| -10 8 -6 -4| 7 5 0 1

Добавлено через 4 минуты
и еще не могу понять зачемы ты тут for (int i=0; i<=2;i++) {
for (int i=0; i<=2;i++) {
buf = arr[4-i];
arr[4-i] = arr[i];
arr[i] = buf;
}
//инверсия второй половины
for (int i=5; i<=7;i++) {
buf = arr[14-i];
arr[14-i] = arr[i];
arr[i] = buf;
} меняешь цифры? и зачем? например ты в первом инверсси написал цифры 0,2 и 4 , а во второй половине 5,7 и 14???
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2013, 19:45
Привет! Вот еще темы с ответами:

Нужно перевести графический режим турбо паскаля в паскаль ABC. Сам не могу разобраться с операторами ABC - PascalABC.NET
Uses crt, graph; Var a, b, { Границы отрезка } r, r2, { Предыдущее и текущее приближенные...

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет - Pascal ABC
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin cx:=round(length*cos(angle)); end; ...

Турбо Паскаль - Turbo Pascal

турбо паскаль 7 - Turbo Pascal
помогите сделать то что есть в документеСоздавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
25.11.2013, 19:45
Ответ Создать тему
Опции темы

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