Turbo Pascal

[Vladimir B.]

Function Odd(X : Longint) : Boolean;
Значение функции Odd(X) равно True, если X - нечетное число.

P.S. И незачем парить мозг.

P.P.S. quant, что за жуткая помесь паскаля и с++ с кучкой ненужных скобочек?

parn := val and 1 = 0;

 

[partyфон]

Паца помогите плиз!! нада панисать проги...

Написать програму каторая находила бы "НСД" на основании алгоритма Ефклида.

Написать програму каротая по 3 видёным сотонам a,b,c (целые числа можна типа real) Оприделяла какой это триугольник. Равнобедреный, равностороний или разносотороний. Вывести на экран сообшения...

Разание спс

з.ы. КЕлбас лошадь

 

[AkeL.php]

2-я
program kelbas;
uses crt;
var
a,b,c :real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('Равнобедренный')
else if (a=b) and (b=c) and (a=c) then
writeln('Равносторонний')
else
writeln('Разносторонний');
end.
Можно ещё проверить будет ли треугольник прямоугольным.
например
if sqr(c) = sqr(a)+sqr(b);
Напомни алгоритм Эвклида

 

[partyфон]

СПС биг

з.ы. я Алгоритм ишо не учил 8) у училки уточню завтра напшишу..

 

[MoonSpear]

хелп!по 2 введённым значениям a и b,которые являются коофициэнтами уравнения ах+б=0.Провести анализ уравнения и если возможно найти решение.Вывести результат на экран...

Это типа если а>0 b>0,a<0 b<0,a>0 b<0,a<0 b>0???

 

[Vladimir B.]

хелп!по 2 введённым значениям a и b,которые являются коофициэнтами уравнения ах+б=0.Провести анализ уравнения и если возможно найти решение.Вывести результат на экран...

Это типа если а>0 b>0,a<0 b<0,a>0 b<0,a<0 b>0???

Нет, "это типа" записываем его как a*x=-b и "анализируем"...

program lamerz_must_die_with_windows_and_microsoft;
var
a,b: real;
begin
readln(a,b);
if (a=0) then
if (b<>0) then writeln('X - ne mojlyvo znajty') else writeln('X - bud'-yake 4islo)
else writeln('X=', -b/a);
end.

 

[Ганнусик]

2-я
program kelbas;
uses crt;
var
a,b,c :real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('Равнобедренный')
else if (a=b) and (b=c) and (a=c) then
writeln('Равносторонний')
else
writeln('Разносторонний');
end.
Можно ещё проверить будет ли треугольник прямоугольным.
например
if sqr(c) = sqr(a)+sqr(b);
Напомни алгоритм Эвклида

тут походу ошибка, т.к. не поверяеться условие существования треугольника! Келбас не приймет эту задачу
З.Ы. Келбас лол

 

[Vladimir B.]

тут походу ошибка, т.к. не поверяеться условие существования треугольника! Келбас не приймет эту задачу
З.Ы. Келбас лол

Ну... добавляем обработчики келбасо-несовместимых операций - проверяем еще стороны на нули, потом сравниваем сумму двух меньших сторон и оставшуюся третью - если сумма меньше, то "афтар теста мудаг, но йему зачот".

P.S. Действительно ЛОЛ!

 

[AkeL.php]

тут походу ошибка, т.к. не поверяеться условие существования треугольника! Келбас не приймет эту задачу
З.Ы. Келбас лол

Задача была проверить треугольник на равнобедренность, равносторонность, расностороннойсть. Какая ошибка. Можно еще проверить, чтобы стороны были больше 0. Ну если кто-то введёт стороны <0 для треугольника, то он идиот.
Может аффтару ещё одз всё сделать или что у вас там... с отчётом?=)

 

[FEOFAN]

Задача была проверить треугольник на равнобедренность, равносторонность, расностороннойсть. Какая ошибка. Можно еще проверить, чтобы стороны были больше 0. Ну если кто-то просто введёт стороны <0 для треугольника, то он идиот.
Может аффтару ещё одз всё сделать или что у вас там... с отчётом?=)

Если ты не знаешь условия существования треугольнка, то это не значт что Рождественский О.Н. идиот.
Точно не помню(да и гуголь на мскорую руку выдал мне "квазиметрические исследования") но суть там , что периметр должен быть меньше sqrt(p(p-a)(p-b)(p-c)), где p=P/2
Вроде так.