МАТЕМАТИЧЕСКИЕ ОСНОВЫ ИНФОРМАТИКИ
Четверг, 17.01.2019, 16:49
ГлавнаяРегистрацияВход Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Линейный алгоритм [2]
Условный оператор if [3]
Оператор выбора [1]
Операторы цикла [2]
Целочисленное деление div и mod [2]
Генератор случайных чисел [1]
Практика [5]
Это интересно [2]
ЗАДАНИЕ 3 [1]

Наш опрос
Какой язык программирования Вы изучаете
Всего ответов: 954

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа


Главная » Файлы » ВИДЫ АЛГОРИТМОВ » Практика

3.2 Угадай число
19.12.2012, 22:47

3.2 Угадай число

Стратегия игры:

Компьютер задумал число, человек предлагает свой вариант, компьютер сравнивает это число со своим и сообщает больше, меньше или угадал.

var a,b,p, m: real;

k: integer;

begin

cls;

randomize;

a:=1;

b:=100;

p:= int((random*b)+a);

writeln (p);

 

writeln ('компьютер задумал число от 1 до 100, угадай его ');

while p<> k do

begin

read (k);

if p = k then writeln ('молодец');

if p > k then writeln ('задуманое число больше');

if p < k then writeln ('задуманое число меньше');

end;

end.

 

 

 

 

Вариант с подсчетом угадываний:

var a, z, k: real;

begin

cls;

randomize;

z:= INT(RanDom * 100 + 1);

writeln ('угадай число от1 до 100');

 WHILE z <> a DO

 begin

 

writeln  ('Введите число a ');

readln (a);

IF a < z THEN writeln ('Задуманное число больше ');

IF a > z THEN writeln  ('Задуманное число меньше ');

 k:= k + 1;

end;

writeln ('"Угадал за   ', k, ' попыток');

end.


ЗАДАНИЕ

В примере, выше, использован цикл  WHILE  с  предусловием для возможности нескольких угадываний в игре, напиши свою программу игры "Угадай число", используя операторы цикла FOR и REPEAT...UNTIL.

Категория: Практика | Добавил: i_elf
Просмотров: 1534 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

Друзья сайта
  • Творческий учитель
  • Сайт ООАКМР
  • Школьный сайт
  • Информатика учебник
  • МОИ

  • Copyright MyCorp © 2019 Сделать бесплатный сайт с uCoz