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

перевод в C++ из Pascal - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как по отдельности назвать составные операторы присваивания? http://www.cyberforum.ru/cpp-beginners/thread583666.html
Как по отдельности назвать составные операторы присваивания? Интересуют русский вариант для заголовков и английский вариант для урлов.
C++ Программа которая изменяет динамический массив строк - Написал, но есть ошибка Всем доброго времени суток. В общем сделал программу, которая вкратце делает следующее: 1) Создает динамических массив строк char **m 2) Просит юзера вводить строки, когда закончит нажать ctrl+z и Enter a) После ввода строки, вызывается функция добавления этой строки в массив m 3) После ввода программа выводит полученный массив Но раз уж я здесь, значит есть косяк. Когда ввожу строки... http://www.cyberforum.ru/cpp-beginners/thread583663.html
Пройтись циклом for по всем символам в текстовом файле C++
Как в С++ открыть файл и пройтись циклом for по всем символам в текстовом файле. Это нужно для выполнения заданий: 14. Выписать из файла буквы, встречающиеся в нем один раз. 28. Дан текстовый файл. Следует сохранить только те символы, за которыми следует буква А.
C++ Вычислить и вывести на экран в виде таблицы значения функции
Доброе утро! Сейчас прохожу практику по программированию, но совершенно незнаю С++. Помогите пожалуйста решить 2 задачки. Условия задач в вложениях. Заранее спасибо!
C++ Написать функции\ю int_file_size(filename) целого типа http://www.cyberforum.ru/cpp-beginners/thread583638.html
Написать функцию int_file_size(filename) целого типа, возвращающую размер файла целых чисел с именем filename. Если файл не существует,то функция возвращает -1. С помощью этой функции определить размер трех файлов с данными именами.
C++ Дано натуральное число N. Составить программу вычисл. выражения 1!+2!+3!+....+N! Дано натуральное число N. Составить программу вычисл. выражения 1!+2!+3!+....+N! .Факториал числа вычисл. по формуле N!=1*2*...*N подробнее

Показать сообщение отдельно
=IS=
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 12

перевод в C++ из Pascal - C++

23.05.2012, 10:57. Просмотров 1549. Ответов 2
Метки (Все метки)

Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая.
вот на всякий случай сама задача:
Таблица футбольного чемпионата задана квадратной матрицей порядка n, в которой все элементы, принадлежащие главной диагонали, равны 0, а каждый элемент, не принадлежащий главной диагонали, равен 2, 1 или 0(числу очков, набранных в игре: 2- выигрыш, 1-ничья, 0-проигрыш). а)найти число команд,имеющих больше побед,чем поражений b)определить номера команд,прошедших чемпионат без поражений. 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
program tablica;
uses crt;
const n=3;
var
A:array[1..n,1..n] of integer;
i,j,win,lose,draw,k,t: integer;
{---------------------------------------------------------------------------}
procedure input;
BEGIN
  for i:=1 to n do
  begin
    for j:=1 to n do
     begin
      write ('A[',i,',',j,']=');
      readln(A[i,j]);
     end;
  end;
END;
{---------------------------------------------------------------------------}
procedure varA;
BEGIN
win:=0; lose:=0; draw:=0; k:=0;t:=0;
  begin
  for i:=1 to n do
    begin
    for j:=1 to n do
     begin
      if A[i,j]=2 then win:=win+1;
      if A[i,j]=1 then draw:=draw+1;
      if ((i<>j) and  (A[i,j]=0)) then lose:=lose+1;
     end;
    if win>lose then k:=k+1;{uslovie varianta a}
    if win>(n/2) then t:=t+1;{uslovie varianta c}
    writeln('komanda',i,'=',win,'/',draw,'/',lose);{vivod rezultatov komandi}
    if lose=0 then writeln('u komandi',' ',i,' ','net porazhenii'); {uslovie i vivod varianta b}
    win:=0; lose:=0; draw:=0; writeln(' ');
    end;
  end;
if k>0 then writeln('kol-vo komand win>lose -',k)
       else writeln('net komand win>(lose)');
if t>0 then writeln('kol-vo komand win>(n/2) -',t)
       else writeln('net komand win>(n/2)');
END;
{----------------------------------------------------------------------------}
BEGIN
clrscr;
input;
varA;
readln;
END.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru