Помогите пожалуйста с задачками на массивы Опции

[org777]

Помогите написать решения к этим задачам. Сдавать надо уже во вторник и рейтинг вытягивать, а я разобраться не могу...
Задачи:
1. Дано число n (n<=9999). Является ли это число палиндромом (перевертышем) (напримаер: 2222, 6116, 0440 и т.д.)?
2. y=t*ln*(t+1)-0,5 z(k)=4,8, t принадлежит [0;5], dt=0,5

Это не сложные задачи, первый курс физ-мата. Пожалуйста, помогите с написанием, а то моя голова с плечь...
Заранее очень благодарю!

Сообщение отредактировано: org777 - 23.11.2008 14:08

[volvo]

Во-первых, надо не просто убрать точку с запятой, а еще и добавить ветку else для первого If-а, иначе у тебя получится не пойми что:

while x-12<0.000001 do begin

  if x<4 then begin y:=(a/x)+(b*x*x)+c; end
  else
    if x>6 then begin y:=(a*x)+(b*x*x*x)+sqr(sin(x)); end
    else y:=x;

  writeln('y=',y:8:5);
  x:=x+dx;
end;

Ну, а потом на ноль действительно делить нельзя, что уж поделаешь? Начинай не с нуля, а с близкого к нему значения (скажем, с выбранного тобой для эталона точности 0.000001).

Картинки не добавляются. Вылетает страница с ошибкой на которой написано, что сервер временно не доступен.

Возможно есть какое-то ограничение по количеству постов, помнится мне что-то такое проскакивало на форуме... Потому что картинки добавляются прекрасно:

(FireFox 3.0.4) Это, кстати, результат работы твоей программы с теми измениями, что я предложил...