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

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

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

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

20.11.2010, 12:34. Просмотров 427. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2010, 12:34     Перевести с pascal
Посмотрите здесь:

Перевести с pascal в C++ - C++
Помогите кто знает, вот код program pop; uses crt; label 10; var y,xn,xk,dx:real; begin clrscr; xn:=6;

Перевести из Pascal в С++ - C++
Заранее благодарен var s, a, x :real;i,j, fac: integer; begin cls; readln(x); begin for j:=1 to 15 do fac:=fac*(j*2+1); ...

перевести с pascal в С++ - C++
Помогите пожалуйста написать аналогичную функцию, но на языке C++. (В паскале нифига не шарю) Const MAX_X=80; MAX_Y=24; Type...

Перевести с Pascal в С++ - C++
var a,b:string; c,d,i:integer; begin readln(a); for i:=1 to pos(' ',a) do delete(a,1,1); for i:= length(a) downto pos(' ',a)...

Перевести с Pascal на C++ - C++
Перевести с Pascal на C++ Var i,j,n : Longint; Fl : Boolean; Begin For n:=5 to 100 do Begin fl:=false;

Перевести с Pascal на C++ - C++
Есть код на Паскале, хотел бы сам перевести его в С++, но подчистую забыл, что такое Паскаль. Помоги, люди добрые) procedure sort(var...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Жека-старший
Студент
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
Ответ Создать тему
Опции темы

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