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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
yeaahh
0 / 0 / 0
Регистрация: 15.03.2013
Сообщений: 15
#1

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

16.03.2013, 18:25. Просмотров 933. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2013, 18:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода из паскаля в c++ (C++):

Перевод кода из паскаля в с++ - C++
Незнаю как перевести из паскаля в с++ ar x, y: real; begin readln(x, y); if ((x &lt; 0) and (y &lt; 0)) then begin ...

Перевод кода с паскаля на С++ - C++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type mat=array of integer; var ...

Перевод кода из Паскаля в C++ - C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer alpha,integer beta): begin integer m,t;...

Перевод кода с Паскаля на С++ - C++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода с паскаля в С++ - C++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt; var s:string; begin clrscr; write('введите слова:');...

Перевод кода с Паскаля на C++ - C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt; Var j,i,nech_kol,ch_kol,q,p,sum_nech,sum_ch: Integer; ...

2
Kastaneda
Форумчанин
Эксперт С++
4655 / 2863 / 228
Регистрация: 12.12.2009
Сообщений: 7,275
Записей в блоге: 2
Завершенные тесты: 1
16.03.2013, 18:40 #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
46
47
48
49
50
51
52
53
54
55
56
57
#include "ptoc.h"
 
const integer n = 30;
const integer m = 2;
array<1,n,word> mas;
matrix<1,n, 1,2,word> popular;
word f, p, i, j, k;
int main(int argc, const char* argv[])
{
  pio_initialize(argc, argv);
  randomize;
  for( i = 1; i <= n; i ++)
  {
    mas[i] = random(5);
    output << format(mas[i],2);
  }
  for( i = 1; i <= n-1; i ++)
  for( j = i+1; j <= n; j ++)
  if (mas[i] > mas[j]) 
  {
    k = mas[i];
    mas[i] = mas[j];
    mas[j] = k;
  }
  output << NL;
  i = 1;
  p = 1;
  output << "Vsego" << NL;
  do {
    k = 1;
    while ((mas[i] == mas[i+1])&&(i<n)) 
    {
      k += 1;
      i += 1;
    }
    output << mas[i] << " - " << format((real)(k*100)/n,0,2) << '%' << NL;
    popular[p][1] = k;
    popular[p][2] = mas[i];
    p += 1;
    i += 1;
  } while (!(i > n));
  for( i = 1; i <= p-2; i ++)
  for( j = i+1; j <= p-1; j ++)
  if (popular[i][1] < popular[j][1]) 
  for( f = 1; f <= 2; f ++)
  {
    k = popular[i][f];
    popular[i][f] = popular[j][f];
    popular[j][f] = k;
  }
  output << "Itogo" << NL;
  if (p > m)  p = m;
  for( i = 1; i <= p; i ++)
  output << popular[i][2] << " - " << format((real)(popular[i][1]*100)/n,0,2) << '%' << NL;
  input >> NL;
  return EXIT_SUCCESS;
}
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
//ptoc.h
#ifndef __PTOC_H__
#define __PTOC_H__
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <assert.h>
 
#define items(x) (sizeof(x)/sizeof(*(x)))
 
typedef int           integer;
typedef unsigned      cardinal; /* unsigned integer */
typedef float         real;
 
#if defined(TURBO_PASCAL) || defined(HP_PASCAL)
typedef unsigned       word; /* It should have the same size as integer */ 
typedef unsigned char  byte; 
#endif
 
#ifdef TURBO_PASCAL
typedef long           longint;
typedef signed char    shortint; 
typedef void*          pointer;
typedef const char*    asciiz;
#endif               
 
typedef unsigned char boolean; 
#define true          (1)
#define false         (0)
 
#define nil           NULL
 
#define EXTERN        extern
 
/*
 * Pascal runtime library headers
 */
 
#include "io.h"
#include "array.h"
#include "paslib.h"
#include "set.h"
 
#endif
при этом получены варнинги
Bash
1
2
3
9 2 warning: undefined identifier 'randomize'
12 14 warning: undefined identifier 'random'
12 20 warning: function not defined
0
HighPredator
17.03.2013, 20:45     Перевод кода из паскаля в c++
  #3
 Комментарий модератора 
Дубль. Закрыто.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2013, 20:45
Привет! Вот еще темы с ответами:

Перевод кода с Паскаля на С++ - C++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код Pascal Var i:longint; n,k:byte; ...

Перевод кода из Паскаля в С++ - C++
uses crt,graph; type TPoint=record x,y:integer; end; var p1,p2,p3,p4:arrayof TPoint; gd,gm:integer; ...

Перевод кода из Паскаля в С++ - C++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем допустимым преобразованием матрицы...

Перевод кода из Турбо паскаля в С++ - C++
Помогите перевести код из турбо Паскаля в С++ {$N+} { Вычисление интегpала десятиточечным методом Гаусса } uses crt,graph; var...


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

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

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