2731
Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём
« : 03 Декабрь 2009, 23:52:26 »Цитата: gepar
Но это не работаетА 'a' там откуда взялось? Приведи код полностью (и .pas-файл прикрепи, если есть).
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Но это не работаетА 'a' там откуда взялось? Приведи код полностью (и .pas-файл прикрепи, если есть).
Demul 0.4.9 WIPТ.е. там только openGL2 плагины остались? Обидно, если так, потому что видюха моя со вторым опенДжиЭлем не дружит, только с первым и то на невысоких настройках графики.
Очередная версия отечественого эмулятора Dreamcast'а: OGL1 и DX плагины исключены из пака
Попробуй лучше Demul с dxLegasy плагином может тебе и повезет, а вообще-то компьютер на свалку отправил бы уже.Давно бы отправил, да не ломается, собака!


Если такой проц в бытовой комп поставить то дискретное видео как-то и не нужно - всё средствами CPU можно делать.Даешь эмуляцию DirectX10 (11 и 12, когда будет)!
Вот куплю себе и буду эмулировать всё подряд без тормозовНа таком проце можно будет заэмулировать PS3 и xbox360!
Червяки условно на четверых, просто джойстик передавать товарищу напротив, после хода.В МАМЕ при игре в УМК3 можно меняться игроками, если их больше двух присоединилось - принцип тот же, что и джоями меняться. Может кто хакнет генс или кегу и добьется того же? Было бы здорово.
Почему то в упор не видел этого , спасибо что показал где ошибка , теперь порядок с сортировкой символьного массива.Вообще учись делать отладку. Это всегда пригодится. Т.е. если прога работает неверно, а компилятор не ругается на синтаксис, то подозрительный кусок программы можешь закомментировать и посмотреть, верно ли выполняется оставшаяся часть (если оставшаяся часть сама по себе не может работать, то добавь к ней то, что заставит ее работать). Ну и так далее, по всем смысловым кускам проги.
for i:=1 to 4 do if b[i]>b[i+1] then
Begin
buf:=b[i];
b[i]:=b[i+1];
b[i+1]:=b[i];
ind:=false;
end;А теперь хорошенько пригляделись вот к этому:buf:=b[i];
b[i]:=b[i+1];
b[i+1]:=b[i];И, вуаля! Нашли ошибку.[i] это ВВ-код. Поэтому пишем в коде (#).Если не заметил в куче моего спама:Где же идентичны?
Так у меня точно такой же код :
Код:
for i:=1 to 4 do if b>b[i+1] then
Begin
buf:=b;
b:=b[i+1];
b[i+1]:=b;
ind:=false;
end;
Ну отличия только в том что у меня сортировка элементов массива , а у тебя сейчас не могу сообразить сортировка чего (сонный уже) толи сортировка массива по принципу чтобы элементы массива были больше b толи я что-то перепутал .
И ещё если можно напишите кто-то алгоритм деления пополамПереведи на русский, пожалуйста.
repeat;А разве после repeat'а ставится точка с запятой?
until ind;А разве тут не должно быть until ind=true? (Я уже не помню синтаксиса оператора repeat... until.)
В умк практически все убивают с двух комб, так что смок тут совершенно нормально смотрится.Однако же трудность набора этих комб и подлавливания на нее противника, согласись, в разы превосходит ту, которая в хаке (и не у одного только Смоука).

А в лост ворлд как?А там на двоих надо cooperative ставить. И играть вдвоем. Плюс, ведь там пароли дают, так что можно их скриншотить и после десинха начинать играть не всю игру заново, а с того уровня, на который дали пароль.
Так же и Червяках.Блин, а я надеялся!
{ New Borlont Poskal 95 example program.
This program lets you use new Borlont Poskal 95, which was built-in in the
Borland Pascal 7.0. (I guess even developers didn't know about it.)
It can be switched on by using double comments the [see below] way }
program external(private,public); { you can specify type of your program.
This is done in Borland Pascal 7.0, but when using Borlont Poskal 95, it
receives new meaning }
{ now, enable Borlont Poskal 95 syntax }
const forward = ^{; (* this string enables Borlont Poskal 95 }
{ now all the syntax of the new Poskal 95 can be used. Look through these
examples to find new features }
private = { Assign Private Action }
BEGIN
in case of export, do not object to destructor and goto library
END;
public = { Assign Public Action }
BEGIN
goto do program and begin with absolute packed unit in assembler
END;
type program = unit; { you can give any name to your identifiers }
program = library; { you can redefine any type as many times }
program = program; { as you want }
type = var; { you can define type "type" }
type = const;
var program : program; { you can redefine variables too }
program : program with library; { you can use any syntax you want }
program : program with unit;
var : program; { you can even define variable "var" }
var : const;
var : type;
const program : program = program or unit and library;
program : program = unit with library in program;
const : const = type shl string in unit shr and;
{ new free object definition }
type object = object (do not object to object)
constructor begin; external in library program;
destructor end; assembler with program;
procedure function; interrupt with assembler;
function procedure:constructor; packed assembler unit in program;
and end;
{ Now execute program with predefined constants (what does it mean?) }
do PROGRAM external ( const private, const public );
{ new function/procedure definition - you don't have any restriction to
function/procedure definition now! }
Function Function (Function:Function):Function; Function and Not Procedure;
FUNCTION BEGIN
Function:=Program(Unit Near.External(Far));
FUNCTION END
Procedure Function (far,near : object) : function or procedure;
begin
Function(or procedure):=far far far far in program;
and; { even if you mixed "end" with "and", compiler will understand it }
{ new "if" statement - no any restriction to the syntax }
IF procedure or function far far in program THEN
while repeat do repeat while;
{ You can construct any operator via constructors and destructors
(again, no restriction to the syntax) }
Constructor And (in library) : And:=library.and;
Destructor Constructor (Procedure : Function) : Program; Var;
{ New Great Assembler! Allows to write everything in words }
asm
1. Write Message "Formatting disk C" on the screen
2. Format Disk C (and also ignore all the Windows tries to stop it)
3. Physically destroy hard drive
4. Connect to the Internet
5. Cheat Pentagon
6. Download secret plans to the disk A:
7. Disconnect and destroy computer (along with everything in 10 000 km^2
around)
8. Finish
end;
{ and at last, very free syntax. Just write everthing you want and
compiler will understand what you meant }
array begin:case[const] of constructor ...
destructor div do downto else end
exports file for function goto
if implementation in inherited inline then interface label library mod nil
not object or packed procedure program record repeat
set shl string to type shr
unit until uses var
while with xor
{ The only bad thing about Borlont Poskal 95 extension is the next:
Your program will NEVER run (although will ALWAYS compile) ;) guess why? :) }
(* And now, switch back to the Borland Pascal 7.0 with uncomment :*)
{ next lines are written in Borland Pascal 7.0. }
type far = string;
function near(far:far):far;far;
begin
external.near:=external.far(far);
end;
{ you can also switch to the Poskal 95 extension with next line: }
const assembler = ^'; { '
begin
uses program external in unit forward xor string with far far in near
end. (* it is not end of program *)
(* another feature: number of begin's and end's doesn't have to match *)
procedure constructor and destructor(function:function and procedure);
begin
if constructor then destructor else function in constructor;
end:
end;
end,
end.
end.
begin. begin. begin, begin begin(begin(end)).
asm
(c) Pavel Anokhin 1999
Net Mail: 2:5027/16.20
E-Mail: mna@valley.ru
end and begin;
{ ok, I think that's enough, switch back to BP7 with next character:}
{ we're back in BP. Enjoy :) Pascal rulezzzz forever!!! }
begin
near(forward);
end.Вот это шизофрения!
Но ведь это относиться больше к матемматике чем к программированию , или в програмировании стоит также поступать в задачах ?Ну зачем изобретать двухместный двухрамный двухколесный (по одному колесу на раму) велосипед, а потом учиться держать на нем равновесие, когда можно взять два обычных велосипеда?
if i mod 2 = 0 and m[ i ]<m[i+2] do //По сути именно с этой строкой и возникает проблема , толи я что-то задаю всё времяТы поставил перед собой условие сэкономить на символах кода? К чему это перескакивание через один индекс? Не проще было бы разбить массив на два отдельных и каждый из них отсортировать?
Begin //неправильно толи х.з .
buf:=m[ i ];
m:=m[i+2];
m[i+2]:=buf;
ind:=false;
Эксперимент, который даст результат, очень важен для наших исследований.Слишком просто. Дожно быть немного мудренее.
Стоп, а не определение тогда? Или чет я недопонял?Тьфу! Ну конечно определение. Еще со школы путал названия этих частей предложения.

Да блин, это я и так понял, мне тупо перевод этой байды нужен)))))Найди точный перевод to earn out и 'is of..' и будет тебе перевод твоей байды.
to be earned out- Indefinite Infinitive Passive
обращая внимание на функцию инфинитива в предложенииФункцией инфинитива тут является дополнение: 'The experiment to be earned out...' (отвечает на вопрос "какой?").
Подумайте, чей вариант красивее звучит.Это можно и потом сделать, а сперва надо разобраться со структурой предложения.
Earn out - здесь имеется в виду скорее всего то, что эксперимент окупится и принесет даже прибыль.Ага, если так, тогда примерно вот что получается:
великое значениеЗвучит пафосно. "Огромное", по-моему, лучше подходит.
- Думаю, "исходя из великой важности для наших исследований" - как-то так.Навряд ли. Но конструкция "is of" тут явно намекает на что-то. Что-то типа этого:
А в Streets of Rage 2/3 не хочешь?Не вижу смысла: из-за десинхов все равно дальше 3-го уровня никогда не доходили. Была бы связь хорошая.