Pascal の初心者用の� ..

---

[2ch|▼Menu]

83:デフォルトの名無しさん
02/01/07 13:33
>82 制御文や演算子の数ではpascalがシンプルだし
　　文字列や配列の扱いは マシンから見たらcがシンプルだけど人から見たらpascalがシンプル

84:デフォルトの名無しさん
02/01/07 13:52
>>83
制御構造だと
Pascal場合
if
case
for
while
repeat..until

Cの場合
if
for
switch
while
do..while

同じようなもんでしょ。

演算子はCの場合、配列とかポインタ関連もすべて演算子の
カテゴリに入ってるから仕様書をみると数が多いように見えるけど
実際に使用すると、Pascalに比べてとくに複雑と感じないし。

85:８３
02/01/07 14:05
シンプルが簡素な意味だとしたら
　Cのfor文は簡素じゃないでしょ？
　while文にしてもpascalは論理型しか書けないけど cは数じゃない？
　コンパイラ側から見たら　全部が数ってのはシンプルかもしれないけど
　型が区別されてる方が人間から見たらシンプルだと思うんだけどなあ

それと cのreturn は文だけど pascalのexitは手続きで予約語じゃないとか

まあ似たようなもんだけどさ

86:デフォルトの名無しさん
02/01/07 14:27
>>85
たとえばPascalのforだったら、私は使いはじめのころはどうして
順序型しかつかえないのか、どうしてグローバル変数は使えないのか、
疑問に思いましたし、
ずいぶん慣れてからも to と downto の使い分けで、ケアレスミスを
してました。

PascalとCがどちらがシンプルかってのは、まあ主観の問題ですね。
実際に問題、大差ないと思います。

87:デフォルトの名無しさん
02/01/07 23:01
だれか簡潔に説明してください。

FreePascalのマニュアルみていたら「Graphユニット」があって線を引いたり
円を描いたりできるみたいです。これってTurboPascalから引き継がれたユニット
だと思う。

問題は「Graphユニットの初期化」ってやつ。
基礎的なことが分かりません。なぜ、このユニットだけは初期化という作業が
必要なのですか？またサンプルコードをみても「何でこんな常套句が必要なのか
わからない」といったコードがあります。そもそも初期化って何？？？？
それから「グラフポートをOpenしたらCloseせよ」って何？

文字色を変えたりするのは「Crtユニット」を使うわけで、そちらはサンプルを
見てもだいたい意味が分かるのですが・・・。

88:デフォルトの名無しさん
02/01/08 04:46
1. そういうものだ。気にするな。
2. 昔はハードウェア毎に異なる（デバイス）ドライバを，アプリケーション毎に読み込んでいたから。
DOS はグラフィックボードの管理はしないのだ。
3. 古いアーキテクチャで作られた物が，現代の人にとって易しいとは限らない。
古けりゃ簡単，ってことなら古文/漢文で苦しむ人はいないよな。

89:デフォルトの名無しさん
02/01/09 15:51
ハード屋さんとかマシン語の得意な人にはCの方がやさしいし
BASICから入った人には文字列でつまずかないだけでもPascalの方がやさしい
・・・と思う

90:87
02/01/09 21:57
Graphユニットのサンプルをコピペしてdev-Pascalにてコンパイルしました。
エラーがでます。integerで宣言されるinitGraphで使用する変数を、shortintで
宣言するとエラーが消えてサンプルアプリができました。あとは少しずつ
手続きや関数を書き足して調べてみます。

91:デフォルトの名無しさん
02/01/10 01:00
FreePascalってのは起動時コンソールプログラムしか作れないのですか？

>>83 TurboPascal系はレジスタ渡しで関数呼べるのでPascalのほうがマシンよりでは？

92:デフォルトの名無しさん
02/01/10 01:32
>>87
なんでファイルをいちいちOpenしたりCloseしたりしなくてはならないのですか？
なんでFindFirstしたらFindCloseしないといけないのとか。
なんでAllocしたらFreeしないといけないのとか。

