Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Перевод кода с Pascal в C++ (http://forum.oszone.net/showthread.php?t=260867)

Sprint116 19-05-2013 21:37 2152699

Перевод кода с Pascal в C++
 
Помогите пожалуйста перевести из Pascal в C++
Код:

Program Chet;
Uses crt;
Var
flag : char;
x, b, y, i: integer;
Begin
clrscr;
randomize;
x:=random(99);
If  x mod 2=0  then  b:= 2  else b:= 1;
repeat
writeln('Введите 2, если число четное или 2, если число нечетное');
readln (y);
begin;
if y>2 then
writeln('Введите 2 или 1!');
end;
writeln('Число компьютера',x);
If y=b then
writeln('Вы угадали')
else writeln('Вы не угадали');
Writeln('Еще раз (Y/N) ?');
readln(flag);
Randomize;
For i:=1 to 10 do
x:=random(99);
Writeln('_______________________________________________________');
until upcase(flag)<>'Y';
end.


deviance 19-05-2013 22:08 2152715

Sprint116,
Код:

#include <stdio.h>
#include <stdlib.h>
#include <locale.h>

int main()
{
    char flag;
    int x, b, y, i;
   
    setlocale(LC_ALL, NULL);
    srand(time(NULL));
    x = rand();
    b = x % 2 ? '1' : '2';

    do {
        system("cls");
        puts("Введите 2, если число четное или 2, если число нечетное");
        fflush(stdin);
        y = getc(stdin);
        if ( y > '2' ){
            puts("Введите 2 или 1!");
            continue;
        }
        printf("Число компьютера %d\n", x);
        if ( y == b){
            puts("Вы угадали");
        } else {
            puts("Вы не угадали");
        }
        puts("Еще раз (Y/N) ?");
        fflush(stdin);
        flag = getc(stdin);
        for (i = 0; i < 10; i++){
            x = rand()%99;
            puts("_______________________________________________________");
        }
    } while ( flag == 'Y' || flag == 'y' );
}


CyberDaemon 20-05-2013 20:21 2153157

Цитата:

Цитата Sprint116
Введите 2, если число четное или 2, если число нечетное »

или 2, если оно отрицательное или 2, если оно равно нулю
:)

Sprint116 21-05-2013 22:02 2153753

deviance
Спасибо большое :)

CyberDaemon
Торопился просто :)
Вот как должно быть:
"Введите 2, если число четное или 1, если число нечетное"


Время: 09:58.

Время: 09:58.
© OSzone.net 2001-