К вопросу о разнице женской логики и логике программера.
Буквально на днях одна симпатичная студентка (1 курс, Уральский
госуниверситет) принесла для сдачи распечатку программы. Оценив
подробность изложения материала, я все же обратил внимание
на последнюю строчку ( и порадовался упомянутой уже разнице ).
Ниже привожу текст полностью ( он небольшой ) - все же старался
человек.
"{программа нахождения суммы ряда}
{составитель: <следует фамилия стУдентки и N группы>}
Program Lim;
Uses Crt;
Const Eps=0.00000001; {Точность знака после запятой}
Var
Sum,WasSum,N:Real; {Sum-Сумма,WasSum-Пред.Сумма для выч. Eps,
N-Счетчик}
Begin
ClrScr; {Очистить экран}
Write('Current summary:'); {Это для вывода текущего результата}
Repeat {Начало цикла}
GotoXY(16,1); {Встать курсором на позицию после
'Cur.Summary'}
Write(Sum); {Вывести на экран 'Current Summary'}
WasSum:=Sum; {Запомнить рез-тат для сравнения со след.}
Sum:=Sum+1/(N+1)-1/(N+3); {1-1/3...,след. цикл - ...+1/5-1/7..., и т.д.}
N:=N+4; {Увеличит значение счетчика}
Until Abs(WasSum-Sum)<Eps; {Пока разность между сосед. суммами >Eps}
WriteLn; {Пропустить строку}
WriteLn('Precious summary: ',Sum); {Вывести точный рез-тат для данного
Eps}
Write('Press any key...'); {Вывести надпись}
Repeat {Пустой цикл...}
Until KeyPressed; {...Пока не нажата любая клавиша}
End. {Перед сдачей программы все комментарии рекомендуется стереть}"