Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите пожалуйста с задачками на массивы

Автор: org777 22.11.2008 23:12

Помогите написать решения к этим задачам. Сдавать надо уже во вторник и рейтинг вытягивать, а я разобраться не могу...
Задачи:
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

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

Автор: samec 22.11.2008 23:39

Цитата(org777 @ 22.11.2008 22:12)

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

решена в FAQ http://forum.pascal.net.ru/index.php?showtopic=3916&hl=is_palindrom#

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

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

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

Автор: org777 22.11.2008 23:48

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

Автор: Lapp 23.11.2008 9:50

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

Цитата(org777 @ 22.11.2008 19:48)

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

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

Автор: org777 23.11.2008 18:10

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

Автор: Lapp 23.11.2008 18:31

Цитата(org777 @ 23.11.2008 14:10)

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

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

Может, уточнишь?

Автор: org777 23.11.2008 19:39

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

Автор: Lapp 23.11.2008 19:50

Цитата(org777 @ 23.11.2008 15:39)

Вроде все

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

Автор: org777 23.11.2008 22:57

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

Автор: org777 24.11.2008 2:29

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

Автор: Lapp 24.11.2008 12:17

Цитата(org777 @ 22.11.2008 19:12)

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 24.11.2008 16:52

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

Код

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. А почему сюда фотки не добавляются? А то я бы кинул фото заданий, чтобы понятнее было...

Автор: volvo 24.11.2008 17:05

Цитата

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

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

Цитата

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

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

Автор: Unconnected 24.11.2008 17:28

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

Автор: org777 24.11.2008 18:02

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

Автор: volvo 24.11.2008 18:20

Во-первых, надо не просто убрать точку с запятой, а еще и добавить ветку 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 24.11.2008 18:59

Цитата(org777 @ 24.11.2008 14:02)

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

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

Автор: org777 24.11.2008 19:53

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

Автор: Lapp 24.11.2008 20:19

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

Автор: -Чужак- 24.11.2008 20:46

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

Автор: org777 24.11.2008 23:06

Lapp, у меня тож порой с попытки 3-5 только проходят сообщения.
Кстати, а чем моя подпись не нравится? Я на всех форумах и сайтах ставлю ее - в общем везде, и ничего... Или она мешает?
И причем здесь вообще пост?? О_о

Автор: Lapp 25.11.2008 5:24

Цитата(org777 @ 24.11.2008 19:06)

у меня тож порой с попытки 3-5 только проходят сообщения.

Сложности у прова. Не пройдет - будем контактить..

Цитата(org777 @ 24.11.2008 19:06)

Кстати, а чем моя подпись не нравится? Я на всех форумах и сайтах ставлю ее - в общем везде, и ничего... Или она мешает?

Такие правила: ни картинок в подписях, ни рекламы вообще. А другие форумы нам не указ. Будь добр, убери.

Автор: org777 25.11.2008 11:39

ок, убрал

Автор: org777 25.11.2008 23:34

Привет еще раз! Спасибо за помощь с предыдущими заданиями, сегодня сдал и набрал баллы!
Еще просьба, не могли бы посмотреть на 4 задание в прикрепленной картинке. Вот это я вообще не врубаюсь как делать!

Эскизы прикрепленных изображений

Автор: volvo 25.11.2008 23:41

На форуме тысячу раз рассматривалось, как вычисляется сумма ряда: в цикле вычисляешь очередной член (для того, чтобы не было необходимости считать на каждом шаге факториал - проще хранить число 1/(n-1)!, и на N-ой итерации делить его еще на N), и прибавляешь к сумме. До тех пор, пока очередной член ряда не окажется меньше погрешности...

См. тему в "FAQ -> Общие вопросы по математике", если не ошибаюсь - это описывалось там