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

[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

[samec]

1. Дано число n (n<=9999). Является ли это число палиндромом (перевертышем) (напримаер: 2222, 6116, 0440 и т.д.)?

решена в FAQ Является ли число палиндромом

во второй задаче условие не совсем понятно:
y=t*ln*(t+1)-0,5
t принадлежит [0;5], dt=0,5

а зачем z(k)=4,8, ???

P.S.: название темы поменяй, а то прикроют

[org777]

А вот я сам не могу понять нафига этот z(к)! Препод сказала, что оно нужно...
Спасибо, с палиндромностью разобрался))
А как лучше назвать? И КАК поменять название?.. Я просто только сегодня пару часов назад здесь зарегистрировался и еще не разобрался..

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

[Lapp]

Ага, точно прикрою

А как лучше назвать? И КАК поменять название?.. Я просто только сегодня пару часов назад здесь зарегистрировался и еще не разобрался..

Войди в редактирование первого поста (кнопка "Изменить"), там будет строка названия. А как назвать - твое дело. Но желательно удовлетворить и П.4 общих Правил Форума (ссылка вверху страницы), и П.6 Правил раздела (см. выше).
Времени у тебя - сутки с публикации первого поста.
Удачи

[org777]

Название темы изменил. А че на счет второй задачки, а?.. Можете помочь?..

[Lapp]

Название темы изменил. А че на счет второй задачки, а?.. Можете помочь?..

Спасибо.
Я совершенно не понимаю, что нужно сделать (не говоря уж про это z) - то ли вывести значения, то ли график построить...
Может, уточнишь?

[org777]

Нужно описать эту функцию и вывести значение. Вроде все

[Lapp]

Вроде все

Какую функцию? y? а про z совсем забыть? и про промежуток, и про dt?

[org777]

Про z хрен с ним, забить можно.
Я так понимаю нужно вывести все значения удовлетворяющие условиям "t принадлежит [0;5], dt=0,5".
Если я правильно понял, то должно вывестись 10 чисел, т.к. шаг Δt=0.5. Но как прописать это - я не помню...

[org777]

Unconnected, а с моей задачкой №2 помочь не сможешь?...

[Lapp]

2. y=t*ln*(t+1)-0,5 z(k)=4,8, t принадлежит [0;5], dt=0,5

Я не понимаю - с чем у тебя затруднения?

t:=0;
dt:=0.5;
while t-5<0.000001 do begin
  y:=t*ln(t+1)-0.5;
  WriteLn('t=',t:8:5,'    y=',y:8:3);
  t:=t+dt;
end;

Тут я предположил, что я выделил в цитате красным - лишнее..

[org777]

Спасибо большое! пофиг, сдам так)
Кстати, а че вот в этом коде неправильно?

Код

Program org;
const a=2.1; b=1.8; c=-20.5;
var x,y:real;
dx:integer;
begin
x:=0;
dx:=1;
while x-12<0.000001 do begin
if x<4 then begin y:=(a/x)+(b*x*x)+c; end;
if x>6 then begin y:=(a*x)+(b*x*x*x)+sqr(sin(x)); end;
else y:=x;
end;
writeln('y=',y:8:5);
x:=x+dx;
end;
readln;
end.

P.S. А почему сюда фотки не добавляются? А то я бы кинул фото заданий, чтобы понятнее было...

Сообщение отредактировано: org777 - 24.11.2008 12:54

[volvo]

Кстати, а че вот в этом коде неправильно?

Тебе ж компилятор должен сказать, что перед Else нельзя ставить точку с запятой.

А почему сюда фотки не добавляются?

Добавляются... Только не из формы Быстрого ответа... Нажми на кнопку "Ответить", увидишь "Прикрепление файлов". Это оно и есть...

[Unconnected]

org777, не могу Не знаю даже, как это делается

[org777]

Убирал я перед else точку с запятой, но тогда он выдает ошибку 200(или 220, не помню) и пояснение к ней: "на ноль делить нельзя"... И че ему не нравится я понять не могу...
Картинки не добавляются. Вылетает страница с ошибкой на которой написано, что сервер временно не доступен. Эта страница вылетает с момента моей регистрации здесь, т.е. уже 2 день... Я пробовал с разных браузеров - тоже самое

[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) Это, кстати, результат работы твоей программы с теми измениями, что я предложил...

[Lapp]

Картинки не добавляются.

Какая картинка? jpg? bmp? ... И какая связь - диалап? ты не пробовал из других мест отправлять?

[org777]

Спасибо за редактирование кода!))
jpg, выделенная линия со скоростью до 4 мб/с.
С других мест не пробовал.
Браузеры, через которые пробовал: Опера, Гугл Хром, ИЕ6. Везде такая фигня. Скорей всего действительно ограничение по постам...

Сообщение отредактировано: org777 - 24.11.2008 16:04

[Lapp]

Вряд ли это ограничения. Не нравится мне это. Не к добру. Было уже нечто подобное. У прова нелады. Вот и сейчас едва пропихнул ответ на пятый раз..

[-Чужак-]

Рекламу из подписи тоже
удалить было бы не грех.
Как и этот пост.