Вопрос № 119010: Здраствуйте уважаемые эксперты!
Из множества прямых М, заданных коэф у-я Аx+By+C=0, сформировать множество прямых Р<=М, расстояние от которых до точки А(Xa,Ya) удовлетворяет определённому условию, и преобразовать множество Р в соответствии с ...Вопрос № 119018: Ребята,очень нужны две проги!Помогите!
заранее благодарен
1.Ввести двумерный массив W[4,4].Отобразить на экране массив в виде матрицы,а так же колличество положительных и отрицательных элементов
А эта посложнее) Работа со с...
Вопрос № 119.010
Здраствуйте уважаемые эксперты!
Из множества прямых М, заданных коэф у-я Аx+By+C=0, сформировать множество прямых Р<=М, расстояние от которых до точки А(Xa,Ya) удовлетворяет определённому условию, и преобразовать множество Р в соответствии с заданным требованием. Условие формирования множества Р (принадлежит заданному интервалу). Вид преобразования(упорядочить прямые в порядке убывания расстояний)!
И ещё, подскажите как посчитать среднее арифметическое всего массива!
За ранее спасибо, ответив на мой вопрос спасаете мне жизнь!
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Евгения Петровна!
Программа в приложении, вариант с массивами.
Используемая формула, позволяет расчитать растояние от точки до прямой: R=|A*X+B*Y+C| / SQRT(A2+B2)
где:
А,В,С=парметры прямой;
Х,Y=координаты точки.
Среднее арифметическое высчитывается как сумма всех элементов массива разделенное на количество элементов.
s:=0;
for i:=1 to n do
s:=s+a[i];
write('Midl:',s / n);
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 18.01.2008, 19:37 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное, благодоря вам я сдам зачёт и экзамен вовремя и не попаду на допсу!!!
Вопрос № 119.018
Ребята,очень нужны две проги!Помогите!
заранее благодарен
1.Ввести двумерный массив W[4,4].Отобразить на экране массив в виде матрицы,а так же колличество положительных и отрицательных элементов
А эта посложнее) Работа со строками.
2.Ввести строку символов.Поменять местами соседние символы:1-й со 2-м,3-й с 4-м и тд.Вывести на экран измененную строку.
Отправлен: 17.01.2008, 17:05
Вопрос задал: AHAPX (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Vassea
Здравствуйте, AHAPX!
Попробую помочь Вам в решении второй задачи.
Строка символов St:string;
Ввести строку символов, я думаю, Вы сможете сами.
Менять символы мы будем в цикле for, каждый раз перепрыгивая через один символ (то есть, за один проход цикла будем проходить два элемента строки)
Сначала найдем количество пар символов.
n:=length(st) div 2
Если последний символ окажется непарным, то мы и не будем его менять ни с кем местами.
Теперь сам цикл
for i:=1 to n do
begin
c:=st[i*2];
st[i*2]:=st[i*2-1];
st[i*2-1]:=c;
end;
c -- переменная типа char;
Далее необходимо только вывести эту строку.
Надейсь, что помог Вам. Если возникнут вопросы по мере написания программы, задавайте. Можете прислать программный код готовой программы, и я его проверю.
Ответ отправил: Vassea (статус: Студент)
Ответ отправлен: 17.01.2008, 17:38 Оценка за ответ: 5
Отвечает: -=Dr. Штопор=-
Здравствуйте, AHAPX!
Программы в приложении, написаны в Pascal ABC.
Если работаете в Turbo Pascal, перед var пишите uses crt;
А вместо cls; пишите clrscr;
Вроде всё, если будут вопросы, стучите в агент или в личку.
____________________________
Tantum possumus, quantum scimus
Приложение:
--------- Tantum possumus, quantum scimus
Ответ отправил: -=Dr. Штопор=- (статус: 6-ой класс)
Ответ отправлен: 17.01.2008, 17:40 Оценка за ответ: 5
