подскажите пожалуйста программку для просмотра получившихся приложений для мобильных телефонов(созданные приложения имеют формат jar и jad).спасибо
Парни с этой задачей у меня конкретный ступор Вы можете вспомнить хоть одного своего знакомого до двадцатилетнего возраста, который в детстве не играл в компьютерные игры? Если да, то может быть вы и сами не знакомы с этим развлечением? Впрочем, трудностей при решении этой задачи это создать не должно. Во многих старых играх с двумерной графикой можно столкнуться с подобной ситуацией. Какой-нибудь герой прыгает по платформам (или островкам), которые висят в воздухе. Он должен перебраться от одного края экрана до другого. При этом при прыжке с одной платформы на соседнюю, у героя уходит |y2-y1| единиц энергии, где y1 и y2 – высоты, на которых расположены эти платформы. Кроме того, у героя есть суперприем, который позволяет перескочить через платформу, но на это затрачивается 3*|y3-y1| единиц энергии. Конечно же, энергию следует расходовать максимально экономно. Предположим, что вам известны координаты всех платформ в порядке от левого края до правого. Сможете ли вы найти, какое минимальное количество энергии потребуется герою, чтобы добраться с первой платформы до последней? Входные данные В первой строке входного файла INPUT.TXT записано количество платформ n (1 ≤ n ≤ 30000). Вторая строка содержит n натуральных чисел, не превосходящих 30000 – высоты, на которых располагаются платформы. Выходные данные В выходной файл OUTPUT.TXT запишите единственное число – минимальное количество энергии, которую должен потратить игрок на преодоление платформ (конечно же в предположении, что cheat-коды использовать нельзя).
ну по алгоритму примерно скажу : рассчитываем разность между y2-y1 и y3-y1 , если y2-y1 > 3*(y3-y1) то выбираем этот путь в инном случае наоборот. ну и собственно в переменную суммируются результаты всех минимальных выбранных путей.
Если высоты будут равны (y3 = y1), то затрачивается значит 0 энергии? Если да, то n1ghtstalker, Ваш алгоритм не работает, в этом случае надо динамикой решать
дело всё в том что в условии задачи оговорено только перемещение по y. но никак не по x. если бы y- было осью абцисс , то в любом случае ++ , так что мой алгоритм относительно не верен. я лишь следую условию задачи.
А если подумать... ведь действительно если высоты у3 и у1 равны... то ведь тогда энергии 0 получается?!?!?? но так n1ghtstalker относительно прав...вычисляем разницу и сравниваем
Соглашусь с Вами друзья, ждем подробностей от автора, но если что, вот код по алгоритму n1ghtstalker Code: {$APPTYPE CONSOLE} const ch = 30000; var i, j, n, rez: integer; a: array [1..ch] of integer; begin reset(input, 'input.txt'); rewrite(output, 'output.txt'); readln(n); rez:=0; for i:=1 to n do read(a[i]); i:=1; while i<n do begin if n - i >= 3 then begin if abs(a[i]-a[i+1])+abs(a[i+1]-a[i+2]) < 3*abs(a[i+2] - a[i]) then begin rez:=rez + abs(a[i]-a[i+1]); inc(i); end else begin rez:=rez + 3*abs(a[i+2] - a[i]); inc(i, 2); end; end else begin rez:=rez + abs(a[i]-a[i+1]); inc(i); end; end; writeln(rez); close(input); close(output); end. Если все же y3 = y1, и энергия в этом случае = 0, то код будет валится P.S. Код писался на Delphi, если нужно на паскаль, то удаляем {$APPTYPE CONSOLE}, и вместо Code: reset(input, 'input.txt'); rewrite(output, 'output.txt'); это Code: assign(input, 'input.txt'); assign(output, 'output.txt'); reset(input); rewrite(output);
подскажите плиз как нати рабочую прокси. есть код для проверки переменная с переберает по списку если рабочая прокся то идем дальше а если нет как вернуть цикл чтоб начил дальше переберать...? Code: {Начало проверки прокси} begin // грузим фаил с проксями ProxyList:=tstringlist.Create; ProxyList.LoadFromFile('Proxy.txt'); params:=TStringList.Create; Presponseres:=TStringList.Create; // получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ Proxy:=ProxyList.Strings[0]; ip:=getip(Proxy); por:=getport(Proxy); port:=StrToInt(por); // тут и так понятно IdHTTP1.ProxyParams.ProxyServer:=ip; IdHTTP1.ProxyParams.ProxyPort:=port; // начинаем проверку try IdHTTP1.Get('http://ya.ru'); except // вот тут если прокся мертвая удаляем эту строку , и как вернуться выше end; end; {конец проверки прокси}
Code: var intA:integer; ... {Начало проверки прокси} begin // грузим фаил с проксями ProxyList:=tstringlist.Create; ProxyList.LoadFromFile('Proxy.txt'); params:=TStringList.Create; Presponseres:=TStringList.Create; // получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ [B] for intA:=0 to ProxyList.Count - 1 do begin[/B] Proxy:=ProxyList.Strings[[B]intA[/B]]; ip:=getip(Proxy); por:=getport(Proxy); port:=StrToInt(por); // тут и так понятно IdHTTP1.ProxyParams.ProxyServer:=ip; IdHTTP1.ProxyParams.ProxyPort:=port; // начинаем проверку try IdHTTP1.Get('http://ya.ru'); except // вот тут если прокся мертвая удаляем эту строку , и как вернуться выше end; [B] end;[/B] end; {конец проверки прокси}
Здравствуйте. В общем только учу Delphi. Возникли несколько проблем. 1)Посоветуйте хороший понятный учебник с нуля по Делфи 2)Короче нужна программа которая при запуске проверяет в файле наличия строк и если ничего не находит то записывает дынные,которые заданны.
что то в этом духе: PHP: var x,y:real; begin readln(x,y); if y<=cos(x) then do begin if (y<=1) and (y>=0) and (x>=-1.57) and (x<=1.57) then write 'Принадлежит' else write 'Не принадлежит' end; if y>=cos(x) then do begin if (y<=0) and (y>=-1) and (x>=1.57) and (x<=3.14) then write 'Принадлежит' else write 'Не принадлежит' end; во переделал
PHP: var input:textfile; n:integer; begin Assign(input,'input.txt'); reset(input); while not EOF(input) do begin readln(input,n); end; if n=' ' then n=1 вот по идее то что тебе нужно! проверяет на существование данных, если нет, то вбиваешь свои данные, если есть то берет их из файла.
ну просто по рисунку я не догнал точно что за числа... вот и предположил что это пи/2 и пи там просто разделил на два интервала...где y>=0 и y<=0
а) и еще ты использовал два раза косинус) и можно маленькую задачку напоследок?) PHP: uses crt; var a:array[1..10]of integer; i,j:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(10);write(a[i],''); end; for i:=1 to 10 do begin if a[i+1]> a[i] then inc(j); end; if a[10]<>0 then inc(j); writeln;writeln(j); readln; end. сколько подряд идущих элементов образуют возр последовательность...вроде работает но не правильно..
