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

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

Войти
Регистрация
Восстановить пароль
 
Ильсия Макс
Сообщений: n/a
#1

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

08.12.2012, 16:16. Просмотров 245. Ответов 0
Метки нет (Все метки)

Привет всем!
Перевела программу с 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++ (проверить) (C++):

Проверить, равен ли остаток от деления A на B одному из заданных чисел (Pascal -> C++) - C++
if (A mod B = R) or (A mod B = S) then WriteLn('Действительно, остаток равен ', A mod B) else WriteLn('Остаток не равен ни одному из...

Проверить корректность перевода кода с Pascal - C#
Здравствуйте, помогите проверить, правильно ли перевел код, результаты почему-то разные код на паскале uses crt; type vektor=arrayof...

Проверить программно код на языке Object Pascal на синтаксические ошибки - Delphi
Никто не подскажет, как проверить программно код на языке Object Pascal на синтаксические ошибки?

Проверить, является ли введенная строка допустимым идентификатором языка Pascal - Pascal ABC
Написать программу, проверяющую, является ли введенная строка допустимым идентификатором языка Паскаль (проверку ключевых и...

Текстовый файл, содержащий программу на языке Pascal. Проверить на несоответствие числа открывающих и закрывающих скобок... - Delphi
Дан текстовый файл, содержащий программу на языке Pascal. Проверить эту программу на несоответствие числа открывающих и закрывающих скобок....

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2012, 16:16
Привет! Вот еще темы с ответами:

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC - Turbo Pascal
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой,...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal - Turbo Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг ограниченный окружностью , проходящий...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы - Turbo Pascal
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...


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

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

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