Поиск по разделу «Программирование»

Таблица решений

Pas.0007. Используя две задаваемых переменных doesHeKnowSubject и doesHeKnowHimself, которые принимают 0, если «не знает», и 1, если «знает», напишите программу, выдающую рекомендацию в соответствии с арабской пословицей:

Если человек не знает и он не знает, что не знает, избегай его.
Если человек не знает и он знает, что не знает, научи его.
Если человек знает и он не знает, что знает, разбуди его.
Если человек знает и он знает, что знает, иди за ним.
Решение.
program SmartRecomendation;

var
    doesHeKnowSubject, doesHeKnowHimself : boolean;
    recomendations: array[0..1, 0..1] of string = (
        ('избегай его', 'научи его'),
        ('разбуди его', 'иди за ним'));

begin

    doesHeKnowSubject := false;
    doesHeKnowHimself := true;
 
    writeln('Does he know subject? ', doesHeKnowSubject);
    writeln('Does he know himself? ', doesHeKnowHimself);
    write(
        'Рекомендация: ',
        recomendations[
            Integer(doesHeKnowSubject), Integer(doesHeKnowHimself)],
        '!');

end.
Консоль. 
Does he know subject? False
Does he know himself? True
Рекомендация: научи его!
Ярлыки: ,