перевод на с++ Опции

[Feagor]

вот такой код на паскале

uses crt;
var k,l,m,i:longint;
function rif(n,m:longint):boolean;
var i:integer;
begin
        repeat
          inc(i);
          if odd(n) then n:=n*3+1
          else n:=n div 2;
        until (n=1) or (i>=m);
if i>=m then rif:=false
else rif:=true;
end;
begin
clrscr;
Writeln('Vvedite natural''nie chisla K,L,M');
readln(K,l,m);
if (k<0) or (l<0) or (k>l) or (m<0) then
        begin
          writeln('Vvedennie vami chisla ne vvedeni nepravilno');
          readkey;
          halt;
        end;
for i:=k to l do if rif(i,m)=true then writeln('dlya chiisla ',i,' vipolnjaetsa')
else writeln('dlya chiisla ',i,' ne vipolnjaetsa');
readkey;
end.

че-то на с перевожу ниче не полчается, помогите плиз!!!!!

Сообщение отредактировано: Feagor - 24.01.2008 22:11

[volvo]

Feagor, а ничего что твоя программа на Паскале будет возвращать мусор? Вот перевод, подкорректированный в соответствии с замечанием. Что было добавлено - посмотри внимательно...

#include <iostream>
#include <conio.h>

bool rif(long n, long m) {
    int i = 0;
    do {
        n = ((n % 2)) ? (3 * n + 1): (n / 2);
    } while((n != 1 && ++i < m));
    
    return (bool)(i < m);
}

int main() {
    int K, L, M;

    std::cout << "Vvedite natural''nie chisla K,L,M" << std::endl;
    std::cin >> K >> L >> M;
    if( K < 0 || L < 0 || K > L || M < 0) {
        std::cout << "error" << std::endl;
        return -1;
    }
    
    for(int i = K; i <= L; ++i)
      std::cout << "dlya chiisla " << i << ((rif(i, M)) ? "":"ne") << " vipolnjaetsa" << std::endl;
    getch();
    return 0;
}