घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

पास्कलचिक से प्रश्न ??? इसी तरह की शाखाएँ खोजें


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

संकलक त्रुटि वैरिएबल Indefinier अपेक्षित देता है, और कार्यक्रम में एक जगह पर इंगित करता है जहां दो स्थिरांक गुणा किए जाते हैं ??? क्या बात है ???



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

परिवर्तनीय Indefinier अपेक्षित का अर्थ है: अपेक्षित परिवर्तनशील पहचानकर्ता।

निष्कर्ष निकालना।

कोड दें।



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

System.Move (grecFixedDiskBoot, gsTempInput [1], aMaxTpStrLen);
gsTempInput [0]: = System.Char (aMaxTpStrLen);
IF (System.Pos (asCopyrightNotice, gsTempInput) <> 0)
बेगिन
System.WriteLn (asProgramPrompt + asProgram +
"निर्धारित डिस्क 0 पर लोडर पाया गया।");
System.Write (asProgramPrompt +
"स्थापित प्रतिलिपि से कॉपी विवरण तार (वाई / एन):");
System.ReadLn (gsTempInput);

IF (System.UpCase (_fnchGetFirstChar (gsTempInput)) <> تNo)
बेगिन
System.WriteLn (asProgramPrompt + "कॉपी विवरण स्ट्रिंग्स।");
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbReservedCode):
(System.Ofs (grecFixedDiskBoot.dbReservedCode) + aOS_Desc_Start],
("यह यहाँ स्थिरांक दिखाता है) aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition);
समाप्त;
{अगर-तब}
अंत
और
System.WriteLn (asProgramPrompt + asProgram + "लोडर मौजूद नहीं है।");
{अगर-तब}



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

एक चर घोषित करें। इसे एक अर्थ दें। प्रक्रिया में पास करें।
सबसे अधिक संभावना है कि प्रक्रिया संदर्भ द्वारा एक पैरामीटर की उम्मीद करती है, और आप मूल्य से गुजरते हैं।



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

क्या आपको वहां एक बृहदान्त्र की आवश्यकता है?



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

क्या एक बृहदान्त्र है? हम प्राथमिक ग्रेड के लिए एक पाठ्यपुस्तक लेते हैं और यह पता लगाना शुरू करते हैं कि पैरामीटर-मान और पैरामीटर-चर अलग-अलग कैसे हैं। यह मदद में देखने और यह पता लगाने के लिए भी उपयोगी है कि प्रक्रिया के क्या पैरामीटर हैं। Move और उनमें से कितने।



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

मुझे लगता है कि समस्या यहाँ है
"(" यह यहाँ स्थिरांक दिखाता है) "एक चर है? और फिर अल्पविराम कहाँ है?
और इसलिए सिंटैक्स अन्यथा सही है।
मूव प्रक्रिया में उपयोग होने वाले सटीक कॉलिंग कोड और वेरिएबल डिक्लेरेशन दें।



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

दोस्तों, मुझे पहले ही प्रताड़ित किया गया था, अब मैं पूरा कोड दे दूंगा!



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

{======================================================================================================== ========= *}

CONST

{कार्यक्रम परिभाषाएँ}
asPurpose = "OS-MultBoot";
asVersion = "1.30";
asAuthor = "डिमा स्टेफानकोव";
asCopyright = "कॉपीराइट (c) 1987, 1993";
asProgram = "OS-Boot";
asProgramPrompt = asProgram + ":";

{बाहर निकलें कोड}
त्रुटिपूर्ण = एक्सएनयूएमएक्स;
इरबूटस्ट्रैपडबग = एक्सएनयूएमएक्स;
इरब्रेड्रिडफिक्स्डडिस्क = एक्सएनयूएमएक्स;
इरबडवराईटफिक्स्डडिस्क = एक्सएनयूएमएक्स;
इरुइज़रइन्स्टॉलअर्ोर्ट = एक्सएनयूएमएक्स;
इरुसेरविराइटएबोर्ट = एक्सएनयूएमएक्स;
इरमेस्मैचेलैडरकोड = 6;

