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

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

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

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

19.11.2013, 22:19. Просмотров 421. Ответов 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-ой половины массива.. Если можно мне надо не случайными а чтобы я сам мог давать числа..
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2013, 22:19     перевести из Турбо Паскальа в С++
Посмотрите здесь:

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

Срочно....Турбо С - C++
Помогите пожалуйста... Турбо СИ cos(x)+2 cos(cos(x))+3 cos(cos(cos(x)))+...+n cos(cos(...cos(x)...)) я не пойму как...

переделать из турбо паскаля в Cи - C++
Помогите переделать именно эту программу в Си uses crt; var a,b:integer; function NOD(x,y:integer):integer; Begin If x<>0 then...

Стоит ли пользоваться Турбо Си???? - C++
Так что получается Турбо Си - плохой???? и лучше и не пользоваться данным компилятором?????

Турбо вижн для с++ - C++
Здравствуйте, есть ли у кого нибудь электронная книга-руководство по turbo vision для с++ или ссылка на скачивание провереная. Перерыл...

Решение простейших задач на Турбо C++ - C++
Ребята, вот столкнулся с нахождением решения данных задач. Очень нужна ваша помощь. А задачки такого типа: 1. Дано произвольное...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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;
}
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! где нужно поменять?
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];
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2013, 19:45     перевести из Турбо Паскальа в С++
Еще ссылки по теме:

простые программы в среде Турбо Си++ - C++
1.Вводятся два произвольных числа A и B. Вывести на экран, одинаковые у них знаки или разные 2. Вычислить сумму с заданной точностью...

Проверить нечетность числа (Турбо Си) - C++
как указать нечётность в Турбо Си

Поправить показ кириллицы (Турбо С++) - C++
не показывает русские символы, как исправить?

Перевод кода из Турбо паскаля в С++ - C++
Помогите перевести код из турбо Паскаля в С++ {$N+} { Вычисление интегpала десятиточечным методом Гаусса } uses crt,graph; var...

Как подключить русский язык к турбо С - C++
люди надо помощь. как подключить русский язык к турбо С. так что бы в прогах отображали рус букви. заранее спс.


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

Или воспользуйтесь поиском по форуму:
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???
Yandex
Объявления
25.11.2013, 19:45     перевести из Турбо Паскальа в С++
Ответ Создать тему
Опции темы

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