Одна из самых дебильных программ на Паскале, которые я видел :)

Обычно такого добра хватает, а вот эта - просто в душу запала. Учебная задача, условие такое:

Найти количество положительных элементов последовательности
z(i) = sin (i), i = 1, 2, ..., 100

А вот "реализация":

var i:integer;
begin
for i:=1 to i do
 if sin(i)>0 then i:=i+1;
writeln ('i=',i);
end.

Кстати, это не зацикливается... поэтому студентка искренне мне сказала, что ответ - ноль, нету здесь положительных элементов... куда катимся?

А автор примерно вот такого "шыдевра"

var x,ln,y:real;
begin
 y:=ln(x);
end.

24.11.2010, 22:30 [9801 просмотр]