Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод кода с Pascal в C++

Ответить
Настройки темы
C/C++ - Перевод кода с Pascal в C++

Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Помогите пожалуйста перевести из 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.

Отправлено: 21:37, 19-05-2013

 

Аватара для deviance

Пользователь


Сообщения: 123
Благодарности: 43

Профиль | Отправить PM | Цитировать


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' );
}

Последний раз редактировалось deviance, 20-05-2013 в 00:25.

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:08, 19-05-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для CyberDaemon

DOOMer


Сообщения: 3254
Благодарности: 438

Профиль | Отправить PM | Цитировать


Цитата Sprint116:
Введите 2, если число четное или 2, если число нечетное »
или 2, если оно отрицательное или 2, если оно равно нулю

-------
"640 K ought to be enough for anybody" Bill Gates, 1981


Отправлено: 20:21, 20-05-2013 | #3


Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

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

Отправлено: 22:02, 21-05-2013 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод кода с Pascal в C++

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Перевод С++ в Pascal CJ F.A.N. Программирование и базы данных 2 12-04-2012 05:53
C/C++ - Перевод кода с Pascal в C++ Dima91 Программирование и базы данных 5 02-03-2012 01:17
C/C++ - Перевод с Pascal на C++ Ru1nN Программирование и базы данных 0 21-12-2011 22:45
C/C++ - Перевод кода PASCAL в C++. Jooker666 Программирование и базы данных 0 06-05-2011 14:02
C/C++ - Перевод кода с Pascal -> C++ 2008kedr2008 Программирование и базы данных 7 26-11-2010 19:10




 
Переход