Вопрос по информатике:
Помогите перевести код с Паскаля на си. Пожалуйста
var
b,uroven, chislo, popytki, number, max :integer;
begin
randomize;
writeln('###############################');
writeln('##### Игра "Угадай число" #####');
writeln('###############################');
repeat
writeln;
uroven:=0;
popytki:=0;
while (uroven<1) or (uroven>4) do //Защита от неправильно введенного уровня
begin
writeln('Выберите уровень сложности:');
writeln('1 - Числа от 1 до 10, 3 попытки');
writeln('2 - Числа от 1 до 50, 5 попыток');
writeln('3 - Числа от 1 до 100, 8 попыток');
writeln('4 - Числа от 1 до 1000, 15 попыток');
readln(uroven);
end;
if uroven =1 then begin chislo:=random(10)+1; max:=3 end;
if uroven =2 then begin chislo:=random(50)+1; max:=5 end;
if uroven =3 then begin chislo:=random(100)+1; max:=8 end;
if uroven =4 then begin chislo:=random(1000)+1; max:=15 end;
repeat
inc(popytki);
write('Попытка ',popytki,' Ваше число? ');
read(number);
if number>chislo then writeln(' Я загадал число поменьше') else
if number writeln('Вы угадали!')
until (chislo=number)or(popytki=max);
if (chislo<>number)and(popytki=max)then writeln('К сожалению, Вам не удалось отгадать число. Я загадал ',chislo);
writeln('Хотите сыграть еще раз? Если да, введите 1, если нет, то 0');
readln(b);
until b=0;
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.09.2016 14:54
- Информатика
- remove_red_eye 18675
- thumb_up 18
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.