0 / 0 / 0
Регистрация: 17.10.2020
Сообщений: 1
1

Перевод из Паскаля на C++

17.10.2020, 19:40. Показов 448. Ответов 1

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=13;
var
    arr: array[1..n] of integer;
    i, j, k, buf, min: integer;
begin
    min:=1;
    writeln('Исходный: '); 
    for i:=1 to n do
    begin
        arr[i]:=random(50);
        write(arr[i], ' ');
    end;
    writeln;
    for i:=1 to n-1 do
    begin
        min:=i;
        for j:=i+1 to n do
        begin
            if arr[j]>arr[min] then min:=j;
            buf:=arr[i];
            arr[i]:=arr[min];
            arr[min]:=buf;
        end;
    end;
    writeln('Отсортированный: ');
    for k:=1 to n do
    write(arr[k], ' ');
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2020, 19:40
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

Перевод из Паскаля в С++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию...

Перевод с Паскаля на С++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key:...

Перевод с Паскаля на Си++
program PrimesToN; var i, k, n, count: word; begin readln(n); for k := 1 to n...

1
half-horse half-gateway
109 / 77 / 41
Регистрация: 10.05.2016
Сообщений: 509
17.10.2020, 20:18 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
43
44
45
#include <iostream>
#include <time.h>
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "");
    srand(time(0));
 
    const int n = 13;
    int arr[n];
    int buf, min = 1;
 
    cout << "Исходный:" << endl;
 
    for (int i = 0; i < n; i++)
    {
        arr[i] = rand() % 50;
        cout << arr[i] << " ";
    }
 
    cout << endl;
 
    for (int i = 0; i < n - 1; i++)
    {
        min = i;
 
        for (int j = i + 1; j < n; j++)
        {
            if (arr[j] > arr[i])
                min = j;
 
            buf = arr[i];
            arr[i] = arr[min];
            arr[min] = buf;
        }
    }
 
    cout << "Отсортированный:" << endl;
 
    for (int k = 0; k < n; k++)
        cout << arr[k] << " ";
 
    return 0;
}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2020, 20:18
Помогаю со студенческими работами здесь

Перевод из Паскаля в Си
function Fact2(n: integer): real; var anva: integer; begin result := n; anva := n; ...

Перевод из паскаля в C#
Вы не могли бы мне помочь перевести программу с Паскаля на C#... Оч надо=))) uses crt; const m=3;...

перевод с Паскаля
Надо перевести: program zz; var n,m:integer; i,j,g,z,bilkol:integer; d1,d2:text; ...

Перевод из Паскаля в C++
Пожалуйста помогите перевести одну функцию из Паскаля в C++. Буду очень признательна, так как очень...

Перевод из паскаля в с ++
Ребят помогите перевести в с ++ var p:array of integer; c,c1:char; i,j,N,K:integer; ...

Перевод с паскаля на си
Ребят помогите поджалуйста с переводом! const r=10; n=100; type mas=array of byte; var...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru