Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 04.02.2018
Сообщений: 12
1

Нужно перевести код, Pascal на С++

18.02.2018, 21:32. Просмотров 787. Ответов 2
Метки нет (Все метки)

Pascal на С++
begin
writeln('kolichestvo');
readln(m);
writeln('elementi');
for i := 1 to m do
readln(z[i]);
k:= 3;
for i := 1 to m do
l[i]:=z[i];
for i := 1 to k do
for j:= m -1 downto i do
if l[j+1]>z[j] then
begin
b:=z[j];
z[j]:=z[j+1];
z[j+1]:=b;
end;
writeln('naibolshie elementi massiva');
for I := 1 to k do
write(z[i]:4);
readln;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2018, 21:32
Ответы с готовыми решениями:

нужно перевести с pascal на c++
Пусть N – натуральное число. Вычислить: y=1*2+2*3*4+3*4*5*6+...+N*(n+1)(n+2)*…*2n pascal не...

Перевести код Pascal на C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy,...

Перевести код из Pascal на С++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam: String; pred: String; ...

Перевести код с Pascal на С++
Ребята,помогите преобразовать код,представленный по этой ссылке...

2
13 / 13 / 9
Регистрация: 28.07.2017
Сообщений: 103
18.02.2018, 22:50 2
Лучший ответ Сообщение было отмечено Студент 25 как решение

Решение

Студент 25, Вроде так...

Код:
Кликните здесь для просмотра всего текста
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
#include <cstdio>
#include <vector>
 
int main()
{
    int quan;
    printf ("Quantity: ");
    scanf ("%d", &quan);
 
    std::vector <int> smth(quan);
    printf ("Elements are: \n");
    for (int i = 0; i < quan; ++i)
    {
        scanf ("%d", &smth[i]);
    }
    int k = 3;
 
    std::vector <int> sth_new(smth);
 
    for (int i = 0; i < k; ++i)
    {
        for (int j = quan - 2; j >= i; --j)
        {
            if (sth_new[j + 1] > smth[j])
            {
                int b = smth[j];
                smth[j] = smth[j + 1];
                smth[j + 1] = b;
            }
        }
    }
 
    printf ("the biggest elements of array: ");
    for (int i = 0; i < k; ++i)
    {
        printf ("%4d", smth[i]);
    }
 
    return 0;
}


Но это не совсем С++;
Тут Си-шный ввод-вывод.
Для С++ замените
C++
1
2
printf ("Quantity: ");
scanf ("%d", &quan);
на
C++
1
2
std::cout << "Quantity: ";
std::cin >> quan;
, а последний вывод на
C++
1
std::cout << setw(4) << smth[i]
, подключив библиотеку
C++
1
#include <iomanip>
для манипулятора установки ширины setw(int).
0
║XLR8║
1098 / 840 / 256
Регистрация: 25.07.2009
Сообщений: 4,161
Записей в блоге: 5
19.02.2018, 03:18 3
Студент 25, dude78, построчно почти
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
std::array<int, 100500> z, l;
int m;
std::cout << "kolichestvo" << std::endl;
std::cin >> m;
std::cout << "elementi" << std::endl;
for (int i = 0; i < m; ++i)
    std::cin >> z[i];
int k = 3;
for (int i = 0; i < m; ++i)
    l[i] = z[i];
for (int i = 0; i < k; ++i)
    for (int j = m-1; j > i; --j)
        if (l[j + 1] > z[j])
        {
            int b = z[j];
            z[j] = z[j];
            z[j + 1] = b;
        }
std::cout << "naibolshie elementi massiva" << std::endl;
for (int i = 0; i < k; ++i)
    std::cout << setw(4) << z[i] << std::endl;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2018, 03:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести код с Pascal
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite...

Перевести код с Pascal
Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее...

Перевести код с Pascal
код for i:=1 to length(num_st)do begin num_st:=upcase(num_st); if num_st in then...

Перевести код с Pascal
№1 var s1,s2,n: longint; f: integer; begin write('vvedite natural chislo '); ...


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

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

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