Поделитесь своими знаниями, ответьте на вопрос:
В конструкторском бюро работают Антонов, Борисов, Кириллов и Дроздов. Все хотят отдыхать летом, и поэтому при составлении графика отпусков всегда возникают бесконечные споры. Попробуйте со¬ставить график отпусков на 4 года, который бы удовлетворял следующим пожеланиям сотрудников: 1. в отпуск сотрудники хотят идти только с мая по август; 2. продолжительность отпуска — один месяц; 3. в каждом месяце в отпуск может пойти только один человек; 4. за четыре года каждый из четырех сотрудников должен получить отпуск по одному разу в каждом из этих месяцев; 5. в первый год Кириллов хочет отдыхать в июле; 6. во второй год Антонову отпуск нужен в мае; 7. в третий год Дроздову отпуск нужен в июне; 8. Борисов на четвертый год предполагает уйти в отпуск в июле; в августе все хотят отдыхать следующим образом: в первый год — Дроздов, во второй — Кириллов, в третий — Борисов, в четвертый — Антонов. Требуется определить, кто есть кто.
1. Описываем нужные нам переменные - это будут стороны прямоугольника a и b. Поскольку нигде ничего о размерах сторон не сказано, придется предположить, что они не обязательно будут целыми , мы опишем эти переменные, как вещественные (real), что позволит работать и с нецелыми значениями.
2. Из геометрии нам известны формулы периметра прямоугольника P=2 x (a+b) и площади прямоугольника S=a x b. Можно описать переменные P, S (тоже real), но смысла в этом нет, поскольку значения P и S нужны только для вывода результатов, так что проще написать нужные выражения непосредственно в операторе вывода.
3. Итак, с описанием переменных закончили, можно начинать основную программу ключевым словом begin. И сразу же пишем к нему завершающий end с точкой на конце - таковы правила языка Паскаль. Вся программа размещается между двумя этими ключевыми словами.
4. Сначала организуем ввод. Это два оператора. Первый оператор выводит так называемое "приглашение" - сообщает о том, что нужно ввести. Второй оператор - это сам ввод.
5. А теперь, как было сказано выше, организуем вывод результатов. Все это сделает один оператор вывода. Программа готова!
var
a, b: real;
begin
Write('Введите стороны прямоугольника: '); Readln(a, b);
Writeln('Периметр равен ', 2 * (a + b), ', площадь равна ', a * b)
end.
Тестовое решение:
Введите стороны прямоугольника: 4 3.16
Периметр равен 14.32, площадь равна 12.64