{} विविध
aMaxTpStrLen = 255;
asBlank = "";
achHexPrefix = "$";
asFreeSlot = "<*** नि: शुल्क स्लॉट ***>";
asNonFreeSlot = "<*** डिस्क स्लॉट ***>";
aSectorSize = 512;
aSecSizeInWords = aSectorSize DIV 2;
aQuit = "Q";
achYes = "Y";
achNo = "N";
aDefExt = "बिन";
aDosExtMark = ";";

{ASCII कोड}
achNULL = 00;
achLF = 10;
achCR = 13;
achOne = "1";
achFour = "4";

{***** ध्यान !!! नीचे दिए गए हार्ड-कोडेड मान। *****}
{***** कृपया ध्यान से संशोधित करें! *****}
{$ IFDEF डिबगवर्सन}
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; {ये मूल्य मिले}
aOS_Desc_Ofs = $ 04; {विधानसभा के बाद}
aOS_Desc_Start = $ 40-1; {आईपीएल प्रक्रिया। }
aOS_Desc_Str_Len_Ext = aOS_Desc_Str_Len + 2;

aDebugOff = 0;
aDebugOn = 1;

aFarJumpOpCode = $ EA; {AAPX86 opcode}

aRomKbdDriver = $ 16; {IBM PC BIOS फ़ंक्शंस}
aRomDiskDriver = $ 13;
aRomVideoDriver = $ 10;

{इंस्टॉल किए गए संस्करण की जांच के लिए उपयोग करें}
asCopyrightNotice = "OS-MultBoot (C) 1992 D. Stefankov";


{============================================================================================================ === *}

TYPE

{* स्ट्रिंग्स *}
STR2 = STRING [2];
STR4 = STRING [4];
STR8 = STRING [8];

{{लॉजिकल डिस्क की जानकारी *}
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
समाप्त;
{* recLogicalPartition *}

{* मास्टर बूट सेक्टर *}
recMasterBoot = रिकॉर्ड
dbReservedCode: ARRAY [0..adwPartitionTable-1]
System.Byte; {} 000
recDiskPartitionsTable: ARRAY [0..aMaxAvailLogicalPartition-1]
recLogicalPartition; {} 1BE
dwValidBootRecID: System.Word; {} 1FE
समाप्त;
{* recMasterBoot *}


{============================ वरियता पार्ट ===================== ========= *}

वर

grecFixedDiskBoot: recMasterBoot;
gfOutStream: 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.dbReservedCode): (System.Ofs(grecFixedDiskBoot.dbReservedCode)+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।

aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition); - इस टुकड़े पर कसम खाता हूँ!



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

लोग! यह आसान हो जाएगा अगर किसी को पता हो कि बूटलोडर स्रोत कहां है !!



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

यह आवश्यक था कि दो नहीं थे, लेकिन तीन पैरामीटर !!!



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

> कला © (18.12.01 21: 12)

यह आसान होगा यदि आप "पानी को हिलाओ" नहीं है :-)

यहाँ प्रक्रिया घोषणा है:
प्रक्रिया को स्थानांतरित करें (const source; var Dest; गणना: पूर्णांक);

और यहां बताया गया है कि आप इसका उपयोग कैसे करते हैं:
System.Move (System.Mem [System.Seg।

मतभेद खोजें ...

Всем проще будет, если кто-нить знает, где достать исходник загрузчика!

"कृपया मुझे पीने के लिए थोड़ा पानी दें, अन्यथा मैं इतना खाना चाहता हूं कि सोने के लिए कहीं नहीं है।"

गुड लक।



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

ठीक है, क्षमा करें, आप सभी को धन्यवाद!



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.62 एमबी
समय: 0.031 c
6-22288
वायुमंडलीय
2001-10-09 23:49
2002.01.08
WinGate


14-22353
एक प्रकार का बाज़
2001-11-02 10:13
2002.01.08
मैं चौंक गया


6-22302
इगोर
2001-10-11 20:10
2002.01.08
डेल्फी में कुर्सियां


7-22442
अलेक्सई
2001-09-26 15:20
2002.01.08
मॉडेम की उपस्थिति का निर्धारण कैसे करें?


1-22009
oomneeq
2001-12-14 21:26
2002.01.08
परिपत्र वर्ग संदर्भ





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский