Главная

Программа "Угадай число" с использованием только оператора ветвления

чт, 11/21/2013 - 01:01 — tech
Задача: 

Угадать число, которое загадал пользователь, используя только инструкцию if-else.

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

var       
        n: char;
begin
        write('Think of a number of from 1 to 5 and press Enter');
        readln;
 
        write('The number more then 3? (y/n) '); readln(n);
        if n = 'y' then begin
                write('The number is 4? (y/n) '); readln(n);
                if n = 'n' then
                        writeln('The number is 5.');
        end
        else begin
                write('The number is 1? (y/n) '); readln(n);
                if n = 'n' then begin
                        write('The number is 2? (y/n) '); readln(n);
                        if n = 'n' then
                                writeln('The number is 3.');
                end;
        end;
        writeln('Guessed!');
end.

Варианты выполнения программы:

Think of a number of from 1 to 5 and press Enter
The number more then 3? (y/n) n
The number is 1? (y/n) n
The number is 2? (y/n) n
The number is 3.
Guessed!

Think of a number of from 1 to 5 and press Enter
The number more then 3? (y/n) y
The number is 4? (y/n) y
Guessed!

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