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

Перевести с pascal - C++

Восстановить пароль Регистрация
 
Fedis
608 / 88 / 2
Регистрация: 08.07.2010
Сообщений: 1,893
20.11.2010, 12:34     Перевести с pascal #1
Помогите перевести программу с Паскаля на Си++
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
Program Negative;
 var a, b: array[1..10000]of String;
     i, j, n, m, answer: Integer;
     input, output: Text;
 begin
 assign(input, 'negative.in');
 reset(input);
 readln(input, n, m);
 for i:=1 to n do
  readln(input, a[i]);
 readln(input);
 for i:=1 to n do
  readln(input, b[i]);
 close(input);
 answer:=0;
 for i:=1 to n do
  for j:=1 to m do
   if a[i][j]=b[i][j] then //Бред, как одномерные массивы могут стать двумерными?
    answer:=answer+1;
 assign(output, 'negative.out');
 rewrite(output);
 write(output, answer);
 close(output);
 end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2010, 12:34     Перевести с pascal
Посмотрите здесь:

Перевести из Pascal на С++ C++
Перевести на C++ из Pascal C++
Перевести c Pascal в C++ C++
C++ перевести с Pascal на С++
C++ Перевести с pascal в C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Жека-старший
Студент
 Аватар для Жека-старший
496 / 344 / 42
Регистрация: 15.03.2010
Сообщений: 601
20.11.2010, 12:50     Перевести с pascal #2
Цитата Сообщение от i.c Посмотреть сообщение
if a[i][j]=b[i][j] then //Бред, как одномерные массивы могут стать двумерными?
Массив String.
А это значит, j-ая буква i-ой строки.
В Pascal-е, как знаешь, к двумерному массиву обращаются записывая все в одних скобках через запятую индексы. A[i,j]
Fedis
608 / 88 / 2
Регистрация: 08.07.2010
Сообщений: 1,893
20.11.2010, 13:08  [ТС]     Перевести с pascal #3
А я типа не знаю!
Мне нужен перевод.
Жека-старший
20.11.2010, 13:59     Перевести с pascal
  #4

Не по теме:

Думай за что минусуешь, я ответил на твой не основной, но вопрос.

Yandex
Объявления
20.11.2010, 13:59     Перевести с pascal
Ответ Создать тему
Опции темы

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