Задачи на вылет

[Izanagir]

Просьба помогите студенту с задачами... Сам не могу их решить. Был бы премного благодарен за помощь

Функции
1 --- Даны координаты вершин двух треугольников на плоскости. Определить, какой из них имеет больший периметр, и напечатать ее значение.

Процедуры
2 --- Стоимость проезда на автобусе за расстояние меньше 8 км равняется 34 рубля. За каждый следующий километр стоимость увеличивается на 3 рубля. Напишите функцию для определения стоимости проезда k км и процедуру, определяющую наименьшее число билетиков по 10, 4 и 1 р., которые нужно приобрести на эту поездку. Используйте их в программе для терминала продажи билетов: на входе расстояние поездки, на выходе — количество билетов.

[mss]

Желаю скорейшего вылета.
Страна не нуждается в горе-специалистах, не знающих теорему Пифагора.

[timezero]

шеф ты чего это элементарные задачи, был бы я студентом щелкнул их тебе в три строчки)
координаты у тебя получаются двумерные раз на плоскости, вида - (21,8) , где 21 это- х1, а 8 это-у1, так и для остальных трех вершин одного треугольника со своими уже х2,у2 и х3,у3
чтоб вычислить сторону это тебе надо было у Пифагора спросить а не здесь
1Сторона=sqrt(|x1-x2|^2+|y1-y2|^2)
2Сторона=sqrt(|x2-x3|^2+|y2-y3|^2)
3Сторона=sqrt(|x1-x3|^2+|y1-y3|^2)
где |x1-x3|^2- взято по модулю и в квадрате
Думаю периметр знаешь дальше как найти, осталось тебе это реализовать на Паскале, бо я его уже слабо помню.

[0479]

Вот лови. Однако я уже паскаль плохо помню. Больше предпочитаю C подобные. Проверь всё.

var x1,x2,x3,y1,y2,y3:double;
st1,st2,st3,p:double;
begin
writeln('VVEDITE X1');
readln(x1);
writeln('VVEDITE Y1');
readln(y1);
writeln('VVEDITE X2');
readln(x2);
writeln('VVEDITE Y2');
readln(y2);
writeln('VVEDITE X3');
readln(x3);
writeln('VVEDITE Y3');
readln(y3);
st1:=sqrt(sqrt(abs(x1-x2))+sqrt(sqrt(abs(y1-y2))));
writeln('storona1: ',st1);
st2:=sqrt(sqrt(abs(x2-x3))+sqrt(sqrt(abs(y2-y3))));
writeln('storona2: ',st2);
st3:=sqrt(sqrt(abs(x1-x3))+sqrt(sqrt(abs(y1-y3))));
writeln('storona3: ',st3);
p:=st1+st2+st3;
writeln(p);
readln;
end.

Вторая задачка тоже не сложная.Прост не охота сидеть вспоминать как в паскале процедуры с функциями задаются.Но тут прост надо задать несколько условий и может пару формул элементарных.

[Mad_Cat]

2

program ___________;var _,__:Integer;function ____(___:integer):Integer;
begin if ___<8 then ____:=34 else ____:=34+(___-8)*3;end;
begin readln(_);_:=____(_);__:=_ div 10;writeln(__,' no 10p');_:=_ - __*10;
__:=_ div 4;writeln(__,' no 4p');_:=_-__*4;writeln(_,' no 1p');readln;end.

теперь так я буду отвечать почти всегда

[veniside]

обфускатору зачёт )