Перевод кода из Pascal в C++

[Kerragin]

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

Задача:

Даны две дроби 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;

[Kulikcha]

Первая задача в переводе на с++ будет такая

void num(int a,int b,int del) {
int ost;
while(ost == 0) {
ost = a%b;
a = b;
b = ost;
if(b != 0) 
{
del = ost;
}

Вот первый код. Со вторым придётся немного повозиться.

[MooNDeaR]

Вот код для второй задачи:

#include <iostream>
#include <string>
#include <cstdlib>
#include <clocale>
using namespace std;

const int k = 10;
void check(string* arr, int num)
{
	
	for(int i = 0; i < k; ++i)
	   if(arr[i].length()==num)
	      for(int c = 1; c < num; ++c)
		  if(arr[i][c] <= arr[i][c-1]) break;
			  else
		  if(c == (num-1)) cout << arr[i] << endl;
}


int main()
{
	setlocale(0,"");
        string a[k];
        cout << "Введите " << k << " чисел:" << endl;
	for(int i = 0; i < k; ++i)
		cin >> a[i];
        int n;
        cout << "Введите число разрядов: ";
        cin >> n;
	check(a,n);
	system("PAUSE");
}

По хорошему неплохо бы сделать проверку на 2 минуса и 2 точки, но было так лень.

[rrrFer]

первую посмотрел...зачем там цикл не понял.
Не претендую на оптимальность, но:

#include <iostream>
int main( ) {
	int		a, b, c, d;
	
	std ::cin >> a >> b >> c >> d;

	a *= c;
	b *= d;

	if( 0 == b ) {
		std ::cerr << "Error: devision by zero" << std ::endl;
		return 1;
	}

	c = a / b;
	a %= b;

	std ::cout << c << " + " << a << "/" << b << std ::endl;

	return 0;
}

так будет лучше чем было

[KAIIUK]

Доброго времени суток, можете ли перевести программу из C в паскаль?
http://codepad.org/YJfg3045

[rrrFer]

KAIIUK
если вы у меня спрашиваете - то нет