Brainstorm(Мозговой штурм)

[Mr.Qwerty]

Добрый день,утро, вечер,ночь уважаемый обитатели форума)!
Извиняйте, но пришлось мне, ибо никому более такой идее не приходилось реализовывать. Не будем забегать вперед.
В общем вот моя идея: пользователи форума выкладывают задание(задачку) и все кому интересно будут выкладывать свои решения и ответы. Собственно вознаграждением за проделанный труд будет оценивание вашей работы со стороны посетителей данной темы.
Итак, приступим, я выкладываю задание+свое решение, либо что-то и чем больше вариантов решения тем лучше. Название темы соответствует уже смыслу всех стараний, да да я не ошибся - это МОЗГОВОЙ ШТУРМ, то есть будем продумывать все решения задания с минимальными затратами программных ресурсов, то есть будем рыть в поисках идеального решения!
Так, я вижу вы устали уже от прочтения текста, приступим:
Задание_1). Даны основания и высота равнобедренной трапеции. Найти её периметр, Мдаа задание легкое, но нужно найти наиболее краткое ее решение, то есть с минимальными затратами в использовании переменных и всяких процедур.
Ваши ответы будут оценивать обозреватели(судья) этой темы, то есть все мы с вами).. Вообщем хочу пожелать всем нам удачи и не строго судите меня администрация форума) Только плиз без критики...знаю что в организаторском деле я чуть выше уровня нуба!)

[ОДИНОЧЕСТВО В СЕТИ]

p=2*sqrt(((do-ko)/2)^2+h^2)+do+ko
do-длинное основание
ko-короткое основание
h-высота
p-периметр!

[wall66]

a - основание 1
b - основание 2
c - высота

корень((a+b)*c*8)

я знаю что это чушь, всем кто это читает - подскажу: правильного решения не существует

[Mr.Qwerty]

Собственно вот мое решение, мб кто лучше замутит - всегда "за":

Program Perim;
Uses Crt;
Var a,b,c:real;
begin
ClrScr;Writeln('Введите a,b,h:');Readln(a,b,c);
a:=sqrt(sqr(b-a)+sqr(с));a:=2*a+pred(a)+b;
Writeln('Периметр:=',a);Readln;
end.

[Levsha100]

Ага, лучше уже конкурс типа: "500 способов обнулить регистр EAX"...

[ROD]

500 способов обнулить регистр EAX

хм... что-то мне больше трех различных способов в голову не приходят.

[Ivan_32]

xor eax,eax
and eax,0
sub eax,eax
mov eax,0

push 0
pop eax

shl eax,0x20
shr eax,0x20

Да видать я тоже ассемблер плоховато знаю.

[Stilet]

но нужно найти наиболее краткое ее решение, то есть с минимальными затратами в использовании переменных и всяких процедур

Так подойдет?

var a,b,c,r:real;
Begin
 Write ('Введи исходные данные и ответ (самостоятельно поссчитанный)');
 readln(a,b,c,r);
 write('a=',a,'b=',b,'c=',c,' Ответ=',r);
end.

А если эта шутка кому-то покажется не политкорректной то вот:

Var a,b,c:real;
begin
Writeln('Введите a,b,h:');Readln(a,b,c);
Writeln('Периметр:=',2*(sqrt(sqr(b-a)+sqr(с)))+pred(sqrt(sqr(b-a)+sqr(с)))+b );Readln;
end.

[Goodwin98]

500 способов обнулить регистр EAX

Добавим

imul eax,eax,0

bsf eax,eax
bsf eax,eax
bsf eax,eax
bsf eax,eax
bsf eax,eax

mov eax, fs:[14h]

dec eax
jnz $-1

fldz
fistp   dword ptr [esp-4]
mov     eax, [esp-4]

aam 1 ; это до кучи - обнуление ax
aad 0

[JTG]

А можно я ecx обнулю?

loop $