と似たようなものですな(w

93:アライグマPascal
02/01/10 08:02
>91
Windowプログラムもつくれますよ。

94:デフォルトの名無しさん
02/01/10 09:13
おい！>>2と>>4！！
貴様ら！！！！逝ってよしです。

ていうか、ム板にそんなもの貼ってうれしいんですか。

95:デフォルトの名無しさん
02/01/19 03:15
URLﾘﾝｸ(community.borland.com)
ここから Turbo Pascal 5.5 がダウンロードできます。
割れではないです。


96:デフォルトの名無しさん
02/01/19 03:26
ところで今のDelphiのObjectPascalと、
Turbo Pascal 5.5 との互換性がどれぐらいあるのか、
誰か説明できる人いないかな？

97:デフォルトの名無しさん
02/01/19 03:27
ダウンロードしたけど、インストールの途中で先に進めません（死


98:デフォルトの名無しさん
02/01/19 03:28
>>96
Object PascalはTPのほぼスーパーセット｡
ライブラリは除く｡

99:デフォルトの名無しさん
02/01/19 03:30
>94
何これ？

100:デフォルトの名無しさん
02/01/19 17:06
インストールの途中で先に進めなくなるけど、シカトして、TPフォルダの中のEXEを実行したら、ちゃんとインストールされてました！
コンパイル＆実行までできました！
あとはTurbo Pascalの本買ってこよ。
Pascal そのものの本はあんまりないけど、Turbo Pascal の本はいっぱいあるし。


101:91
02/01/19 18:17
>>93 そうなんですか。実行ファイルにcigwinがいるとかいわなそうだし
テンプレートそろえてエディターがRADのものがあれば
FreePascalのほうがdelphiよりよさそうですね、
要は一般的なサンプルが少なくて古典的なものばかりだということなんでしょうか
GUIアプリでGLUTあたりをかますものであれば大体なんでもできそう

102:デフォルトの名無しさん
02/01/19 18:25
エディターがRAD　ってのがなんか無理めな話しのような・・・

Delphiは 実行時型情報と
　DLL にコンパイルして設計時にも動作するコンポーネントという概念
　それをサポートするツールが組み合わさってRADになってるんだから

103:デフォルトの名無しさん
02/01/19 20:01
いったい何をどう評価すればFreePascal>>>Delphiになるんだ??

104:アライグマPascal
02/01/19 23:13
>101
くどいけど、Win32環境でのプログラミングならDev-Pascalを使った方が、
素のFreePascalを使うよりFreePascal＆統合開発環境である関係上多少使いやすい
とおもいます。

GUIのためにGTKをつかうひな形が用意されているのですが、GTKをまったく
知らないので私は使いこなせない状況です。

105:デフォルトの名無しさん
02/01/19 23:17
FreePascalってなんて読んでる？俺はフリッパー

106:デフォルトの名無しさん
02/01/22 00:52
Turbo Pascal の本はなんでめちゃめちゃ高いのが多いんだ。


107:デフォルトの名無しさん
02/01/31 15:13
>>105
俺はフリパ。
同じく、FreeBSDはフリビ、
でもFreeDOSはそのままフリードス。



108:デフォルトの名無しさん
02/01/31 20:00
アマゾンでTurbo Pascal の本を探した。
みんな7か6対応の本ばっかりで、５対応の本があんまりない。
漏れがダウンロードしたのは5だから、できれば５の本がいい。
それとも、７と５であんまり変わってないなら、７の本を買おうと思うが、そのへんどうなんでしょう。


109:デフォルトの名無しさん
02/01/31 21:02
オーム社「TURBO Pascal プログラミング」間野浩太郎監修、内田智史著 \3,600
は4までが対象だけど、これでは古すぎるかな

110:デフォルトの名無しさん
02/01/31 21:05
5.5からオブジェクト指向を搭載、って書いてあるので、たぶん、４と5.5はだいぶ違うと予想されるのですよ。
5.5と7の違いがよくわからん。


111:デフォルトの名無しさん
02/01/31 21:15
今調べたら、
「TURBO PASCAL 5.5 OOP GUIDE」BORLAND刊」
というのを見つけた。そうだ。ボーランドの本を使えばいいのだ。
まだ売ってるのかわからんが。


112:デフォルトの名無しさん
02/01/31 21:47
>>108
オブジェクト指向を使わないのなら、TP4-7は大して変わらないと思われ。

113:デフォルトの名無しさん
02/01/31 21:57
>>112
ありがとう。そんなら、７の本を買う。


114:デフォルトの名無しさん
02/01/31 22:15
古本屋いけ。

115:デフォルトの名無しさん
02/01/31 23:45
パスカルの本買いたいけど、なんであんないバカ高いんだろ。
言語がフリーでも意味ないじゃん。

『Oh! Pascal!/Book and Pc/DOS Disk』
Doug Cooper (著); ペーパーバック
通常4〜14日以内に発送
価格： ￥9,093

『Turbo Pascal』
Elliot B. Koffman (著); ペーパーバック
通常4〜14日以内に発送
価格： ￥9,600
手数料： +￥960

『Using Turbo Pascal 6.0 - 7.0』
Julien Hennefeld (著); ペーパーバック
通常4〜14日以内に発送
価格： ￥10,260
手数料： +￥1,026

『Turbo Pascal』
Samuel L. Marateck (著); ペーパーバック
通常4〜14日以内に発送
価格： ￥14,467

『Turbo Pascal, an Introduction to the Art and Science of Programming (The Benjamin/Cummings Series in Structured Programming)』
Walter J. Savitch (著); ペーパーバック
通常4〜14日以内に発送
価格： ￥8,933
手数料： +￥894


116:デフォルトの名無しさん
02/01/31 23:49
＞パスカルの本買いたいけど、なんであんないバカ高いんだろ。
これだけ読んで、
高いといっても5000から6000円程度だろ
とレスを付けようとして続きをみてびっくり。
それぞれ1000ページくらいの大作なのだろう。

117:デフォルトの名無しさん
02/02/01 01:18
>>115
無理にメリケンの本を買おうとするから高いのであって
ニポーンの本で我慢（？）すればそこまで高くはないよ

118:デフォルトの名無しさん
02/02/01 04:17
じゃなくて、洋古書は売れないと高くなるの。
どの本も大昔の書籍だってこと、わかっているのかな？
なぜ Delphi ではなく TurboPascal を求める？


119:デフォルトの名無しさん
02/02/02 00:00
だってDelphiなんて、GUIだとか余計なことがｲﾊﾟｰｲついてて本質が見えないじゃないか。


120:デフォルトの名無しさん
02/02/02 01:29
>>119
自分で制限可能だよ。
まあやろうとしてることはコイツらと変わらんが

Delphiで小さな実行ファイルを作ろう
ｽﾚﾘﾝｸ(tech板)

121:デフォルトの名無しさん
02/02/02 03:38
だからといって古いソフトを持ち出さなくても...
弘法筆を選ばず。本質が見える人は GUI がついていても道を見失うことはない。
初心者であれば手軽に手に入る，最新の道具で入門をしなされ。



122:デフォルトの名無しさん
02/02/02 08:22
TurboPascalの入門というかPascalをテーマにしたHPを作りたいのですがいいですか？

123:デフォルトの名無しさん
02/02/02 15:20
ようするに　Delphiでも新規作成で　その他->コンソールアプリケーションを選べば
　VCLによらない素のpascalで遊べます

コンソールが不要な SDK方式でのGUI を作りたければ、
　コンソールアプリを選んだ後　{$APPTYPE CONSOLE}　を自分で削除すればいいのです


124:デフォルトの名無しさん
02/02/02 23:30
TP5.5は、統合環境がWin9xのDOSプロンプトでは動かないよね。
つまりデバッガを使いたければDOSモードへ行かねばならない。
これからPascalを始めようとする人には、あまり向いていないと思うよ。

125:デフォルトの名無しさん
02/02/03 00:25
>>122
作るのは貴方の勝手です。ご自由に・・・

126:デフォルトの名無しさん
02/02/04 08:00
>87
ふむふむ、確かにFreePascalでもGraphユニットやCtrユニットが用意されているね。
Turboとの互換を考慮してとおもうけど。
GraphDeviceあたりの型を、エラーを参考にShortInt型に書き換えるだけで、きちんと
グラフィックが描ける。英語版のTP5.5をゲットしてDosプロンプトで動かすより、
こちらの方が簡単みたい。
＞122
私もTPやFPをネタにコツコツとＨＰを作ってみようと思っています。

127:デフォルトの名無しさん
02/02/04 10:19
>>124
ガセ。正しく環境を作れば動く。
DPMI 関連の資料をよく読んで。

128:デフォルトの名無しさん
02/02/04 12:21
C:>US
C:>TP
:
:
C:>JP
C:>EXIT


129:デフォルトの名無しさん
02/02/04 12:56
>128
ＵＳモードじゃ日本語つかえんぞゴラァ！

130:デフォルトの名無しさん
02/02/04 13:13
え？TP5.5 って、US のミュージアムから落とした物のこと？
じゃしょうがない。US モードにするしかないだろ。

131:ふむふむ（納得）
02/02/04 13:48
英語版のTP5.5でも日本語はつかえるけど、GraphやCrtユニットは日本語対応じゃ
ないので、日本語文字列はWriteLnなどの手続きでコンソール上に出力することしかできない。

132:124
02/02/04 21:18
>>127
今まで知らなかった。ご指摘ありがとう。
DOSプロンプトのプロパティで「必要に応じてMS-DOSモードを実行」を外したら動いた。

>>131
DirectVideo := False;
とすれば、Crtユニットによるテキスト出力がBIOS経由になるから、
DOS/V BIOSのおかげで、Writelnで日本語文字が出力できるようになるよ。
GraphユニットのOutTextでの日本語出力は、無理そうだね。

133:デフォルトの名無しさん
02/02/04 21:21
昔のPascalなんてコンパイル速度が速いだけしか取り柄が無いよ

134:デフォルトの名無しさん
02/02/04 21:49
Delphi6パーソナルを使った pascalのスタート教室

１） FILE-> 新規作成->その他->コンソールアプリケーションを選びます
　すると
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
{ TODO -oUser -cConsole Main : この下にコードを記述してください }
end.
とソースが表示されます
　program Project1;　 uses SysUtils;　はボーランドによる拡張ですから取り去ってかまいません
{$APPTYPE CONSOLE} も取り去ってかまいませんが、代わりにコンパイルオプションでコンソール
アプリである事を指示する必要があります

結局、最初に書くアプリは　これでいいでしょう　
{$APPTYPE CONSOLE}
begin
writeln('こんにちは');
readln;
end.

この２行を入力した後、F9　を押せば実行出来ます

135:ふむふむ（納得）
02/02/04 21:49
>132
ふむふむ、自分はまだGraphユニットとCrtユニットを完全に理解していなかった
ようです。サンプルコードを希望します。

自分はPC-9800シリーズ用のTP６プロフェッショナル版をもっていますが、
引っ越しのどさくさでソフトはあれど、マニュアルをすべて無くしてしまったのです。
TP6のマニュアルに書かれていたクラスの概念はとても分かりやすかっただけに、
すご〜〜〜〜く、残念です。

だれかGraphユニットとCrtユニットの詳しい解説をサンプルを使って説明して
くれませんか！！

136:デフォルトの名無しさん
02/02/04 21:52
さて、>>134の方法で作成した場合、ソースは dprの拡張子となっています。

Delphi IDEを使わない方法を説明します。

まず メモ帳でも好きなエディタでも、　ファイル名.pas としてファイルを作成し
begin
writeln('こんにちは');
end.
と３行入力し、保存して下さい。
コマンドラインから
　DCC32 -CC ファイル名.pas　として改行すれば
ファイル名.exeが作成されます


137:デフォルトの名無しさん
02/02/04 22:04
uses　を使わない場合に使えるのは system unit の関数だけです

uses SysUtils ;が　追加された状態では、abort; Ansi/Unicode文字列処理や時間などの関数が追加されます





138:デフォルトの名無しさん
02/02/04 22:10
コンソールアプリであっても、グラフィック画面を扱いたくなります
Windowsの場合、コンソールにグラフィックを表示する事は出来ません。
そこで、別窓を出してグラフィックを出すか
あるいは、BMPファイルを作成して後でビュアーで見るという方法が簡単です

Delphiのフォーム機能をグラフィック画面としてコンソールアプリから使う方法を説明します



139:デフォルトの名無しさん
02/02/04 22:20
まずは、IDEからコンソールアプリを作成した直後
新規作成でフォームを作成して下さい

そして以下のように入力して実行してみて下さい

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Forms,//<----この行を追加
Unit1 in 'Unit1.pas' {Form1};

begin
Form1:= TForm1.Create(nil); //<<--この行以下を追加
Form1.Show;
Form1.Canvas.Ellipse(20,20,100,100);//円の描画
Form1.Caption:= 'こんにちは';
readln;
end.

実行すると、コンソールと同時にタイトルがこんにちは　となった　フォームが表示された筈です
このフォームはクリックに応答しませんし、他の窓に隠れると再表示もされません
が、とりあえずこれで遊ぶには十分に便利な筈です



140:124
02/02/04 22:42
>>135
>TP6のマニュアルに書かれていたクラスの概念はとても分かりやすかっただけに、
おお、同意。なんか執筆者のすごい熱意が感じられる文章だった。

Crtユニットを使って日本語を出力する例。
TP5.5、Win95のDOSプロンプトにて確認しました。JPモードで実行して下さい。

program test;
uses Crt;
begin
　　DirectVideo := False;
　　GotoXY(30,10);
　　TextColor(Red);
　　Write('こんにちは');
end.

2バイト目が'のコード番号と一致するような日本語文字を文字列中に入れる場合には注意。
コンパイラがその'を文字列の終わりと認識するのを防ぐため、'を一つ追加してやる必要がある。

141:デフォルトの名無しさん
02/02/04 22:43
ターボパスカルって、いまC#作ってる人と同じ人が作ったの？


142:動物ｱｲｺﾞｰ協会
02/02/04 22:47
あらいぐまパスカルとかパトラッシュ思い出すんだけど。


143:デフォルトの名無しさん
02/02/04 22:49
さて、>>139の方法はあまりにも無理やりで作法としてよくありません。
そこで、コンソールアプリからBMPファイルを作成して表示させる方法を説明します

まず、新規作成でコンソールアプリを新しく作った後

uses
windows, //WindowsのAPIを使います
ShellApi, //ShellExecuteを使う為に
Graphics, //TBitMapを使う為に
SysUtils;
var bmp:TBitmap;
begin
　bmp:=TBitmap.Create;
　with bmp do try
　　Width :=100;
　　Height:=100;
　　PixelFormat:= pf1bit;
　　Canvas.Ellipse(1,1,100,100);//円を描く
　　Canvas.TextOut(5,5,'こんにちは');
　　SaveToFile('temp.bmp');
　finally free;end;
　ShellExecute(0,'Open','temp.bmp',nil,nil,SW_SHOW);
end.
として実行してみて下さい
このコードはコンソールを使用していませんから、コンソールアプリである必要もありませんから
{$APPTYPE CONSOLE} も取り去って大丈夫です


144:デフォルトの名無しさん
02/02/04 23:16
>>139 の方法がなぜ良くないかをまず説明します

　Windowsでは複数の窓があるように見せていますが、実際の表示デバイスはせいぜい１つです
　他の窓に隠された部分が　また表示されるのは、アプリケーションが努力しなければなりません
　その為の仕掛けをメッセージループと呼びます
　窓はメッセージを受信する仕掛けをもち、再描画しろというメッセージにしたがって画面を自分で
　描くわけです。
また、キーボードが押された、マウスが押されたもメッセージにより処理されます。
Delphiでは　application.ProcessMessages; で明示的にそのメッセージループを呼び出す事も
出来ます。コンソールアプリでapplication.ProcessMessages;を定期的に呼び出せば、作成した
フォームはマウスを受け付ける事が出来るようになります。が、それをしても >>139のように描画
処理をベタに書いたのでは　他の窓に隠れると２度と表示出来ない事にかわりはありません。
この部分をイベント駆動にしなければならないのです。
　それがフォームにある OnPaintイベントです。






145:デフォルトの名無しさん
02/02/04 23:35
>>143 のコードを説明しょうと思いましたが、
　Delphi6のIDE上で F1を押せば知りたい情報は殆ど出て来る筈です

bmp.PixelFormat:= pf1bit; はモノクロビットマップを作るという意味になります
その他の多色形式はヘルプを見て下さい


ShellExecuteは 作成した　temp.bmpをそのパソコンに設定された方法で
　　開くためのAPIです

円以外のグラフィック描画命令は TCanvas でヘルプを見て下さい
線の色の設定や線の太さは Canvas.Pen で設定します
面の 〜 は Canvas.Brush で行います
文字の〜は Canvas.Fontで行います

146:デフォルトの名無しさん
02/02/05 00:40
なんかものすごく丁寧に説明されてる方がおられるようですが、
ひょっとして穂積○平さん？

147:ふむふむ（納得）
02/02/05 07:56
>140
サンキュー

今、FreePascalでGraphユニットを使って日本語をなんとかグラフィックと
混在表示できないか検証中です。やっぱ、outTextでは文字化けしますね。
（Win2000のコンソール画面で検証）

148:デフォルトの名無しさん
02/02/05 08:50
人のやる事にああだこうだは言いたくないけど、今更DOSアプリの研究してどうすんの？
それはもうコンソールアプリじゃないよ
そこらへんやりこむにはインラインアセンブラ使うしかなくなるしさあ

pascalの勉強ならDelphi6パーソナルで始めたらいいじゃない


149:デフォルトの名無しさん
02/02/05 11:52
>>148
禿同。
コンソールアプリでもない機種依存アプリでしかない。Windows が動かないほど
古いマシンでの話ならともかく Win の DOS-BOX で動かそうとしているようだから
意図がわからない。

本質的なプログラムをしたいなら、Graph がどうこうとか言ってる場合じゃないとおもうが。


150:ふむふむ（納得）
02/02/05 12:15
>148
>149

私も含めてTPやFPを使っている人は、これで飯を食っているわけじゃないとおもいますけどね。
ただ、知的好奇心を満たすため、また昔を懐かしみたいがために、前記のツールでコツコツとコードを書いて
遊んでいるとおもいます。

>148
私はアセンブリ言語はサパーリわかりませんので、インラインアセンブラは未体験ですけど、
使いこなせたらおもしろそうですね。
>148
我が家には486・33MHzマシンもペン150MHzマシンもあります。再利用を考え中です。
FPですが、LinuxやDOS、OS/2、旧バージョンはアミーガでも稼働できるそうなので、
ツールになれたらそれらのOSでも楽しめそうです。（私はOS/2も持っています）
個人的にはBeOS（瀕死状態ですが）、今後発表される予定のFreeBeOSにFPが移植されたら
有り難いのですが・・・・。

151:デフォルトの名無しさん
02/02/05 12:20
昔の書籍のリストを実行させたいのなら、意味がある。

152:148
02/02/05 12:44
棘の道だなと思うけど、それが好きなんだと言われたらしょうがない話しだからもう言わない

ワンダーウイッチ開発をTPで出来るように環境を整えるとかの方向なら面白いとは思うんだけど・・・

153:デフォルトの名無しさん
02/02/05 13:08
>>150
486の３３Mを生かしたいなら kylixやればいいのに
486では開発出来ないだろうけど、作った実行ファイルは実行出来るだろうに

154:ネタsage
02/02/05 13:25
>>142
♪神サマありがと〜お、ボクにともだちをくれ〜て〜〜〜。
♪パスカルに〜あわせてくれて、パスカルに〜あわせてくれて
♪パスカルに〜あわせてくれて、パスカ〜ルにあわせてく〜れ〜〜て〜〜


155:デフォルトの名無しさん
02/02/05 13:39
2ch だしぃ... どれが誰だかわからないけど

>119 ：デフォルトの名無しさん ：02/02/02 00:00
>だってDelphiなんて、GUIだとか余計なことがｲﾊﾟｰｲついてて本質が見えないじゃないか。

ってのがあるから、「Graph/CRT でごそごそやるくらいなら Delphi つかったら？」
といっているの。いまどき SVGA どまりのグラフィクスでもないでしょ？

156:ふむふむ（納得）
02/02/05 13:49
>154
♪ごめんね素直じゃなくって。夢の中なら言える。
♪思考回路はショート寸前。あなたに会いたいよ。

　「美少女戦士セーラー・パスカル」
　　　　　　　　　　　　　　　　　　ヘジに替わってデバッグよ！

>153
　　　kylixはFreeBSDでは動かないのではないかと思います。
　　　私はlinuxよりFreeBSD派です。（ごめんなさい）　　
　　　それより486でlinuxやFreeBSDを使うということはXはあきらめろ
　　　ということになりそうです。

157:デフォルトの名無しさん
02/02/05 14:06
で、結局、何をしたいのか？

158:デフォルトの名無しさん
02/02/05 18:46
>>157
Delphi以外でPascalの勉強だろ？

159:ふむふむ（納得）
02/02/05 21:19
ちがうってば

DelphiでもTPでもFPでも、とにかく手持ちの処理系を使った
Pascalの学習さ。


160:デフォルトの名無しさん
02/02/06 00:22
Graph ユニットや CRT ユニットの使い方を学ぶのが Pascal の学習か？と聞いているんだよ。

161:デフォルトの名無しさん
02/02/06 01:18
それは一つの手段でしょ．
なんでそんなに突っかかるのか小一時間（略

162:デフォルトの名無しさん
02/02/06 07:58
Pascalは、処理系を作るのが学習です。

163:デフォルトの名無しさん
02/02/06 08:06
>140
win2000のコンソール画面（JPモード）では文字化けします。
対策はやっぱり、旧Winと文字コードの取り扱いがちがうから無理でしょうか？

164:ヒロシ
02/02/06 18:57
⊂（□ー□⊂⌒｀つ≡≡≡≡≡≡＜ヒロシ（１６４）ゲト！！！

165:アライグマPascal
02/02/15 12:00
今、PascalプログラミングのHPを作っています。
昔のTurboPascalを思い出す懐かしいやつです。
今年の８月頃Openの予定です。

166:424
02/02/15 12:17
なんかフリーのＳＲＰＧ作成ツール無い？
（ＳＲＣ以外で）
ガチャポン戦士3作りたくなった


167:424
02/02/15 12:18
pascal板かここ・・・
すいません、逝ってきます。

168:デフォルトの名無しさん
02/02/15 15:07
「PASCAL でガチャポン戦士をつくるうっっ！！」
この壮大な計画を遂行するため、424は立ち上がった、、、
歴史は動き始めた、、、

169:424
02/02/15 15:21
ツールが見つかりません。
逝ってきます。

170:アライグマPascal
02/02/18 10:01
今ちょこちょこっとHPをつくっています。実はOpenしたのですが、まだ
コンテンツが激貧なのでURLは秘密です。古いPascalの簡単なサンプルを
公開・保存する場にしたいと思っています。

171:デフォルトの名無しさん
02/02/18 13:58
確か、フランスのボーランドサイトから、仏語版のTP7がダウンできるはず(FREE)
　NECRT.TPU という、CRT互換unitをダウンすれば、日本語だって出力可能

おいらは統合環境は使わないから、これで問題なし

172:デフォルトの名無しさん
02/02/18 23:37
>>170
楽しみにしているぞゴルァ。

>>171
フランスのBorlandからわけのわからないメールが届くようになるという
諸刃の剣。

173:アライグマPascal
02/02/19 08:18
たいへん。Dev-PascalのURLが使えなくなりました。移動したのか？
それともなくなったのか？

174:アライグマPascal
02/02/23 01:09
復活したもようですね。


175:デフォルトの名無しさん
02/02/23 01:47
>>145
「ヘルプを見て下さい」ばかりだと、このスレ意味なしだと思いません？

コンソールアプリにこだわりながら、なおかつ、TCanvas を論じている
こと自体に無理があるのでは？


176:アライグマPascal
02/02/23 23:38
本家からFreePascalをダウンロードして、エディタはCPadあたりを
利用して以下のソースをコンパイル。

program test;
uses Graph;
var
GraphDriver:smallint;
begin
GraphDriver := Detect;
InitGraph(GraphDriver,30012,'');
SetColor(4);
circle(300,200,100);
readln();
CloseGraph;

end.

画面に赤い円が表示されたら成功。（懐かしいでしょ）

177:デフォルトの名無しさん
02/02/23 23:57
赤い玉が出てくるの？

178:デフォルトの名無しさん
02/02/23 23:58
>>5
いまさらなつっこみで悪いんだが・・・

absolute変数があったり、
「Mem[****] := ****」とか「Port[**] := **」なんてことができたり
inline手続きがあったりするので
PascalはCよりもっと危険なのでは？

Cじゃメモリの番地を直接指定して書き込みするなんてことはできない
ポインタを介して間接的なやりかたでやらねばならないぶん、
Pascalよりも安全性はほんの少し高いとも言えないか？

Delphiはともかく、DOS時代のTurbo Pascalなんて、
ハードウェアを直接いじるような目的で使われることが多かったし、
実際、procedureの中身はアセンブラソースをasmとendで括っただけなんていう
ほとんど高級アセンブラ的なPascalの使い方をしてるソフトが
数多くまかり通ってたものだが


179:デフォルトの名無しさん
02/02/24 00:20
>178
>PascalはCよりもっと危険なのでは？
なんでやねん。
危険なのは(言語を問わず)ハードを直接操作することでしょ。
高級なことやりたいんなら危険専用の命令である
inline/absolute/asm使わなければそれで十分安全性を確保できる。

それに対してCは高級・低級ともにポインタ使わざるを得ないから
高級な目的で書かれたコードですら安全とはいいかねる。

180:デフォルトの名無しさん
02/02/24 03:12
178 の理屈だと

XXX 言語はインラインアセンブラがあるから、特権命令も記述できるので
一行でハングアップするコードがかける。危険！

ということもできそうだが、さすがにこれには同意しまい？

181:アライグマPascal
02/02/24 06:25
したらばBBSでもおねがいしましたが、みなさん、昔のBASICゲームプログラムの
ソースをもっていませんか？ベーマガに載っていた、１画面プログラムみたいなものです。
音やスプライト機能はできないと思いますが、なんとかPascalで書き直してみたいと
思っています。ここにソースをアップしてみんなで考えたら、勉強のネタとして
おもしろいと思います。

182:デフォルトの名無しさん
02/02/25 10:24
1 COLOR15,1,1:SCREEN5,1,0:R=RND(-14):FOR
I=0TO212:P=PEEK(I+800):PSET(P,I),IMOD3+2
:NEXT:FORI=0TO7:VPOKE30721+I,255:VPOKE30
736+I,24:NEXT:OPEN"GRP:"AS1:SOUND6,18
2 DEFFNS=RND(1)*175+25:DEFFNR=(INT(RND(1
)*10)-5)/10:C=FNR:D=FNR:G=FNS:H=FNS:Y=99
3 LINE(E,200)-(E+20,212),1,BF:FORI=2TO4:
COLOR=(I,0,I*2-2,I*2-1):CIRCLE(G-I,H-I),
(6-I)*2,I:PAINT(G-I,H-I),I:NEXT:LINE(G,2
00)-(G+20,212),5,BF:SOUND7,183:X=120:E=G
4 S=STICK(0):A=(S>5ANDV>-8)-(S>1ANDS<5AN
DV<8):B=((S=8ORS=1ORS=2)ANDW>-8)-(S>3AND
S<7ANDW<8):V=V+A+C:W=W+B+D:X=X-V:Y=Y-W
5 VDP(24)=(Y+149)MOD255:PUTSPRITE0,(X,Y)
,10,0:PUTSPRITE2,(X,Y+B*9),ABS(B)*9,2
6 PUTSPRITE1,(X+A*14,Y+8),ABS(A)*9,1:IFP
OINT(X+8,Y+18)=5THENN=N+1:BEEP:GOTO2
7 SOUND8,-(S>0)*13-(S/2=S\2)*2:IFX>4ANDX
<238ANDY>-10ANDY<194THEN4ELSEFORI=0TO50
8 D=RND(1)*31:SOUND6,D:SOUND8,15:VDP(24)
=ABS((Y+D\3+144)MOD256):NEXT:Y=Y+(Y<0)*Y
9 PSET(80,99):PRINT#1,"GAME OVER";N+1
10 SOUND8,0:FORI=0TO255STEP.5:Y=Y+I:Y=Y+
(Y>255)*Y:VDP(24)=Y:NEXT:POKE-869,1:RUN


183:アライグマPascal
02/02/26 21:55
どうもありがとうございます、しかし・・・。

peek、poke、sound、vdpなど、移植が難しいコマンドが目白押しですね。
参考にさせていただきます。


184:デフォルトの名無しさん
02/02/26 23:08
peek pokeは全然難しくない
むしろBASICより簡単だ。メモリ配列に代入するだけで済む
Mem[$****] := hoge　　　　hoge := Mem[$****]

スプライトは無理だけど重ね合わせ処理で代用できるでしょ

185:デフォルトの名無しさん
02/02/26 23:14
>むしろBASICより簡単だ。メモリ配列に代入するだけで済む
その副作用は一切無視？

186:デフォルトの名無しさん
02/02/26 23:50
>>185
BASICのプログラムをPascalで書き直すって言ってるんだから
元と同等のことをやればよいだけだろ
BASICと同様の単純なシステム上の話じゃないのか？
WindowsだのUNIXだのの上ではもちろんそんな乱暴なことは許されないけど、
単純なシステム上ならそういう乱暴な方法でしかゲームは書けないよ


187:デフォルトの名無しさん
02/02/27 00:03
>182のBASICが動くパソコン用のPascalコンパイラなんてまずないだろ。
ハードが変わったらpeek,poke(Mem)の移植性なんて皆無。
大体MemってTP専用じゃなかったか？

188:デフォルトの名無しさん
02/02/27 00:22
そうかbasicで組むときpeek使うと移植性が低くなるのか
でもBASICなんてもともと移植性なんか関係無いし。


189:デフォルトの名無しさん
02/02/27 00:34
>>182
MSX-BASICか・・・どこから引っ張り出してきたのやら。
って優花、ベーマガのサイトに行けばダウソ出来るじゃん。

190:デフォルトの名無しさん
02/02/27 00:36
BASICが主流だった当時はそういう乱暴な方法でしかゲームは作れなかったんだから仕方ない

TPだってMS-DOSがグラフィックやサウンドの機能をサポートしてなかったから
やっぱりMem配列とかの乱暴な手段は必須だった


191:がうがう ◆gu5gIE4w
02/02/28 20:46
初めまして。このたび、ＨＰ２００ＬＸを手に入れたんですが、これと
同時にBorland C++ Suite を何故か、購入しちゃって、これにＢＰ７が
入ってまして、ｐａｓｃａｌをやりたくなったんですが

１．ＨＰ２００ＬＸぐらいのスペックだとＰＡＳＣＡＬって厳しいですか？

２．ＣＧＡですが、付属のＣＧＡ．ＢＧＩでは、遅いと思われます？

３．Ｃと比べてどれくらいの実行速度なんでしょうか？

今から始めるので、何も分からなくて恥ずかしいのですがよかったら
上記のことを教えてくださいまし

勉強をかねて、上から線が降りてきてそれをよけるような簡単なものと
三角関数を使ったＲＰＮ電卓を作りたいなと思います。

このスレッドが消えませんように……




192:デフォルトの名無しさん
02/02/28 20:51
>>191
1. 2. は知らんけど

>３．Ｃと比べてどれくらいの実行速度なんでしょうか？
一般論としては引数を全部スタックに積むCより
3つまで（だったかな）ならCPUのレジスタを直接使うPASCALの方が
より高速になりうる・・・と聞いたけど

193:デフォルトの名無しさん
02/02/28 21:16
2 CGA ってのは、アクセラレータも何もない時代だから、CPU パワーが
そのまま描画性能につながる。はず

BGI とかも、速度向上のがんばりようが無いので、速いか遅いかという議論には
ならないな。描画空間の抽象化、という利点はあるけど。

実際には、ハードウェアのウェイトがいっぱいかかっているので、ある程度から
先は頭打ち。（HP200LX だと改造/改良されているかもしれないが）



194:アライグマPascal
02/02/28 21:25
>191
HP200LX!!!!!!!!!!!!!!!!!
のどから足が、鼻からちんちんが（失礼）飛び出すぐらい
欲しかった・・・。あいにくお金がなくて血が出るくらい
下唇をかみしめて泣きながら家に走って帰ったのを昨日の
ように思い出します。＜とても４０歳が書く文章ではありませんな。

LSI-C試食版が動いているのをみたことがあります。それと
TP6（PC98版、もちろん専用ライブラリは使わない）が動いているの
もみたことがありますが、実行速度は変わらなかった気がします。


195:がうがう ◆AGuK1Awo
02/02/28 22:20
>>192

　質問にお答えしていただきありがとうございます！！感謝です

３つまでＣＰＵのレジスタを直接扱うというようなPASCALプログラミングって
どういう感じなのでしょうか？

(#^_^#)話分からなくて……　逆に言えば、この手法でくむように工夫すれば
いいってことですよね？



196:がうがう ◆AGuK1Awo
02/02/28 22:21

>>193
　質問に答えていただきましてどうもです(^-^)　感謝いたします

　ふむ……　すべてはCPU次第なので、遅いから遅いのだということですね？
　これは、Ｃに限らないと言うことでしょうか？

　pascalそのものが早いのか、遅いのか知らないのでこういった質問になったんです
　あるファイルを名前を変えてコピーするという程度なら早いとは思うんですが。
　186マシンではきついのかなあ？

　HP200LXだとライトスリープというのがありまして、コンパイルするのが遅い
　ＭＳＣだと途中でシャットオフになってしまうこともあるそうです。
　もちろんライトスリープですから電源を入れれば何事もなく続きを始めるんですが。

　そのライトスリープをさせないアプリもちゃんと存在します。

　描画空間の抽象化とは何でしょうか？　お教えくださると幸いです。
無学ですいません


197:がうがう ◆AGuK1Awo
02/02/28 22:22

>>194
　あははは(^-^)　今じゃヤフオクで３万程度で手に入りますよ。倍速８Ｍ程度を。
　自分も少しずつ、ボーナスの度に買ってます。
　最終的には１５個欲しい……
　自分の場合はＲＰＮ電卓の部分も大きいというのがあるんですけどね(^-^)

　質問答えてくださいましてどうもです。LSI-Cとそんなに実行速度は変わらない
　ですか！　うれしいお話ですね。がんばろうと思えます！




198:デフォルトの名無しさん
02/03/01 00:30
>>195
PASCALコンパイラが勝手にやってくれるから気にする必要はないよ
引数が3つ（？）までの関数や手続きではそのようにコンパイルされるということ

199:がうがう ◆AGuK1Awo
02/03/02 12:21
>>198
　そうですか（笑）　だとしたらPASCALコンパイラ（Borlandのやつですね）
は、優れているということですね。
　PASCALで作られた有名な作品ってご存じですか？

　自分は、「ＷＴＥＲＭ」ぐらいでしょうか？

皆さんも教えてくださると幸いです



200:アライグマPascal
02/03/02 12:36
ゲームだったら,三大古典ＲＰＧの一つ「ウィザードリィ」ですね。

201:デフォルトの名無しさん
02/03/02 13:23
>>200
そういうこと言うと、厨房どもがわらわら集まってくるので禁止

202:がうがう ◆AGuK1Awo
02/03/02 17:42
>>200
あ、そうか……　APPLEでPASCALでしたね
　しかも独自IP（最初に起動するときに読む奴　IPじゃなかったでしょうか
　それともSIP？）で動くんですよね

　IBM/PC版は、そのエミュで動くと聞きます。
　エミュの上にIPがあってその上でAPPLEのPASCALで書かれたＷＩＺ
　が動くとか。


203:がうがう ◆AGuK1Awo
02/03/02 17:42
>>201
　？？　そうなんですか？
　

204:デフォルトの名無しさん
02/03/02 18:02
パソコン版D&D(RPG)はTurboPascalだったらしい。
ファミコンに移植した人から聞いた。


205:アライグマPascal
02/03/02 23:28
MS-DOSの最初のバージョンあたりはPascalだったはず。
すぐに全面的にCで書き直されたけど・・。

206:デフォルトの名無しさん
02/03/02 23:31
Pascal最初にやるとCの構文が汚く見えるね。

207:がうがう ◆AGuK1Awo
02/03/03 01:05
昔ＢＡＳＩＣマガジンというのがあって、たくさんのソースが載っていて
大変勉強にもなったそうですね。
あるいは、ＭＳＸＦＡＮとかの投稿雑誌があって、MSXＢＡＳＩＣでも
勉強になったとか……

ネットでＰＡＳＣＡＬのソースを探しているんですがなかなか(-.-;)
ゲームに参考になる画像描写（ＣＧＡ)で参考になるのがないですかね？

とりあえず　植木屋　さんのウェブサイトにて　ＣＧＡの参考を
URLﾘﾝｸ(plaza10.mbn.or.jp)

人のソースが一番勉強になるんだけれどもなあ　初心者には(^O^;;


208:がうがう ◆AGuK1Awo
02/03/03 01:06
>>204
　お！あの　Ｄ＆Ｄもですか　やったことはないんですが
　名前だけは伺っています

　そのソース見てみたいなあ


209:がうがう ◆AGuK1Awo
02/03/03 01:08
>>205
　え！　うっそぉでしょ？
　本当にぃ！　それしか言葉が出てこないぐらいびっくりしました
　う
　すげぇなあ。　１．０位の頃でしょうかね？


210:がうがう ◆AGuK1Awo
02/03/03 01:12
先ほどの植木屋さんところのＣソースをプリントアウトして
眺めているんですが、何をどうしてどうするのかが(^O^;;

あるテクニックが何のために必要か、それをどう有効に使うか
以前のＣで何が書かれているのかさえも読めない(^O^;;

Ｃの入門書を買ってきて一行ずつ解析していけば読めるかなあ？
どこかにＣＧＡでPASCALゲームソース公開されてませんか？
探しているんですが見つからない(^O^;;


211:デフォルトの名無しさん
02/03/03 06:41
>210
CGAは対応しているかわかりませんがGrafx2というのがあります。
URLﾘﾝｸ(www-msi.ensil.unilim.fr)

それと URLﾘﾝｸ(www.pascal-central.com) はPascal使いであれば知らないと
似非パスカラーとして認定されてしまいます。:-)


212:デフォルトの名無しさん
02/03/03 06:49
>211
すまぬ。自爆。画面モードと間違えた。(^^;

213:デフォルトの名無しさん
02/03/03 21:04
>>199
まぐローダ

214:デフォルトの名無しさん
02/03/03 23:29
>>199
Ngraph

215:デフォルトの名無しさん
02/03/04 21:50
>211

あと、SWAGもな　＞Pascalerの心得


216:デフォルトの名無しさん
02/03/05 11:17
>215
アドレスはここだ>SWAG
　URLﾘﾝｸ(www.gdsoft.com)

　

217:がうがう ◆AGuK1Awo
02/03/05 15:14
>>211
　知りませんでした(^O^;;　似非パスカラー決定？(-.-;)
　教えてくださって有り難うございます
　翻訳にかけると妙な日本語で（笑）



218:がうがう ◆AGuK1Awo
02/03/05 15:16
おっと　変なところで書きこんじまった(-.-;)

少しずつ読んでいこうと思います


219:がうがう ◆AGuK1Awo
02/03/05 17:58
SWAGのサイトに行ってみようとしたんですが
めちゃくちゃ重くないですか？　ここ

220:デフォルトの名無しさん
02/03/05 18:14
>>199
似非キース　まぐぺ、まるぺ


221:超初心者
02/03/08 01:30
正に今日pascal始めたばかりなのですが、いきなり詰まってます。
procedure A()
　…
A();B();C();
　…
procedure B()
　…
A();B();C();
　…
procedure C()
　…
A();B();C();
　…

てな再帰を作りたかったんですけど、free pascalでコンパイルしたら
Error: Identifier not found B〜
などと怒られてしまいました。
pascalではCの様なプロトタイプ宣言は出来ないんですか？

それと、var a,b integerと宣言して
a:=b/2としたら
Hint: use DIV instead to get an integer result
Error: Incompatible types: got "S80REAL" expected "LONGINT"
と怒られてしまいました。
型変換はどうするのでしょう？




222:デフォルトの名無しさん
02/03/08 01:32
forward

223:デフォルトの名無しさん
02/03/08 05:01
>221

FreePascalにも型変換の概念はあるけど、それ以前の問題として
Pascalでは整数型除算では「／」ではなく「div」を使わないと
文句を言われます。

224:デフォルトの名無しさん
02/03/08 12:44
>>221
Hint: use DIV instead to get an integer result
↑これをちゃんと読みましょう

225:デフォルトの名無しさん
02/03/09 02:40
>>221
実数は整数型変数に代入できない。
Round関数またはTrunc関数を使って整数に変換する。
だけど今のケースは>>223の言う通りdivを使うべきだ。

226:デフォルトの名無しさん
02/03/09 18:54
221は222が
>pascalではCの様なプロトタイプ宣言は出来ないんですか？
にちゃんと答えてくれていることに気が付いているのだろうか？

227:アライグマPascal
02/03/09 21:24
>226
さりげない一言「forward」に私は愛を感じました。
たぶん受け止めていただけたと思います。

228:デフォルトの名無しさん
02/03/09 21:55
気づいてなさそうだからヤボな説明をしておこう

Pascalには「プロトタイプ宣言」は無い
しかし、「プロトタイプ宣言」とは言わないがそれと同じものはある
それがforward宣言だ


229:アライグマPascal
02/03/10 17:50
パスカルの文献が少ないので「サウンド・プレス」さんのところで
翻訳中のFreePascalの関連部分を読むことをおすすめします。URLはずっと
上のほうに書き込んでおります。(以下はその文章の抜粋です）

8.5　フォーワード宣言関数
forward手続きを使うことで実装のない関数を定義できます。関数の実際の
実装はモジュール内であとに続けなければなりません。関数はforward宣言後、
すでに実装されているかのように使われます。次はフォーワード宣言の例です。

program testforward;

procedure First (n:longint); forward;

profedure Second;
begin
WriteLn('In second.Calling first...');
First(1);
end;

procedure First(n:longint);
begin
WriteLn('Frist received:',n);
end;

begin
Second;
end.



230:アライグマPascal
02/03/10 17:53
ぐは、
profedure×
procedure○

231:アライグマPascal
02/03/16 18:03
どなたか教えてください。
あるPascalの書籍に

(1) round(2.5*(5.5-8.9))
(2) (16.4 -10.8)/2.0 >= 1.3+6E-1

という演算の問題があったのですが、書籍の解答は
(1) -8
(2) true でした。

FreePascalでは書籍の解答道理の値を返しますが、スレの上の方にあった
HelloPascalという処理系では -9とFalse を返します。

どちらの処理系の演算が正しいのでしょうか？またどんなルールで演算を
しているのでしょうか？

232:デフォルトの名無しさん
02/03/16 18:28
>>231
そんな、処理系依存の重箱の隅をつつく問題を出す書籍など、捨てろ。

233:アライグマPascal
02/03/16 21:13
ISO-PASCALを解説した本ですが、今まで演習問題は気にもとめなかったのです。

(1)はround(-8.5)と書き直すことができますよね。roundは小数点下を四捨五入
するから答えは-9になるのが当たり前と思っているのですが、違うのでしょうか。
こんな簡単な演算でも処理系依存で値が変わるのは大問題だと思うのですが、
処理系依存とはどういうことでしょうか？

234:デフォルトの名無しさん
02/03/16 21:16
-9.5 は
-10 + 0.5
-9 + (-0.5)
のどちらを正解にしたい？ 銀行家丸め以前の問題。

235:アライグマPascal
02/03/16 21:26
>234

上はそれぞれを丸めると-10+1=-9
下はそれぞれを丸めると-9+(-1)=-10になるということでしょうか？

でもround(2.5*(5.5-8.9))の場合、括弧内から計算していくと
round(2.5*(-3.4))になり、別々に丸めても
round(3*(-3))=-9にはなりませんか？
どんなルールが働いているのでしょうか？？？？？？？？

236:デフォルトの名無しさん
02/03/16 21:26
大体、C や PASCAL が定義されたころって、ライブラリの重要性が
今ほど高くなかったのだよ。というかライブラリは処理系の外に
存在するものだった。

ISO 7185 / JIS X3008 のどこにも Round 関数の仕様の話はない。

よって、処理系依存問題。


237:デフォルトの名無しさん
02/03/16 21:28
>>235
そんな難しい話ではなく、
-9.5 を -10 にする根拠は？ -9 にする根拠は？って話。
どちらも誤差は 0.5

238:デフォルトの名無しさん
02/03/16 21:31
あ゛ お題は -8.5 か。
ｳﾂﾀﾞｼﾉｳ

239:アライグマPascal
02/03/16 21:39
う〜ん

round(X)
実数式Ｘの小数点以下を四捨五入した整数値を返す。

とあるなら、その値は唯一一つしかあり得ないはずですよね。
別の解釈が入り込む余地は無いと思うのですが、
こんな単純明快な話なのにどうして処理系依存なんてことが
あるのだろう。


240:アライグマPascal
02/03/16 21:44
(2)の問題は
1.3+6E-1 の部分の(-1)の解釈が、単に整数値の-1と解釈するのか
前のEとの絡みで、10のマイナス１乗と解釈するのかの違いだと思うの
ですが、どうでしょうか？

241:デフォルトの名無しさん
02/03/16 21:46
1. そもそも Round 関数は Pascal 言語の仕様の範囲外。個々の処理系のライブラリが
規定するもの。

2. 正の数の丸めは Banker's Round / 銀行家の丸め問題以外には大きな問題はない。
URLﾘﾝｸ(homepage1.nifty.com)



242:デフォルトの名無しさん
02/03/16 21:55
3. 負の数の丸めを明確に規定する物はない。

-8.5 に話を戻すと、-1 * 8.5 に置き換えてから 8.5 を「四捨五入」。最近偶数値である８に丸められた後
-1 * 8 と評価されるとすると、答えは「-8」

-8.5 を字面で「四捨五入」すると、「五入」扱いになる。
これを０方向に丸めると、答えは「-8」
これを無限大方向に丸めると、答えは「-9」

さて。.5 は境目の数なので、少し前後も出してみよう。

-8.0 -> -8.0 // これは異論あるまい。
-8.4 -> -8 の方が近いんだから -8 だろう。
-8.5 -> さぁ。どうする？
-8.6 -> -9 だよな。
-9.0 -> -9.0 // これも簡単。

243:アライグマPascal
02/03/16 21:59
>241
お恥ずかしい話ですが初めてこの話を知りました。
ということはHelloPascalは「JIS丸め」を採用していない、
演算によっては誤差が大きくなりやすいということですね。
関連のURLを含めて作者に連絡してみようと思います。

244:デフォルトの名無しさん
02/03/16 22:11
実数型か少し多めの桁を使用して表示の際に四捨五入すれば
実用上は問題ないんだけどね

厳密にしようとすると気になるかも

245:デフォルトの名無しさん
02/03/16 23:13
なお、div / mod 「演算子」の負数に対する振る舞いは規格書に明記されています。

まぁ普通はそこまで気にしない/気にしてもしょうがないので「処理系依存」の振る舞い
とひとくくりにしてしまいますが。

246:デフォルトの名無しさん
02/03/17 00:04
その前の問題として　数値の持ち方の問題があるんじゃない？

２進で表現すると
5.5 101.1と　誤差無くもてるけど、8.9=1000.1110011001100110011 と誤差無く持てない


247:デフォルトの名無しさん
02/03/17 02:33
>>246
銀行家丸めはコンピューターが無い頃からの技法だよ。

248:デフォルトの名無しさん
02/03/22 21:52
最近までBASICで遊んでましたが、今日アマゾンからUsing turbo pascal 6.0-7.0 third edition
が届いたのでまたPascalで遊んでみたいと思います。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5400日前に更新/272 KB
担当:undef