Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Файлы https://www.cyberforum.ru/ pascal/ thread193847.html Всем привет! Помогите пожалуйста решить задачу на файлы: Дан файл f, элементы которого являются целыми числами. Записать в файл g все чётные числа файла f, а в файл h все не чётные. Порядок следования чисел сохраняется. Заранее большое спасибо!!!!!!	Процедуры и функции Pascal Всем привет вот задали задачку сделать а у меня чет ничего выходит Задачи: 1-Используя функцию преобразующую дробь a/b к несократимому виду 2-Описать процедуру заменяющую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями (сглаживание массива) вот чет гуглил нашел вроде чето begin B:= (A+A)/2; if N > 2 then for i:= 2 to N-1 do
Pascal Программирование разветвляющихся вычислительных процессов https://www.cyberforum.ru/ pascal/ thread193839.html Помогите пожалуйста решить задачу! Нужно вычислить max^3(a,b,c)+min^2(a,b,c). Исходные данные a,b,c.	Pascal работа с файлами Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f: а) являющимися четными числами б) делящиеся на 3 и не делящиеся на 7 в) являющимися точными квадратами. помогите решить пжл не получаеться ну никак...=// https://www.cyberforum.ru/ pascal/ thread193810.html
Написал программу ,но надо дописать чтобы программа вычисляла проценты Pascal Даны результаты сдачи экзамена по информатике группы из 15 сту-дентов. Подсчитать количество студентов, не сдавших экзамен, в численном и в процентном соотношении. Вот код: program tabul9ci9; label 1; type INF=array of integer; var stud:INF; i,p:integer; begin	Pascal Фишки Помогите решить задачу, пожалуйста. Файл с заданием во вложении. Добавлено через 1 час 1 минуту Помогите хотя бы считать этот файл :( Добавлено через 6 минут var ... begin https://www.cyberforum.ru/ pascal/ thread193774.html
Pascal Массив https://www.cyberforum.ru/ pascal/ thread193767.html Вводится одномерный массив.Нужно найти сумму элементов, стоящих на чётных местах и при этом являющихся числами последовательности фибоначчи. применять функции нельзя.	Процедуры и Функции Pascal Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l), по задан-ным правилам: (i+j)/2, (i*j)/Корень из 27. Фактическое число строк (n,k) и столб-цов (m,l) каждой матрицы, а также признак выбора заданного правила вводить с клавиатуры. Создать процедуру, определяющую одномерный массив (вектор), состоящий из сумм каждой строки матрицы с четными номерами. Вывести на экран исходные и...
Pascal Перевести на язык паскаля https://www.cyberforum.ru/ pascal/ thread193743.html Вот эти вот две формулы Заранее спасибо )	Pascal произведение элементов в каждом столбце матрицы https://www.cyberforum.ru/ pascal/ thread193725.html составить программу определения произведения элементов в каждом столбце матрицы L (9, 14). Элементы матрицы L равны произведению номеров строк и столбцов.
Pascal Бинарная Сортировка Ребят помогите сделать.:( Отсортировать элементы квадратной вещественной матрицы размерности n, стоящие на побочной диагонали, применив сортировку бинарным включением.	Pascal присутствие корней функции: W=2a^3+3a^2 на каждом шаге заданного отрезка составить пробную постановку с объяснением принципа приближенного решения, алгоритм и программу, определяющую присутствие корней функции: W=2a^3+3a^2 на каждом шаге заданного отрезка https://www.cyberforum.ru/ pascal/ thread193716.html

Barte

3 / 3 / 0

Регистрация: 19.11.2010

Сообщений: 26

окружность и прямая - Pascal - Ответ 1123634

19.11.2010, 16:56. Показов 943. Ответов 0

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

найти коорд. точек пересечения прямой y=kx +b и окружности радиуса R с центром в начале координат.Если точек пересечения нет или прямая касается окружности , выдать сообщение

подойдет вот это?

Pascal

var R,k,b,x1,y1,x2,y2,d,a,b1,c:real;
begin
write(' R=');
readln(R);
writeln('k,b:');
readln(k,b);
a:=k*k+1;
b1:=2*k*b;
c:=b*b-r*r;
d:=b1*b1-4*a*c;{дискриминант}
if d<=0 then writeln ('не пересекаются')
else
begin
  x1:=(-b1+sqrt(d))/(2*a);
  y1:=k*x1+b;
  x2:=(-b1-sqrt(d))/(2*a);
  y2:=k*x2+b;
  if x1=x2 then
  writeln('касается')
  else writeln ('пересекает в двух точках');
     writeln('x1=',x1:0:2,'  y1=',y1:0:2,'  x2=',x2:0:2,'  y2=',y2:0:2);
     end;
     end.

Добавлено через 22 минуты
за что спасибо, может где-то неправильно)

Вернуться к обсуждению:
окружность и прямая Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.11.2010, 16:56

Готовые ответы и решения:

Задана окружность и прямая. Определить, пересекаются ли прямая и окружность
Задана окружность с центром в точке O(0,0) и радиусом R0, и прямая y = ax+b. Определить,...

Написать программу, проверяющую, пересекаются ли окружность и прямая, или они касаются друг друга, или не пересекаются и не касаются
Заданы окружность радиуса R с центром в начале координат и прямая, проходящая через точки А (х; у)...

Движущаяся прямая и окружность
Изобразить движущуюся прямую, которая в каждый момент касается окружности данного радиуса, центр...

Прямая и окружность
Есть прямая, заданая уравнением Ax+By+C=0 И окружность с координатами центра и радиусом Нужно...

	19.11.2010, 16:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.11.2010, 16:56

Помогаю со студенческими работами здесь

Окружность и прямая
Помогите написать программу на чистом Си. Вот условие:"Дана окружность с координатами Xо,Yo и...

Пересекает ли прямая окружность
Есть класс окружность. Нужно создать метод "добавить/удалить прямую сечения". Прямую задаём двумя...

Определить, пересекаются ли прямая и окружность
Задана окружность с центром в точке О(x0,y0) и радиусом R и прямая у=ах+b. Определить, пересекаются...

Определить, пересекаются ли прямая и окружность
Задана окружность с центром в точке x0, y0 и радиусом R0 и прямая y=ax+b. Определить, пересекаются...

Наверх