|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
31.01.2010, 19:45 | #1 |
Новичок
Джуниор
Регистрация: 31.01.2010
Сообщений: 2
|
Перевод программы с Pascal в C++
Добрый день! Прошу помочь, подсказать.
Есть программа на Pascal, ее необходимо перевести в C++. Сам C++ знаю слабо, побробывал сам, но вкрались ошибки. Pascal Код:
Код:
При этом после запятой допускается до 6ти знаков. После удачного выполнения закрывается |
31.01.2010, 22:13 | #2 |
Пользователь
Регистрация: 18.08.2009
Сообщений: 70
|
тьма синтаксических ошибок... во-первых, регист в си имеет значение(S и s - разные переменные);во-вторых,
Код:
Код:
|
01.02.2010, 10:59 | #3 | |
Новичок
Джуниор
Регистрация: 31.01.2010
Сообщений: 2
|
Цитата:
Код:
1 Declaration syntax error 2 Declaration terminated incorrectly 3 Declaration terminated incorrectly |
|
19.05.2010, 17:34 | #4 |
Новичок
Джуниор
Регистрация: 19.05.2010
Сообщений: 1
|
Pascal - C#
Помогите пожалуста перевести это с паскаля на C#, буду очень благодарен))
{ Даны два массива x[1] <= ... <= x[k], y[1] <= ... <= y[l]. Найти их "пересечение", т.е. массив z[1] <= ... <= z[m], содержащий их общие элементы, причем, кратность каждого элемента в массиве z равняется минимуму из его кратностей в массивах x и y. Число действий должно быть порядка k+l. } Program InterSect; Const cMaxIndex = 100; { максимальное число элементов для определения массива } Type TIndex = 1..cMaxIndex; { тип для описания индекса } TArray = array [0..cMaxIndex] of Word; { описание массива. Элемент с индексом 0 - верхняя граница массива } Var x : TArray; { массив x } y : TArray; { массив y } z : TArray; { массив z } { Процедура печати массива } Procedure Print (a : TArray; title : string); var i : TIndex; begin write (title, \':\'); for i := 1 to a [0] do write (\' \', a [i]); writeln; end; { Процедура ввода массива } Procedure Input (var a : TArray; title : string); var i : TIndex; begin writeln (\'Введите элементы массива \', title, \' (не более \', cMaxIndex, \' элементов). Введите 0 для окончания ввода\'); a [0] := 0; for i := 1 to cMaxIndex do begin readln (a [i]); if a [i] = 0 then break else Inc (a [0]); end; end; { Процедура для вормирования "пересечения" массивов } Procedure InterSection (a : TArray; b : TArray; var c : TArray); var i : TIndex; { переменная для перебора элементов первого массива } j : TIndex; { переменная для перебора элементов второго массива } n : TIndex; { количество элементов первого массива } m : TIndex; { количество элементов второго массива } begin n := a [0]; m := b [0]; c [0] := 0; j := 1; i := 1; { пока есть элементы в первом массиве } while i <= n do begin { находим первый элемент во втором массиве, который не меньше текущего из первого } while (j <= m) and (b [j] < a [i]) do Inc (j); if j > m then break; { добавляем одинаковые элементы в третий массив (меньшая кратность получается автоматически) } while a [i] = b [j] do begin { Заносим элемент в массив c } Inc (c [0]); c [c [0]] := a [i]; { переходим к следующим элементам исходных массивов } Inc (i); Inc (j); { проверяем границы массивов } if (i > n) or (j > m) then break; end; { пропускаем элементы первого массива до тех пор, пока очередной элемент не станет больше или равен текущего элемента второго массива } while (i <= n) and (a [i] < b [j]) do Inc (i); end; end; Begin Input (x, \'x\'); Input (y, \'y\'); Print (x, \'x\'); Print (y, \'y\'); InterSection (x, y, z); Print (z, \'z\'); End. |
19.05.2010, 18:04 | #5 | ||
Форумчанин
Регистрация: 22.11.2007
Сообщений: 664
|
1
Цитата:
2 Цитата:
Код:
int RtoDec(int s, int r) { описание переменных, аналогично main операторы; return результат вычисления; }
Неприятности приходят и уходят, а жизнь продолжается!
Последний раз редактировалось Sweta; 19.05.2010 в 18:11. |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод из Pascal в С | Foxtrot_1 | Помощь студентам | 7 | 20.06.2009 19:00 |
перевод из Pascal в C++ | Valerik | Общие вопросы C/C++ | 5 | 22.04.2009 21:57 |
Перевод кода из Pascal в Object Pascal | zemskov77 | Общие вопросы Delphi | 1 | 03.01.2009 09:37 |