Главная

Программа "Угадай число"

чт, 02/10/2011 - 21:17 — tech
Темы учебника
Вложенные конструкции if-else
Генератор псевдослучайных чисел
Циклы в Паскале
Задача: 

Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.

Описание переменных: 

a – число, "загаданное" компьютером;
b – очередное число, вводимое пользователем.

Алгоритм решения задачи: 

Программа генерирует псевдослучайное число, которое записывается в переменную a.

Пока число a не совпадет с числом b, пользователю будет предлагаться ввести очередное число. При этом, если b > a, то на экран будет выдаваться сообщение "Много". Иначе будет проверяться условие b

Не трудно понять, что если b не больше и не меньше a, то значит оно равно a. В таком случае логическое выражение при while вернет false, и цикл прервется.

Программа на языке Паскаль:  

var
    a,b: integer;
 
begin
    randomize;
    a := random(100);
 
    while a  b do begin
        write('Введи число: ');
        readln(b);
        if b > a then
            writeln('Много')
        else
            if b then
                writeln('Мало')
            else
                writeln('Угадал');
    end;
 
readln
end.

Примечания: 

Угадать число всегда можно не более чем через 6-7 попыток, если делить каждый оставшийся диапазон пополам.

  • Добавить комментарий

Комментарии

сб, 11/02/2013 - 00:19 — Гость

А я так

А я так сделал.Работает.

label
     goback;
var
   a:integer;
   b:integer;
begin
     randomize;
     a:=random(10);
 
     goback:
     writeln('ââåäèòå ÷èñëî îò 1 äî 10');
     readln(b);
 
     if athen writeln('ìíîãî');
     if a>b then writeln('ìàëî');
     if ab then goto goback;
     if a=b then write ('Òû óãàäàë!')
end.

  • ответить
Втр, 10/29/2013 - 20:02 — Гость

Записать программу на языке

Записать программу на языке Паскаль подсчитывающую количество четных и не четных цифр в числе.

  • ответить
пт, 12/27/2013 - 20:46 — Гость

Ответ

program one;
var
a:string;
b,c,i:integer;
begin
readln(a);
for i:=1 to length(a) do
begin
if (strtoint(a[i]) mod 2=0) then b:=b+1
                          else c:=c+1;
 
  end;
 writeln(b);
 writeln(c);
end.

  • ответить
ср, 10/30/2013 - 00:50 — tech

Это простая задача. По сути

Это простая задача. По сути на операции div и mod. На этом сайте есть аналогичные.

ЗДЕСЬ

  • ответить
чт, 12/06/2012 - 18:43 — Гость

else - ненужно,,сам проверял

else - ненужно,,сам проверял

  • ответить