Программа: Игра Угадай число - Turbo Pascal

  1. Пожалуйста, срочно!((( нужна программа по блок-схеме.


textual

Код:

Var
  x,y,a,b: Integer;
BEGIN
Writeln('Игра "Угадай число".');
Writeln('Введите диапазон (2 числа) Певрое число должно быть меньше второго: ');
Repeat
  Write('Первое число: ');
  Readln(a);
  Write('Второе число: ');
  Readln(b);
  If a>=b Then
  Writeln('Первое число должно быть меньше. Повторите');
until a<b;
y:=Random(b-a+1)+a;
Writeln('Компьютер загадал некоторое число, отгадайте его');
Writeln('Вводите число до тех пор, пока не угадаете');
Repeat
  Readln(x);
  If x>y Then
  Writeln('Ваше число больше');
  If x<y Then
  Writeln('Ваше число меньше');
until x=y;
Writeln('Вы угадали');
Readln
END.


Похожие ответы
  1. В детском саду готовятся к Новогоднему празднику. Дед Мороз, известный всем своей незаурядностью, придумал для детей новый конкурс. У Деда Мороза имеется мешок с N фишками. Каждый раз Дед Мороз выбирает из группы двоих детей, каждый из которых извлекает из мешка Деда Мороза одну фишку. Ребенок, который извлек фишку с большим номером, получает от Деда Мороза конфеты в количестве, равном числу, написанному на его фишке, второй ребенок не получает ничего. После вручения конфет фишка с большим номером остается у ребенка, а фишка с меньшим номером возвращается обратно в мешок. Игра продолжается до тех пор, пока в мешке находится не менее двух фишек. Из пяти фишек были вытянуты фишки с числами 5 и 4, было получено 5 конфет (фишка выделена цветом), фишка с числом 4 была возвращена в мешок. Деду Морозу необходимо определить максимальное количество конфет, которое могут получить игравшие дети. Ваша задача – помочь Дедушке в этом нелегком вопросе. Входные данные Первая строка входного файла содержит одно целое число N (2 ≤ N ≤ 1000), которое определяет число фишек в мешке Деда Мороза. Вторая строка входного файла содержит ровно N различных целых чисел Ai (1 ≤ Ai ≤ 32767). Числа в строке разделяются одиночными пробелами. Ai – число, написанное на i-й фишке. Выходные данные Единственная строка выходного файла содержит одно целое число – максимально возможное количество конфет, которые могут получить игравшие дети. input.txt 2 7 3 7 output.txt 5 2 5 3 4 7 19

  1. Напишите процедуру для вычисления значения y. у = 2x^2, если x ≤ 1, y = x+1/3, если 1 ≤ x≤8, y = √sin^2 x, если x ≥ 8.

  1. Постановка:Игра в числа Никифор и Трофим играют в следующую игру: они написали на доске натуральное число, не превосходящее 2000000000, и по очереди делают ходы, причем первым ходит Никифор. Ход состоит в том, что из написанного на доске числа вычитается любая его ненулевая цифра, и новое число записывается на доске вместо старого. Например, если на доске написано число 40534, то следующим числом может быть 40530, 40531 и 40529. Выигрывает тот, кто напишет число ноль. Напишите программу, которая определяет, кто выигрывает при наилучшей игре противников. Входные данные На входе содержится единственное число, с которого начинается игра. Выходные данные На первой строчке следует вывести 1 если выиграет Никифор и 2 в противном случае. Если выигрывает Никифор, то во вторую строку должен быть выведен первый ход, обеспечивающий выигрыш. Если таких ходов несколько, то достаточно вывести любой из них.Пример Входные данные: 14 Выходные данные: 1 4 2 Вариант: Входные данные: 300 Выходные данные: 2 7Мне кода не надо. Просто понять по какому принципу будет назначаться следующие число. Или это с клавы?

  1. Нужно составить программу определения задуманного ЧЕЛОВЕКОМ числа от 1 до 1000 с помощью 10 вопросов. Каждый вопрос имеет вид "верно ли, что задуманное число больше k?". При этом указывается конкретное число k. Ответами человека могут быть Д и Н. -- Видел много подобных заданий, но в них человек пытается угадать число. А здесь компьютер. Стало интересно как реализовать.

  1. Появилась необходимость написать примитивную игру в текстовом режиме. В процессе разработки наткнулся на такую проблему: при движении змейки прорисовывается только 1 элемент. вот код:

  1. Нужно написать программу, используя 3-х значные числа(325 и т.д) при этом использовать - рандом. После этого, как программа загадает число, дается 3 попытки угадать число. Допустим программа загадала 325 числа, вы вводим 765 и программа выдает: Названо верное кол-во чисел: 1 На своем месте: 1 Дается 3 шанса, чтобы отгадать число

  1. прошу вашей помощи, помогите пожалуйста нарисовать в турбо паскале шестигранную пирамиду в 3d пространстве

  1. Задать цвет фона розовый, цвет фигуры - серый, фигура в виде буквы Z. Клавишами управления курсором двигать фигуру по экрану.

  1. Здравствуйте!Я только начинающий поэтому прошу сильно не бросаться камнями в мою сторону.Прошу вашего дельного совета то бишь помощи.Смысл проблемы- есть задача и есть решение( возможно слегка корявое) нужно - подсказать как оптимизировать код (если возможно) или как можно решить по другому.Буду рад любым советам!! Условие задачи: "С использованием датчика случайных чисел в программе загадывается в диапазоне 0..100. на отгадывание числа дается 10 попыток. играющий вводит каждый раз очередное число. после каждого ответа программа выводит на экран одно из сообщений - больше, меньше или угадано, в зависимости от числа, введенного пользователем. цикл завершается при выполнении одного из двух условий: либо число попыток достигло 10, либо дан привильный ответ." Мое решение: