VPF::Перевод кода из Pascal в C++ - Форум программистов

Varg654

Дата 17.5.2011, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 17.5.2011

Репутация: нет
Всего: нет

Народ,помогите перевести коды(могут быть ошибки) для данных задач из паскаля в С++

Задача:

Даны две дроби A/B и C/D (А, В, С, D — натуральные числа).
Составить программу для умножения дроби на дробь. Результат
должен быть несократимой дробью.

Код :

Код

procedure (var a:integer;var b:integer;var del:integer);
 var
 ost:integer;
 begin
 repeat

 ost:=a mod b;
 a:=b;
 b:=ost;
 if b<>0 then del:=ost;

 until ost=0 ;
 end;

Задача 2:Найти все натуральные л-значные числа, цифры в которых
образуют строго возрастающую последовательность (например,
1234, 5789).

Код:

Код

program unique;
 
const k=10; //константа определяет количество вводимых символов
 
var
a: array[1..k] of integer;
i: integer;
n: byte;
 
procedure Check(arr: array of integer; num: byte); //нужная процедура
var
S: string;
i: integer;
c: byte;
begin
for i:= 1 to k do  // С первого по последний элемент массива
if length(inttostr(arr[i]))=n then // если длина числа равна заданной
begin
S:=inttostr(arr[i]); //переводим число в строку
for c:=2 to num do // и со второго символа числа проверяем
if S[c]<=S[c-1] then break //если предыдущий символ меньше либо равен
//текущему, выходим из цикла
else if c=num then write(S,' '); // иначе если текущий символ - последний
//пишем число
end;
end;
 
begin
Writeln('Введите ',k,' чисел');
for i:= 1 to k do Read(a[i]);
writeln;
Writeln('Введите количество символов в числе');
Readln(n);
Check(a,n);
end;

Модератор: Не забываем пользоваться кнопочкой код

Это сообщение отредактировал(а) bsa - 17.5.2011, 22:45

borisbn

Дата 17.5.2011, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: нет
Всего: 135

Цена вопроса?

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

Varg654

Дата 17.5.2011, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 17.5.2011

Репутация: нет
Всего: нет

все ровно

borisbn

Дата 17.5.2011, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: нет
Всего: 135

Цитата(Varg654 @ 17.5.2011, 19:52

)

все ровно

т.е. если я озвучу, к примеру, 15 КРуб, то тебя это устроит ?

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Объявления о найме специалистов \| Следующая тема »