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

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

Войти
Регистрация
Восстановить пароль
 
Fedis
608 / 88 / 2
Регистрация: 08.07.2010
Сообщений: 1,893
#1

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

20.11.2010, 12:34. Просмотров 435. Ответов 3
Метки нет (Все метки)

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

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

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

Не по теме:

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2010, 13:59
Привет! Вот еще темы с ответами:

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести на C++ из Pascal - C++
Буду очень рад тому, кто переведет из Pascal на C++ :) procedure ChangeToInc(var st:string); var f:boolean; begin f:=true;...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a<1 then begin writeln('1'); ...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...


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

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

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