Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Հարց paskalschikami- ին ??? Գտնել նմանատիպ մասնաճյուղեր


Art   (2001-12-18 17:19) [0]

Կազմիչը նետում է փոփոխական անորոշ ակնկալվող սխալ և նշում է ծրագրի այն տեղը, որտեղ բազմապատկվում են երկու կայունություն: ???



Владислав   (2001-12-18 17:20) [1]

Փոփոխական անորոշ ակնկալվող միջոցներ. Ակնկալվող փոփոխական նույնացուցիչ:

Հանգստացեք եզրակացությունները:

Տվեք կոդը:



Art   (2001-12-18 17:23) [2]

System.Move (grecFixedDiskBoot, gsTempInput [1], aMaxTpStrLen);
gsTempInput [0]: = System.Char (aMaxTpStrLen);
ԵԹԵ (System.Pos (asCopyrightNotice, gsTempInput) <> 0)
ՎԵՐ
System.WriteLn (asProgramPrompt + asProgram +
"բեռնիչ գտնված է 0 ֆիքսված սկավառակի վրա.");
System.Write (asProgramPrompt +
"Պատճենել նկարագրության տողերը տեղադրված օրինակից (Y / N):");
System.ReadLn (gsTempInput);

ԵԹԵ (System.UpCase (_fnchGetFirstChar (gsTempInput)) <<achNo)
ՎԵՐ
System.WriteLn (asProgramPrompt + "Պատճենել նկարագրության տողերը");
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbReservationCode)):
(System.Ofs (grecFixedDiskBoot.dbResectedCode) + aOS_Desc_Start)],
(«Դա ցույց է տալիս այստեղ կայունությունները) aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition);
END;
{if-then
END
ELSE- ը
System.WriteLn (asProgramPrompt + asProgram + "բեռնիչը ներկա չէ");
{if-then



Владислав   (2001-12-18 17:26) [3]

Հայտարարեք փոփոխական: Տրեք այն իմաստ: Անցեք ընթացակարգով:
Ամենայն հավանականությամբ, ընթացակարգը ակնկալում է պարամետր ըստ հղման, և դուք անցնում եք ըստ արժեքի:



MBo   (2001-12-18 18:40) [4]

Ձեզ այնտեղ անհրաժեշտ է մի աղիք:



Иван Шихалев   (2001-12-18 18:52) [5]

Ինչ դժոխք է աղիք: Մենք վերցնում ենք տարրական դասարանների դասագիրք և սկսում ենք պարզել, թե ինչպես են տարբերվում պարամետր-արժեքները և պարամետր-փոփոխականները: Օգտակար է նաև օգնություն փնտրելը և պարզել, թե ինչ պարամետրեր ունի ընթացակարգը: Շարժվել և դրանցից քանիսը:



Anatoly Podgoretsky   (2001-12-18 20:06) [6]

Ինձ թվում է ՝ խնդիրն այստեղ է
»(« Դա ցույց է տալիս կայունությունը այստեղ) »փոփոխական է: իսկ հետո ո՞ւր է ստորակետը:
Եվ այսպես, շարահյուսությունն այլապես ճիշտ է:
Տվեք զանգի ճշգրիտ ծածկագիրը և փոփոխական հայտարարությունը, որն օգտագործվում է Տեղափոխման կարգով:



Art   (2001-12-18 20:22) [7]

Տղերք, ես արդեն խոշտանգել եմ, հենց հիմա ես կտամ ամբողջ ծածկագիրը:



Art   (2001-12-18 20:29) [8]

{* ============================ ՍՏԵՂԾԱԳՈՐԾԱԿԱՆ ՄԱՍ ===================== ========== *}

Կոնստ

{ծրագրի սահմանումներ}
asPurpose = "OS-MultBoot";
asVersion = "1.30";
asAuthor = "Դիմա Ստեֆանկով";
asCopyright = "Հեղինակային իրավունք (գ) 1987, 1993";
asProgram = "OS-Boot";
asProgramPrompt = asProgram + ":";

{ելքի կոդ}
errTerminateOK = 0;
errBootStrapDebug = 1;
errBadReadFixedDisk = 2;
errBadWriteFixedDisk = 3;
errUserInstallAbort = 4;
errUserWriteAbort = 5;
errMismatchLoaderCode = 6;

isc զանազան}
aMaxTpStrLen = 255;
asBlank = "";
achHexPrefix = "$";
asFreeSlot = "<*** անվճար անցք ***>";
asNonFreeSlot = "<*** սկավառակի անցք ***>";
aSectorSize = 512;
aSecSizeInWords = aSectorSize DIV 2;
aQuit = "Q";
achYes = "Y";
achNo = "N";
aDefExt = "BIN";
aDosExtMark = ".";

{ASCII կոդեր
achNULL = 00;
achLF = 10;
achCR = 13;
achOne = "1";
achFour = "4";

***** ՈՒՇԱԴՐՈՒԹՅՈՒՆ !!! Ստորև կոշտ կոդավորված արժեքներ: *****
{***** Խնդրում ենք զգուշորեն փոփոխել: *****
$ IFDEF DebugVersion
adwBootSeg = $ 8000; {հատված 512K- ում
{$ ELSE}
adwBootSeg = $ 0000; {հատված 0K- ում
{$ ENDIF}
adwBootOfs = $ 7C00;
adwRelBootOfs = adwBootOfs + aSectorSize;
adwPartitionTable = $ 1BE;
aPartitonEntrySize = $ 10;
aMaxAvailLogicalPartition = 4;
adwBootMarkOfs = adwPartitionTable +
(aPartitonEntrySize *
aMaxAvailLogicalPartition);
adwBootSecID = $ AA55;

aOS_Desc_Str_Len = $ 16; found գտել են այս արժեքները
aOS_Desc_Ofs = $ 04; assembly հավաքվելուց հետո}
aOS_Desc_Start = $ 40-1; {IPL կարգը: }
aOS_Desc_Str_Len_Ext = aOS_Desc_Str_Len + 2;

aDebugOff = 0;
aDebugOn = 1;

aFarJumpOpCode = $ EA; {iAPX86 օպոդոդ}

aRomKbdDriver = $ 16; {IBM PC BIOS գործառույթներ}
aRomDiskDriver = $ 13;
aRomVideoDriver = $ 10;

{օգտագործել, որպեսզի ստուգեք տեղադրված տարբերակը
asCopyrightNotice = "OS-MultBoot (C) 1992 D. Stefankov";


{* ========================= ՏԵՍԱԿՏ ՀԱՂԹՈՂՆԵՐԻ ՄԱՍ ========================= === *}

ՏԵՍԱԿԸ

str * տողեր *
STR2 = STRING [2];
STR4 = STRING [4];
STR8 = STRING [8];

Information * Տեղեկատվություն տրամաբանական սկավառակի մասին *}
recLogicalPartition = RECORD
dbBootDriveMark: System.Byte; 00
dbStartingHead: System.Byte; 01
dwStartingCylSec: System.Word; 02
dbOperatingSystemID` System.Byte; 04
dbEndingHead: System.Byte; 05
dwEndingCylSec: System.Word; 06
ddPrecedingSecs: System.Longint; 08
ddSecsPerPartition: System.Longint; 0C
END;
* recLogicalPartition *

Master * Վարպետների կոշիկների ոլորտ * *
recMasterBoot = Գրանցիր
dbResectedCode: ARRAY [0..adwPartitionTable-1] OF
System.Byte; 000
recDiskPartitions սեղան. ARRAY [0..aMaxAvailLogicalPartition-1] OF
recLogicalPartition; 1BE
dwValidBootRecID: System.Word; 1FE
END;
{* recMasterBoot *


{* ============================= VARIABLES ՄԱՍ ==================== ========== *}

Var

grecFixedDiskBoot: recMasterBoot;
gfOutStream: FILE OF recMasterBoot;
gsTempInput: STRING;
gdwOurBootRecLen: System.Word;
gdwMemOfs: System.Word;
gbStatusOk: System.Boolean;
gdbIndex: System.Byte;
gchIn: System.Char;





Anatoly Podgoretsky   (2001-12-18 20:30) [9]

Դրանից ավելի լավ է սկսել, բայց ձեզ հարկավոր չէ բոլոր ծածկագրերը, միայն տեղափոխման և անհրաժեշտ փոփոխական հայտարարագրերի համար:



Art   (2001-12-18 20:33) [10]

System.Move (grecFixedDiskBoot, gsTempInput [1], aMaxTpStrLen);
gsTempInput [0]: = System.Char (aMaxTpStrLen); - նա բաց է թողնում այս տողը `նշանակում է բոլոր պարամետրերը:



Art   (2001-12-18 20:39) [11]

Տեղափոխեք SYSUTILS մոդուլից



Anatoly Podgoretsky   (2001-12-18 20:54) [12]

Այսպիսով, այս երկու քայլերից ո՞րն է երդվում կազմողը:
Դե, մի՛ քաշեք կաթիլից կաթիլից ձեր կողմից ստացվող տեղեկատվությունը, շուտով կհոգնեք:



Иван Шихалев   (2001-12-18 21:06) [13]

> նա բաց է թողնում այս տողը `նշանակում է բոլոր պարամետրերը:

System.Move (grecFixedDiskBoot, gsTempInput [1], aMaxTpStrLen);

Գոյություն ունեն երեք պարամետր

System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbResectedCode)). (System.Ofs (grecFixedDiskBoot.dbResectedCode) + aOS_Desc_Start)], aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition);

Երկու պարամետր կա

> Տեղափոխեք SYSUTILS մոդուլից

Ի՞նչ է դա նշանակում:



Art   (2001-12-18 21:07) [14]

Տեղափոխեք SYSUTILS մոդուլից



Art   (2001-12-18 21:10) [15]

Լավ, մուրճը մոդուլի վրա:
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbResectedCode)). (System.Ofs (grecFixedDiskBoot.dbResectedCode) + aOS_Desc_Start)],

aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition); - երդվում է այս կտորի վրա:



Art   (2001-12-18 21:12) [16]

Մարդիկ, բոլորի համար ավելի հեշտ կլինի, եթե ինչ-որ մեկը իմանա, թե որտեղից պետք է ձեռք բերել bootloader- ի աղբյուրը:



Anatoly Podgoretsky   (2001-12-19 00:05) [17]

Անհրաժեշտ էր, որ չլինեին ոչ թե երկու, այլ երեք պարամետր !!!



Владислав   (2001-12-19 07:44) [18]

> Արտ © (18.12.01 21: 12)

Դա ավելի հեշտ կլինի, եթե դուք չեք «ջուրը խառնել» .-)

Ահա ընթացակարգի հայտարարագիրը.
կարգի տեղափոխում (const Source; var Dest; Count: interes);

Եվ ահա, թե ինչպես եք այն օգտագործում.
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbResectedCode):

Գտեք տարբերությունները ...

Բոլորի համար ավելի հեշտ կլինի, եթե ինչ-որ մեկը գիտի, թե որտեղ պետք է ձեռք բերել bootloader- ի աղբյուրը:

«Խնդրում եմ, մի քիչ ջուր տամ, որ խմեմ, հակառակ դեպքում ես ուզում եմ այնքան ուտել, որ քնելու տեղ չկա»:

Good luck.



Арт   (2001-12-19 13:47) [19]

Լավ, կներեք, շնորհակալություն բոլորիդ:



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.62 ՄԲ
Ժամանակը `0.034 գ
1-22230
Մարդ կարմիր
2001-12-15 23:01
2002.01.08
Ինչպես պիտակավորել սերիական համարը RichEdite- ում ընտրված տառատեսակի պիտակով:


14-22322
Խիտ
2001-11-03 14:10
2002.01.08
Ով կանի: Այն օգտակար է բոլորի համար:


14-22359
Sergey1- ը
2001-11-07 15:36
2002.01.08
Cp1251


14-22336
Իվան Շիկալով
2001-11-02 23:31
2002.01.08
Ոսկե բանան


1-22161
Եղոր Բուլիչեւը
2001-12-19 22:13
2002.01.08
Memo օգնություն:





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский