Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Рекурсивная функция https://www.cyberforum.ru/pascalabc/thread1326015.html
Помогите пожалуйста вычислить величину Y, где n,m- неотрицательные целые числа. Y=(2n+1)!!\frac{(2m+1)!!}{(2(m+n)+1)!!} Для определения (2k+1)!! использовать рекурсивную функцию.
Pascal ABC Составить программу, отыскивающую наименьший общий составной делитель натуральных чисел N и М
составить программу, отыскивающую наименьший общий составной делитель натуральных чисел N и М. Добавлено через 2 минуты как ее составить,помогите пожалуйста
Программирование разветвляющегося процесса Pascal ABC
Здравствуйте. Нужна помощь...ума не приложу как это делать. 91 вариант. Задания в картинках.
Pascal ABC Моделирование непрерывных истоников сообщений Добрый день! помогите пожалуйста! Нужно смоделировать непрерывный источник сообщений и произвести вычисление оценок его основных статистических характеристик: xmax, xmin, M(x), D(x) и σ(х).... https://www.cyberforum.ru/pascalabc/thread1325942.html
Pascal ABC Поиск суммы положительных четных чисел и ошибка "Ожидался оператор" https://www.cyberforum.ru/pascalabc/thread1325914.html
Выдает ошибку,где"у", Встречено ':=', а ожидался оператор var q:real; t,i,y:integer; s:extended; begin writeln('vvedite kol-vo elementov'); readln(t); s:=0: y:=0;
Pascal ABC Чем отличается drawcircle(x1,x2); и circle(x1,x2); ?
Чем отличается drawcircle(x1,x2); и circle(x1,x2);
Pascal ABC Сортировка двумерного массива слиянием
Упорядочьте элементы строк массива по убыванию модулей элементов методом слияния. заранее спасибо)
Pascal ABC Дан текстовый файл. Записать во второй файл самую длинную последовательность подряд идущих строк первого Дан текстовый файл. Записать во второй файл самую длинную последовательность подряд идущих строк первого файла с возрастающей длиной. https://www.cyberforum.ru/pascalabc/thread1325771.html
Pascal ABC Дан текстовый файл. Переписать в другой файл все строки, читающиеся одинаково с начала и с конца https://www.cyberforum.ru/pascalabc/thread1325770.html
Дан текстовый файл. Переписать в другой файл все строки, читающиеся одинаково с начала и с конца.
Pascal ABC Дан файл чисел. Заменить подряд идущие одинаковые числа одиночными Дан файл чисел. Заменить подряд идущие одинаковые числа одиночными. https://www.cyberforum.ru/pascalabc/thread1325768.html
krasy
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 29
0

Вычислить угол между двумя прямыми, заданными уравнениями a1x+b1y+c1z=0 и a2x+b2y+c2z=0

10.12.2014, 20:46. Просмотров 302. Ответов 0
Метки (Все метки)

Я попыталась написать программу, но что-то, видимо, не так. Решить ее нужно с помощью процедуры или функции. Помогите пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type st=record
     a1,a2,b1,b2,c1,c2:real;
     end;
procedure vvod(var p:st; s:char);
begin
writeln('Введите уравнение ',s); 
writeln('введите а1: ');readln(p.a1);
writeln('введите а2: ');readln(p.a2);
writeln('введите b1: ');readln(p.b1);
writeln('введите b2: ');readln(p.b2);
writeln('введите c1: ');readln(p.c1);
writeln('введите c2: ');readln(p.c2);
end;
function tg(p:st):real;
var ug:real;
begin
tg:=abs((p.a1*p.b2-p.a2*p.b1)/(p.a1*p.a2+p.b1*p.b2));
ug:=arctan(tg);
end.


Вернуться к обсуждению:
Вычислить угол между двумя прямыми, заданными уравнениями a1x+b1y+c1z=0 и a2x+b2y+c2z=0
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2014, 20:46
Готовые ответы и решения:

Вычилить угол в градусах между двумя прямыми, заданными уравнениями
Вычислить угол в градусах между двумя прямыми,заданными уравнениями a1x+b1y+c1z=0 и a2x+b2y+c2z=0 ...

Найти угол между двумя прямыми в пространстве заданными каноническими уравнениями
Написать подпрограмму на паскале в стиле защитного программирования. Желательно составить полную...

Организовать разветвляющийся процесс для решения следующих задач Определить будут ли прямые A1x+B1y+C1 и A2x+B
Организовать разветвляющийся процесс для решения следующих задач Определить будут ли прямые...

Найти угол между заданными прямыми
Даны две прямые y=a1x+b1 и y=a2x+b2. Определить, являются ли эти прямые параллельными или...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.