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

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

01.04.2021, 22:08. Показов 322. Ответов 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
  type 
  int = integer;
  uint = byte;
  list = array of int;
  matrix = array of list;
  
procedure quicksort(var mas:list; first, last:int); 
var i, l, x, buf:int;
begin
  if not(first < last) then
    exit;
  x:= mas[(first + last) div 2];
  i:= first;
  l:= last;
  while (i <= l) do
  begin
    while (mas[i] > x) do  
      inc(i);
    while (mas[l] < x) do 
      dec(l);
    if (i <= l) then
    begin
      buf:= mas[i];
      mas[i]:= mas[l];
      mas[l]:= buf;
      inc(i);
      dec(l);
    end;
  end;
  quicksort(mas, first, l);  
  quicksort(mas, i, last);
end; 
 
var 
  arr:matrix;
  i, j:uint;
  
begin
  writeln('Введите n - линейный размер матрицы');
  read(i);
  SetLength(arr, i);
  writeln('Введите матрицу размером n x n:');
  for i:= low(arr) to high(arr) do 
  begin
    SetLength(arr[i], Length(arr));
    for j:= low(arr[i]) to high(arr[i]) do
      read(arr[i, j]);
  end;
  quicksort(arr[low(arr) + 1], low(arr), high(arr)); 
  writeln('Вторая строка по убыванию:');
  for j:= low(arr[low(arr) + 1]) to high(arr[low(arr) + 1]) do
    write(arr[low(arr) + 1, j], ' ');
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2021, 22:08
Ответы с готовыми решениями:

И еще одну программу переделать из Паскаля в С++
program Recur11; type ar = arrayof integer; var NA,NB,NC:integer; A,B,C:ar; Function...

Переделать программу из Паскаля в С++
Цель работы: 1. Изучение работы с двумерными массивами. 2. Изучение режима работы в редакторе...

Переделать программу с Паскаля на Си
1.Описать запись с именем Bill, содержащую следующие поля: • Расчетный счет плательщика;...

Переделать программу с Паскаля на C++
Нужно переписать программу с паскаля на си++, и чтобы данные вводил я сам. const COUNT_POINTS=6; ...

2
126 / 83 / 44
Регистрация: 18.11.2018
Сообщений: 299
01.04.2021, 22:30 2
Цитата Сообщение от Alfie1 Посмотреть сообщение
Переделать программу с паскаля на C++
Какое условие у задачи?
0
0 / 0 / 0
Регистрация: 08.03.2021
Сообщений: 4
02.04.2021, 09:55  [ТС] 3
Напечатать элементы второй строки в порядке убывания.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2021, 09:55
Помогаю со студенческими работами здесь

Переделать программу из паскаля в си
var k:integer; f:text; s,s1:real; begin write('k=');readln(k); assign(f,'11.txt');...

Переделать программу с Паскаля на Java
Var s:string; k:byte; Begin write('Строка: ');readln(s); s:=s+' '; While Pos('...

Переделать программу Паскаля в Delphi
День добрый! Уважаемые программисты, нужно переделать программу, написанную в Паскале в Delphi....

Переделать программу с Паскаля на Java
Program kuteet; uses crt; const n = 4; var x : array of integer; sa...

Переделать программу с паскаля на Delphi
В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой...

Переделать программу с Паскаля в Делфи
Программа меняет элементы матрицы(a), которые больше 5 на a-2 и отрицательные на их модуль....


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

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

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