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

Помощь дата->рейтинг Поиск Почта RSS канал Статистика nickolay.info Домой

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

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

Найти количество положительных элементов последовательности
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.
долго ставил и убирал точки с запятой после выделенного ln... просто Паскаль здесь порождает ошибку "; expected" из-за имени переменной, дублирующего имя стандартной функции.


теги: ошибка маразм pascal

24.11.2010, 22:30; рейтинг: 8579

  свежие записипоиск по блогукомментариистатистика

Наверх Яндекс.Метрика
© PerS
вход