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

Переделать код из Паскаля в С++

12.03.2017, 16:48. Просмотров 773. Ответов 2
Метки нет (Все метки)

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Type
  mas = Array [1..100] of Real;
{--------------}
Procedure Sort(var a: mas; n: Byte);
var i,j: Byte;
    tmp: Real;
begin
  For i:=1 to n-1 do
  begin
    For j:=i+1 to n do
    If a[i]>a[j] Then
    begin
      tmp:=a[i];
      a[i]:=a[j];
      a[j]:=tmp
    end;
  end;
end;
{--------------}
Procedure FormMas(var a: mas; n: Byte);
var i: Byte;
begin
  For i:=1 to n do
  begin
    a[i]:=10*Random;
    Write(a[i]:7:2);
  end;
end;
{--------------}
Procedure PrintMas(a: mas; n: Byte);
var i: Byte;
begin
  For i:=1 to n do
  Write(a[i]:7:2);
  Writeln
end;
{--------------}
Var
  a,b,c: mas;
  na,nb,nc: Byte;
BEGIN
Randomize;
Write('NA = ');
Readln(na);
Write('NB = ');
Readln(nb);
Write('NC = ');
Readln(nc);
Writeln('Массив A: ');
FormMas(a,na);
Writeln;
Writeln('Массив B: ');
FormMas(b,nb);
Writeln;
Writeln('Массив C: ');
FormMas(c,nc);
Writeln;
Writeln('Отсортированный A: ');
Sort(a,na);
PrintMas(a,na);
Writeln('Отсортированный B: ');
Sort(b,nb);
PrintMas(b,nb);
Writeln('Отсортированный C: ');
Sort(c,nc);
PrintMas(c,nc);
END.
Добавлено через 2 часа 14 минут
Пожалуйста, помогите, срочно нужно.
Вот само задание, а программа , которую нужно переделать, выше
11. Описать процедуру Sort(A, N), выполняющую сортировку по возрастанию вещественного массива A размера N. Массив A является входным и выходным параметром. С помощью этой процедуры отсортировать массивы A, B, C размера NA, NB, NC соответственно.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2017, 16:48
Ответы с готовыми решениями:

Переделать код из Паскаля в С++
program Param40; type St=String; var S:St; i,K:integer; Function...

Как переделать код из паскаля в с++
uses graph,crt; var x,y,d,i,j:integer; procedure CircleK(xc,yc,r:integer);...

Переделать код программы с паскаля на с++
Нужно перевести код с паскаля на с++ Program Podrazdelenie; Uses crt;...

Переделать с паскаля на с++
Procedure tree (a, n); -------- begin a:=0; a:=0; a:=0; for i:=2 to...

Переделать с Паскаля на С++
Составить неразветвленную программу на языке Turbo Pascal. Текст программы:...

2
sk007
Life Builder
414 / 414 / 341
Регистрация: 12.01.2011
Сообщений: 1,520
Завершенные тесты: 6
12.03.2017, 19:36 2
Лучший ответ Сообщение было отмечено Zamaka2016MAKC как решение

Решение

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
46
47
48
49
50
51
52
53
54
#include <iostream>
#include <ctime>
 
using namespace std;
 
void sort(int *mas, int n);
void printMas(int *mas, int n);
void formMas(int *mas, int n);
 
int main()
{
    system("chcp 1251"); cout << endl;
 
    int *mas = new int[7] {0,1,5,1,3,2,5};
 
    for (int i = 0; i < 7; i++)
        cout << mas[i] << " ";
 
    sort(mas, 7);
 
    cout << endl << endl;
    for (int i = 0; i < 7; i++)
        cout << mas[i] << " ";
}
 
void sort(int *mas, int n)
{
    int temp;
    for (int i = 0; i<n - 1; i++)
        for (int j = i + 1; j < n; j++)
            if (mas[i] > mas[j])
            {
                temp = mas[i];
                mas[i] = mas[j];
                mas[j] = temp;
            }
}
 
void printMas(int *mas, int n)
{
    for (int i = 0; i < n; i++)
        cout << mas[i] << " ";
    cout << endl;
}
 
void formMas(int *mas, int n)
{
    srand(time(0));
 
    for (int i = 0; i < n; i++)
        mas[i] = rand() * 10;
 
    printMas(mas, n);
}
Добавлено через 2 минуты
Для вещественного числа, поменяйте везде где есть int на double, кроме типов переменных i и j
1
Zamaka2016MAKC
0 / 0 / 0
Регистрация: 03.10.2016
Сообщений: 30
12.03.2017, 19:38  [ТС] 3
Спасибо большое)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2017, 19:38

как переделать на с++? с паскаля
function aaa(x: integer):boolean; var b: integer; begin ...

переделать из турбо паскаля в Cи
Помогите переделать именно эту программу в Си uses crt; var a,b:integer;...

Переделать прогу с паскаля в Вижуал
вот прога на Паскале, надо переделать под вижуал... срочно... ...


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

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

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