ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

ダウン

paskalschikamiへの質問??? 似ている枝を探す


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

コンパイラーはVariable Indefinier Expectedエラーをスローし、2つの定数が乗算されるプログラム内の場所を示します。???問題は?



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

Variable Indefinier Expectedは次を意味します:期待される変数識別子。

結論を出す。

コードを渡します。



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 +
「インストールされたコピーから説明文字列をコピー(Y / N):」);
System.ReadLn(gsTempInput);

IF(System.UpCase(_fnchGetFirstChar(gsTempInput))<> achNo)
その後、開始
System.WriteLn(asProgramPrompt + "説明文字列のコピー。");
System.Move(System.Mem [System.Seg(grecFixedDiskBoot.dbReservedCode):
(System.Ofs(grecFixedDiskBoot.dbReservedCode)+ aOS_Desc_Start)]、
(「定数をここに示します)aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition);
終わり;
{if-then}
終わり
ELSE
System.WriteLn(asProgramPrompt + asProgram + "loader not present。");
{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]

問題はここにあるように思えます
"("ここに定数が表示されます) "変数ですか? そして、コンマはどこですか?
そして、そうでなければ構文は正しいです。
Moveプロシージャで使用される正確な呼び出しコードと変数宣言を指定します。



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

皆さん、私はすでに拷問を受けています。今すぐコード全体を提供します!



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

{* ===========================定数部=================== ========= *}

CONST

{プログラム定義}
asPurpose = "OS-MultBoot";
asVersion = "1.30";
asAuthor = "Dima Stefankov";
asCopyright = "著作権(c)1987、1993";
asProgram = "OS-Boot";
asProgramPrompt = asProgram + ":";

{出口コード}
errTerminateOK = 0;
errBootStrapDebug = 1;
errBadReadFixedDisk = 2;
errBadWriteFixedDisk = 3;
errUserInstallAbort = 4;
errUserWriteAbort = 5;
errMismatchLoaderCode = 6;

{その他}
aMaxTpStrLen = 255;
asBlank = "";
achHexPrefix = "$";
asFreeSlot = "<*** free slot ***>";
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; {これらの値が見つかりました}
aOS_Desc_Ofs = $ 04; {の組み立て後}
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";


{* =======================型付き定数部====================== === *}

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 = RECORD
dbReservedCode:ARRAY [0..adwPartitionTable-1] OF
System.Byte; {000}
recDiskPartitionsTable:ARRAY [0..aMaxAvailLogicalPartition-1] OF
recLogicalPartition; {1BE}
dwValidBootRecID:System.Word; {1FE}
終わり;
{* recMasterBoot *}


{* ===========================可変部================== ========= *}

VAR

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]

では、コンパイラは2つのMoveのどちらを誓いますか?
まあ、あなたから情報を一滴ずつ引っ張らないでください、あなたはすぐに疲れます。



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

>彼はこの行をスキップすると、すべてのパラメーターを意味します!

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

3つのパラメーターがあります

System.Move(System.Mem [System.Seg(grecFixedDiskBoot.dbReservedCode):(System.Ofs(grecFixedDiskBoot.dbReservedCode)+ aOS_Desc_Start)]、 aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition);

2つのパラメーターがあります

> SYSUTILSモジュールから移動する

それはどういう意味ですか?



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

SYSUTILSモジュールから移動する



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

さて、モジュールを叩いてください!
System.Move(System.Mem [System.Seg(grecFixedDiskBoot.dbReservedCode):(System.Ofs(grecFixedDiskBoot.dbReservedCode)+ aOS_Desc_Start)]、

aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition); -この作品に誓う!



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

人々!ブートローダーのソースをどこで入手できるかを誰かが知っていると、誰にとっても簡単になります。



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

2つではなく3つのパラメータが必要でした!!!



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

> Art©(18.12.01 21:12)

「水をかき混ぜる」ことをしない方が簡単です:-)

プロシージャ宣言は次のとおりです。
プロシージャMove(const Source; var Dest; Count:Integer);

そして、これがあなたの使い方です:
System.Move(System.Mem [System.Seg(grecFixedDiskBoot.dbReservedCode):(System.Ofs(grecFixedDiskBoot.dbReservedCode)+ aOS_Desc_Start)]、aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition)

違いを見つける...

ブートローダーのソースの入手先を誰かが知っていると、誰にとっても簡単になります!

「水を飲ませてください。さもなければ、寝る場所がないほどたくさん食べたいです。」

幸運。



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

さて、ごめんなさい、みんなありがとう!



ページ: 1 全枝

フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

2階









メモリ:0.63 MB
時間:0.031 c
14-22406
VEG
2001-11-10 12:56
2002.01.08
ここでは私とは違っていました...


1-22231
リヴァイアサン
2001-12-16 22:16
2002.01.08
BitBlt ...


14-22356
密な
2001-11-06 20:00
2002.01.08
プログラミングへの干渉....歯痛!


7-22419
牧師
2001-09-21 10:31
2002.01.08
Pentium III 800にアップグレードする価値のあるCeleron 800はありますか?


7-22426
inferno123
2001-09-25 10:32
2002.01.08
ポートプログラミング





アフリカーンス語 アルバニア語 Arabic アルメニア語 アゼルバイジャン語 バスク ベラルーシ Bulgarian カタロニア語 中国語(簡体字) 中国語(繁体字) クロアチア チェコ語 デンマーク語 Dutch 英語 エストニア語 タガログ語 Finnish フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 Indonesian アイリッシュ イタリア語 和風 Korean ラトビア語 リトアニア マケドニア語 Malay マルタ語 Norwegian
ペルシア語 ポリッシュ ポルトガル語 ルーマニア ロシア語 セルビア Slovak スロベニア語 スペイン語 スワヒリ語 Swedish Thai トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский