Совместить 8 задач в одну - Turbo Pascal
Формулировка задачи:
ребят нужно совместить 8 задач в 1 и так чтобы работала помогите пожалуйста!!!
1
2
3
4
5
6
7
8
Решение задачи: «Совместить 8 задач в одну»
textual
Листинг программы
uses crt; procedure p1; function st(u,r:real; var n:real):real; var a:real; begin u:=(180-u)*pi/180; a:=sqrt(2*r*r-2*r*r*cos(u)); n:=a/2/sin((pi-u)/2); end; var u1,u2,u3,r,a1,a2,a3:real; begin clrscr; {начало каждой программы} write('Vvedite ugly i radius: '); repeat readln(u1,u2,u3,r) until u1+u2+u3=180; st(u1,r,a1); st(u2,r,a2); st(u3,r,a3); u1:=a1+a2; u2:=a2+a3; u3:=a3+a1; write('a=',u1:0:10,' b=',u2:0:10,' c=',u3:0:10); readln; {конец каждой программы} end; procedure p2; var xa,ya,xb,yb:integer; begin clrscr; writeln('Введите координаты вектора A'); readln(xa,ya); writeln('Введите координаты вектора B'); readln(xb,yb); if xa*xb=ya*yb then write('Векторы перпендикулярны') else if xa/yb=ya/xb then write('Вектора коллинеарны') else write('Вектора никакие'); readln; end; procedure p3; begin end; procedure p4; begin end; procedure p5; begin end; procedure p6; begin end; procedure p7; begin end; procedure p8; begin end; var w:byte; begin clrscr; repeat clrscr; writeln('Выберите действие'); writeln('1-????'); {здесь пишете названия программ} writeln('2-????'); writeln('3-????'); writeln('4-????'); writeln('5-????'); writeln('6-????'); writeln('7-????'); writeln('8-????'); writeln('9-выход'); repeat readln(w); until w in[1..9]; case w of 1:p1; 2:p2; 3:p3; 4:p4; 5:p5; 6:p6; 7:p7; 8:p8; 9:exit; end; until w=9; end.
Объяснение кода листинга программы
- В процедуре p1 используется функция st, которая принимает на вход углы u и r, и возвращает значение n, которое представляет собой нормаль к плоскости, проходящей через начало координат и точку с координатами (u,r).
- Переменные a1, a2, a3, u1, u2, u3, r используются для хранения значений, полученных в результате вычислений функции st.
- В процедуре p2 используется формула для определения перпендикулярности векторов A и B. Если векторы перпендикулярны, то выводится сообщение
Векторы перпендикулярны
. Если векторы коллинеарны, то выводится сообщениеВектора коллинеарны
. Если векторы никакие, то выводится сообщениеВектора никакие
. - В процедуре p3, p4, p5, p6, p7, p8 и p9 нет никакого действия, они просто оканчиваются точкой.
- В процедуре p10 используется цикл repeat-until для чтения ввода пользователя. Пользователю предлагается ввести числа от 1 до 9 для выбора действия.
- В процедуре p11 используется оператор case для выбора соответствующей программы в зависимости от введенного пользователем числа.
- В процедуре p12 используется оператор end для завершения программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д