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

Переведено с Pascal на C++ (проверить) - C++

Восстановить пароль Регистрация
 
Ильсия Макс
Сообщений: n/a
08.12.2012, 16:16     Переведено с Pascal на C++ (проверить) #1
Привет всем!
Перевела программу с Pascal на C++...Но работает не так...дальше не знаю что делать) Помогите пожалуйста,если не трудно :-)
Вот программа:
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <time.h>
#include <ctime>
 
using namespace std;
//uses crt;
//{больше на экран не войдет}
int main()
{ const int max=5;
char tabl[max];
char nom[max];
char  n,m,i,j,k,pb,pr;
bool f;
 
//repeat
do{
cout<<"Vvedite chislo komand ne bolee "<< max <<" n= ";
//write('Введите число команд не более ',max,' n=');
cin>>n;//readln(n);
}
while(n<0 || n>=max);//until n in [1..max];
//randomize();
//{заполняем случайно верхнюю часть таблицы 0,1,2}
for(i=1; i<n; i++)
for(j=1; j<n; j++)
 
srand(time(NULL));
if (j>i)  tabl[i,j]=rand()%3;
//{заполняем симметрично нижнюю часть таблицы}
for(i=1; i<n; i++)
for(j=1; j<n; j++)
  if (j<i) tabl[i,j]=2-tabl[j,i];
  if (i=j)  tabl[i,j]=0;
cout<<"Tablisa";//Writeln('Таблица:');
k=0;//{кол. побед больше поражений}
m=0;//{размер массива номеров}
f=false;//{пока нет команд, выигравших более половины}
//{выводим получившуюся матрицу}
for(i=1; i<n; i++)
  pb=0;pr=0;//{победы и поражения}
  for(j=1; j<n; j++)
    if (tabl[i,j]=2)  pb=pb+1;
    if ((tabl[i,j]=0) && (i!=j))  pr=pr+1;
    if (j!=i) cout<<tabl[i,j];//  write(tabl[i,j]:4)
    //else write(#178:4);
  if (pb>pr) k=k+1;//{ответ на часть а}
  if (pr=0) //then{ответ на часть б}
    m=m+1;
    nom[m]=i;
  if(pb>(n-1)/ 2) f=true;//{ответ на часть в}
  cout<<"POB"<<pb<<","<<"POR"<<pr;
  //write('  поб=',pb,' пор.=',pr);
  
cout<<"kol-vo komand,y kot-x pobed bolche chem pora: "<<k;
//writeln('Количество команд, у которых побед больше чем поражений=',k);
cout<<"Nomera komand bez poradzenii: ";
//writeln('Номера команд без поражений:');
if(m=0) cout<<"Takich komand net:";
//writeln('Таких команд нет')
else
 for(i=1; i<m; i++)
 cout<<nom[i]<<" ";
 //write(nom[i],' ');
if( f )cout<<"ime kom,viigr";
//write('Имеются команды, выигравшие более половины игр')
else cout<<"";
//write('Команд, выигравших более половины игр нет');
getch();}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2012, 16:16     Переведено с Pascal на C++ (проверить)
Посмотрите здесь:

С Pascal(я) на C++ C++
C++ из Pascal в с++
C Pascal'я на С++ C++
C++ проверить
Из Pascal в C++ C++
Функции. Проверить, простое число или нет. Увеличить его значение на натуральное число M. Проверить, осталось ли оно простым C++
из Pascal в C++ C++
C++ (Pascal -> С++)

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 08:44. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru