Pascal の初心者用の質問・相談所

Pascal の初心者用の質問・相談所
コンソールのみ。GUI は扱いません。
「Cをやったけど難しいので、やっぱりPascalからぼちぼちやるぅ」という人向け。

コンパイラダウンロード
http://www.vector.co.jp/vpack/filearea/win95/prog/pascal/index.html

ちなみにDelphiは
「モナーの *やさしい* Delphi質問スレ」
http://pc.2ch.net/test/read.cgi/tech/1003113413/

参考
http://www.illy2.f2s.com/jpg/miruna.jpg

「Cをやったけど難しいので、やっぱりPascalからぼちぼちやるぅ」というのが
いまいちわかりません。
Pascalは厨房用の言語なんですか？

sage
http://www.illy2.f2s.com/jpg/miruna.jpg

>>3
C は高級言語と言いながら、実際はかなりハードウエアに近い中級言語です。
メモリー管理とか、ポインターとか、ややこしいことがいろいろあります。

Pascal はもともと教育用として設計されているので、変なことはコンパイラーがエラーとして検出します。
Cは、プログラマーが全知全能であるという仮定で設計されているので、よく知らない人が変なコードを書くとすぐに暴走します。

Pascalが教育用でかんたんって認識は現在だと当てはまらないでしょ。
ANSI Cは型チェック厳しいし。

>Cは、プログラマーが全知全能であるという仮定で設計されているので、
>よく知らない人が変なコードを書くとすぐに暴走します。
とか言っている人はPascalでもヤヴァイと思いますが？

例えばCでは、配列の境界を越えて、値を代入したりすることが平気でできます。
コンパイラーも、なんも文句も言いません。

Pascal では、決してこのようなことはさせません。

ねがったり
最近Delphi触り始めたんすけど、ObjectPascal? なるものが
さっぱりでｶﾅｰﾘ気持ちわるひ
何か初心者本とか読むと
「文法を覚えなくてもアプリを作れるのがdelのいい所」
とか書いてるし。。。。。
もうね、

ちゅかbrcc32じゃダメなん?
ﾊﾟｽｶｰﾙたん、、、（´д｀；）

>>8
>例えばCでは、配列の境界を越えて、値を代入したりすることが平気でできます。
>コンパイラーも、なんも文句も言いません。
purifyくらい買えよ

Delphi は、Object Pascal を使っています。
カンタンに GUI を作れます。
Delphi の質問は、>>1 にも書いてありますが、

　「モナーの *やさしい* Delphi質問スレ」
　http://pc.2ch.net/test/read.cgi/tech/1003113413/

こちらでしたほうが、迅速に回答が得られます。

ここは GUI を扱わない、コンソールのみの Pascal スレッドとします。

それでは、最初の授業です。

program hello(output); (←セミコロン)
begin
　writeln('Hello world !!'); (←セミコロン)
end. (←ピリオド)

これで、画面に、「Hello world !!」と出力することができます。

>>8
そういう機能ってTurboPascalでもあったけど、あれってPascal標準の
機能だったのかなぁ?

Cは「中級言語」ってよく言われるけど、C++とPascalだったら、
各種データ構造を扱えるC++の方が「高級」だよな。

Ｃは低水準言語です。

↑ こう言うツールの話しだす馬鹿が絶対現れるんだよね　（＾＾；；

>>16
なんのこと言ってるの?

>>14
標準。

>>16
たぶん>11

>>10
brcc32.exe はリソースコンパイラだけど・・・。

pascalがcに比べて教育用（入門用）に良い理由は
　１、配列とポインタと文字列がしっかり区別されている

　２、begin / end により比較やループネストをしすぎると行が長くなり
　　　結果、自然に構造化するクセが身につく・・・場合がある

　３、制御文が不親切＝少なく、機能が貧弱　である為　表記方法に
　　　自由度が少なくなり、結果、同じアルゴリズムなら似たコードと
　　　なり他人（教師が）読みやすい・・・・場合がある

　４、宣言について厳格（関数の引数も同じでなければならない等）であり、
　　他の特性とあわせて、自由度が少ない　=　コーデングは自然に統一さ
　　れる　＝　他人のコードでも読みやすく、Cのように　コーデング規則の
　　ようなのを別に作る必要がない

反面、Modura2/TurboPascal/Delphiでない素のpascalには分割コンパイル
出来ないという玩具レベルと言われる欠点がある。

とりあえず、円周率を求めるプログラムを書いてくれ

pascalは処理系を作る教育に良い、とされている、らしい。

>22
begin
writeln(PI);
end.

ここでDev-Pascalをダウンロードすべし。

http://www.bloodshed.net/devpascal.html

FreePascal(知っているよね）を内蔵した高度なIDEがFreeで手に入る。
ただしWin32環境専用。エディタはそのままでは日本語が文字化けするが
オプションでフォントを設定すれば問題ない（Terminalの１４Pointがおすすめ）

Win2000あたりを使っているなら本家FreePascalをダウンロードするより。こちら
のほうがインストールが簡単で使えるエディタがあるのでいいかも。

ただしマニュアルが貧弱、FreePasalはTurboPasca完全互換＆DelphiPascal一部互換
なので本家よりマニュアルをダウンロードして研究すべし。

英語が苦手な人はこちらのサイトで日本語訳が進行中。サイトを丸ごとコピーする
ツールなどを利用してダウンロードすべし。

http://home.interlink.or.jp/~ipfr_cat/index.html

現在、標準Pascalを使用して実用的なツールを開発している人は
すくなく、また標準PascalひいてはTurboPascalを解説する書籍は
ほとんど入手困難になりつつあるので、上記サイトの日本語訳は
ありがたい。

非常にコンパクトなコンソールアプリが作れます。ぜひ試してみて
ください。

>>21
賛成できるのは1だけのような…

Pascalといえば、Unitの循環参照エラーが未だによくわからない。

UnitAとUnitBがともに両者を参照する場合、

Uses節は、両者ともにimplemenntationのUses節を利用するとエラーを回避できると
あるけど何故そうなるのか詳しい参照のルールを知りたいものです。

・相手にusesされていたらusesし返すことはできない。
・interface部でusesしたらusesしたことになる。
・implementation部でusesしてもusesしたことにならない。
と考えると分からない？

>>25
これもコンポーネントぽとりぺたりはサポートしてないのね(T_T)。残念。
それこそがdelphiの(唯一の(ぉ))アドバンテージなのにぃ。

難しいとは思うけど、del自体のコンポの仕掛は
体系だてて作られているわけだから、その体系をなぞれば
互換または類似のフリーソフトも作成可能と思われ。
最適化とかのマジックが必要な個所じゃないし。

…それとも 2way 特許のせいで、作れないの?

>>30 コンポーネントぽとりぺたりは”コードジェネレーター”でもいいはず
つまりもっといいものはできるはず
大体コンポーネントぽとりぺたりと言ってもそのあとはコードは
せこせこ書くわけだし

delphiの肝はDCC32のみ
delphiはコンパイル速度が速いしWWWのライブラリーは最強では？
あとWINAPIで組めば20kbyteで相当できる。

ところでdev-pascalダウンロードしてみたんだけど
サンプルがビルドできん．．．．
なんかリソースエラーとかが出る。ぎょえっ。
ちなみにdelphiとかCとか入れてないマシンなんだけど
cygwinがいるのかなぁ？

>30

確かにマウスでGUIをつくれないけど、単純なWindow形式ソフトの
ひな形は作ってくれる。すごくシンプルだからコードガリガリ主義者
にはもってこいのはず。Pascal学習（構造化からOOPまで）に
もってこいと思うけどね。

>http://www.vpascal.com/

かつて有償だったOS/2で有望視されていたDelphiPacal一部互換の
Pascalコンパイラ（フリーでゲット！！）
OS/2、Win32用があります。エディタが使えなかったので、
「１」のリンク先のCpadシリーズで、FreePascal用の利用してみるとよい。

>31

cygwinはいりません。必要なものはすべて圧縮ファイルに入っています。

delphi？っていうかPASCALってさ
変数の宣言文が分離してるよね、
コンパイラ側から見たらやっぱりどこでも宣言よりはいいんじゃないかなぁ。
あとこのことはインラインアセンブラとリンクさせやすいよね、
つまりアセンブリ言語にはCよりもPASCALのほうが近い

begin endは{}でもいいと思うけれどもね、
レコード型とかクラス型がCだと->なのが.というのがよいと思う

Delphi/Kylixのフリーが出た以上
FreePascalやTP互換言語の役目は終わってる。
コンソールアプリ限定であってもDelphiやるのが良いと思う。
# なるべく人的リソースをBorlandに集めたいってのが本音なんだけどね。

>35
DelphiはVCLのもつ力を利用する処理系です。
VCLを利用しないならばDelphiを使う意味がほとんどありません。

言語学習が目的であったりとか、使用するマシンが非力であるとか。
コンソールアプリで十分な業務が遂行できるのなら、これらFreeコンパイラ
は大変価値があると思います。

手になじむツールは人それぞれで、どれがベストなのかいろいろ試して
みるのも良い勉強になるとおもっています。

{}よりもPythonちっくなほうが好きだなあ。
よく擬似コードでPascalちっくで、ブロックはインデントのみって
あるじゃん。ああいう感じ。

ポトペタの処理系はあることはあります。

http://www.lazarus.freepascal.org/screenshots.php3?&language=english

FreePacal内蔵のDelphiライクなIDEを搭載しています。GUIはGTK+を
利用しています。

しかし、画面の書き換えが見えるほど動作が遅く、まだまだです。

{}はコメントだって。

>>34
>あとこのことはインラインアセンブラとリンクさせやすいよね、
>つまりアセンブリ言語にはCよりもPASCALのほうが近い

これはないだろ(^^

TPのinline を思い出して言ってるんじゃないか？

インラインアセンブラは「リンク」とは言わないだろ。
Ｃだってインラインアセンブラはあるだろ。
インラインアセンブラがあってもアセンブリ言語に近いとは言わないだろ。
と、３つほど突っ込みドコロを挙げてみる也

Win32APIのPASCAL呼び出し規約の話だったり

言語の学習にもってこいなのは、人にもよるが、ゲームのショートプログラム
だとおもう。昔のベーマガやI/Oに載っていたBASICプログラムの移植を試みたいと
思っている。

今年からDelphiをはじめようと思い、やはり言語からと考えて
FreePascalを頂戴したんですけど、Pascalの解説サイトや本って少ないですね　(T-T
丁度SDKをはじめた頃に一緒にC++を勉強したので、同じようになると思ったんだけどなぁ･･･
今はここを読んで統合環境からこちょちょしてます
http://homepage2.nifty.com/okamotoy/objpas/

大学の生協とかに行けばいい本有るかな　＾＾

PASCALなんて今更やりたいと思わない。
Cが難しいって言うけど、一体何と比べて難しいの？
ANSI Cの基礎の基礎で挫折するような奴は
どんな言語やっても結局中途半端で終わると思うが･･･

c->pascalで引っかかりやすいのは、型を一度typedefしてからじゃないと
使えない場合があること、例えば
int** i;
は
type pint = ^Integer;
var i: ^pint;
としなくてはいけない。

>>46
でもDelphiしたいなら必要じゃ無いですか?
僕の場合Cも++も理解したとは言い難いですけど　　＾＾；；；

なんか36がmisleadしてるようだけど
Delphiはコンソールアプリの開発をフルサポートしてるよ｡
デバッガや文法の日本語のオンラインヘルプもあるし。
# 但しPascalとObject Pascalとの切り分けは一切ないけど｡

>大学の生協とかに行けばいい本有るかな　＾＾
大学の図書館に腐るほどあるでしょ｡
いまどきあまり借りる人もいないだろうから入手は楽かも｡
お勧めの良書は知らないけど､経験的にはずれも少なかったような。

>>48
まあ、Dephiが使いたいからって人はわかるんだけどね。
1は、
>「Cをやったけど難しいので、やっぱりPascalからぼちぼちやるぅ」という人向け。
って言ってるだろ。
それがちょっと理解できない。
Cが難しいからPASCALをやってみても、PASCALにもCとは違った意味で難しい点があるんだから
まずは我慢してCを続けるのが本筋。

なるほど、皆さん有難う。
>>50は>>1に対する突っ込みだったんですね
それは同感です、どんな言語でも何処かで引っ掛かるのは同じですよね
良く分からないけど、今の学生さんって初めがJavaだったりするんだろうか　＾＾；
>>49
有難う。
近所の大学に潜入してみます　　＾＾；；

#include <stdio.h>
int main(void)
{
FILE *fp;

fp = fopen("mona.txt","w");

if(fp == NULL){
printf("ファイルを開けねーぞ、ｺﾞﾙｱ!\n");
return 1;
}else{
printf("思いの丈をブチマいちゃる！\n");
}

fputs(">>1\n",fp);
fputs("Pascalなんて糞言語。",fp);
fputs("逝ってよし！\n",fp);
fclose(fp);

return 0;
}

>45　いや、あの、Delphi6パーソナル素直にやればいいと思うよ
　インストールしてDemosのサンプルアプリ順に触ればいいじゃない

>>47
Turboなら　i : ^type;で直接指定できたような記憶があるんですが。

>54　いや i:^^type; の事を言ってるんだと思うよ

delphi ならproがいいよ
ソースがついてるから　追いかけたいユニットプロジェクトに追加しておけば
トレースでどこまででも追いかけていける。
　 STL標準になったC++よりずっと理解し易いよ

岩波講座　ソフトウェア科学
アルゴリズムとデータ構造　石畑　清

に、

type list = ↑cell;
　　　cell = record
　　　　　　　　element : datatype;
　　　　　　　　next : list;
　　　　　　　end;


の↑ってどーいう意味？

delphi pro personalなんてのがあればだけどね
pascalコンパイラごときに何万も払えないよ｡

>>57
ポインタ。
TurboPascalではこう書いてた。

type list = ^cell;

ＰＣ−８００１用のパスカルコンパイラは、よいものだた。
１６０ｘ１００のモノクロの画像２枚を切りかえるだけなのに、当時厨房だたおれは、家に帰ってから（以下略）

>49

>>なんか36がmisleadしてるようだけど
>>Delphiはコンソールアプリの開発をフルサポートしてるよ｡
>>デバッガや文法の日本語のオンラインヘルプもあるし。

misleadの意味がわからないけど、スレッドの流れをおかしな方向へ
持っていっているという意味でしょうか？
自覚していないけど、もしそうならごめんなさい。

Delphiではコンソールアプリが開発できないと言ったということでしょうか？
もしそれなら、私はそんなことは言っていません。

36で言いたかったことは、高度なGUIが必要としないなら、なにもDelphiを
使わなくても別のコンパイラで目的が達成することもできるということです。
486マシンであるとかRAMが8メガしかないといった化石パソコンでも、
言語学習マシンとして再利用することができるということです。

気分を害したらごめんなさい。

>50

>>>「Cをやったけど難しいので、やっぱりPascalからぼちぼちやるぅ」という人向け。
>って言ってるだろ。
>それがちょっと理解できない。
>Cが難しいからPASCALをやってみても、PASCALにもCとは違った意味で難しい点があるんだから
>まずは我慢してCを続けるのが本筋。

「１」は、書いてある通りの思惑でスレッドを立てたのだから、それを
そのまま受け止めてスレッドを展開すべきだと思う。

スレッド設定の理由そのものから批評すると、後のスレッドはどう展開
していくのか分からなくなると思います。
＜この後、Cの学習についてスレッドを伸ばすわけにはいかないでしょうし>
＜学習する姿勢や心構えを論じるスレッドではなさそうですし・・・＞

Delphi云々を書かれている人が多数おられますが、「１」は

>ちなみにDelphiは
>「モナーの *やさしい* Delphi質問スレ」

というように別スレッドを参照して誘導しているので、それに
従うべきだと思います。

>>61
>>35はコンソールアプリしか書かないとしても、Delphi/Kylixがいいよ
って言ってるのに
>>36でコンソールアプリで十分ならFreeコンパイラは価値がある
（つまりコンソールアプリにはDelphiは向かないと読める）って言ってるのがmisleadなんでないの？

俺に言わせると、昔の文法を覚えて、簡単な例題をやってみるくらいじゃ、「言語学習」としてはサミシイ。

>>>36でコンソールアプリで十分ならFreeコンパイラは価値がある
>> （つまりコンソールアプリにはDelphiは向かないと読める）って言ってるのがmisleadなんでないの？

う〜ん。コンソールアプリにはDelphiは向かないというのなら、そのように書きますけど。
BBSではどうしても舌足らずな表現になりやすいので「裏読み」されやすい
表現は避けるようにしていたつもりですが・・・。
（仮に裏読みしてもそんな解釈になるのかしら？？？）

>俺に言わせると、昔の文法を覚えて、簡単な例題をやってみるくらいじゃ、「言語学習」としてはサミシイ。

最初は簡単な例題かもしれないけど、いずれCで蓄積されたアルゴリズム集の
Pascal移植に手を出すかもしれないじゃないですか（爆

63じゃないが、>>36はそう読んでも不思議はないと思う。
つーか、実際そういう印象を受けた。

Win95環境でもDCC32単独で使えば楽勝でしょう>>61

さらに言えば、Dcc32のコンパイル速度は爆速
　コンパイルはFreePascalの半分以下で終わり
出来上がるサイズもずっと小さかったと思うよ

コンソールアプリとDOSアプリを混同しているに1Byte.

FreePascalはマルチプラットフォームであることを忘れているに、１Penis

Pascal入門程度ならどのコンパイラ使ったって
portableなコードしか書けないような...

Dev-Pascalの独自仕様かもしれないけど、ディレクトリ（フォルダ）名が
全角文字だとコンパイルエラーがでるみたい。みなさん気をつけて。

これなんとなくよさそう。

Bloodshed Dev-Pascal 1.9
http://download.cnet.com/downloads/0-4003375-100-3121652.html?tag=st.dl.10001-103-1.lst-5-1.3121652

アマゾンでPASCALの良本一生懸命探したけど、あんまりないね。
Turbo PASCALとDelphiはいっぱいあるのだけど。
基本文法を解説してある入門書がほしいんだよな。

漏れも探してます。
標準関数(手続き)が載ったリファレンスが欲しい
Delphi買ったので一通り変数型とかプリミティブなアルゴリズムなんかを
コンソールでやろうと思うんだけど、関数が分からんからどうにも勝手が悪いです
近所の本屋さんには超初歩本しか無かったし
全部ShowMessageとInputBoxでやるのは悲しすぎる

Del使いさんはどんな風にステップアプしましたか
いきなりイベントごりごり書いたんだろうか

>>75
>Del使いさんはどんな風にステップアプしましたか

>>76
途中で送信してしまった。

で、漏れはTurbo Pascal 3.0当時に標準Pascal的なconsole baseの書き方を覚えた。
file型変数をAssignしてReset/Rewriteして云々、
表示はwriteln、入力はreadln...てな感じだよな。
今のDelphiでもconsole applicationにすれば使えるよね。

おお〜 考えてるのはそんな感じです >>77
何かDCC32でIntToStrとかすると「ハァ？？」って言われて鬱なんです

Turbo時代の本を探して買えば良いんですね
しかしネットはPascal本の情報少なすぎるです
リファレンスみたいなの買えば当たり外れ無いのかなー

>78 Delphi6ならヘルプ->ObjectPascal言語ガイド->標準ルーチンと入出力 を読めばよろしい

IntToStrはSysUtilsユニットの関数であり、これらはVCLリファレンスにあります
uses SysUtils; してる？

ObjectPascalってKeyword多いなー　OOﾀﾞｶﾗｶ･･
Cの方がシンプルじゃん　（ー＿ー

>80 そりゃそうでしょう。

pascalとcならpascalがシンプル
DelphiとCならCがシンプル
DelphiとC++ならDelphiがシンプル

>>81
>pascalとcならpascalがシンプル

どっちもどっちなんじゃ?
この二つじゃ。

>82 制御文や演算子の数ではpascalがシンプルだし
　　文字列や配列の扱いは マシンから見たらcがシンプルだけど人から見たらpascalがシンプル

>>83
制御構造だと
Pascal場合
if
case
for
while
repeat..until

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

同じようなもんでしょ。

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

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

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

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

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

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

だれか簡潔に説明してください。

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

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

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

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

ハード屋さんとかマシン語の得意な人にはCの方がやさしいし
BASICから入った人には文字列でつまずかないだけでもPascalの方がやさしい
・・・と思う

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

FreePascalってのは起動時コンソールプログラムしか作れないのですか？

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

>>87
なんでファイルをいちいちOpenしたりCloseしたりしなくてはならないのですか？
なんでFindFirstしたらFindCloseしないといけないのとか。
なんでAllocしたらFreeしないといけないのとか。

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

>91
Windowプログラムもつくれますよ。

おい！>>2と>>4！！
貴様ら！！！！逝ってよしです。

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

http://community.borland.com/article/images/20803/tp55.zip
ここから Turbo Pascal 5.5 がダウンロードできます。
割れではないです。

ところで今のDelphiのObjectPascalと、
Turbo Pascal 5.5 との互換性がどれぐらいあるのか、
誰か説明できる人いないかな？

ダウンロードしたけど、インストールの途中で先に進めません（死

>>96
Object PascalはTPのほぼスーパーセット｡
ライブラリは除く｡

>94
何これ？

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

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

エディターがRAD　ってのがなんか無理めな話しのような・・・

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

いったい何をどう評価すればFreePascal>>>Delphiになるんだ??

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

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

FreePascalってなんて読んでる？俺はフリッパー

Turbo Pascal の本はなんでめちゃめちゃ高いのが多いんだ。

>>105
俺はフリパ。
同じく、FreeBSDはフリビ、
でもFreeDOSはそのままフリードス。

アマゾンでTurbo Pascal の本を探した。
みんな7か6対応の本ばっかりで、５対応の本があんまりない。
漏れがダウンロードしたのは5だから、できれば５の本がいい。
それとも、７と５であんまり変わってないなら、７の本を買おうと思うが、そのへんどうなんでしょう。

オーム社「TURBO Pascal プログラミング」間野浩太郎監修、内田智史著 \3,600
は4までが対象だけど、これでは古すぎるかな

5.5からオブジェクト指向を搭載、って書いてあるので、たぶん、４と5.5はだいぶ違うと予想されるのですよ。
5.5と7の違いがよくわからん。

今調べたら、
「TURBO PASCAL 5.5 OOP GUIDE」BORLAND刊」
というのを見つけた。そうだ。ボーランドの本を使えばいいのだ。
まだ売ってるのかわからんが。

>>108
オブジェクト指向を使わないのなら、TP4-7は大して変わらないと思われ。

>>112
ありがとう。そんなら、７の本を買う。

古本屋いけ。

パスカルの本買いたいけど、なんであんないバカ高いんだろ。
言語がフリーでも意味ないじゃん。

『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

＞パスカルの本買いたいけど、なんであんないバカ高いんだろ。
これだけ読んで、
高いといっても5000から6000円程度だろ
とレスを付けようとして続きをみてびっくり。
それぞれ1000ページくらいの大作なのだろう。

>>115
無理にメリケンの本を買おうとするから高いのであって
ニポーンの本で我慢（？）すればそこまで高くはないよ

じゃなくて、洋古書は売れないと高くなるの。
どの本も大昔の書籍だってこと、わかっているのかな？
なぜ Delphi ではなく TurboPascal を求める？

だってDelphiなんて、GUIだとか余計なことがｲﾊﾟｰｲついてて本質が見えないじゃないか。

>>119
自分で制限可能だよ。
まあやろうとしてることはコイツらと変わらんが

Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/

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

TurboPascalの入門というかPascalをテーマにしたHPを作りたいのですがいいですか？

ようするに　Delphiでも新規作成で　その他->コンソールアプリケーションを選べば
　VCLによらない素のpascalで遊べます

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

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

>>122
作るのは貴方の勝手です。ご自由に・・・

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

>>124
ガセ。正しく環境を作れば動く。
DPMI 関連の資料をよく読んで。

C:>US
C:>TP
:
:
C:>JP
C:>EXIT

>128
ＵＳモードじゃ日本語つかえんぞゴラァ！

え？TP5.5 って、US のミュージアムから落とした物のこと？
じゃしょうがない。US モードにするしかないだろ。

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

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

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

昔のPascalなんてコンパイル速度が速いだけしか取り柄が無いよ

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　を押せば実行出来ます

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

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

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

さて、>>134の方法で作成した場合、ソースは dprの拡張子となっています。

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

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

uses　を使わない場合に使えるのは system unit の関数だけです

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

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

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

まずは、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.

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

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

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

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

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

ターボパスカルって、いまC#作ってる人と同じ人が作ったの？

あらいぐまパスカルとかパトラッシュ思い出すんだけど。

さて、>>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} も取り去って大丈夫です

>>139 の方法がなぜ良くないかをまず説明します

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

>>143 のコードを説明しょうと思いましたが、
　Delphi6のIDE上で F1を押せば知りたい情報は殆ど出て来る筈です

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


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

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

なんかものすごく丁寧に説明されてる方がおられるようですが、
ひょっとして穂積○平さん？

>140
サンキュー

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

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

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

>>148
禿同。
コンソールアプリでもない機種依存アプリでしかない。Windows が動かないほど
古いマシンでの話ならともかく Win の DOS-BOX で動かそうとしているようだから
意図がわからない。

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

>148
>149

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

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

昔の書籍のリストを実行させたいのなら、意味がある。

棘の道だなと思うけど、それが好きなんだと言われたらしょうがない話しだからもう言わない

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

>>150
486の３３Mを生かしたいなら kylixやればいいのに
486では開発出来ないだろうけど、作った実行ファイルは実行出来るだろうに

>>142
♪神サマありがと〜お、ボクにともだちをくれ〜て〜〜〜。
♪パスカルに〜あわせてくれて、パスカルに〜あわせてくれて
♪パスカルに〜あわせてくれて、パスカ〜ルにあわせてく〜れ〜〜て〜〜

2ch だしぃ... どれが誰だかわからないけど

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

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

>154
♪ごめんね素直じゃなくって。夢の中なら言える。
♪思考回路はショート寸前。あなたに会いたいよ。

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

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

で、結局、何をしたいのか？

>>157
Delphi以外でPascalの勉強だろ？

ちがうってば

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

Graph ユニットや CRT ユニットの使い方を学ぶのが Pascal の学習か？と聞いているんだよ。

それは一つの手段でしょ．
なんでそんなに突っかかるのか小一時間（略

Pascalは、処理系を作るのが学習です。

>140
win2000のコンソール画面（JPモード）では文字化けします。
対策はやっぱり、旧Winと文字コードの取り扱いがちがうから無理でしょうか？

⊂（□ー□⊂⌒｀つ≡≡≡≡≡≡＜ヒロシ（１６４）ゲト！！！

今、PascalプログラミングのHPを作っています。
昔のTurboPascalを思い出す懐かしいやつです。
今年の８月頃Openの予定です。

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

pascal板かここ・・・
すいません、逝ってきます。

「PASCAL でガチャポン戦士をつくるうっっ！！」
この壮大な計画を遂行するため、424は立ち上がった、、、
歴史は動き始めた、、、

ツールが見つかりません。
逝ってきます。

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

確か、フランスのボーランドサイトから、仏語版のTP7がダウンできるはず(FREE)
　NECRT.TPU という、CRT互換unitをダウンすれば、日本語だって出力可能

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

>>170
楽しみにしているぞゴルァ。

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

たいへん。Dev-PascalのURLが使えなくなりました。移動したのか？
それともなくなったのか？

復活したもようですね。

>>145
「ヘルプを見て下さい」ばかりだと、このスレ意味なしだと思いません？

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

本家からFreePascalをダウンロードして、エディタはCPadあたりを
利用して以下のソースをコンパイル。

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

end.

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

赤い玉が出てくるの？

>>5
いまさらなつっこみで悪いんだが・・・

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

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

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

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

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

178 の理屈だと

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

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

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

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

どうもありがとうございます、しかし・・・。

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

peek pokeは全然難しくない
むしろBASICより簡単だ。メモリ配列に代入するだけで済む
Mem[$****] := hoge　　　　hoge := Mem[$****]

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

>むしろBASICより簡単だ。メモリ配列に代入するだけで済む
その副作用は一切無視？

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

>182のBASICが動くパソコン用のPascalコンパイラなんてまずないだろ。
ハードが変わったらpeek,poke(Mem)の移植性なんて皆無。
大体MemってTP専用じゃなかったか？

そうかbasicで組むときpeek使うと移植性が低くなるのか
でもBASICなんてもともと移植性なんか関係無いし。

>>182
MSX-BASICか・・・どこから引っ張り出してきたのやら。
って優花、ベーマガのサイトに行けばダウソ出来るじゃん。

BASICが主流だった当時はそういう乱暴な方法でしかゲームは作れなかったんだから仕方ない

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

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

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

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

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

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

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

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

>>191
1. 2. は知らんけど

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

2 CGA ってのは、アクセラレータも何もない時代だから、CPU パワーが
そのまま描画性能につながる。はず

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

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

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

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

>>192

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

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

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

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

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

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

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

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

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

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

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

>>195
PASCALコンパイラが勝手にやってくれるから気にする必要はないよ
引数が3つ（？）までの関数や手続きではそのようにコンパイルされるということ

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

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

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

ゲームだったら,三大古典ＲＰＧの一つ「ウィザードリィ」ですね。

>>200
そういうこと言うと、厨房どもがわらわら集まってくるので禁止

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

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

>>201
　？？　そうなんですか？
　

パソコン版D&D(RPG)はTurboPascalだったらしい。
ファミコンに移植した人から聞いた。

MS-DOSの最初のバージョンあたりはPascalだったはず。
すぐに全面的にCで書き直されたけど・・。

Pascal最初にやるとCの構文が汚く見えるね。

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

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

とりあえず　植木屋　さんのウェブサイトにて　ＣＧＡの参考を
ttp://plaza10.mbn.or.jp/~uekiya/hp200lx/japanese/cga.html

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

>>204
　お！あの　Ｄ＆Ｄもですか　やったことはないんですが
　名前だけは伺っています

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

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

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

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

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

>210
CGAは対応しているかわかりませんがGrafx2というのがあります。
http://www-msi.ensil.unilim.fr/~maritaud/sunset/grafx2.html

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

>211
すまぬ。自爆。画面モードと間違えた。(^^;

>>199
まぐローダ

>>199
Ngraph

>211

あと、SWAGもな　＞Pascalerの心得

>215
アドレスはここだ>SWAG
　ttp://www.gdsoft.com/swag/swag.html

　

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

おっと　変なところで書きこんじまった(-.-;)

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

SWAGのサイトに行ってみようとしたんですが
めちゃくちゃ重くないですか？　ここ

>>199
似非キース　まぐぺ、まるぺ

正に今日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"
と怒られてしまいました。
型変換はどうするのでしょう？

forward

>221

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

>>221
Hint: use DIV instead to get an integer result
↑これをちゃんと読みましょう

>>221
実数は整数型変数に代入できない。
Round関数またはTrunc関数を使って整数に変換する。
だけど今のケースは>>223の言う通りdivを使うべきだ。

221は222が
>pascalではCの様なプロトタイプ宣言は出来ないんですか？
にちゃんと答えてくれていることに気が付いているのだろうか？

>226
さりげない一言「forward」に私は愛を感じました。
たぶん受け止めていただけたと思います。

気づいてなさそうだからヤボな説明をしておこう

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

パスカルの文献が少ないので「サウンド・プレス」さんのところで
翻訳中の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.

ぐは、
profedure×
procedure○

どなたか教えてください。
ある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 を返します。

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

>>231
そんな、処理系依存の重箱の隅をつつく問題を出す書籍など、捨てろ。

ISO-PASCALを解説した本ですが、今まで演習問題は気にもとめなかったのです。

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

-9.5 は
-10 + 0.5
-9 + (-0.5)
のどちらを正解にしたい？ 銀行家丸め以前の問題。

>234

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

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

大体、C や PASCAL が定義されたころって、ライブラリの重要性が
今ほど高くなかったのだよ。というかライブラリは処理系の外に
存在するものだった。

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

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

>>235
そんな難しい話ではなく、
-9.5 を -10 にする根拠は？ -9 にする根拠は？って話。
どちらも誤差は 0.5

あ゛ お題は -8.5 か。
ｳﾂﾀﾞｼﾉｳ

う〜ん

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

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

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

1. そもそも Round 関数は Pascal 言語の仕様の範囲外。個々の処理系のライブラリが
規定するもの。

2. 正の数の丸めは Banker's Round / 銀行家の丸め問題以外には大きな問題はない。
http://homepage1.nifty.com/s_miyake/hp/jisround.htm

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 // これも簡単。

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

実数型か少し多めの桁を使用して表示の際に四捨五入すれば
実用上は問題ないんだけどね

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

なお、div / mod 「演算子」の負数に対する振る舞いは規格書に明記されています。

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

その前の問題として　数値の持ち方の問題があるんじゃない？

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

>>246
銀行家丸めはコンピューターが無い頃からの技法だよ。

最近までBASICで遊んでましたが、今日アマゾンからUsing turbo pascal 6.0-7.0 third edition
が届いたのでまたPascalで遊んでみたいと思います。

何でわざわざ古い物を選ぶんだろう。
昔の物だからといって、機能が少ないからといって、優しいとは限らないんだよ？

>>249
じゃーキミも三平方の定理使うのやめなよ。

まあまあ。他人が何しようといいじゃないの。
遊ぶんだったら、趣向は人それぞれ。
おれも宿題スレみて生DOSアプリを作ってみたくなったよ。

例の「答えが書籍と違う」という話ですが、作者にメールで
報告したところバグらしいとのことでバグフィックスをする
とのことでした。

なぜend.の直前の行には;が不要なのか。

>>253
;は文と文を分離するためのものだからです。

>>254
よく理解できました。ありがとうございました。

現在情報学科の一年（四月から二年）で、まだ言語はPascalしか知りません。
今はまずPascalをある程度できるようになりたいので、
このスレでいろいろ課題を出してもらえるとうれしいのですが・・・。

アメリカの大学だと Java から入るんだけどね...

そうなんですか。
何の言語から入るかは意見のあるところとは思いますが
色々と手を出すよりもまずは一つのものを――
と考えているので、よろしくお願いします。

手持ちの書籍からの抜粋でよろしければ・・・・・

「正の整数ａとｂ（a>=b）の最大公約数（GCM）を求めるプログラムを書け。
aまたはｂがゼロ以下の場合は適当にエラーメッセージを出力せよ。」

解法のヒント（ユークリッドの互除法をつかう）

まず大（ａ）を小（ｂ）で割った余りｒを求める。
次にａをｂに、ｂを余りｒに置き換える。
これをｒ＝０となるまで繰り返す。最後の被除数がＧＣＭとなる。

「明解ＰＡＳＣＡＬ・国際規格(ISO)準拠」　伊東正安/金谷範一=共著
サイエンス社　定価（本体2111円＋税）

上の本からの出題です。この本は個人的におすすめです。

さっそくチャレンジしてみます。

program GCM(input,output);
var a,b,c,r:integer;
begin
writeln('自然数を二つ入力しる！');
readln(a,b);
while (a<0) or (b<0) do begin
　writeln('自然数っつただろうが(ﾟДﾟ)ｺﾞﾙｧ!!');　
　readln(a,b);
　end;
if a<b then begin
　c:=b;
　b:=a;
　a:=c;
　end;
repeat
　r:=a mod b;
　a:=b;
　b:=r;
until r=0;
writeln('最小公約数＝',a);
end.

こんな感じになりました。
これくらいで一時間か・・・ちと情けない。
直したほうが良い箇所とかありますか？

>>263　折角だから　GCMを求める関数を作って
　メインではそれを呼ぶように変更してはどう？

それから最小公約数は１だよ

最大公約数・最小公倍数でWeb検索してみたら

>>264
>それから最小公約数は１だよ
そうでした、恥ずかしい・・・。
関数つかってやってみますね。

program GCM(input,output);
var a,b,c:integer;

function a_gcm(x,y:integer):integer;
var r:integer;
begin
repeat
　 r:=x mod y;
　x:=y;
　 y:=r;
until r=0;
a_gcm:=x;
end;

begin
writeln('自然数を二つ入力しる！');
readln(a,b);
while (a<0) or (b<0) do begin
　 writeln('自然数っつただろうが(ﾟДﾟ)ｺﾞﾙｧ!!');
　 readln(a,b);
　end;
if a<b then begin
　 c:=b;
　 b:=a;
　 a:=c;
end;
writeln('最大公約数＝',a_gcm(a,b));
end.

訂正してみました。いちいちソース貼ってると長くなるなぁ。

>>266　大小の比較交換も a_gcmに入れないと使う時に不便だよ

program GCM(input,output);
var a,b:integer;

function a_gcm(x,y:integer):integer; //一組の自然数の最大公約数を求める
var r,z:integer;
begin
if a<b then begin
　 z:=y;
　 y:=x;
　 x:=z;
　 end;
repeat
　 r:=x mod y;
　 x:=y;
　 y:=r;
until r=0;
a_gcm:=x;
end;

begin
writeln('自然数を二つ入力しる！');
readln(a,b);
while (a<0) or (b<0) do begin
　 writeln('自然数っつただろうが(ﾟДﾟ)ｺﾞﾙｧ!!やりなおし!!');
　 readln(a,b);
　 end;
writeln('最大公約数＝',a_gcm(a,b));
end.

>>268
なるほど。再度訂正してみました。
大学だと課題として提出して終わりなんで、その場限りのコードになりがち。
気をつけねば。

× if a<b then begin
　 z:=y;
　 y:=x;
　 x:=z;
　 end;

テストコードを書く習慣をつけないといけないよ
　最初に予め計算した結果と何個か比較させるようにするといい

if a_gcm(555,9875)!=5 then writeln('NG');

除算を使わない GCD

function gcd_1(m,n:Integer):Integer;
begin
gcd_1:=0;
if m=0 then exit;
if n=0 then exit;
while m<>n do begin
while m>n do m:=m-n ;
while n>m do n:=n-m ;
end;
gcd_1:=m;
end;

書籍に載っていた模範解答です。

program gcm(input,output);
var
　　a,b,r : integer;
begin
　　writeln('Enter a:'); readln(a);
　　writeln('Enter b:'); readln(b);
　　
　　if (a>0) and (b>0)
　　then begin
　　　　　　repeat
　　　　　　　　r:=a mod b ; a:=b ; b:=r ;
　　　　　　until r=0;
　　　　　　writeln('gcm = ',a)
　　　　end
　　else writeln('ERROR: a and b must be positive.')
end.　

>>271
やってしまった・・・。

>>272
なるほど、次からはテストコード入れるようにします。

>>273
参考になります。

>>274
自分の
　 r:=x mod y;
　 x:=y;
　 y:=r;

よりも、
　r:=a mod b ; a:=b ; b:=r ;

のように一行に書いてしまった方がいいんですかね？
これは好み？

まったくの好みです。
私は全て一行一文主義です。

Pascal の歴史はここが詳しい。
http://web.mit.edu/taoyue/www/tutorials/pascal/history.html

>>277　サンクス
平易な英文だから
「英語はちょっと・・・」という人もトライしてみるといいね

この辺の経緯を知らなかったDelphiユーザーなら
ますます好きになること請け合いだよ

>>276
ありがとうございます。
今まで一行一文だったし、読み易い（自分としては）ので
これからも一行一文でいきます

Pascal って String 型あるんだ。
Cよりラクチンでいいな。

ord ってなんの略なんだろう？
ord('R') で82 になるやつ。

order, ordinalなどの「序数」の事でしょう。

確かにCやBASICしか知らなかった人がPASCAL(Delphi)
のテキスト読んだときに集合とか順序型、部分範囲型
とか書かれていると「ハァ？」なんだろうなあって思う。(w

>>280
文字列に関してはCが馬鹿すぎるよね
よくあんな言語で業務用アプリを作るもんだと思ってたもの
C++は文字列用のクラスがあるからまだましだけど・・・

>>283
(ﾟДﾟ)ﾊｧ?
って思ったよ、最初は。でも便利だね。

集合型、列挙型、部分範囲型、この３つの関係を
理解できたら本当に便利だよね。

Cでは文字列を扱いた場合どうしてるんですか？
配列で定義してるの？レベルが低くてすいません（^-^；
やっぱ他の言語も少しは勉強していかないとだめかな・・・

Cの場合、ポインタと配列の区別がpascalに比べるとはるかに曖昧です
char *p が文字列ポインタ（var p:PChar;)相当 (type PChar=Char^;)なんだけど
p="ABCD";　と文字列を代入してるかのように表現出来ます。
　というかします

そして文字列"ABCD"は5文字の文字配列と等価です。
　文字の最後は必ず #0 です。　これは Cでは'\x00' と書きますが

こういう表現方法をAsciiZとか呼びます

DelphiではこのAsciiZ方式と親和性が高くなるよういろいろな工夫がされています

for letter := 'A' to 'Z' do

>>289 は無視してくだされい。

for letter := 'A' to 'Z' do
　write (letter)

こういう書き方がOKと聞いてはじめはびっくりした。
しかし、よく考えてみると、文字コードが入っているだけなので、納得した。

>>288
何か変。
>p="ABCD";　と文字列を代入してるかのように表現出来ます。
>　というかします
これは初期化のときだけ。
初期化のときに「char* p = "abcd"」とすると、文字列の長さの分（此処では5）だけの領域を「確保」し、この場合なら"abcd\0"で初期化をします。
代入のときには出来ません。
代入をしたいときは、標準ライブラリその他の関数を使うとか、一文字ずつ操作するとか（配列と同じです）。
（C++ならstd::strungという文字列クラスが標準で存在します）
>　文字の最後は必ず #0 です。　これは Cでは'\x00' と書きます
'\0'とかくのが普通。
'\x00'はコードが0になる文字で、'\0'は文字列の終わりにくる特殊な文字。
「結果的には」同じだけど（ASCIIの場合？）。

>>291補足。
「初期化」というのは、宣言のときの代入です（違うけど）。
Cでは変数を「型名 変数;」として宣言しますが、
「型名 変数 = 初期値;」とすることで、変数の定義と同時にその値を設定することも出来ます。

'\x__'は、xのあとに16進数の値を入れて、コードを直接指定します。

>>291-292
char* p = "abcd"
はポインタだから配列とは違うぞ。と。
確保されるのはcharへのポインタとabcd\0だぞ。と。
char p[] = "abcd"
とは違うぞ。と。
(下はp="efgh"とかはできないが上はできる)

>>287
ところで課題出してほしいの？

じゃあ、データ構造の問題。
文字列を格納する片方向リスト構造を構築し、
任意の個数のデータを入力させ、最後に、その一覧を
通常ソート（頭文字がＡ→Ｚとなるように）及び
逆ソート（終端文字がＡ→Ｚとなるように）で出力せよ。

>>293
謝謝！

>>294
はい、おねがいします。

>>295
今からやってみます。かなり苦労しそうですが・・・

もうすこし単純な問題なら…　そうさねえ
どの程度の問題を要求しているのか分からないけど、
「指定したファイルを、バイナリ形式で（
１６バイト分を１行として、１６進数で）表示せよ」　とか。

バイナリエディタみたいに。

00000 00 32 FF 55 23 56 F3 4F 93 F2 00 34 1A B3 34 CD
00001 ...
00002 ...
...

と言う風に表示。
でもって、それをテキストファイルに出力。

なんか、本読めば読むほど、Cとそっくりということがわかってきて、だんだん新鮮味がなくなってきた。
そろそろJavaに移るか。

>>299
CとPascalはいとこ同士みたいなもんだからね〜
思想的には正反対の部分もあるけど

おっと、300ｹﾞﾄｰ､ｽﾞｻ

ただ、ソースがキレイなのは気にいった。
Cだとぐじゃぐじゃして何がなんだか、書いた本人しかわからんことも多い。
Perlよりはましだが。
Pascalはどうかいてもキレイになるようなしくみがあるんだろうな。
なんでCに負けたんだ？

>>301
http://web.mit.edu/taoyue/www/tutorials/pascal/history.html
↑これを参照のこと

少なくともWindowsアプリを作る道具として見れば、C(≠C++)には勝ってるね

>>299
みためなら、Javaも大して変わらんと思うがﾅｰ


本当に違った世界を味わいたいなら、LISPなどお勧めしておきたい。
つーか、一度はやっておくといいよ。

Schemeは一応やったんですけど、exeが作れないので飽きました。

　　 ∧,,∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　＜　何がやれるのか自体がわからなかったので
　　 U　　つ 　　＼飽きました。
　＠ﾐ　　ﾐ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∪''∪　
　　　　　　言語とは難しいですね。

でもPascalの本、またちまちま読んでる。
アマゾンでJavaの本、注文したけど、届くまで1ヶ月かかるから。
それまでの間、Pascal の勉強するつもり。
もし時間がそれでも余ったら、VBとDelphiの勉強する。
本は買ってあるから。

おい、お前ら。
pascalの中で、UNIXコマンド使う方法教えてください。

UNIX版で聞いてきます。

　　　　http://pc.2ch.net/test/read.cgi/tech/1019185100/

test

保守sage

age

age

age

寒いスレだな

例題が豊富な解説書のお勧めはないでしょうか？

delphiは扱ったことがないので純粋なpascalの本を探しています。

Pascalに限らないけど純粋なPascalの本となると昔の物が多いので
とりあえず図書館で探してみてはいかがでしょう。

答えになってないですけど。

Ｐａｓｃａｌで多項式を２次式で割るプログラムを書けといわれたんですけど、
どうもうまくかけません。誰か教えてください。

age

>>318
数学の問題

const
　Jisu = 5; // 次数（これは5次の場合）
var
　tako: array[0..Jisu]of Real; // 多項式
　niji: array[0..2]of Real; // 二次式
　ans: array[0..Jisu-2]of Real; // 答え


　for i := Jisu-2 downto 0 do begin
　　ans[i] := tako[i+2] / niji[2];
　　for j := 2 downto 0 do
　　　tako[i+j] := tako[i+j] - ans[i]*niji[j];
　end;


これで、ans に商となる多項式、 tako に剰余となる1次式が入るかな。
ゼロ除算とかのエラーは考えてないので、その辺よろしく。

とても参考になりました。ありがとうございます。

Double を Integer に入れたいんですけど、どうすればいいですか？

>>323
kyasuto

どのようにキャストすればいいんですか？

windowsで使えるpascal→Ｃ言語コンバータはないですか？

>>323
Round関数

何だここの"PASCAL"って？
http://biz.ascii24.com/biz/news/article/2002/06/20/636664-000.html

>>327
ありがとうございました！

Code worrierでpascalコンパイルする必要がでてきました。
使ってるひと居ませんか?

Code worrierは既にpascalの対応が終了していて、
本家(あめりか？)で最終pluginがでてるみたいなんですけど、
これって日本語版の最新Code worrierで動くのでしょうか？

OSはMac9です。
よろしくおねがいします。

>330
使えたよ。
ただしVer.7までだけどね。
それとCarbonは駄目っぽ。

図書館でPASCALの本を探したら開架は全滅だった。
仕方ないから書庫から持ってきてもらった。
もう需要が無いんだね。
まだ出てから10年も経っていない本だって……

Code worrierといえば、PocketStudioとか言う、DelphiライクなPalmの
開発環境があるみたいだね。
開発環境じゃなくて、Palmで動くPascalの処理系があるとうれしいかも。
Pascalの勉強用に。
でも、グラフィティでソースコード入力するのもちょっと面倒か。（ｗ

>331
日本語版は最新が7みたいだからこれで逝けるわけですね。
Carbonはとりあえず必要ないです。
ありがとー

>334
ビルドする時にBuild Allを選択すればCARBONも使えるようになります。（人に指摘されるまで気付かなかった）

フォローさんくすです。
で、CW7日本語版アカデミックをゲトして
Pascal Pluginつっこんだら、とりあえず処理はできてる模様。
だけど、目的のコードはbuild出来ない罠。

実はNIH-ImageをソースからMakeしてるんだけど、

type mismach
SFPutFile(〜)

とか、いろいろとおこられるよヽ(`Д´)ﾉｳﾜｧｧﾝ!!

>>330
1.62ならCWP2でMakeしたのを持ってる。たしかあれからファイルマネージャあたりは
激変したから、大変じゃない？

でも褌EDITがｳﾌﾟﾃﾞｰﾄされるくらいだからな...

でも真の目的はNIHimage(改)のbuildなのですよ。
とりあえず手始めにそのままのをやってみようかと。
そのまま使うだけなら配布されてますしね。

(´-`).｡ｏＯ(古いCWをとりよせたほうが早いのかなぁ)

>>338
古いヘッダならADCのサイトにあるような。あ、けど合うのをさがすのがたいへんだね。

入ってる(新しい)ヘッダをみながら、エラーが出る個所を無理矢理それっぽく直したら、
なんとかNIH-image(1.62)がmakeできたよ。一見ちゃんと動いてるみたいだけど、どうだろう。

PascalもCWもはじめてなんだけど、それ以前にMacの初心者なのが辛いトコロ。
AppleEventを効かすと刺さるんだけど、これって切っちゃっていいものなんだろうか…

ところで、>>1にGUI不可って書いてあることに今気づいたよ。
スレ違いスマソ。
親切な方、誘導きぼんぬ。

age。
DAT落ちは阻止じゃ。

>>341
んだ

このスレでFreePascalの話題出てますか?
え? ここ何処の板? 過去ログ読め?
ｼｮﾎﾞｰﾝ

生きろ！

PASCAL CENTRALにはFREEのPASCALコンパイラも置いてあるぞ！

AGE

何気なくパスカルのソースコードを検索してたらこんなのあったぞ。
http://home.planet.nl/~mike.wiering/mario/
TurboPascal5.5・6.0・7.0でスーパーマリオを作ってる。
まだソース見てないけど、ちょっと面白そうだ。

Pascalが
Philips’ Automatical Sequence Calcurator
の略だったなんて初めて知ったよ

>>347
ジャンプしながらファイアボールを撃つと、
フルスクリーンに関らずシステムメニューが出てしまう…
このキー配列どうにかならないものか…

>>349
ソースファイルあるんだから、変更できそうだけどな。
生憎TPがないや。本家に行ってDLしてこようかな。

ObjectPascalの日本語で読める本って何か良いのある？
このスレでリンクしてある「Object Pascal/Delphi(Kylix) プログラミング入門」
はDelphiでの使用に限定しているようなので汎用的なものを……

>>351
Object Pasca lは Turbo Pascal/Delphi でしか使っていないのだから、汎用的と言っても意味ないと思う。

標準 Pascal ならあるけど、文字列型も分割コンパイルもない「教育言語」だから、今更覚える必要も無いとも思われ。

CodeWarriorでもObjectPascalは使えます。
ボーランドがLinux用に出してるもう一つの製品でも使えるよ。

それだけじゃない
http://www.freepascal.org/
compatible with TP 7 as well as most versions of Delphi

>>353-354
あ、Kylix はそうでしたね。失念しておりました。

CodeWarrior と Freepascal は知りませんでした。私は最近の動向をよく分かっていない
ようです（というか、Delphi で事足りているから、追いかける気がしないだけ）。

あと、標準化の中には「ISO Pascal」ってのもあったと言うことを思い出しました。Borland
はこの規格の裁定に入っていないから、気にもしていないけど。

それはそうと、「Object Pascal というのは紛らわしいから？Delphi Language に変える」
という話もあるようだけど、Kylix もあるとしたら、なおさら紛らわしいような気もするんだけ
ど...

誰かMetrowerksの
Pascal Language Reference
Pascal Library Reference
Error Reference
を持っている人居ない？
ObjectPascalを使ってみようと思ってCodeWarriorCDを探してみたのですが見つからないのです。
Pascal Compilers Ref.pdfによるとCodeWarriorPro5のDocumentationフォルダの中にあるはずなんだけど、
いくら探してみ見つからないんです。
Sherlock2で検索かけてもPascal Compilers Ref.pdf以外は見つからなくて……。
Pro7にはPascalのDocumentなんて元から入っていないし……

Metrowerksに問い合わせたらメール添付で送ってくれました。
原文の方しかないらしく、送って来たのは英語……。
しかも200頁超や300頁超でした。
はぁ、頑張って訳すか。

仕事が忙しくてネタがないのですが、（HPまだ作れていません）
すみませんageます。

レコード型の可変部がイマイチ良く分からん。
Var r : record
case byte of
0 : ( i : Longint );
1,9: ( a : extended);
(1) : ( b :array[0..9] of byte );
end;
とかくとき、
iやa,bなどは変数ということは分かるのだけれどその前に書く0や1,9がなんなのか良く分からない。

Pascalは知らんが、Cでいう共用体(union)ってやつだな。
番号はどの構造をとるかっていう構造識別番号みたいな奴で、byte型なわけだ。
無名だから使ってないみたいだけど、定義の時は必ず適当に決めなきゃならんのかも？

Var r : record
case TAG: byte of
0 : ( i : Longint );
1,9: ( a : extended);
(1) : ( b :array[0..9] of byte );
end;

のように、タグフィールドを入れられるのですが、これは省略可能なのです。
この場合、TAGが0ならaとbにアクセスするとエラーになるPascal実装もあった…かな？
(DelphiだとTAGは単なるメンバ以上の意味を持ちませんが)

なるほど共用体か。（Cも少しやっていたので分かる）
それで先頭のアドレスをそろえているのか。
持っているPASCAL入門の本は可変部の説明がなおざりだったんで何の事か良く分からなかったよ。

function（関数）とprocedure（手続き）の違いは返り値の有無と考えても問題ない？

問題ないです。

そいえばたまにわざわざダミーの返り値を使ってなんでもかんでもfunctionにしてるソースを見ることがあるな。
C出身者が書くとそうなりがちなのかも。

>>365
Cにはｖｏｉｄがある。
そんなソースを書くのはＤＱＮだけ。

単にprocedure（手続き）を宣言するのが面倒臭かったのでは？

>>367
> 単にprocedure（手続き）を宣言するのが面倒臭かったのでは？

意味わからん。function の方が面倒と思うが...。

まさか・・・これを・・・？
if A then B else C
A && B || C

コンポーネントパスカルをダウンロードしたけど、なにげによさげ
でも英語できないから難しい。だれか邦訳してくれ言語リファレンス。

http://www.fit.qut.edu.au/PLAS/ComponentPascal/

大分下がって来たので揚げ

そろそろ保守

Pascalの参考書探してる人は図書館いってみ。
TPとか、Pascalのがタマーにあったりしてうれしい。

あとは、大学に忍び込んで生協にあったりなかったり。

{$ }で囲まれている部分は何をする為に付けられるもの？
確か{ }で囲まれた部分はコメント部分で、コンパイル時には無視される部分だと記憶しているのだけれど。

{$I PascalOverrides.p}や{$unused ( inCallRef, inUserData ) }などのようにコメントにしては不自然な気がしてならない。
他にも
{$IFC UNDEFINED __TRANSLATION__}
{$I Translation.p}
{$ENDC}
なんて記述がある。

コンパイラに対する命令

>>375
ヘルプ嫁。

コマンドラインで指定するコンパイルオプションと同じ。

しかし、コマンドラインでオプションを指定するとそのソース全部に一括してそのオプションが適用されてしまう。
コンパイラ指令としてソース中に記述すれば部分的な適用もできるし、IFなどの制御構造を使った複雑な指定もできる。

例えば、コマンドラインで「 -$O+ 」と指定すると、それはそのプログラム全体が最適化オプションが適用されてしまうが、
ソース中に「 {$O+} 」と書いて指定すれば手続き一つだけについて最適化オプションを適用することもできる。

>376-378
コンパイラ疑似命令かぁ。
どうりでPASCAL入門の何所にも書かれていないわけだ。

古本屋いけ。

四個の変数 a,b,c,dの最小値を求める
IF文だけを用いたプログラムと
中間状態を用いたプログラムを書いてくれませんか？

FUNCTION GetMinimum(a, b, c, d: Integer): Integer;
BEGIN
IF a < b THEN IF a < c THEN IF a < d THEN GetMinimum := a
ELSE GetMinimum := d ELSE IF c < d THEN GetMinimum := c
ELSE GetMinimum := d ELSE IF b < c THEN IF b < d THEN GetMinimum := b
ELSE GetMinimum := d ELSE IF c < d THEN GetMinimum := c
ELSE GetMinimum := d
END;

FUNCTION GetMinimum2(a, b, c, d: Integer): Integer;
BEGIN
IF a < b THEN b := a;
IF c < d THEN d := c;
IF a < d THEN GetMinimum := a
ELSE GetMinimum := d
END;

>>382>>383
Pascalを習い始めたばかりなのです。
助かりました。有難うございました。

保守

age

　function intersection(S1,S2:list):list;
var s,p:list;
begin
interlist(S);p:=S1↑.next;
while p≠nil do begin
if search(p↑.item,S2)≠nil then insert(S,p↑.item);
p:=p↑.next;
end
intersection:=S
end

と言うプログラムが本に載ってたんだけど、これってどういう手順で共通集合を出してるかわかんないです。
分かる人いたら、解説キボンヌ

>>387
こりは Pascal 言語の形を借りたアルゴリズムの説明コードだから、説明してくれと
言われても、このコードを読んで。としかいえないような。

集合 (a,c,d,f) と (b,c,f,g) の共通部分を取得するときに、人間ならどうやるか。
ってことをそのまま実装しているだけだぞ。

>>388
begin以下がどのような手順によってS1,S2の共通部分を取得してるかわからないんス。
p:=S1↑.nextってとこはｐにS1のどの値を代入？

まずS1の先頭の要素をpに入れる。
pが指す値(item)と同じ値のがリストS2に在るかどうか調べる(search)
もしなければ最後まで行ってしまうのでnilになる。
あったら、その値をSにくっつける。
以下、S1の末尾に行くまで繰り返す。

こんなところかな。

>>390
解説サンクスベリーマッチョです

S1の先頭の要素をpに入れてから、ループになりますよね？
ループの条件はｐが空集合でないときで、ってやっていって、Ｓ１はいつ先頭の要素から、先頭の次の要素に変わってるのかが分からないです。

データは線型リスト構造だよ。

線型リストの1個の要素はこんな形式
【［データ本体］［次の要素へのポインタ］】


これが一次元に繋がってるのが線型リスト。

［先頭をさすポインタ］
↓
→【［データ１］［要素２へのポインタ］】
　　　　　　　　　　　　↓
←←←←←←←←←←←←←
↓
→【［データ２］［要素３へのポインタ］】
　　　　　　　　　　　　↓
←←←←．．．．←←←←←
↓
→【［データｎ］［ｎｉｌ〔終端〕］】

知ってたらスマソ。

その教科書のどこかにある list 型構造体の定義を見直してみてくれ。

>>391
＞ループの条件はｐが空集合でないときで

じゃなくて、pが指す先が存在するかどうかってこと。
392さんの図で指すものがなくなったらend

Pascalの集合型と混同してるのかな。このプログラムは集合型は関係ないよ。

ポインタ型の変数は>>393の

【［データ本体］［次の要素へのポインタ］】

みたいな構造体を指し示すタイプの変数だ。
もっと詳しくいえば、その構造体の存在するメモリ上のアドレスを保持している。
このタイプの変数は、その変数の後ろに「↑」をつけることによって
そのレコードの内容にアクセスできる。
※コーディング時には「↑」は「^」を使う。

ポインタ p が例えば2番目のレコードのアドレスを保持しているなら
p^.item　と書くことによって
２番目のレコードの item フィールドを参照しているのと同じ結果になる。
（整数が入っているなら writeln(p^.item); などと書ける。）

p にはポインタ型の価を代入できる。
p := （3番目の要素のアドレス）
みたいに代入すれば、今度は
p^.item で3番目の要素の item フィールドを参照できる。

【［データ本体］［次の要素へのポインタ］】
この構造体の［次の要素へのポインタ］というフィールドも、またポインタ型だ。
この値で p の値を更新すれば
　p := p^.next;
p を使って次のレコードを参照できる。
こんなふうに使っていくのが線型リスト。（本読んだ方がいいと思うけど）

どうしてPascalのポインタは↑なのにTurbo Pascalのポインタは^なんですか？

単に、キーボードと印刷の都合と思ふ

Turbo Pascalの＾と標準Pascalの↑はどちらが一般的なんですか？

同じ文字なんだけど、キーボード上に↑は無いので^を使ってるし、
印刷して^は見にくいので↑になっていると思ふ
Pascalが生まれた頃は2バイト文字なんて一般的じゃ無かった筈だし

普通のPascalの↑は、かな変換でのを使用していいってことですよね？

アフ？

　

皆さん解説蟻が鯛です。
とても分かりやすくて感謝してます。

function intersection(S1,S2:list):list;
var s,p:list;
begin
interlist(S);p:=S1↑.next;
while p≠nil do begin
if search(p↑.item,S2)≠nil then insert(S,p↑.item);
p:=p↑.next;
end
intersection:=S
end

において、ｐの必要性がわかりません。
p:=S1↑.next;の部分を消して、以下pをS1としても駄目なんでしょうか？

>>405
言ってることよく分からんよ。

S1, S2は引数にvarが指定されていないので、変更不能だと思いますが、それはさておき、

線形リストはリスト全体を保持しておくために先頭のレコードを指すポインタが必ず必要です。
この値を変更して途中のレコードを指すようにしてしまうと
それ以前のレコードを参照する手段が完全に失われてしまいます。

Ｓ１　　　これなら全て参照可能
↓
【データ｜ｎｅｘｔ】→【データ｜ｎｅｘｔ】→【データ｜ｎｅｘｔ】→【データ｜ｎｉｌ=終端】


Ｓ１を変更した場合　　　Ｓ１
　　　　　　　　　　　　↓
【データ｜ｎｅｘｔ】→【データ｜ｎｅｘｔ】→【データ｜ｎｅｘｔ】→【データ｜ｎｉｌ=終端】
　↑
このレコードが参照不能になる

disposeしない限りレコードはメモリ上に残っていますから
参照不能なメモリブロックがメモリ上に残るという
まずい事態になります。（メモリリーク？）

線形リストの処理は
先頭を示すポインタはそのままに、
別なポインタ変数を用意して
その値を変更して順次リストをたどっていきます。

で、405のような処理を書いた場合は
一度きりなら動くかも知れないが
以降、このリストを参照することができなくなる、というのが結論かな。

線形リストはレコードの追加、削除ができますが
その場合でも常に全体を参照できる様、
例えば先頭にレコードを追加する場合は
変更後の先頭のレコードをさすようにポインタを変更します。
先頭のレコードを削除する場合は
次のレコードをさすようにポインタの値を変更します。

ところでプログラム中の4行目のp:=S1↑.next; は
もしかしたら p := S1 ではないのかと。
S1の一番はじめのレコードが無視されているような気がします。

>>408
つまり、ｐはＳ１の値を保持するためにあると言うことかな？

>もしかしたら p := S1 ではないのかと。
確かにそんな気がします。
S1の先頭にダミーセルがあることにしてるのかなあ？

Pの役割はイメージ的には配列の要素を参照する時のインデックスみたいなものかと。

for i:=1 to 10 do
　if a[i] <= then xxxx;

のiがP、aがS1とか。（かなり違うが）

価を自在に変えながらリスト中のレコードを次々と指し示していく役割をするポインタ(P)と
全体を保持しておくために常に先頭を指すポインタ(S1)は
役割が違うと考えた方がいいかも。（追加、削除を伴わない処理の場合）

恐らくばりばり既出ネタで恐縮なんですが、
今私は数学系の学部に在籍しておりまして、研究上アルゴリズムや素因数分解
等をコンピュータ上で行わなければならない必要性が出てきました。
時間の関係上、手っ取り早くそのような計算が自在にできるようになりたいのですが、
当方、残念ながらコンピュータはネットする程度でプログラムやC言語、UNIX等の知識は
限りなく0に近いです。。何からはじめればよろしいでしょうか。御指導願います。

ｽﾝﾏｿ、スレ違いでした。。。

>>410さんが言っているように、
pはいわゆるイテレータというやつで、
S1はリストの先頭を保持するという役割があるので
たとえS1でpを代用できてもするべきじゃないです。

Error: Incompatible type for arg no.
2: Got SHORTSTRING, expected LONGINT
どなたかこのエラーメッセージのわかる方いらっしゃいますか?

引数の2個目はLONGINTが来るはずなのにSHORTSTRINGだよボケが

落ち阻止。

リスト構造をもつ、ポインタ（pointer）型の変数を使用してデータ入力後絶対値に関して昇順に並べ替えたいのですがどうしてもうまくいきません。どうプログラムを書いたらいいでしょうか？

>>417
よくわかりません。

簡単に言うとポインタを使って昇順の連結リストをつくりたいのですが。

>419
中身を比較したのちポインタを書き換える。それだけ……
基本情報処理の本のリストに関する部分を読めば直に分かる。

>>419
対象をポインタで持っているのなら、ヒープソートなんかで木構造を一時作って、
それを再度リスト構造に戻すのが良いかも。

汎用的に作るのなら、ソート関数は作り込まず、外部のソート関数を呼び出すよ
うにすればよいし。

コンソールアプリケーションである値を入力したら窓を閉じるにはどうしたらいいですか?

コンソールアプリケーションに窓なぞない。

>>423
窓って言うか…何て言ったらいいんだろう?
Delphiでコンソールアプリケーションを作って実行したらコマンドプロンプトが起動するじゃないですか。
それを閉じたいのですが無理なんでしょうか?

exit(return)

>>425
exit(return)だったら実行できませんでしたがちょっと削ってexitにしたら閉じることができました。
ありがとうございました。

>>462
ごめん、(return) はなんとなくノリで。
DOS 窓の終了と同じ雰囲気で。

>424
DelphiはDelphi板で聞くのが良いよ。

>>425-426
Exitは関数や手続きを抜けるだけじゃない？
もちろんprogram .. begin .. end のレベルで実行すればプログラム自体を
抜けるけど。
どこでも即座に終了させたかったらHaltを使うべし。

>>429
ご指摘ありがとう。しばらくDelphi使ってないのでかなり忘れてました。

逆ポーランド記法をスタックをよういて実現したいのですが、プログラムがうまくかけません。
どなたか教えていただけないでしょうか？

よういて？

もちいてだっての　バカ

用いる。
餅炒る。
モチ要る。

>>431
if (数字) {
 スタックにpush;
} eles if(演算子) {
 スタックから二つpopして演算;
 結果をスタックにpush;
} else {
 error;
}

IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？

38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

>>1
全板IP記録に追い込まれた今の気持ちをどうぞ。

記念カキコ

ひろゆきは架空の人物ですよ。

(´皿｀;)邪穂でごめん

IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？

38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

>>540
逝き遅れの妹発見

>>50
タイプミス
ｽﾏｿ

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 138720人　発行日：2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

qbだけじゃなかったのか

モルモットにされたのか

もうちょっと電波度下げよう。意味不明になりすぎてる

厨房板の荒らしは削除されたようだ
いつか全板で強制表示になるのだろうか？
スクリプトくめばどこの板だって荒らせるだろうし

実験のためにトオルに依頼されてコピペやってるって可能性もあるのか・・。

>>936
それは当然考えてはいますが、小ネタやちょっとした意見を書き込むときにもそれを
意識しなくてはならないというのはしんどい

FreePascalはマルチプラットフォームであることを忘れているに、1Penis

つーかちょっと北朝鮮や朝鮮総連を批判しただけでログから身元割れたりしないか心配。
奴ら何しでかすかわからない凶悪な連中だからな。

ログってひろゆきしかみれないのか？
削除人が見れたら問題・・・以前削除に絡んで強請をした奴もいるらしいし

ふむ。

言いたいことも言えないこんな世の中じゃ


　　　　　　　　ウェー　ハッハッハ

２ｃｈのＩＤてＩＰを変換してるんだっけ？
だったら、全板強制ＩDにして暗号キーだけ保存しておけばいいんじゃないの？

>>735
書き方がネタっぽすぎｗ

http://ex.2ch.net/test/read.cgi/korea/1042022029/

在日のアサピーが自ら２CHにブラクラ貼ったと自白ｗｗｗ

調子に乗ってアタック開始、しっかりログ取られて通報すました。

祭り中です。

夜勤 ★さんはなんでふだんはBG ★とかキャップを使い分けてるんですか？

削除板に書き込む時いちいち設定し直すのが面倒臭いから

元々パク(ry

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 139038人　発行日：2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

フェミホモ荒らしが来なくなるなら
まあいいか。。。

悪いことをする気はなかったど、なんだか
夢がなくなるな。
なんつーか、手口のきれいな銀行破りが
捕まっちゃったみたいな気分。

まあ、匿名じゃなきゃできんような自由な言論なんてたかが知れてるしな。
今までの２ちゃんみてりゃ一目瞭然。
匿名のかさをきて暴言はいてる奴らが減っていいかも。

じゃ、おまえが２ｃｈ来なければ良い。それだけのこと。

ウェー　ハッハッハ 　ＰＡＲＴ　２
http://live2.2ch.net/test/read.cgi/news/1041867442/

ネオむぎを超えるわけない
犯人が１７歳以下なら話は別だが

中国の漬け物ですか？(^_^;)

231 >判決文にISP責任法への配慮とかいうちゃんちゃらおかしい文面が書いてなけりゃ

253 >>どうも昔から、下級審の裁判官は余計なことを書きたがる。

お前ら判決文を読んだのか？ 被告がISP責任法を根拠に削除義務違反はないと主張したから書いてるんだよ。

http://courtdomino2.courts.go.jp/kshanrei.nsf/$DefaultView/2075F93E3210745849256BED0030F3EF?OpenDocument

IP取るようになったら些細なことでも訴えられるかもな。
ここまで話題性の在るサイトだし。
IP取ってるんだから今までは『訴えても意味無い』って諦めてた
人たちも訴えるようになるかもね。
基本的に訴えられるのは書き込みした人だろうけど、
その様な場所を提供したって事実に変わりは無いから
今まで以上に2chも訴えられるかも…。

推論ｽﾏｿ

削除前の手続きの話なんで、発信者の責任の話とはまぜないで欲しいが。

辞書登録してみた⇒夜勤さん！！ ﾍ(^^ﾍ)(ﾉ^^)ﾉ

3 6 1 4 2 5 をクイックソートで整列させるにはどうしたらいいですか？

（＾＾）

今GNUパスカルを使って勉強しているんですが
freeパスカルとの違いは何かあるんですか？
使える文法が違う、みたいな

405 名前：心得をよく読みましょう 投稿日：02/12/31 11:04 ID:ADTGAx9x
はぁぁぁ。あと、1週間以内で生理・・・。

何事にもむかついてたまらないっ！
生理前って、ブルーになったり、いらいらしたり。。。
ほんと勘弁してって感じ。

（＾＾）

constって何なんですか？

たしかサリエヌの友人だったと思います

>>477

const {定数}
BUF_SIZE = 32768;{ Buffer Size = 32768 (8000h) }

Ver: string[3] = '1.0';

定数の事かと…

var {変数}
argc: integer;
argv: string;
i,k,l: integer;

（＾＾）

>>479
すいません
なかなか書き込むひまがありませんでした
レスありがとうございました

http://www.makie.com/ja/makitips/pascalfun.html
Mac用だがここで紹介されているThinkPascalってどうよ？
少しやってみたが、英版なのでエディタで日本語が表示できん・・・

CarbonLibは使えるんだろうか

上のリンク見る限りでは無理そうだね。
別途コード戦士が必要みたい。
でもそれだったら最初からコード戦士でやった方が良い罠。

>>484
これでいけるのではないでしょうか。

Carbonized Port of THINK Pascal TCL
http://pascal-central.com/carbon-tcl.html

test

>>298が全然わかんねぇ…（´д｀；）

const
hexcode: array[0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
function HexStrB(num:byte):string;
begin
hexstrB:=hexcode[lo(num) shr 4 ]+hexcode[lo(num) and $f] ;
end;

ten := ' ';
num := 0;
repeat
writeln(HexStrB(buf[num]) + ten + HexStrB(buf[num+1]) + ten + HexStrB(buf[num+2]) + ten + HexStrB(buf[num+3]) +
ten + HexStrB(buf[num+4]) + ten + HexStrB(buf[num+5]) + ten + HexStrB(buf[num+6]) + ten + HexStrB(buf[num+7]) +
ten + HexStrB(buf[num+8]) + ten + HexStrB(buf[num+9]) + ten + HexStrB(buf[num+10]) + ten + HexStrB(buf[num+11]) +
ten + HexStrB(buf[num+12]) + ten + HexStrB(buf[num+13]) +
ten + HexStrB(buf[num+14]) + ten + HexStrB(buf[num+15])));
inc(num,$10)
until (num = $200);

おお、神！（´д｀；）ｱﾘｶﾞ�d

Pascalって実用性無いのに勉強しても平気でしょうか？

えーと…、まあ、これからやるならやめときなさい。
Eiffelをお薦めしよう。

>>490
C++を勉強しなさい
C#はだめだぞ

Gnu CppならLinuxでも使用可能だ

えいめ〜ん

はげしくホッシュ

>>490
Pascalを勉強する価値がないとしたらそれは
実用的では無いからではなく時代遅れだから｡
昔は教育用言語として教えられてはいたけど
今ではJavaとSchemeに取って代わられたよ｡

と､一ヶ月前のレスに混じれ酢してみました｡

10年程前にPC-DOS+Turbo Pascal 7で作ったプログラムを動かしたいのですが、困ったことに最近のパソコンはEMSメモリが使えないものが多いのです。
新型パソコンでEMSメモリ使用可能なものがあったら教えてください。

DOS 上で動かすか、エミュレータ上で動かせば。

>>496
DOS5.0の時とかXMSをEMM386でEMSに化けさせてたと記憶してるけど。

496です。
497さん498さんレスありがとうございます。

>DOS 上で動かすか、エミュレータ上で動かせば。

ハードの問題なのでどちらの方法でも動かないのでは？
システムコマンダーでWinとDosのデュアルブートにするつもりなのですが

>>499
間を取ってWindows3.1とかどうだ？

って言うかVMWareでも使った方が楽ちんな予感。

EMS だけの話なら EMS をエミュればOK!
昔やった記憶があるが具体的には忘れた。
ただ楽するなら、500（おめ！）さんの
言うようにVMWareでも使った方がいい。

現在Pascal勉強中の初心者です。

Pascalって実用性が無いんですか？
CGIをやるのに適してるって聞いたんだけど・・・

趣味でやるぶんにはかまわないでしょ。

実用性はあるが、CGIってのは多分Perlと混同してる(w

Pure Pascalじゃなくて有償版Delphi/Kylixなら高機能なCGIも作れないでもない

＞Pure Pascalじゃなくて有償版Delphi/Kylixなら高機能なCGIも作れないでもない

アホがいます。

WebSnapとかIntraWebとか、まあ知らないなら知らないでいいけどさ

>>506
何でもかんでもライブラリがないと何もできないかわいそうな人がいます。

こういう書き込みの後でなんですが，
Cのscanfに相当する機能を実現する関するのライブラリって
どこかにありませんでしょうか．
以前自作したのですが作りが下手なのか処理が重すぎて…．
テキスト解析はちゃんと本を読んで勉強しないとダメかな．

>>508
> Cのscanfに相当する機能を実現する関するのライブラリって
> どこかにありませんでしょうか．

scanf のソース見てポーティングすればいいとおもうけど。
可変引数の扱いをどうするかが問題かと思うが。

>>509
オープン配列とかで何とかならない？

（＾＾）

>>509-510
レスが遅くなってごめんなさい…．

scanfのソースは探してみます．ありがとうございます．
ちなみに可変引数は前に作ったときは配列型で対応していました．
var指定が出来なかったのでポインタを渡す仕様にしていました．

JIS PASCAL水準1準拠の処理系ってありませんか。
またpacked array[0..7] of booleanを1バイトに詰め込んでくれたり、set of 0..256が書けたりするのも…。
どれも実装が面倒なんだろうか…

http://homepage.mac.com/ayaya16/

そういえば規格では set of Charが集合の最大サイズでしたっけ。
ってことはCharがWideCharになるDelphi.NETではset of 0..65535が可能に！？

そうかset of charが集合の最大サイズなのか…
JIS規格書が会社なんで確認できないな。
基底型は任意の順序型だと思っていた。

>>502
実用性がないとかまことしやかに言われていますが、そんなことはないです。
CGI は、言語が標準入力と標準出力をサポートしていれば、どんな言語でも可能です。

http://www.gnu.org/brave-gnu-world/issue-12.ja.html より:

GNU Pascal は Borland Pascal 7.0 という「標準のようなもの
(quasi-standard)」だけでなく、ISO 7185 Pascal Standard を完全に
サポートしている唯一のコンパイラです。

>>517
適用範囲を限定すればJIS PASCALでも実用性が見いだせるということですね
逆に何らかの拡張を施さないと適用範囲は広がらないと。

>>518
ありがとう。
危うく自前でコンパイラ作りそうだったよ。
GNU PASCAL検討してみます。

CodeWarrior Pascal
packed array[0..7] of booleanを1バイトに　→　出来る。
set of 0..256が書けたり　→　set of 0..2047までOK。 (256byte)

THINK Pascal
packed array[0..7] of booleanを1バイトに　→　不可
set of 0..256が書けたり　→　set of -32768..32767までOK。

>>519
JIS Pascal と厳密にやると、分割コンパイルができないなど不便はありますが、
JIS/ISO 互換でやりたいなら、Turbo Pascal や Delphi のようなものを使って、
分割コンパイルは拡張機能を利用し、コード自体は、できる限り JIS/ISO 標準で
書くということなら、ISO C 言語程度の実用性は出てきます。
Turbo Pascal や Delphi が完全に ISO/JIS に準拠しているわけではありませんが、
かなり標準 Pascal の文法をサポートしています。
この本は、Turbo Pascal や JIS/ISO 標準 Pascal その他の文法に差異があるところに
注釈が入っていてよい本です。

演習PASCALとその応用
http://www.saiensu.co.jp/books-htm/ISBN4-7819-0507-2.htm

>>513
手元の Linux に入っていた GNU Pascal 2.95.4 でやってみましたらできるようです。
サンプル・ソース:

program iso(input, output);

var
a : packed array[0..7] of boolean;
b : set of 0..65535;

begin
writeln('hello');
end.

gpc -o iso iso.p

とやったら、

iso.p:5: warning: integer set size limited to 65535 elements from low bound
iso.p:5: warning: use `--setlimit=NUMBER' to change the limit at compile time

と出たので、

gpc --setlimit=65536 -o iso iso.p

としたら、エラーも警告もなくコンパイルできました。
動作は未確認ですが (^^
ちなみに、GNU Pascal は cygwin を使えば Windows でも動きます。

http://homepage.mac.com/hitomi18/

こうしてみるとDelphiって基礎部分が貧弱ですねぇ。
確か標準ってオープン配列で

procedure A(const B: array[L..H] of Integer);

なんて構文も使えませんでしたっけ？

>>521
ありがとう
最近の処理系は制限が少しずつ取れてきてるのですね
packed set of -maxint..maxintはどうだろう。
コンパイル出来ても実行は出来なくて当然だとは思うが…
CのビットフィールドとPASCALの詰めあり構造型の性質がそっくりなのは偶然？

あ、でも packed array[0..7] of boolean は 2 バイトになりました。0..15 まで
2 バイトで、0..31 は 4 バイト。これじゃだめですかね。
オプション指定もあるのかもしれませんが。

>>527
GNU Pascal でのことです。

GNU Pascal マニュアルでつ。
http://www.gnu-pascal.de/gpc/index.html

>>527
多分それは各要素に不定値を表すビットが含まれているんじゃないかと。

GNU Pascal で c : set of -10..65535; とおりました。

>>530
単に2byte単位でしか割り当て出来ないだけのような

>>530
そういわれればそうだな。はやとちりでした。
実行環境に適切な境界迄余分なバイトが詰められるのは構わないです。

http://www.k-514.com/

GNU Pascal で set -65535..65535 は gpc --standard-pascal --setlimit=131071 でとおりました。

訂正；THINK Pascalでもpacked array[0..7] of booleanは1byteでした。

>>526
>packed set of -maxint..maxintはどうだろう。
>コンパイル出来ても実行は出来なくて当然だとは思うが…
maxintが32767なのでTHINK Pascalでコンパイル＆実行できます。
集合はもともと1bit扱いなのでpackedがついてもつかなくても
変数のサイズは同じです。

エラトステネスのふるいで素数を求めるプログラム、
set of 0..maxint (32767)でコンパイル＆実行できました。
最後の3つの素数　＝　32717　32719　32749

>>536
エラトステネスのふるいって、集合型でどうやるんですか？
0 から n までの配列を用意して、素数なら true、合成数なら false にしていく、
というものだと思うんですが。

set of Xもarray[X] of Booleanも、言語仕様上はともかく役割としては変わらないよ。
配列で A[i] → 集合で i in A
A[i] := True → Include(A, i)
A[i] := False → Exclude(A, i)

Adaなんか開き直ってBoolean配列に集合演算の能力持たせてるし。

やってることは配列を使うのと大差ない。
はじめに[2,3,4,5,6..maxint]という集合を用意しておいて
nの倍数を集合から除去していくだけ。

エラトステネスのふるい、集合型バージョン。こんなんでできました。

コンパイル・コマンド: gpc --standard-pascal --setlimit=65536 -o primenumber primenumber.p

program primenumber(input, output);
const
n = 65535;
var
prime : set of 0..n;
i : integer;
j : integer;
begin
prime := [0..n];
for i := 2 to n do
if prime >= [i] then
begin
j := i + i;
while j <= n do
begin
prime := prime - [j];
j := j + i;
end
end;
for i := 2 to n do
begin
if prime >= [i] then
writeln(i);
end
end.

空白が崩れた。スマソ。
program primenumber(input, output);
const
   n = 65535;
var
   prime : set of 0..n;
   i     : integer;
   j     : integer;
begin
   prime := [0..n];
   for i := 2 to n do
      if prime >= [i] then
      begin
         j := i + i;
         while j <= n do
         begin
            prime := prime - [j];
            j := j + i;
         end
      end;
   for i := 2 to n do
   begin
      if prime >= [i] then
         writeln(i);
   end
end.

>>541
＆ensp;の嵐で何が書かれているのかさっぱりわからん。

>>542
あれ、そうですか。私 Opera なんですけど、大丈夫です。
ブラウザ依存なんでしょうか。すみません。

>>543
IE 6 では大丈夫です。

そうそう、>>541 の結果ですけれど、最後の 3 つは、65497、65519、65521 でした。

型T=set of 0..maxintの各元表記全体からmaxint+1ビットの符号無し整数への1対1写像は定義できるよな？
もし定義できるのならinteger型の範囲は遙かに越えてしまうな
で、更に(有限)整数上の加法と一致するように型T上の加法をうまく定義して…(略)
普通はintegerの配列で実現する多倍長整数とは一風変わった整数(環)が出来そう
これをリストに持たせてもっと大きな数に対する〜のふるいが…
工夫しないとメモリ不足になりそうだな
或いはset of -maxint..maxintを基数2の固定小数点表現とみなすのも面白そうだ
体調が回復したらやってみよう

We Love Pascal.

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

http://community.borland.com/museum/ のTP5.5のとこからTurboPascalのOOP入門が落とせる。
AppleのObject Pascalレポートの名前が書いてあるので、
やっぱObjectPascal＝"object"型のあるPascal、でいいらしい。

だからどうした、と言われると困るが

良スレの予感

その教科書のどこかにある list 型構造体の定義を見直してみてくれ。

Lazarusの落とし方がわからん...

初心者から質問です

10人分の学生の成績データを打ち込み、
次に10点区切りでヒストグラムを出力するプログラムを書こうとしています。
現在ヒストグラムの作り方がちとわかりません。どんな形のヒストグラムでもいいのでプログラムソースを教えてもらえないでしょうか？

if (点数 => 0) and (点数 < 10) then ヒストグラム[1] := ヒストグラム[1] + 1;
if (点数 => 10) and (点数 < 20) then ヒストグラム[2] := ヒストグラム[2] + 1;
．．．

と並べて書くとか。

>>554
学校の課題だろうと思うんで、ここでいきなり答えを書くのはちょっとね。
自分でどこまでやったん？

PROGRAM Histogram;
VAR
　data: ARRAY[1..5] OF INTEGER;
　i, j: INTEGER;
BEGIN
　data[1] := 0; data[2] := 1; data[3] := 4; data[4] := 2; data[5] := 1;
　FOR i := 1 TO 5 DO
　　BEGIN
　　　Write('Fraction ' + IntToStr(i) + ':');
　　　FOR j := 1 TO data[i] DO
　　　　Write('*');
　　　WriteLn;
　　END;
END.

まず、「ヒストグラム」とは何か、わかっているか。
プログラムの流れとしては
(1)データの入力
(2)集計
(3)ヒストグラムの出力
に分かれるわけだが。

スマソ＞556

集合型はフラグくらいにしか使ったことなかったけど
なかなかエレガントな使い方があるものだね
感心しますた

学校の課題で『ブラックジャック』作ることになったんですが
どなたか、教えていただけませんか。

>561
取り敢えず「手塚治虫」で検索しとけ。

>>561
カードゲームなら実際のカードを使って一人遊びすれば必要な構造が見えてくるぞ。

一人遊び？ ﾊｧﾊｧ

>>562

取りあえずじゃねーんだよ！！
おまいはタンスとかあってなっとらんぞ！！！

http://jbbs.shitaraba.com/computer/7294/

A　　U　　T　　H　　O　　R　　　D　　A　　T　　A

本田 守さん

--------------------------------------------------------------------------------

名前
本田 守/ほんだ まもる

ハンドル
Ｍｒ．あねさん

ホームページ
http://www2.neweb.ne.jp/wd/wonder/
http://hp.vector.co.jp/authors/VA015412/

MESSAGE
プログラムの勉強をはじめて１年とちょっとになります。まだまだ高度なものを作るには程遠いですが、先だっては某社のプログラミングコンテストに入賞させていただきました。

--------------------------------------------------------------------------------

S　　O　　F　　T　　W　　A　　R　　E

--------------------------------------------------------------------------------

Windows95/98/Me/アミューズメント
●KIKU おど〜る
　音楽CDをかけるとキャラクターが踊ります

集合型にシフト演算子があったらなぁ

それは集合なのか？

ビットの集合です

>>562
あの漫画の題名はトランプのそれとは無関係だそうです．

…じゃなくて，どうしてプログラミングを教えている学校の先生は
生徒の理解度を無視してこういう課題を出すのか理解に苦しみます．
とりあえず>561はじゃんけんゲームは作れますか？

>570
もちろん作れません
何かヒントでもいいんでおねがいします。

>>571
ゲームのルールをよく吟味して場にある有形、無形のものを列挙してみんさい

カードをとってくる関数と
勝敗を判定する関数と
手に持ったカードを表示する関数と
入力を受け付けてカードをとるか終了するか決める関数を書けばいい。

データ構造決めなきゃ片手落ち

綺麗なお姉さんのパイパンおま○こ生写真を発見！
http://plaza16.mbn.or.jp/~satchel/omanko_marumie/

これはタマラン…（´Д｀；）ハァハァ

>>573
関数が使っている教科書にあまり載ってないんで
何かいいサイトあったら教えてください

>>571
簡単なゲームプログラムを解説したサイトか入門書を見つけてみて．

やりたい処理をプログラムというカタチにするというのは一番基本的な能力であり，
一つや二つのヒントで解決する問題ではありません．
でもこれさえクリアすればプログラミングは半分マスターしたようなものです．

ルール見たけど結構複雑。ま、そこまで要求してないのかもしれんが。
「無限デック使ってます」って言えばカードの残り考えなくてもすむかも。
（ハートのAが10枚出てきても知らんふり。）

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

良スレ保守

Pascalの集合型と混同してるのかな。このプログラムは集合型は関係ないよ。

どのプログラム？

http://grape.astron.s.u-tokyo.ac.jp/~makino/kougi/jousho/kougi-98Ww/note12.html
ここの練習1なんですが、どのように回答するのがスマートなんでしょうか。
学生番号用のソート手続きをもうひとつ加えて場合分けするのはあまりよくないような気がするんですが、
他に思い浮かばないんです。

比較用関数を複数作って関数ポインタで切り替えて使う。

ソート用の手続きをつくる。
引数は点数でソートするか学生番号でソートするかを示す。

「student_record」と「ソートの引数」を引数にとる関数をつくる。
返り値は点数か、学生番号。
この関数をつかってソートをつくる。

あんまり効率よくなさそうだけど。

function CompareTensu(var S1, S2: student_record): Boolean;
function CompareBango(var S1, S2: student_record): Boolean;
って比較する関数を適当に作って。
var
　Compare: function(var S1, S2: student_record): Boolean;
begin
　if 点数でやるなら then
　　Compare:=CompareTensu
　else
　　Compare:=CompareBango;
　あとはCompareで比較してソートで良いと思うよ。
end;

iアプリ作りたいんですけどどーしてよいか・・
作成講座ページ紹介してください。
あと質問なんですが、これだけでも作れますか？ブロック崩し(５０５対応版)
win98(HSPダウンロード済み)

iアプリはi-mode Javaでしょ。
HSPじゃ無理。

DoCoMo Net - 製品・サービス - i-mode - iアプリコンテンツの作成について
http://www.nttdocomo.co.jp/p_s/imode/java/index.html

なるほど。ありがとうございます。
>>585と>>586の手法は同じではないですよね。
かなり参考になりました。

ですが、585さんの
＞ソート用の手続きをつくる。
＞引数は点数でソートするか学生番号でソートするかを示す。
これを具体的にどうしたらよいのかぜんぜんわからないんです･･･
例題だと、
if student[i].score < student[j].score then begin
で点数で比較してますよね。
これを点数だけではなく番号でも比較できるにするためにはどうしたらいいのでしょうか。

procedure sort(x: ...);
...
if hoge(student[i], x) < hoge(student[j], x) then begin
って書いて、hogeも書く。

>>589
比較部分を関数にするだけだって
function CompareTensu(var S1, S2: student_record): Boolean;
begin
CompareTensu:=(S1.score < S2.score);
end;
function CompareBango(var S1, S2: student_record): Boolean;
begin
CompareBango:=(S1.id < S2.id);
end;

で>>586のようにCompareTensuとCompareBangoのどっちか使いたい方をCompare変数に入れる。
どっちの比較方法を使うかはコマンドラインオプションで切り替えたりすると良い。
例えば
Compare:=CompareTensu;
for I:=1 to ParamCount do
begin
if ParamStr(I)='/b' then
begin
Compare:=CompareBango;
Break;
end;
end;
でコマンドラインに/bを付ければCompareが番号で比較、付けなければ点数で比較になる。
あとは
if Compare(student[i], student[j]) thenに変えて終わり。

Delphiで動作確認済み

if (x = Tensu and student[i].score < student[j].score) or
(x = Bango and student[i].id < student[j].id) then begin
ってベタに書いてもいいし。

条件式を関数にまとめて
if x = Tensu then Result := student[i].score < student[j].score
else if x = Bango then Result := student[i].id < student[j].id
else Result := false;
とか。(case文忘れてしまったよ）

なるほどなるほど。
かなりよくわかりました！

ここは本当にすごい人が来るんですね。
驚きました。

すごくはないよ。基本的なことだし。

動的な関数を作りたいなと思って
Pascalの上で実現してしまったとかならすごいと思うけど。

Lazarusの落とし方知ってるひといますか?

「ハノイの塔」とやらの問題解決プログラムを教えて下さい。
本気で何がなにやら・・・。

procedure Hanoi(n: interger; from, to, via: hoge);
begin
if n = 1 then
.... from から to へ一枚写す
else begin
hanoi(n-1, from, via, to);
hanoi(1, from, to, via);
hanoi(n-1, via, to, from);
end
end;

どうもありがとうございます。
なんだかエラーが沢山出るんですけど、貼り付けるだけじゃ駄目なのでしょうか。。。
厨ですみません。

hogeと
.... from から to へ一枚写す
のところをきちんとかかないとダメ。

hogeを文字列にして
移動を表示するようにするとか。
writeln(from + 'から' + to + 'へ移動');

Pascalの細かいところ忘れたんで正しいかどうか解らないけど。
再帰するにはforwardとか要るような気もするな。

（＾＾）

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

たまにはageて質問を。

標準的なpascalで、basicでいう
cls;
locate(10,10);
print "OK?";
みたいなのは出来ますか？

　page(output);10個のwriteln(output);10個のwrite(output,' ');
っていうのは後戻りできない上に上書きしてしまうから無理だな。
cursesみたいに1画面分の2次元配列を取ろうかともおもたけど、画面の大きさを取る方法はJIS-PASCALにはない。
処理系依存の機能を仮定しないと無理っぽい。

無理ですか。
あ、そっか。画面の大きさが分からないから、
１ページ分書き直してスクロールアップ
するのも無理だ。うーむ。

プログラムパラメタに画面の大きさを渡してもらえばいいんだった。
program curses(input, output, ScreenWidth, ScreenHeight);
　var
　　ScreenWidth: integer;
　　ScreenHeight: integer;
　　Screen: packed array[1..256, 1..256] of char;　{こんだけあったら大抵間に合うでしょ}
　procedure cls;
　procedure locate(x: integer; y: integer);
　procedure print(packed array[u..v] of char);
　procedure reprint;
ってどう？

そういう手もあるか。
でも、画面の大きさを取得するのに、処理系毎の
工夫が必要。つーか、無理な場合もありそうな予感。

それよりも、独自に拡張して、cls, locateなどを
処理系毎に作るのが良いような気がしてきた。
・・・でも、それやってると、キリがないし、
実力の範囲を超えそうです。

画面制御ライブラリを1つだけ用意する。
実体は各処理系に移植されたC言語のcursesライブラリを呼び出すだけ。
外部ライブラリの実装方法に規格上、規定はないのでやりたい放題。
cursesが移植されていない処理系はライブラリの仕様を公開してユーザーに任す。
というのは駄目？

標準的なPascalの文字変数ってstring[255]ですよね？
で、var s:string[255]; という状態で、
１行ずつreadln(f,s); で読んでいくとして。
もしも１行の長さが255バイト以上だったら、
どうなるんでしょう。

アホな質問ですみません。

後ろの方がカットされます。

1行が255バイト以上の行を含むテキストファイルの読み込みは、
どうしたら良いのでしょう？

DelphiでもFreePascalでも、大抵は長い文字列を持ってるんじゃないかな…。
無いならChar単位で読むとか。

初心者質問ですいません。
Dev-pascalはどうやってアンインストールするのでしょうか？
リードミーに載ってないんですが・・・。

>>610

var
　f: text;
　s: string[255];
begin
　while not eoln(f) do
　　read(f, s);
　readln(f);
end

>>611
Delphiの無限とも言える長さの文字列は、
便利で良いですねぇ。しかも、CommaTextで
自動的にCSVを切り分けてくれるし。（日本語対応で）

でも、今はちょっと長い文字列は無理みたい。

というか、やりたいのはCSVの読み込みなんですけど、
ひょっとしたら１行を一度に読み込むんじゃなくて、
１文字ずつ分析して、項目を切り分けながら
読み込む方が良いのかな？

ひょっとして、アルゴリズムって、公開されてる？

>>614
>ひょっとして、アルゴリズムって、公開されてる？

理論的には有限オートマトン、正規表現、字句解析、構文解析などを検索すれば、いいんじゃないかな。
CSV形式をうまく構文(文法)に書き下す事が出来れば、ある程度形式的にプログラムに落す方法があるよ。

>>614
C#のでよければ。なんとなくは分かると思うよ。
http://onigiri.s3.xrea.com:8080/csharp/index.php?%5B%5BTips%2FCVS%A4%F2%CA%AC%B3%E4%A4%B9%A4%EB%5D%5D

>>616
そだね、CSVごときに有限オートマトンとか大袈裟だったな。
で、これは日本語対応？

C#に日本語非対応なコードなど無い。

無知の知ったか。

>>602
ANSIエスケープシーケンスを使う

>>620
おおっ！忘れていたが、何か画期的なアイデアに思える。（ｗ

と、思ったが、調べてみたらこう書いてあった。
＞どの文字列をエスケープシークエンスとして解釈するかは
＞ソフトウェアによって千差万別であり、統一された規格の
＞ようなものが存在するわけではない。
(T^T)

>>615,616
ありがとうございます。それをきっかけに調べてみます。

＞どの文字列をエスケープシークエンスとして解釈するかは
＞ソフトウェアによって千差万別であり、統一された規格の
＞ようなものが存在するわけではない。
なのに、「ANSI【アメリカ規格協会】」を冠しているのが不思議。

「ANSIエスケープシーケンス」は>>602へのコメントだよ。
0x1b（ESC）で始まる文字列をコンソールに送ることで
画面、コンソールの位置、文字の色等を制御するもの。

>>623
s/コンソールの位置/カーソルの位置/

一応、CSVを切り分けられるコードは書けた。
C#の>616のコードは読めなかったので、
適当に考えてやってみた。だけど、""→"に
するのとか、漢字コードのチェックとか
やってないし、変なCSVを回避するのも
できないし、拡張性が無いコードになって
しまっている。

Delphiのコンパイラ使おうぜ。

>>622
ANSIエスケープシーケンスも知らないコテハンか。
時代だな。

>>627
>ANSIエスケープシーケンスも知らないコテハンか。
>時代だな。

時代ですね。
ANSIエスケープシーケンスは全く知らないわけでもない。
しかし、ここ何年も直接記述したことがないので、すっかり忘れてた。

>>602
Cマガジン1992/5, p.36, Table7(古っ！)によると、全画面消去のESC[2Jとカーソル位置指定のESC[m;nHは当時のどのPCでも共通のようだ。
MINIX本第2版図3-36やhtermでもこの二つは共通でした。
しかし、psterm-fast端末のカーソル位置指定は0x4m;n;などと全然違っていたりする(linuxのtermcapより)。

と、慌てて調べても後の祭。

Cのソースを見ながら、CSV切り分け書いてるんだけど。
Cだとbreak,continueとかで、loopを跳んだり、
文をキャンセルするので、全然参考にならん。

同じように書けば良いじゃん。

無理じゃん。
break, continueが使えるか使えないかで、全然変わるよ。

とりあえず、フラグを追加して、似たような動作を確保。
""→"にするのも出来たし、"なし文字列のスペースを
取り除くのも出来た。変なCSVでなければ、概ね基準通り
切り分けられるようになった。

>>631
えっ…

ひょっとして、DelphiやFreePascalにあるSystem.Breakは、独自拡張！？

>>632
知らなかったのか低能(ワラ

>>631
>無理じゃん。
>break, continueが使えるか使えないかで、全然変わるよ。
break文、continue文はラベル無しgoto文といわれるように、これらは等価なラベル有りgoto文に変換可能です。


>>632
DelphiやFreePascalのBreak、Continueが手続きであることの方が吃驚！
知らなかった私も低脳かえ？

>633は別人だが。

>>634
もちろん、goto文を使うことも考えたけど、
なんか邪道っぽくない？

ちなみに、うちのはTHINK Pascal。

>>635
PASCALで大域ジャンプ以外にgotoを使うのは邪道っぽい。

ちなみに、うちのはGNU Pascal。
ただし、JIS-PASCAL(X3008-1990)の範囲内で考えている。

macの場合、NewHandleやNewPointerでメモリーを
確保した場合、メモリー確保に失敗したら
OSErrで分かるんだけど。
標準pascalのnewでメモリー確保に失敗したら
どうなるの？というか、その判別方法は？

>>637
>標準pascalのnewでメモリー確保に失敗したら
>どうなるの？というか、その判別方法は？

JIS-PASCAL(X3008-1990)には何の記述もない。
必ず成功するかのようにも読める。
というわけで、その判別方法はない。
1.2　規定外事項
　(1) 特定のデータ処理システム又は処理系が処理できるプログラム及び
　　　データの大きさ又は複雑さの限界並びにそれらの限界を超えた場合の措置。

>635
・continue はループの先頭に戻る
・breakはループを脱出
でいいの？
だったらTHINK Pascalでは
・ループ(for,while,repeat)の先頭に戻る　→　cycle
・ループ脱出　→　leave
だけど。
他に関数・手続きからの脱出　→　exit(関数/手続き名)
というのもある。入れ子になった関数/手続きから一気に抜ける事も出来る。

・continue はループの最後に飛びます(C++第2版リファレンスマニュアルr.6.6.2)

>>639
ほんとだ・・・あった・・・。サンクス
標準Pascalの本を見ながらやってたので、気づかなかった。
THINK Pacal入門の後ろの方に、ちらっと載ってた。

あとこれでCとの違いといえば、case文の挙動が
ちょっと違う事くらいか。

例えば、'tarou'と入力させて、
tarouという名前の変数か、
tarouという添え字の配列を作って、
tarou[rika]:=100;
とか代入するには、どうすればいい？

できません。

じゃあ、tensuuは固定の名前で、
name:='tarou';
kamoku:='rika'
tensuu[name,kamoku]:=100;
kamoku:='eigo'
tensuu[name,kamoku]:=90;
とかは？

連想配列かあ。純粋なPascalじゃ無理かもね。
拡張構文使っていいならやりようはあるけど。

そうそう。連想配列。無理か・・・。
似たようなことは出来ない？

つまり、プログラム自体は一定で、
データの構造次第で変数を増やしたり
減らしたり、参照したり、したい。

いっそ、独自のスクリプト言語を
Pascalで作る方法を考えた方がいいか・・・。

連想配列そのものじゃなくても
type Tensuu = record Name, Kamoku: string; Tensuu: Integer end; の配列かリンクリストでいいのでは？
SetTensuu(list, name, kamoku, 90); みたいに使えるアクセサ関数を用意しとけば不便ってこともないでしょ。

Delphiなら、配列プロパティとかカスタムバリアントで構文上連想配列作れるけど

ここは「Pascal の初心者」なので、Delphi 等の拡張 Pascal は外すべきでは？

で、純正 PASCAL には「連想配列」はありません。
配列の引数として許されるのは列挙可能な型のみです。列挙不可能な数学的実数を表現している実数型も使用できません。
だいたい、純正 Pascal には文字列型すらないんだし....

連想配列を実現するコードを自分で書くことになります。
それを使って
647 さんの
>Delphiなら、配列プロパティとかカスタムバリアントで構文上連想配列作れるけど
ってことを実現することができるでしょう。

Delphiで言うところの動的配列も、標準では無いですよね？
var hairetu: array [0..maxNum] of integer;
の maxNumが変数であるのは許されないもんね。
まあ、この程度ならリストで代用できるから良いけど。

BasicでいうDIM文が懐かしい・・・。

>>648
＞連想配列を実現するコードを自分で書くことになります。
どこかに、転がってないでしょうか。
"pascal 連想配列"でググッても、rubyやPHPが出てくる。

それと、連想配列って英語ではなんて言うの？

あそしえーしょんあれい。

久しぶりにTHINK Pascalのマニュアルを引っぱり出したが。
associtation arrayは載ってない。当然か・・・。

探していたら、こんなのを見つけた。
PASCAL ファンのための CGI プラットフォーム 「Reims」
ttp://member.nifty.ne.jp/ymagami/Reims.html
こいつの言語仕様を参考に、associationやlongstringが
標準のPascalでも使えるようなルーチンを作るか。

・・・って、自分にできるか？(^^;
もっと偉い人が作った奴、どっかに落ちてないかなぁ。

PNL Librariesに、連想配列のコードがあった。
だけど、これはMacの、しかもコードウォーリアー用みたい。
少し書き換えればTHINK Pascalでもいけるみたいだけど。
スレ違いになりそうです。失礼しました。

THINK Pascal / Mac でやっているの？

連想配列って、やってることはデータベース検索なんだから、

type
Item = record key : string; val : integer end;
Items = array[1.1000] of Item;

みたいにして

for Ind = 1 to 1000 do Items[Ind].Key = SearchKey then

のように一致したキーを探すことになる。
毎回、全数検査すると遅くなるからハッシュを使うとか、速度向上の手法はいくらでもあるけど、本質は検索だ

まだソースをざっと見ている段階ですけど、
結構高度なことをやっている様子。
追加、削除、検索など、一通りのルーチンは
揃っているみたい。使い方を解析せねば。

処理速度を犠牲にしてもいいなら
for($i = 0; $i < @mob; $i++){
　next if ($mob[$i] eq "");　←何も無かったら次いく
　$mobname[$i] = $stuff[2] if ($stuff[1] eq $mob[$i]);
　last if ($stuff[1] eq $mob[$i]);　←見つかったら終了
}
これと同じ事をすればいい（↑はperlだけどな）

perlとしては↑間違ってる

えいめ〜ん

3つの整数を読み込み、最小値と最大値を出力するプログラムを作りなさい。

>656
宿題？

最初に
　整数を三つ読み込む。
次に
　最小値を見つける。そして出力。
最後に
　最大値を見つけ、それを出力。

簡単でしょ

こういうのをわざと、ObjectPascal使ってやったりしてな。

あ、そろそろ後期の授業が始まったわけか。

program test3;
var
a, b, c, max, min: integer;
begin
read(a);
max := a;
min := a;
read(b);
if b > max then
max := b;
if b < min then
min := b;
read(c);
if c > max then
max := c;
if c < min then
min := c;
writeln('max', max);
writeln('min', min);
end.

program maxandmin; (* IF無しバージョン *)

var
　　a, b, c, max, min : integer;

function sgn(si : integer) : integer;
begin
　　if si < 0 then sgn := -1 else if si = 0 then sgn := 0 else if si > 0 then sgn := 1;
end;

begin
　　read(a); read(b); read(c);
　　case sgn(a - b) of
　　　　-1, 0 : case sgn(b - c) of
　　　　　　-1, 0 : begin min := a; max := c; end;
　　　　　　1 : case sgn(a - c) of
　　　　　　　　- 1, 0 : begin min := a; max := b; end;
　　　　　　　　1 : begin min := c; max := b;　end;
　　　　　　end;
　　　　end;
　　　　1 : case sgn(b - c) of
　　　　　　-1, 0 : case sgn(a - c) of
　　　　　　　　-1, 0 : begin min := b; max := c; end;
　　　　　　　　1 : begin min := b; max := a; end;
　　　　　　end;
　　　　　　1 : begin min := c; max := a; end;
　　　　end;
　　end;
　　writeln('max=', max);
　　writeln('min=', min);
end.

あ、sgn に if文を使っているんだっけ。

function sgn (si: integer): integer;
begin
case si of
0:
si := 0;
otherwise
begin
sgn := si div abs(si);
end;
end;
end;

あ。begin, end 一個余分だ。

function sgn (si: integer): integer;
begin
case si of
0:
si := 0;
otherwise
sgn := si div abs(si);
end;
end;

program MaxMinX; (* ObjectPascal ver. *)
type
MMXtype = object
vmax, vmin: integer;
procedure init;
procedure setValue (val: integer);
function max: integer;
function min: integer;
end;
procedure MMXtype.init;
begin
vmax := -32768;vmin := 32767;
end;
procedure MMXtype.setValue (val: integer);
begin
if val > vmax then vmax := val;
if val < vmin then vmin := val;
end;
function MMXtype.max: integer;
begin max := vmax; end;
function MMXtype.min: integer;
begin min := vmin; end;
var MMX: MMXtype;a, i: integer;
begin
new(MMX);
MMX.init;
for i := 1 to 3 do
begin read(a); MMX.setValue(a); end;
writeln('max=', MMX.max);
writeln('min=', MMX.min);
end.

program test(input, output); (* 今度こそIF無しバージョン *)
Type TChoice = function(a, b : integer) : integer;
var
　　Func : array[boolean] of TChoice;
　　a, b, c : integer;

function First(a, b : integer) : integer;
begin First := a; end;

function Second(a, b : integer) : integer;
begin Second := b; end;

function fmax(a, b : integer) : integer;
begin fmax := Func[a >= b](a,b); end;

function fmin(a, b : integer) : integer;
begin fmin := Func[a <= b](a,b); end;

begin
　　Func[false] := Second; Func[true] := First;

　　read(a); read(b); read(c);
　　writeln('min=', fmin(fmin(a, b), c));
　　writeln('max=', fmax(fmax(a, b), c));
end.

>>667
発想がすごい！
けど、うちの環境（THINK Pascal）だと、
２行目が通らないっす・・・

>>668
あ、関数型（手続き型の方が分かりが良いかな）って
標準Pascal仕様じゃなかったんですね。ちなみにDelphi
では通りました。

program MMX;
var
a, b, c: integer;
begin
read(a); read(b); read(c);
writeln('max=', ((((a + b) + abs(a - b)) div 2 + c) + abs(((a + b) + abs(a - b)) div 2 - c)) div 2);
writeln('min=', ((((a + b) - abs(a - b)) div 2 + c) - abs(((a + b) - abs(a - b)) div 2 - c)) div 2);
end.

>>656
読み込んでソートして一番上と一番下を見る

>>670
あ、なるほど。2変数のやつをもう一度繰り返せば3変数
に対応出来ますね。私は「一度に3変数に対応出来ない
か」と考えていました。

>>672
でもこれって、>667の
>writeln('min=', fmin(fmin(a, b), c));
>writeln('max=', fmax(fmax(a, b), c));
の派生みたいな物ですよ。
ただ、公式にあてはめただけです。

他にも、
const
maxint = 32767;
minint = -32768;
var
index: array[minint..maxint] of boolean;
を使う方法も考えたけど、
メモリーが足りない（？）とかで
配列が確保できずに断念したっス。

>>673
2変数での公式と>>667のやつを組み合わせることを
思いつかなかったんです。思いついてさえいたら、先
に書いていたのに...

質問いいですか？
一クラス分の身長を実数型で入力し、最高と最低を求めるプログラムを作成せよ。
さらに示された入力データでトレース表を書きなさい。
（Ａ）最初に人数を入力し、人数分の処理をする場合(for)
（Ｂ）身長に０が入力されたら、終了する場合(while)

実行結果例
人数　制御変数　身長　最高　最低
6 　　 　1　　　 178
　　　 2　　　 165　　　　　　 165.0
　　　3　　　 197　　　 197.0
　　　4　　　 168
　　　 5　　　 175
　　　6　　　 183

こんな問題です。
特に、入力された人数分を変数に入れる方法と、トレース表に出力する方法が分かりません。

>>676
小学校の宿題か？

>>676
配列とか知っているか?

それとなんでその問題で「実数型」にする必要があるんだ?
実数型だと比較が難しいぞ。

>>678
問題が実数型で入力せよとなっているので・・・。
配列はあやふやです・・・。

3つの最大・最小の次は、この課題ですか。ふふーん
じゃあ、どうしよっかなー

(A)みたいなのは、BasicだとDIM文とかで
配列を宣言すれば無駄がないけど、Pascal
はできないもんね。
(B)も(A)もそうだけど、人数の最大が決まっ
てるか決まってないかで、全然変わるけど。
その辺は、どうなんだろうね？

がんばって考えてみたけどエラーが出ます。どこを改良すればいいですか？

var i,n,max,min :integer;
sin:array[1..100] of integer;
begin
write('人数は？');
readln(n);
for i:=1 to n do
begin
writeln(i,'人目の身長を入力してください');
readln(sin[i]);
end;
max:=sin[1];
min:=sin[1];
for i:=2 to n do
begin
IF sin[i]>max then max:=sin[i];
IF sin[i]<min then min:=sin[i];
end;
writeln('人数 制御変数 身長 最高 最低 ');
writeln(n);
for i:=1 to n do
begin
write(' ',i,' ', sin[i] );
IF sin[i]:=max then
write(' ',sin[i]);
IF sin[i]:=min then
write(' ',sin[i]);
end;
end.

>>682
ほとんどできてるじゃん。

＞IF sin[i]:=max then
＞write(' ',sin[i]);
＞IF sin[i]:=min then
＞write(' ',sin[i]);
ここ、「:=」じゃなくて「=」だ。
それと、この次に、
writeln;
の１行を入れる必要がある。

>>682
実数型を使っていないけど、いいのか?

それとトレース表の人数のあとに改行が入っているけど
それも問題無し?

>>684
そやな、ごもっとも。(w
でも、例とは違ってもええんちゃう？
それ言い始めると、「最低」の数字の
表示位置がずれてる気がするけど。

ところで。私も詳しく知らないんだが。
実数型って比較が難しいの？

>>685
おお、表示位置のずれは気づかなかった。という
ことで、そこも直す必要があるぞ。>>682

>>686
10進と2進の変換誤差（浮動小数点の場合）と計
算誤差があるから、等号比較だと偽になる場合
が考えられる。あと、有効桁数の問題も気にとめ
ておく必要が出る場合もあるし。

まあ、今回みたいに変数に入れた物を代入する
場合なんかは等号比較が出来る場合が多いけ
ど、代入を計算と見なした場合は一度倍精度に
してから単精度に戻すなどの処理が入って値が
変わる可能性があることを頭に入れておいた方
が破綻しづらくなります。

と言うことで私は整数型で実装出来るものは整数
型で実装するようにしています。

>>687
そうか。誤差か。普段そこまでシビアな計算って
したことないんで、気にしなかった。
うちも整数型がほとんどです。

今回の場合、まさか身長で小数点以下２桁以上が
必要になることはないので。入力した数値を
×10して整数型で保存・計算。表示の時に
÷10して実数型（例だと下一桁）っぽく
表示するのではあかんのやろか。
この処理、逆に面倒？誤差が大きくなる？

>>688
私もその方が良いと思ったので「実数型にする必要があ
るんだ?」と聞いたんだけど... でも「問題が実数型で入力
せよ」という事らしいから、実数型にする必要があるみた
いですね。

それとも「入力が実数型」を受け付けると言うことだけで
良いのなら内部は整数で扱う方がプログラム的には楽
ですね。

計算することを考えるのなら、小数点以下2桁くらい取っ
ておいた方が安全かも。

実数型で入力し・・・そうか！！やっぱり
入力さえ実数型なら、ええんちゃう？
処理まで実数型とは書いてないもんな。

>>682
考えることは同じやね。うちも最初は小数点以下
２桁と思ったけど、例が下１桁だったので、表示
するときの手間を考えて下１桁って書いてた。

そんなわけで。>682は、課題完了だな。

レス有難うございます！！
あとですね、>>676のwhile文のほうがあって身長に０を入力した場合に入力が終わるプログラムなんだけど、
そうすると出力のときに身長に０が出てしまうんですよ。どうすればいいですか？

>>691
forとwhileの基本的な違いではないか。
それを考えるのが課題のポイントじゃ。

for １〜２回
　入力　１〜２回繰り返し
戻る

repeat
　入力　１〜２回繰り返し、３回目に０を入力
０以外は戻る
最後の入力は無効

で、ええんちゃうか。
そうすると問題は、のっけから０を入力された
場合のエラーセーフだけど。ま、やってみそ。

if文は使ったらいけないのヵ
begin
一つ目を入力;
while i>0 do begin
出力;
入力;
end;
end.
たぶん不合格。
ん？0を「入力した」場合に「入力が」終わる？

あ。すまぬ。>693は何か勘違いして書いてるかもしれん。
そか。repeatはuntilで、whileは違うか。
ま、気にするな。(w

罪滅ぼしに、ちょっとヒントを。
var next:boolean;
...
next:=true;
while next do
begin
入力
if a=0 then next:=false;
その他のチェック
end;

なんだその変なコード。

>>697
まあ、でたらめっちゅー事で。気にするな。
よかったら、すばらしいサンプルを提示して
やってくだされ。

>>696
while true do　で　if 〜then break すればいいんじゃ？

>>699
前にも似たような話があったけど、
標準Pascalではbreakが使えないのよん。

と、思って>700を書いたが。私の勘違い？

1周目を必ず通すならrepeat使いなよ。

>>702
>676

ちょっくら問題作った奴に山嵐決めてくる。

ほんとだ、これは問題を作ったやつがバカ。
repeat - until を使った方が素直に組めるのに。
どうしてもwhileでやらなきゃならないのなら、入力
関数でも作って以下のようにするか...

function 身長入力関数(var 身長) : boolean;
begin 入力処理 end;

while 身長入力関数(身長) do
　　身長追加処理;


>>701
その通り、breakは無いです。元が教育用言語
だから、抜け道は作らないような構文になって
いるんですよね（caseのelse、otherwiseも無い）。

>>705
「課題」なんだから仕方ないよ。

Cだと、入力しつつ比較が出来るから、
関数を作る必要はないんだよね？確か。

breakが無いのはまだいいけど、
caseのotherwiseも標準にはないの？
これないと辛い。つーか、無理。
THINK Pascalはある。

>>706
いや、課題だからこそ変な制約を付けることなく作ら
せるのがよい。まあ、一定の方向に仕向けるためだ
ろうけど、それでプログラミング嫌いになったら教育
の価値無し。

otherwise（Delphiではelse）は無い。と言うかcase
を使う時点で出てくる要素は判っているはずだから、
全て列挙しろと言うことでしょう。otherwiseに入れら
れた処理を「あとで分類し直す」なんて事になったら
結構大変だというのは想像が付きそうだけど。

こんな強引な感じになりましたが一応例どおり動きました。
Program en9a(input,output);
var i,n :integer;
max,min :real;
sin:array[1..100] of integer;
begin
write('人数は？');
readln(n);
for i:=1 to n do
begin
writeln(i,'人目の身長を入力してください');
readln(sin[i]);
end;
max:=sin[1];
min:=sin[1];
writeln('人数 制御変数 身長 最高 最低 ');
writeln(n);

i:=1;
repeat
IF sin[i]>max then max:=sin[i];
IF sin[i]<min then min:=sin[i];
write(' ',i,' ', sin[i]);
IF sin[i]=max then write(' ',max:3:1);
IF sin[i]=min then write(' ',min:3:1);
writeln;
i:=i+1;
until i<>1;
for i:=2 to n do
begin
IF sin[i]>max then max:=sin[i];
IF sin[i]<min then min:=sin[i];
write(' ',i,' ', sin[i]);
IF sin[i]=max then write(' ',max:3:1);
IF sin[i]=min then write(' ',min:3:1);
writeln;
end;
end.

Program en9b(input,output);
var i,n :integer;
max,min :real;
sin:array[1..100] of integer;
begin
n:=1;
i:=1;
writeln(i,'人目の身長を入力してください');
readln(sin[i]);
while sin[i]<>0 do
begin
i:=i+1;
writeln(i,'人目の身長を入力してください');
readln(sin[i]);
n:=n+1;
end;
max:=sin[1];
min:=sin[1];
writeln('人数 制御変数 身長 最高 最低 ');
writeln(n-1);

i:=1;
repeat
IF sin[i]>max then max:=sin[i];
IF sin[i]<min then min:=sin[i];
write(' ',i,' ', sin[i]);
IF sin[i]=max then write(' ',max:3:1);
IF sin[i]=min then write(' ',min:3:1);
writeln;
i:=i+1;
until i<>1;
for i:=2 to n-1 do
begin
IF sin[i]>max then max:=sin[i];
IF sin[i]<min then min:=sin[i];
write(' ',i,' ', sin[i]);
IF sin[i]=max then write(' ',max:3:1);
IF sin[i]=min then write(' ',min:3:1);
writeln;
end;
end.

あのー、sinの宣言を見ていると、
整数型なんですけど・・・
小数入力しても、小数点以下が
切られてない？
（試してないので分からんけど）

sinってのは正弦みたいでやだな。

右シフトさせるプログラムがどーしても
出来ない・・・・

表示位置のずれはまだ直っていないようだが... あと
ちゃんとコンパイルして実行して動くかどうか確認し
て（もしくは不明点が見つかって）からアップしてくれ。

おまえのソースを全てチェックするほど暇じゃないん
だ。そっちのソースを直すより自分で全て書いた方
が早そうだし。


>>714
環境（対象コンパイラ、機種、OS等）の必要情報が
判らないとコメント付けようがないぞ。

>>715
例どうりに動いたと書いてあるよ。

>>715
フリーパスカル　CPAD　win2K

>>716
とても例どうりに動くとは思えんが、本人がそう言っている
のならそれでいいや。

>>717
確かFreePascalはTurboPascalの構文が使えるんじゃな
かったでしたっけ?それならshrで行けます。下記参考。ち
なみに左シフトはshl。

var
　　a, b : byte;

begin
　　a := 8;
　　b := a shr 1;　　(* シフトしたいビット数 *)
　　writeln(a, ' ', b);
end.

>>718
なんか配列使えって
言われちゃったので配列で無理やり作ってみた。

program sifuto(input,uotput);
type
suuji = array[1..10] of char;
var
a : suuji;
x,y,n : integer;
begin
begin
write('１０文字入力');
readln(a);
end;
write('いくつずらす？');
readln(x);
for y:= 11-x to 10 do
write(a[y]);
for n:=1 to 10-x do
write(a[n]);
writeln()
end.

今日配列使って作ったもう一個のﾔﾂ
program sinnsuu(input,output);
type
suuji = array[1..4] of integer;
var
a : suuji;
c, ans : integer;
d : integer;
begin
Write('Decimal : ');
Read(d);
c := 0;
while d <> 0 do
begin
c := c + 1;
ans := d mod 2;
d := d div 2;
a[c]:=ans
end;
for c:= 4 downto 1 do
write(a[c]);
writeln()
end.

配列ﾒﾝﾄﾞｲ
なんか中途半端に理解した。

>>720
0〜15の10進数しか変換できない。

>>719
俺、配列使えなんて一言も言ってないんだけど。

何か良く分かんない（理解出来ないやり取りの）
所に来てしまったようなので、落ち着くまでしばら
く黙っていることにする。

学校の課題なんでないかい？
配列使え、っていう。

>>723
課題は課題で良いんだけど、「他の人に分かって
もらう書き方」ってのがあると思うんだ。特にこうい
う場では。それと「自分で出来るだけ努力する」っ
てのも大事だし。

それをしないでソース垂れ流し（それもちょっと?の）
されるんで、もう私には理解不能。だからこの件
（と思われるもの）には黙ることにしました。

ところで。右シフトって何？
２で割ればいいんじゃないの？

>>725
マイナスの値を右シフトと2で割ることをしてみれば、
違いが分かると思う。それと、算術計算とビット操作
はやっぱり別の話だから。

マイナスか。それは考えなかった。
でも、ビット操作なんてアセンブラでも使わない
限り必要ないんじゃないかと思うけど。
Cならいざしらず、Pacalでは意味ないよねぇ。
課題じゃしょうがないけど。

>>727
だってグラフィックフォーマットとか通信プロトコルなんかで
「ビットで状態を表す」物って結構多いから、ビット操作がで
きないと辛い場合って結構あるよん。

そういう時までアセンブラを持ち出すのはちょっと大仰だと
思う。高級言語でサクサク組めた方が何倍もカンタン。

>>728
そうか。なるほど。

ビット操作はマックならtoolboxにあるので、
THINK Pascalでもコマンド一発。

a<>b<>c みたいなことをやらせるには どうしたらいいのでしょう… 配列を使った課題がT-T

a <> b and a <> c

>>730
a=cでもええのか？

>>731
b=cの可能性はあるな

そういう意味じゃない？

a <> b and a <> c and b <> c
等しくはならんが気休めにどうぞ。

andの方が優先度高い罠

そもそも、>730の課題は何がさせたいのだ？
aとbとcがいずれも異なる値であることを
確認すればいいの？
にしては、配列を使うって・・・意味不明。

>>735
意味を取ろうとするから意味不明。気にしなければOK。

課題を出している方はまともな課題を出していて、ここで
聞いているのの頭が「意味不明」なだけのような気がする
（もしくは本気で訊いていないのか）。今までの経緯から
すると。

意味が通る訊き方をすれば、それなりに答える気になる
のに。

配列を使ったプログラムの途中にa<>b<>cという判定が必要な部分があるとか

すいませんご教授おねがいします。
画面を再構成させる方法は存在するのでしょうか？
存在するのでしたら教えてください。
学校の宿題を作ってるとき、再構成しないと見栄えが悪いもので…

>>738
再構成ってどんなこと? 宿題と言われてもこっちは何も
分かっていないんだと言うことを理解して、詳しく説明し
てくれないと何の手助けも出来ないんだが。課題の内
容をこと細かく説明する必要は無いんだけど、「どんな
ことをやろうとして、どうなってしまったから、こうしたい」
くらいの説明がないと何とも。

あと、コンパイラ依存? それとも汎用? OSに関わりのあ
る（と思われる）場所は無いのかな?

見栄えを求めるとしたらどのレベル? 事によると宿題の
域を大幅に超えるかもしれないので、どれくらいの事を
したいのか分からないと答え辛いかも。

>>738
まるで
「僕のお小遣いで買いに行ける一番美味しいケーキはどれ？」
っていう質問に答えるようなものだな。

すいません、プログラミング初心者なので、
質問の仕方すらよくわかってません(/_<。)
delphi6のコンソールで、文字列がずらずらと繰り返えされ
見難くなるので、画面の文字をいったん全部消去する
方法を教えてもらいたいのですが…

正直どう説明すればいいのかすら分かりません(-_-;)

>>741
Delphi6と言うことはWin32コンソールもしくはDOS窓に
なるのか。OSによって対応は違いますね。

16ビット系（Win95からMEまで）なら「ANSIエスケープ
シーケンス」が使えると思うのですが、32ビット系（NT
から2000,XPまで）はこれが使えないので「いちいちコ
ンソールと文字モードのサポートにあるAPIで制御」す
るか、改行で区切って綺麗に見せて出力するかしか
無いですね。

>>742
そうですか…きっぱりあきらめることにします。
初心者の馬鹿な質問に答えて下さいまして本当にありがとうございました

>>738-743
pageコマンドは？

(A)コンソールに対して
　writeln('abc');
　page;
　writeln('xyz');

こうすると（THINK Pascalの場合）
（abcが表示された後、画面消去するので）
コンソールにxyzだけが表示される。


(B)ファイルに対して
　var f:text;
..
　writeln(f, 'abc');
　page(f);
　writeln(f, 'xyz');

こうするとabcとxyzの間に（改ページ）が挿入される。


一般的なPascalの教科書に出ているコマンドだよ。

>>744
delphiのコンソールじゃ出来ないんじゃない？

>>744
残念ながらBorlandのPascal言語系（Delphiだけで
なくTurboPascalから）はPageはサポートしていな
かったりする。

そうなんだ。

全く紛らわしいことしやがって。

TurboPascal風のコンソールユニット

http://www.slis.keio.ac.jp/~anakata/filearea/filearea.html から
Win32Crt.pas (w32crt03.lzh) を落として、解凍後、Win32Crt.pasを
Libフォルダにコピーする。
古いユニットなので、Delphi6では未定義の識別子 : 'KeyEvent' という
エラーが出るから、KeyEventという文字列を全てEvent.KeyEventに
置き換える。
これで、TurboPascalのCRTユニット風の関数が使えるようになる。
GotoXY, WhereX, WhereYがゼロオリジンなので、互換性を考えれば
ソースをいじったほうがいいかもしれない。

とりあえず、簡単なサンプル(Delphi6で確認）。 何かキーを押すと終了する。
program Project2;
{$APPTYPE CONSOLE}
uses
Windows, SysUtils, Win32Crt;
var
  f, b: Integer;
begin
  for b := 0 to 15 do
  begin
    ClrScr;
    for f := 0 to 15 do
    begin
      TextColor(f);
      TextBackground(b);
      gotoXY(f * 2, f);
      Writeln('Test String [', WhereX, ',', WhereY, ']');
      Sleep(1000);
      if KeyPressed then
        Exit
    end
  end
end.

ｎ個の値 a[0] , a[1] , ・・・ , a[n-1] が与えられているとき、
a[i]の順位 r を求めるプログラムを書いてください。
ただし、順位＝（自分より大きいものの個数＋１）です。

また、プログラム中に使用する名前の型、属性、意味内容を明示し、
実際の実行例もお願いします。

順番に調べればいいんじゃない。
x := 1;
for i := 0 to n-1 do
if a[i] > a[r] then x := x + 1;

>また、プログラム中に使用する名前の型、属性、意味内容を明示し、
>実際の実行例もお願いします。

それくらいは自分で考えた方が良いぞ。属性ってそもそも何?

とても素朴な疑問なんだが。

＞ｎ個の値 a[0] , a[1] , ・・・ , a[n-1] が与えられているとき

この「与えられているとき」ってのを見る度に悩むんだな。
サンプルをどうしよう？って。
programなら、入力ルーチンを作るか、ファイルから読み込むか、
constで適当な値を作るか。

procedureやfunctionだけ作るとしても、pascalでは配列を
関数には渡せないよね？
それとも、a[0]...っていうグローバル変数があるものと
してもいいけど、それも美しくないし。

>>754
ポインタで渡せば？

>pascalでは配列を関数には渡せないよね？

いや…渡せるけど
procedure A(B: array[C..D] of Integer); みたいな。
Delphiならprocedure A(B: array of Integer); で範囲はLow/Highで取る。

いや、勘違いだったら失礼。

>>756
そのC..Dが変数でもできたっけ？
>>755
ポインタで渡すのが確実か。確かに。

>>754
渡せるぞ。ちゃんと宣言すれば。以下参照。

Type
　　TIntArray = array[LO..HI] of integer;
var
　　A : TSomeArray;
procedure DoSomething(B : TIntArray);

として（LOとHIは定数で適当に宣言されているとする）、
　　DoSomething(A);
とすればちゃんと呼び出せるぞ。


>>756
手続き宣言の場所で直接配列を宣言すると、処理系に
よっては「違う型と見なされて配列を渡せない」事態にな
る可能性があるぞ。これは実装依存らしいから、絶対大
丈夫だとか絶対ダメだとか言えないのが面倒。


>>757
変数はダメです（処理系によっては大丈夫かも）。標準で
は定数しか受け付けません（というか実行時に大きさが
決まる配列自体が使えないはず）。

>>758
いや、私が言いたかったのはオープン配列。
規格はよく知らないけど、ものの教科書では
procedure A(B: array[C..D] of Integer);
で、任意の長さの配列を渡せるらしい。C..Dには実引数の添え字範囲が入る、らしい。
(もっとも、対応しているコンパイラは知らないけどね)
追記しているようにTP系(FreePascal/Delphi)では同じ機能はあっても構文が違う。

たぶん、環境に依存しないやり方としては、>758が
正しいと思う。見て、おぼろに思い出した。
だけど、わざわざ型を指定するのって、面倒なんだよね。

>>759
あー、オープン配列は使ったことがなかったので、完全に
忘れていました。書かれて初めて「そういうのがあったっけ
なぁ」という感じ。

私はオープン配列を使うような場面ではTListを使うので使っ
たことがありません。オープン配列を使わなきゃならないよ
うな手続きなんかも書かないし。

Why Pascal is Not My Favorite Programming Language
http://www.lysator.liu.se/c/bwk-on-pascal.html
誰か Why Pascal is My Favorite Programming Language を書いてください。

>>762
いいじゃん、放っておけば。大体用途の違う言語を
比較して「こっちが好きだ」って書いているような人
にろくなのはいないから。

分かっている人は「その言語はそういう用途には向
かない」とか「そういうことを目的として設計された言
語ではない」と書くと思う。

俺はタイプ量が多くなっても
if (hoge)と括弧を書くよりは
if hoge thenと書くほうが好きだ。

好きなところってそこしか思い浮かばなかった。
嫌いなところばっかり浮かんで来る・・・。

部分範囲型、集合型、配列の関係が好きだ…
C系の言語でこれらの概念を持ってるのがサッパリ無いのはどういうことか

ビットで済ましているんだろ。

お願いします

英単語を入力して、そのつづりを逆順にした文字列を作りなさい。
実行例
　　　　英単語は？　　beautiful
　　　　逆順にしたつづりは　　lufituaeb

できそうだと思ったんだけど挫折・・・

function ReverseString( S : String ) : string;
var
I, J : Integer;
begin
J:=Length(S);
SetLength( Result, J);
for I:=1 to J do
Result[i]:=S[J+1-I];
end;

実行してないんで動くかどうかはシラネ

program rev;
var st : string; i : integer;

procedure swap(var a, b : char);
var t : char;
begin
　　t := a; a := b; b := t;
end;

begin
　　readln(st);
　　for i := 1 to length(st) div 2 do
　　　　swap(st[i], st[length(st) - i + 1]);
　　writeln(st);
end.

こんな感じ?

回すのは、半分くらいでいいのでは？

あっ、半分になってるよね。スレ汚しすまん。

■フォーマット

xx xx xx xx
-- -- -----
Ａ Ｂ　Ｃ

Ａ... アイテムコード
Ｂ... 強化パラメータ ( 9C < 0 < 64 )
Ｃ... 使用回数 ( 00 01 < E8 03 < 00 00 )
※00 00 : 無制限
これどういういみでつか??

>>768
funciton ReverseString(S : String) : string;
var i : integer;
begin
　　for i := length(S) downto 1 do
　　　　result := concat(result, S[i]);
end;

これで良い気がする。

ほぉ。concat関数ですか。知りませんでした。
でも
>function Concat(s1 [, s2,..., sn]: string): string;
>説明
>Concat 関数を使うと，任意の数の文字列を結合できます。各パラメータは文字列型の式です。結果はすべての文字列型パラメータ>の結合です。
>次に示すように，正符号演算子（+）を使っても Concat 関数と同じ結果が得られます。
>S := 'ABC' + 'DEF';
>参考正符号演算子の方が Concat よりも処理が速くなります。
正符号演算子では文字列の加算の「度に」文字列分のメモリの確保と開放が行われてる(と思う)ので
前もってメモリを確保してある>>768のほうが速いと思われます。
(文字列が長くなるに従って差は大きくなると思います。
つまり、
速度を求めるなら>>773氏の方法より>>768のほうがよろしいかと。

実際に試してないんで知らないけど。
添字の計算部分の差で負けたりして(w

>>774
うーん、確かに速度的には遅くなるかもしれないけど、
この関数をそんなに頻繁に使うとは思わないので、な
るべく単純な形の方が分かりやすいような気がする。

あと、以下の形にすると、日本語に対応するのも楽。

function ReverseString(S : string) : string;
var

途中で書き込んでしまった。

function ReverseString(S : string) : string;
var i : integer;
begin
　　for i := 1 to length(S) do
　　　　result := concat(S[i], result);
end;

再帰バージョン

　function reverseString (a: string): string;
　begin
　　if length(a) <= 1 then
　　　reverseString := a
　　else
　　　reverseString := concat(reverseString(omit(a, 1, 1)), a[1]);
　end;

omitは　omit(文字列,位置,文字数)　で指定した部分を削除した文字列を返す，
THINK Pascal の組み込み関数。

>>775
単純さを求めるとなると手っ取り早い日本語対応は
function ReverseString(S : widestring) : widestring;
では?(w
>>776
>result := concat(S[i], result);
result := S[i] + result;
むしろこちらのほうが単純(直感的)かと。
ただconcat関数に慣れてないだけかも知れんが…

>ただconcat関数に慣れてないだけかも知れんが…

文字列連結に「+」が使える事にかえって驚く。
resultというのもDelphi独自の規格だよね。

>>778
widestringを使うのは環境にだいぶ依存しそう
ですけど（確かに単純と言えば単純だけど）。

concatを使うのはあくまで私のやり方ですので、
+の方が分かりやすければそちらで問題ありま
せん。

>>779
Turbo Pascalからの仕様ですね。

おながいします

問
正の整数を読み込み、30桁の数になるまでそれを2倍、2倍にしていき、
30桁の数になったら出力する。

桁数ってどうだっけ・・・

program Hoge;
{$APPTYPE CONSOLE}
var bignum : array [1..30] of Integer;
function keta: Integer; var i : Integer; begin
i := 30; while (bignum[i] = 0) and (i > 1) do i := i - 1;
keta := i; end; { keta }
procedure nibai; var i : Integer; begin
for i := 1 to 30 do bignum[i] := bignum[i] * 2;
for i := 1 to 29 do begin
bignum[i+1] := bignum[i+1] + bignum[i] div 10;
bignum[i] := bignum[i] mod 10; end;end; { nibai }
procedure print; var i : Integer; begin
for i := 30 downto 1 do Write(bignum[i]);end; { print }
procedure init; var i : Integer; begin
for i := 2 to 30 do bignum[i] := 0; bignum[1] := 1;end; { init }
begin init; while keta < 30 do nibai; print; end.

procedure init;
var i : Integer;
begin
Read(i);
bignum[1] := i;
for i := 1 to 29 do begin
bignum[i+1] := bignum[i] div 10;
bignum[i] := bignum[i] mod 10;
end;
end; { init }

>>767

program ensyu(input,output);
const msg ='英単語の綴りを逆順にします。';
var engword,downword:string[30];
Len,i :integer;
begin
writeln(msg);
write('英単語は？');
readln(engword);
Len:=length(engword);
for i:=Len downto 1 do
begin
downword:=downword+engword[i];
end;
writeln('逆順にした綴りは',downword,'です。');
readln;
end.

function ReverseString(S: String): String;
var
i, j : integer;
c : char;
begin
i := 1;
j := Length(S);
while i < j do begin
c := S[i];
S[i] := S[j];
S[j] := c;
i := i + 1;
j := j - 1;
end;
ReverseString := S;
end; { ReverseString }

激遅
function ketaketa(e : extended):integer;
begin
while true do begin
e:=e*2;
if log10(e)>=30 then break;
end;
ShowMessage（FloatToStr(e));
end;

procedure ketaketa(e : extended);
begin
while log10(e) < 30-1 do
e:=e*2;
ShowMessage（FloatToStr(e));
end;

procedure ketaketa(e : extended);
var
i : Integer;
begin
for i := 1 to Ceil((30-1 - log10(e)) / log10(2)) do
e := e * 2;
ShowMessage（FloatToStr(e));
end;

procedure ketaketa(e : extended);
begin
ShowMessage（FloatToStr(e * power(2, Ceil((30 - 1 - log10(e)) / log10(2)))));
end;

procedure ketaketa(e : extended);
begin
ShowMessage（FloatToStr(e * power(2, Ceil((30-1)*log2(10) - log2(e)))));
end;

function keta(e : Extended): Integer;
var
n : Integer;
begin
n := 1;
while e >= 10 do begin
n := n + 1;
e := e / 10;
end;
keta := n;
end;

procedure ketaketa(e : extended);
begin
while keta(e) < 30 do
e := e * 2;
ShowMessage（FloatToStr(e));
end;

>>787-792
extendedって30桁まであるのか?

いろいろカキコ有難うございます。今日の授業で>>782を以下の.........の部分を埋めて作れと言われました。

program enshu(input,output);
const K=30;
var i,j,m,v, :integer
n :array[1..K]of integer;
begin
write('出発の値は？');
readln(m);
if m >0 then
begin
.............
while m<>0 do
begin
.............
end;
J:=J+1;
・・。

while j > 1 do
begin
for i:=K downto J do
n[i]:= 2*n[i];
for i:=K downto J do
begin
...............
end;
if n[i-1]<>0 then j:=j-1
end;
for i:=1 1 to K do
write(chr(n[i]+Ord('0')));
writeln
end;
readln
end.

スマソ全然わかんないです・

program enshu(input,output);
const K= 30;
var i,j,m : integer; {var i,j,m,v, : integer}
n : array[1..K]of integer;
begin
write('出発の値は？');
readln(m);
if m >0 then
begin
j := K;
while m<>0 do
begin
n[j] := m mod 10;
m := m div 10;
j := j - 1;
end;
J:=J+1;

while j > 1 do
begin
for i:=K downto J do
n[i]:= 2*n[i];
for i:=K downto J do
begin
n[i-1] := n[i-1] + n[i] div 10;
n[i] := n[i] mod 10;
end;
if n[j-1]<>0 then j:=j-1 { if n[i-1]<>0 then j:=j-1 }
end;
for i:= 1 to K do { for i:=1 1 to K do }
write(chr(n[i]+Ord('0')));
writeln
end;
readln
end.

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1064150088&res=8
前にあったブラックジャックを作ってみた。
つくりかけだけど。