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

Переписать программу из паскаля на с++

24.05.2015, 21:00. Показов 918. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
const  n = 15; 
var  a:array[1..n] of integer; i,j,x:integer;
begin    
randomize;
writeln('Сфоромований масив:');
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('A[',i,']: ',a[i]);
end;    
for i:=1 to n-1 do 
for j:=i+1 to n do 
if a[j]>=0 then
begin
if a[i]>a[j] then 
begin
x:=a[i]; 
a[i]:=a[j]; 
a[j]:=x;
end;
end;  
writeln;
writeln('Вiдсортований масив: ');
for i:=1 to n do 
begin
writeln('a[',i,']=',a[i],' ');
end;
readln; 
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.05.2015, 21:00
Ответы с готовыми решениями:

Переписать программу с Паскаля на С++
Всем привет! Возникла задача написать код на C++, но данный язык я вообще не знаю. Зато знаю pascal на твёрдую 4ку. Так вот, накидал я код...

Переписать программу из паскаля в с++
Program L5Z1; var K:array of real; i:real; c:integer; begin writeln('Зформовані масиви: '); i:=1; for c:=0 to 17 do...

Переписать программу из паскаля в с++
Уважаемые форумчане!! Помогите пожалуйста переписать программу из паскаля в с++. uses crt; Var A, B, C, D, X, X1, X2 : Real; Begin...

10
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
24.05.2015, 21:29
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>
#include <array>
#include <algorithm>
#include <random>
#include <chrono>
#include <functional>
#include <iterator>
 
const int n = 10;
 
int main ( ) {
    std::default_random_engine generator(std::chrono::system_clock::now().time_since_epoch().count());
    std::uniform_int_distribution<int> distribution(-50, 50);
    
    std::array<int, n> array;
    std::generate(array.begin(), array.end(), std::bind(distribution, generator));
    
    std::cout << "Generated array:\n";
    std::copy(array.begin(), array.end(), std::ostream_iterator<int>(std::cout, " "));
    
    std::sort(array.begin(), array.end());
    std::cout << "\nSorted array:\n";
    std::copy(array.begin(), array.end(), std::ostream_iterator<int>(std::cout, " "));
}
UPD: Заменил for-in на копирование в ostream_iterator

Добавлено через 13 минут
Хм. Заметил
Цитата Сообщение от slientme Посмотреть сообщение
if a[j]>=0 then
Тогда так (стандартный алгоритм не подходит для этого)
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>
#include <array>
#include <algorithm>
#include <random>
#include <chrono>
#include <functional>
#include <iterator>
#include <utility>
 
const int n = 10;
 
int main ( ) {
    std::default_random_engine generator(std::chrono::system_clock::now().time_since_epoch().count());
    std::uniform_int_distribution<int> distribution(-50, 50);
    
    std::array<int, n> array;
    std::generate(array.begin(), array.end(), std::bind(distribution, generator));
    
    std::cout << "Generated array:\n";
    std::copy(array.begin(), array.end(), std::ostream_iterator<int>(std::cout, " "));
    
    std::cout << "\nSorted array:\n";
    for (int i = 0; i < n; ++i)
        for (int j = i + 1; j < n; ++j)
        if (array[j] >= 0)
        if (array[i] > array[j])
            std::swap(array[i], array[j]);  
    std::copy(array.begin(), array.end(), std::ostream_iterator<int>(std::cout, " "));
}
0
0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 18
24.05.2015, 21:33  [ТС]
не пошло
1>СБОЙ построения.
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
24.05.2015, 21:38
slientme, компилировать с поддержкой C++11.
0
 Аватар для jonson
240 / 213 / 84
Регистрация: 18.03.2010
Сообщений: 750
24.05.2015, 21:38
Цитата Сообщение от slientme Посмотреть сообщение
if a[j]>=0 then
к чему тут эта строка? отрицательные элементы пропускаются и что это за сортировка?
0
0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 18
24.05.2015, 21:40  [ТС]
пробивал и то и другое не хочет( что делать?

Добавлено через 55 секунд
FraidZZ, нет ток 10
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
24.05.2015, 21:40
Цитата Сообщение от slientme Посмотреть сообщение
ток 10
Нет такого стандарта.

Добавлено через 11 секунд
Какой компилятор?
0
 Аватар для jonson
240 / 213 / 84
Регистрация: 18.03.2010
Сообщений: 750
24.05.2015, 21:44
может так проще?
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
#include <iostream>
#include <time.h>
 
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "");
    const int n = 15; 
    int a[15];
    int i, j, x;
    
    srand(time(NULL));
    cout << "Сформований масив:";
    for(i=0; i<n; i++)
    {
        a[i] = rand() % 100 - 50;
        cout << "\nA[" << i << "]: " << a[i];
    }
 
    for(i=0; i<n-1; i++)
        for(j=i+1; j<n; j++)
    //  if(a[j] >= 0)
        {
            if ( a[i] > a[j] )
            {
                x = a[i];
                a[i] = a[j];
                a[j] = x;
            }
        }
    cout << "\n\nВiдсортований масив:";
    for(i=1; i < n; i++)
        cout << "\na[" << i << "]=" << a[i];
 
    system("pause");
    return 0;
}
0
0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 18
24.05.2015, 21:47  [ТС]
FraidZZ, у меня стоит МС Visual Studio 2010 Pro. всё что знаю

Добавлено через 57 секунд
jonson, твое запустилось) спасибо)
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
24.05.2015, 21:49
Цитата Сообщение от slientme Посмотреть сообщение
всё что знаю
Студия поддерживает C++ новых стандартов через ректальное отверстие. Ставьте что-нибудь, что реально поддерживает C++.
0
0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 18
24.05.2015, 21:51  [ТС]
jonson, переделай это
program zavd2;
var d,y,a:real; k,n:integer;
begin
write('Введiть числа a,n:');
readln(a,n);
k:=1; d:=a;
while k<=n do
begin
y:=(a-k*n);
d:=d*y;
k:=k+1;
end;
writeln('Сума виразу: ',d);
end.

Добавлено через 29 секунд
jonson, на С++
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.05.2015, 21:51
Помогаю со студенческими работами здесь

Переписать программу из паскаля в с++
program laba52; uses crt; VAR a:array of real; s:real; i:integer; begin s:=1; randomize; for i:=1 to 10 do

Переписать программу из паскаля в с++. Одномерный динамический массив
Это динамический масив! Помогите пожалуйста в С++ записать. Type mse = ^ms; MS=Arrayof integer; var vk:mse; k:integer; ...

Переписать из Паскаля в С++
Суть в том, что есть программы написанные на Паскале, их нужно написать на С++. а я вообще не дружу с этим языком. Дорогие умельцы, если не...

Переписать из паскаля
Здравствуйте помогите пожалуйста переписать на с++:) var a,b:array of integer; n,i,c,d,mind:integer; begin read(n); for...

Переписать с Паскаля на C++
Все доброго времени суток. Нужно переписать программу с паскаля на плюсы. Смысл программы в том, что она расставляет скобки приоритета для...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru