Форум программистов, компьютерный форум, киберфорум
Наши страницы

Перевод кода из паскаля в c++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Операция извлечения из потока для пользовательского типа http://www.cyberforum.ru/cpp-beginners/thread810287.html
Всем доброго дня! Я тренируюсь перегружать операторы извлечения из потока и операторы передачи в поток. Операцию передачи в поток я перегрузила, в вот извлечение из потока что-то не работает,...
C++ Подскажите, пожалуйста, почему не работает? (найти столбец с минимальной суммой элементов) Среди столбцов заданной целочисленной матрицы, которые включают только такие элементы, которые по модулю не больше 10, найти столбец с минимальной суммой элементов. #include <stdio.h> #include... http://www.cyberforum.ru/cpp-beginners/thread810279.html
Сортировка одномерного массива: "Stack around variable was corrupted" C++
при компиляции выдает "Run-Time Check Failure #2 - Stack around the variable 'mass' was corrupted." (при перекомпиляции вывод постоянно разный) //программа для сортировки одномерного...
Совте о создании файлового менеджера C++
Мне нужно написать файловый менеджер с удобным интерфейсом.Какие библиотеки и функции мне нужно использовать в своей программе.Направьте меня,пожалуйста, так как не знаю с чего начать. Мне нужно в...
C++ Массив: заполнить пространство определенным количеством атомов http://www.cyberforum.ru/cpp-beginners/thread810236.html
Доброго времени суток! Я делаю проект для учебы. Передо мной стоит задача заполнить пространство определенным количеством атомов. Для этого я использовал трехмерный массив Atom . Этим массивом я...
C++ Для каждой буквы первого слово определить входит ли она во второе слово. Повторяющиеся буквы первого слова не рассматривать #include <iostream.h> #include <math.h> #include <conio.h> #include <string.h> #include <stdio.h> Не выходит с "Повторяющиеся буквы первого слова не рассматривать" main() { clrscr(); подробнее

Показать сообщение отдельно
yeaahh
0 / 0 / 0
Регистрация: 15.03.2013
Сообщений: 15

Перевод кода из паскаля в c++ - C++

16.03.2013, 18:25. Просмотров 939. Ответов 2
Метки (Все метки)

Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот же результат.
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
const
  n=30;
  m=2;
var
  mas: array[1..n] of word;
  popular: array[1..n, 1..2] of word;
  f, p, i, j, k: word;
begin
  randomize;
  for i := 1 to n do
  begin
    mas[i] := random(5);
    write(mas[i]:2)
  end;
  for i := 1 to n-1 do
  for j := i+1 to n do
  if mas[i] > mas[j] then
  begin
    k := mas[i];
    mas[i] := mas[j];
    mas[j] := k
  end;
  writeln;
  i := 1;
  p := 1;
  writeln('Vsego');
  repeat
    k := 1;
    while (mas[i] = mas[i+1])and(i<n) do
    begin
      inc(k);
      inc(i);
    end;
    writeln(mas[i], ' - ', k*100/n:0:2, '%');
    popular[p, 1] := k;
    popular[p, 2] := mas[i];
    inc(p);
    inc(i)
  until i > n;
  for i := 1 to p-2 do
  for j := i+1 to p-1 do
  if popular[i, 1] < popular[j, 1] then
  for f := 1 to 2 do
  begin
    k := popular[i, f];
    popular[i, f] := popular[j, f];
    popular[j, f] := k
  end;
  writeln('Itogo');
  if p > m then p := m;
  for i := 1 to p do
  writeln(popular[i, 2], ' - ', popular[i, 1]*100/n:0:2, '%');
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru