Книга Михаель Кофлер Linux Полное руководство 2010
Задача: У Водолея имеется две емкости А (7 л) и В (17 л). Необходимо отмерить 1 литр воды, чтобы он находился в 1) в емкости А 2) в емкости В
Ответ №1:
1. Налей в сосуд А
2. перелей из сосуда А в сосуд В
3. налей в сосуд А
4. перелей из сосуда А в сосуд В
5. налей в сосуд А
6. перелей из сосуда А в сосуд В
7. вылей из сосуда В
8. перелей из сосуда А в сосуд В
9. налей в сосуд А
10. перелей из сосуда А в сосуд В
11. налей в сосуд А
12. перелей из сосуда А в сосуд В
Program ABC;
Uses CRT;
var
a,b:real;
c:char;
begin
ClrScr;
repeat
Writeln('la-la-la');
Write('Если хотите вычислить сумму, то нажмите С,');
Writeln(' произведение- D, операцию деления -E ');
Writeln('Для завершения работы нажмите Q');
c:=ReadKey;
case c of
'C','c':begin
Write('Сложение: введите слагаемые: '); Read(a,b);
Writeln('Сумма равна ',a+b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'D','d':begin
Write('Умножение: введите сомножители: '); Read(a,b);
Writeln('Произведение равно ',a*b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'E','e':begin
Write('Деление: введите делимое и делитель: '); Read(a,b);
Writeln('Частное равно ',a/b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'Q','q':;
else begin
Writeln(#13#10,'Error, please enter C, E or D',#13#10);
end
end;
until c in ['Q','q'];
Writeln('Ждем Вас снова!');
Readkey
end.
Наличие необходимого снаряжения: палатки, котелка, консерв, воды, карты, компаса, КЛМН и т.д.
Благоприятная погода на неделю.
Наличие/отсутствие опасностей.
Дальше в зависимости от местности где лес.
//А каким боком это к информатике?
Весь программный код находится в прикреплённом файле, желательно протестировать его на заранее просчитаных значениях. Если возникнут какие-то вопросы по коду, напишите мне и я Вам с удовольствием помогу.