Write a program that lets you know if you can have a key or not, based on your role at the school.
First ask for the user’s role at the school. They can be a student, administrator, or a teacher. (And remember that capitalization is important! ‘Student’ is not the same as ‘student’.)
Example 1: Administrator or Teacher
For example, if this was the input:
Are you an administrator, teacher, or student?: teacher
This should be the output:
Administrators and teachers get keys!
Example 2: Student
And if this was the input:
Are you an administrator, teacher, or student?: student
This should be the output:
Students do not get keys!
(Note: You should also be able to handle a situation where the user enters a value other than administrator, teacher or student and tell them they must be one of the three choices!)
Example 3: Other
If they input anything else:
Are you an administrator, teacher, or student?: secretary
This should be the output:
You can only be an administrator, teacher, or student!
Эти прямые, записанные как функции f(x):
f1(x) = ax + b
f2(x) = cx + d
В точке пересечения прямых значения функций равны. Поэтому, приравняем их друг другу и решим получившееся уравнение:
ax + b = cx + d
ax — cx = d — b
(a — c)*x = d — b
x = (d — b) / (a — c)
Так находится координата икс точки пересечения. Далее находится игрек простой подстановкой найденного значения икс в любую из двух исходных функций (пускай в первую функцию).
Также, возможны частные случаи, которые надо предусмотреть в программе:
1) Если a = c но b ≠ d. Такие прямые параллельны друг другу, и не имеют точек пересечения. При попытке решения уравнения (см.выше) иксы сократятся, и получится всегда (при любом икс) неверное равенство вида 0 = b — d.
2) Если a = c и b = d. То есть, были введены одинаковые уравнения прямых (задана дважды одна и та же прямая, т.е. все точки этих уравнений совпадают). При попытке решения уравнения (см.выше) иксы сократятся, и b, d -тоже, и получится всегда (при любом икс) верное равенство вида 0 = 0.
Сама программа (на Паскале):
var
x, y, a, b, c, d: real;
begin
Writeln(‘Ввод коэффициентов уравнений двух прямых:’);
Write(‘a= ‘);
Read(a);
Write(‘b= ‘);
Read(b);
Write(‘c= ‘);
Read(c);
Write(‘d= ‘);
Read(d);
if a = c then
begin
if b = d then
Writeln(‘Задана дважды одна и та же прямая. Все точки совпадают.’)
else
Writeln(‘Заданы параллельные прямые. Точек пересечения нет.’);
exit
end;
x := (d — b) / (a — c);
y := a * x + b;
Writeln(‘Координаты точки пересечения прямых:’);
Writeln(‘x= ‘, x);
Writeln(‘y= ‘, y);
end.