Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 23.04.2013
Сообщений: 75

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

19.11.2013, 22:19. Показов 1751. Ответов 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.11.2013, 22:19
Ответы с готовыми решениями:

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

Перевести код из паскаля в турбо с++
const LoshadCount = 3; var i, n, c, max: Integer; v: Real; s: array of Integer; begin // Stavki

Нужно перевести из турбо паскаля
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; ...

4
27 / 21 / 9
Регистрация: 26.01.2013
Сообщений: 168
20.11.2013, 07:31
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
0 / 0 / 1
Регистрация: 23.04.2013
Сообщений: 75
24.11.2013, 23:29  [ТС]
Цитата Сообщение от 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
27 / 21 / 9
Регистрация: 26.01.2013
Сообщений: 168
25.11.2013, 18:12
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
0 / 0 / 1
Регистрация: 23.04.2013
Сообщений: 75
25.11.2013, 19:45  [ТС]
Спасибо большое! можешь помочь еще с одним решением? Надо заполнить массив из 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.11.2013, 19:45
Помогаю со студенческими работами здесь

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

Нужно перевести из турбо паскаля - 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;...

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

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

Перевести код с Турбо Паскаль для модели эксперимента на pascal ABC.net
program PROGRAMMA3; uses crt, graph; var v, B, q, F, Fx, Fy : real; r, x, y, vx,vy,ax,ay : real; Gd, Gm, i: integer; const M=500;...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru