Pascalの宿題は俺にやらせろ！！Part1

教育用（？）プログラムPascalの宿題をやって頂くスレ

■丸投げOK
■全く分かってない阿呆も放置しないで優しく対応
■他言語はよそ逝け( ﾟДﾟ)ｺﾞﾙｧ
■DelphiもTurbo Pascalも完全対応

【本家】

http://www.borland.co.jp/delphi/

【関連スレ】

くだすれDelphi（超初心者用）その１5
http://pc5.2ch.net/test/read.cgi/tech/1087823906/l50

Pascal の初心者用の質問・相談所
http://pc5.2ch.net/test/read.cgi/tech/1009903617/l50

【Delphi初心者】今から始めるDelphi Part01
http://pc5.2ch.net/test/read.cgi/tech/1062422335/l50

Tubo Pascal のコンパイラを違法コピーした人の数→(503)

FreePascalはOK?

>>3
面倒なので、FreePascalは関連スレのどこか逝け。

>>1
今時 Pascal の宿題なんてあるの？

>>5
あるとこはあるみたいだな。

Pascalは初心者スレで宿題もやってたわけなんだが。

******Programming Language Pascal******
http://pc5.2ch.net/test/read.cgi/tech/1078885169/l50

ウルトラマンコ
スモス

誰かいますか？宿題あるんですがいいですか？

>>9
チャットじゃないんだから書くだけ書いとけば？

整数型の配列で、配列名CTab、配列要素ｎ個、を定義して、


�@ 各要素にデータを格納する。
�A 配列CTabの要素の合計と平均（小数第１位まで）、最大値と最小値を求めて表示する。

※配列要素の数は、定数Constでｎに適当な値を設定できるようにすること。

※プログラムは「終わりますか?」と表示して「ｙ」を入力したらプログラムを終了するように繰り返すこと。

>>10
そうですね。どなたかお願いします。
提出日迫ってて焦ってます。

const
n = ...;
var
CTab : array [1..n] of interger;
begin
repeat
kakunou;
hyouji;
until owarimasuka;
end.

>>13
それは違うと思います。。。

const
　n = ...;
var
　CTab : array [1..n] of interger;
begin
　Nis?

　repeat
　　kakunou;
　　hyouji;
　until owarimasuka;
end.

>>15
えっと、真面目にお願いします（汗）

>>16
これが何故ふざけてるよう見えるんだよヽ(`Д´)ﾉ
思いっきり答えじゃん
後>>13と>>15は別人

>>17
入れても起動しないのですが・・・
まず最大値と最小値を求めるプログラム入ってませんよね・・・
あとowarimasukaとか定義されてないのにuntilの後に入ってますし・・・
あとPascalで?とか使うの初めてみたのですが・・・

あとエラーが6つくらい出てます・・・

ここまで書いてもらったら、あとは自分で組めるだろ

>>20
組めません・・・すみません・・・

>>18
起動するわけないぽ・・・

>>22
・・・

>>23
キーボードから入力させる方法はわかる？

>>24
どういうことでしょうか？

procedure kakunou;
var
i : integer;
begin
for i := 1 to n do
...;
end;

>>26
馬鹿で申し訳ないです・・・

誰かpascalの入門サイト紹介してやれ

とりあえず、いいところか知らんが
http://or-lab.asahi-u.ac.jp/intro_to_delphi/default.htm
http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/beginner/tutor.htm

>>26
まとめてお願いできますでしょうか？

>>28
放置しないで下さい・・・

>>11
Pascalさわり始めて何週間でつか？

>>11よ
2chチェックしてる暇あったら勉強しろ！
条件分岐と繰り返しだけなら数時間で身につく
そして、それだけで問題とける

>>31
触り始めたのは2ヶ月前です。
授業でもやりましたが、何度か欠席してしまいまして・・・
あと、人のせいにするのも何ですが・・・
うちの教授教えるの下手くそなんです・・・。

課題はあさってには提出しないといけないし・・・
あとこれ含めて3問もあるんですよ（泣）
今から勉強したら間に合わないし・・・

上の関連スレのとこにある。くだスレで1つ教えて貰って
今日やっといろいろ調べて1個完成したんです；；

>>33
あれ完成したんだったらこの問題も応用だよ

>>32
他の課題もやらにゃならんのです・・・
だから人の手借りてます・・・

>>34
あれは整形してあったので、少し変えればいいことに気づきました・・・
でもこれは・・・何をどこに当てはめればいいのやら・・・

const
　n = ...;
var
　i : integer;
　CTab : array [1..n] of interger;
begin
　ユーザーにＮの値を決めさせる

　for i := 0 to n do
　begin
　　入力させる
　　入力された値を CTab[i] に格納
　　”終わりますか？”と表示
　　入力させてyならループから脱出
　end;

　結果表示
end.

>>37
ありがとうございます。
やってみます。

>>38
答え丸投げしてもらったほうが楽なんだろうけど、
今の段階では時間がかかってもいいから聞きながらやったほうがいいよ
まあガンガレ

>>39
そうですね。
今楽したら後でできなくなりますよね。
そこまで考えてくれてありがとうございます。
やってみます。

あと私の使っているのはDelphi6なんですが・・・

？

const
const= ...;
var
i:integer;
CTab : array [1..n] of string;

{一時停止用変数}
x:string;
begin
writeln;
write('値を決めて下さい====>');
writeln;

for i := 0 to n do
begin

CTab[i]:='格納';

ここまで出来ましたがどうでしょうか？

CTabにString入れてどうすんだよ…
根本から間違えてるぞ

うーん、先は遠いな。　自己解決できるのか？
この手のスレで教育するとは、教えてる人偉いよ。マジで。
漏れなら即丸投げだな。

>うちの教授教えるの下手くそなんです・・・。
たぶんそれ以前の問題だ。超基本だぞ。
>>32のいうとおり真面目に勉強すれよ。
丸投げ希望になったらそう書け。

>>43
明日の夜までは丸投げなしの方向でがんばれ

>>44
エラーでそうでたんです（汗）
えと、丸投げ希望です・・・ぐちゃぐちゃになっちゃいました（汗）

>>47
明日の夜は課題終わらせてないといけないので・・・
これ含めてあと3つなので
今日は最低でも2つは終わらせないといけないんです。

>>43
writeln;
write('値を決めて下さい====>');
writeln

この後にユーザーにNの値を入力させないと

あとこれ意外にもこのプログラムのアルゴリズムとか書かないといけなくて・・・（汗）

>>50
readln(i);
ですね。

>>52
＞※配列要素の数は、定数Constでｎに適当な値を設定できるようにすること。
読み込み先は i じゃなくてｎだよ
このプログラムはｎに入力された回数だけループする

[エラー] s4.dpr(10): 識別子 が必要な場所に 'CONST' があります
[エラー] s4.dpr(13): 未定義の識別子 : 'n'
[エラー] s4.dpr(21): Read/Readln 文に正しくない型が渡されました
[エラー] s4.dpr(24): 'Integer' と 'Array' には互換性がありません
[エラー] s4.dpr(31): 'END' が必要な場所に 'UNTIL' があります
[エラー] s4.dpr(32): 'UNTIL' が必要な場所に 'END' があります

>>54
>>37のuntil使わないほうが楽だよ
とりあえず途中まで書いてみるわ

トイレから復帰

const
　n = 0;
var
　i: integer;
　CTab: array [1..n] of string;
　s: string;
begin
　write('繰り返し回数を決めて下さい');
　readln(n);

　for i := 1 to n do　　　　　　　//n回繰り返す。nが10なら10回
　begin
　　readln(CTab[i]);　　　　　　　// i の値は1回目のループ時は1、10回目なら10
　　write('終了しますか？　[Y]');
　　readln(s);　　　　　　　　　　//とりあえずsに入れる
　　if　s = 'y' then break;　　　//sの中身が'y'ならループから脱出
　end;

　ここで最大値とか平均とか表示
end;

整数型の配列で、配列名STab、配列要素２０個を定義して、　　
�@ 各配列要素に数値データを格納する。
�A 並べ替える前の要素を横一列に表示する。
�B 配列STabの要素を値の小さい順（昇順：Ascending）に並べ替える。
�C 並べ替えた後の要素を横一列に表示する。

配列STab　�@の実行後

３ 　３７　９４７・・・・・・・・２　１６
STab(1) STab(2) STab(3) STab(4) ・・・・・・・・・ STab(19) STab(20)

配列Stab　�Bの実行後

２ 　３　 ９１６・・・・・・・・３７　４７
STab(1) STab(2) STab(3) STab(4) ・・・・・・・・・ STab(19) STab(20)

★並べ換えは、つぎのようにして行なう。
　　�@１番目の要素から２０番目の要素のうちで最も小さいものを選び、これを１番目におく。
　　�A２番目の要素から２０番目の要素のうちで最も小さいものを選び、これを２番目におく。
　　�B３番目から２０番目まで、４番目から２０番目まで・・・と同じよう行う。
　　�C１９番目と２０番目で小さい方を１９番目の要素におくと、並べ換えは終了である。
　　★プログラミングは、まず要素の数が２０の配列に整数値を入力して、２０個格納してから上に示した方法で並べかえる。
並べ換えた結果は、横一列に表示する。

>>56
こ・・・これは良くわかります！
激しくありがとうです。

>>57はもう一つの課題でめちゃくちゃむつかしいです・・・

>>57は完全丸投げでお願いします（汗）

>>58
やってみるけどブサイクなプログラムになりそうなのでａｇｅてみる(;´Д｀)
キレイにかける人よろ

単なるソートでしょ？
手元でトランプでも並び替えてみて、何が必要か考えるがよろし

あとは神っぽいプログラムがあるのでつが・・・
これはもう・・・初心者にやらせるのは間違ってると思いまつ。
あとでつね、私の習った範囲ではブサイクなプログラムの方が提出しやすいでつ。
どうもありがとうございますm(_ _)m

const
n = 0;
var
i,min,max:integer;
CTab: array [1..n] of string;
s: string;

{一時停止用変数}
x:string;

begin
max:=0;
min:=i;
write('繰り返し回数を決めて下さい');
readln(n);
for i := 1 to n do
begin
readln(CTab[i]);
write('終了しますか？する場合は【y】と入力して下さい');
readln(s);
if s = 'y' then break;
end;

begin
if(max<n) then max:=n
else
if(min>n) then min:=n;
end;
writeln('最大値=',max,'最小値=',min,');

【エラー】
[エラー] s4.dpr(13): 下限値が上限値を超えています
[エラー] s4.dpr(23): 代入できない左辺値です
[ヒント] s4.dpr(24): 一度も実行されない for/while ループがあります - 削除しました
[エラー] s4.dpr(41): 文字列が正しく終わっていません
[エラー] s4.dpr(43): ',' または ')' が必要な場所に 識別子 'writeln' があります

問題が多いです・・・

横から悪いんだが、>>11を読む限り、readln(n);は要らないというかconstならそもそもできないと思うんだが…

誤所を指摘して頂けると嬉しいです。

constで宣言するのは定数だから、ReadLnで値を外部から上書きなんてのは最初からできんのです。
つまり
>※配列要素の数は、定数Constでｎに適当な値を設定できるようにすること。
ってのは、
const n = 0;
のところを、後からそこだけ5でも10でも100でも適当に変えても動くようにしろって事と思われるのです。

>>63-64
にあげた書き方で誤所修正して貰えませんでしょうか？

配列STab　�@の実行後

３　　　　　　３７　　　９　　　　４７　　　・・・・・・・・　　　２　　　　　１６
STab(1) STab(2) STab(3) STab(4) ・・・・・・・・・ STab(19) STab(20)

配列Stab　�Bの実行後

２　　　　　　３　　　　９　　　　　１６　　・・・・・・・・　　　３７　　　　４７
STab(1) STab(2) STab(3) STab(4) ・・・・・・・・・ STab(19) STab(20)

>>57
の訂正です。

const
n = 0;
var
i,min,max:integer;
CTab: array [1..n] of string;
s: string;

{一時停止用変数}
x:string;

begin
max:=0;
min:=i;
write('繰り返し回数を決めて下さい');
readln(n);
for i := 1 to n do
begin
readln(CTab[i]);
write('終了しますか？する場合は【y】と入力して下さい');
readln(s);
if s = 'y'
then break;
end;
begin
if(max<i)
then
max:=i
else
if(min>i)
then
min:=i;
end;
writeln('最大値=',max,'最小値=',min,');

[エラー] s4.dpr(13): 下限値が上限値を超えています
[エラー] s4.dpr(23): 代入できない左辺値です
[ヒント] s4.dpr(24): 一度も実行されない for/while ループがあります - 削除しました
[エラー] s4.dpr(41): 文字列が正しく終わっていません
[エラー] s4.dpr(43): ',' または ')' が必要な場所に 識別子 'writeln' があります

少し訂正しましたが、まだエラーが・・・
このエラーがどうしても直せません・・・

誤所ってあーた…エラーメッセージまんまじゃ…

まず、
>[エラー] s4.dpr(13): 下限値が上限値を超えています
は
>CTab: array [1..n] of string;
でしょ？行番号の対応わかりませんけど。
複数の値を入力させて配列に記録するという課題の性質上、n = 0ってのがまずありえない。
Pascalの配列として考えても、n = 0なら[1..0]になるわけで、これもありえない。
よってconst n = 0; を、適当な正の値にしとく。

そうすればエラーメッセージは減るだろうから、もうちょい自分の手を動かしてみた方がいいでしょ。

>>74
すごいです！
エラー３つになりました！
完成まであとちょっとです！

[エラー] s4.dpr(23): 代入できない左辺値です
[エラー] s4.dpr(41): 文字列が正しく終わっていません
[エラー] s4.dpr(43): ',' または ')' が必要な場所に 識別子 'writeln' があります

ですね。

代入できない左辺値・・・

writeln('最大値=',max,'最小値=',min,');
minの後ろの　'　これ削除'

>>77
２個になりました！

[エラー] s4.dpr(23): 代入できない左辺値です
[エラー] s4.dpr(41): 式 が必要な場所に ')' があります

後はまあ、const n = ...のところでnの値を決めてる以上、readln(n)は無意味と理解できれば
>>68の意味もわかってもらえると思うのですが

[エラー] s4.dpr(40): 式 が必要な場所に ')' があります

>>80
それは理解できました。

>>57
var
STab: array[0..19]of integer;
i, m, iValue, index: integer;
begin
for i:=Low(STab) to High(STab) do Readln(STab[i]); // 入力受け付け
for i:=Low(STab) to High(STab) do Write(Stab[i],#9); //要素表示
Writeln;
for i:=Low(STab) to High(STab) do //ソート
begin
iValue:= STab[i];
index:= i;

for m:=i+1 to High(STab) do
if STab[m] < iValue then
begin
iValue:= STab[m];
index:= m;
end;

STab[index]:= STab[i];
STab[i]:= iValue;
end;

for i:=Low(STab) to High(STab) do Write(Stab[i],#9); //要素表示
Writeln;

Readln; //（入力確認用）

>>81
writeln('最大値=',max,'最小値=',min,');
minの後ろ ","削除

エラーが出たなら")"の近辺見直すくらいしようや。
あとmaxとminは関数名だから別の名前のほうがいいと思われ。

>>11　丸投げじゃないよ。参考にして書き換えなさい。

const
　n = 3;
var
　CTab: array[1..n]of integer;
　Sum_i, Max_i, Min_i, i: integer;
　C: Char;
begin
　Sum_i:= 0;
　Max_i:= Low(integer);
　Min_i:= Maxint;

　for i:=1 to n do
　begin
　　Write('整数入力');
　　Readln(CTab[i]);

　　Inc(Sum_i, CTab[i]);
　　if Max_i < CTab[i] then Max_i:= CTab[i];
　　if Min_i > CTab[i] then Min_i:= CTab[i];

　　Writeln('Sum: ',Sum_i);
　　Writeln('Ave: ',Sum_i /i :1:1);
　　Writeln('Max: ',Max_i);
　　Writeln('Min: ',Min_i);
　　Write('終わりますか？');
　　Readln(C);
　　if C = 'y' then break;
　end;

提出日前日にサーバーが超不安定
かわいそうすぎるぞ>>11

>>11読んでないのかなー？
待望の >>82丸投げ＆ >>84ほとんど丸投げ出てるのに。

ありがとう。本当にPascaりました。

おおっ！>>84から書き換え成功したようですね。
ま、あれはあれでそのまま動くものでしたが。

(ルートc)の近似値を求めるプログラムを二分法で作ってください。
pascalでお願いします。

パスカルじゃないならこんなモノが。
http://www.math.kobe-u.ac.jp/~taka/asir-book-html/main/node35.html

>>89
http://pc5.2ch.net/test/read.cgi/linux/1090290480/l50

9801(9821)プリンタポートへの出力についてですが、

port[$40]:=$01;
これは実行結果OKで、出力ポートの最下位ビットがHになりました。　
次に、
port[$42]:=s;
writeln(s);

で、CRT画面にport42Hの状態を画面表示できると考えているのですが
実行した結果は、そうなってないような感じです。
書式が根本的に間違っているのでしょうか？
Turbo Pascalのバージョンは98版6.0です。
宜しくご教授のほどお願いします。

ポートが読めるかどうか知らないけど、それ以前に
＞port[$42]:=s;
s := port[$42]　ではないの？

>93
すんません、あとで気が付いて直したらＯＫでした。(^^+

PC-98用のTurbo Pascalくださいお願いします

program(output);

 writeln('ねこみみ、かわいい？？！');
end.

最小文字数のプログラムを作るにはどうすればいいですか？

program;(imput,output)
begin
end.

とやって他には何をいれればエラーが出ないようになります？

program A(input,output);
begin
end.
じゃないか？
Delphiなら begin end. だけでも通るけどさ

(input,output)
は入れる必要ってあります？
あとwriteとwritelnのちがいを教えてください。

Pascalによっては、標準入出力を意味する(input,output)の代わりにファイルを書けたりしたよーな気もするが
大抵の処理系では(input,output)は単に無視されるので無くてもいいかな
writelnはwriteに加えて改行する

>>99
入出力が無いなら(input,output)は不要なはず。
出力だけのプログラムの場合、(output)だけの
こともあ。

修正途中で書き込んでしまった。

出力だけのプログラムの場合、(output)だけの
こともある。

と書くつもりだった。

>>100
仕様で「ファイル名なんかの受け渡しを、この
パラメータを介して行う」となっているから、その
処理系は正しく実装しているのかも。

BNFでは
　　<プログラムの頭書き> ::= program <名前>
　　( <ファイル名> {, <ファイル名> } );
って書いてある。

>>98 100〜102
ありがとうございました。
大学でpascalの授業が始まったんですが
かなり説明不足な授業やらかされてるんで
助かります。

情報落ちを防ぐための和のプログラムはどのようにかけばいいんでしょうか？

>>104:
案1：絶対値の小さい順に足す。
案2：足したけど足せなかった分を管理する。

『アルゴリズム辞典』のPascal版、C言語版、Java版どの本でも載ってたはず。

解答ありがとうございます。もっとよく調べてみます。

4桁のある自然数をストリングに詰めることを考えています。
まずは面倒ですがmodを駆使してそれぞれの桁の数字を取り出し、
それぞれをif (1keta = '1') then arry[1] = '1';
を延々と繰り返すのですが、
ここでは
if (1keta = '1') then arry[1] = '1'
else if (1keta = '2') then arry[1] = '2'
else if (1keta = '3') then arry[1] = '3'
以下略　のようにelse ifの方が演算コストは少ないですが
case文と比べるとどちらのほうが早いのでしょうか。
case文、switch文はジャンプアドレス表というものを使い
ifとは異なり一気に飛べる分にコストが低いと聞きました。

if文を使うとしたらクイックソートのように
5以上→7以上→9か8か7か
　→6か5か
5未満→3以上か→4か3か
　→2か1か0か
とするつもりです。
単純に0から順に調べると平均比較回数が5.5で、上記では3.6となるようです。

なんでそんなことをわざわざ気にかけるの、と言われそうなので
先回りして答えますと、
プログラム自体は単純なradixソートを1万個の数に対して行う事なので
integerをstringに変える部分のコストがどうしても無視できないのです。

今までもifにしようかcaseにしようか何度も迷ってきたので
後学のためにも、きちんと理解しておきたいなとも思いますです。

>>107
Chr(Ord('0') + n)でいいじゃん
数字が文字コード上で並んでいることが前提だけど、そうじゃない文字コード体系なんてあるまい

Pascalの規格上は数字ｺｰﾄﾞは連続してますよ。
アルファベットは保障されてないけど。

>>107
一桁ずつ数値のまま比較するのは×なの？

べつに連続してなくても表引きにすればいいじゃん。

ｎ*nの正方行列の積を求めるプログラムを作りなさい

>>112
Jensen and Wirth を書きうつせばいい？

非負整数を受け取って10の位と1の位の数を返す手続きを作りたいんですけどどうすればいいですか？

98465

98465 mod 100= 65
65 div 10 =6
65 mod 10 =5

>>112
俺ハケーン！

お願いします☆
(課題)
入力されたｎ個の数を大きい順に並び替えるプログラムを作れ。
(他のスレにも書き込んだけどまだわからなかったので)

btreeでぐぐれ

二分木で記録していくか、配列に記録しておいて表示前にソートか

とりあえず選択ソートでどう？
あとはｎ個だけに対応するように書き換えればいいでしょう。

procedure SelectionSort(var List: array of integer);
var
　i, m, u_value, u_index, ListHigh: integer;
begin
　ListHigh:= High(List);

　for i:=Low(List) to ListHigh-1 do
　begin
　　u_value:= List[i];
　　u_index:= i;

　　for m:=i+1 to ListHigh do
　　begin
　　　if List[m] < u_value then
　　　begin
　　　　u_value:= List[m];
　　　　u_index:= m;
　　　end;
　　end;

　　List[u_index]:= List[i];
　　List[i]:= u_value;
　end;
end;

１桁以上の数字、*、/、+、-、= の各文字で構成された式を読み、
計算値を出力する電卓のプログラムを作成せよ。
ただし、 低機能な電卓と同様に 演算子 *, / と +, - の優先順位は対等とする。
また、/ は整数除算の演算子とし、 余分な空白などの不正な入力に対して配慮する必要はない。

なお、 読み込んだ値を計算式内で直接利用するために、
手続き read で読み込んだ整数値を関数値として返す関数 getnumber を作成し、
これを利用したプログラムとすること。

た す け て

た す け て

↑　マルチ

open(IN,"./charalog/$winner[0].cgi")
@chara2 = <IN>;
close(IN);

open(IN,"./kati/w_ranking.cgi")
@wrank = <IN>;
close(IN);

この文おかしいですか？

>>123
あなたはそれがPascalだとでも言い張るのですか？

>>122
他にどこに書いてある？

>>121
ほれ。GetNumberは手続きだったりするがね（ｗ
>ttp://www.ced.is.utsunomiya-u.ac.jp/lecture/2004/prog/p3/kadai2/enshu2-2003/prog/calc.p

delphiですが
Memoに各行に入力された数値から平均値、最大値、最小値、標準偏差
をlabelに表示する。
標準偏差はarrayで宣言し配列を使った各データと平均値との偏差から計算した標準偏差と
データの和をデータ数で割って平均値を求め、分散の計算をし、平方根によって求めた2通り
表示する
おねがいします
X,M,SumX,SumX2,MinX,MaxX:single;
I,N:integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
N:= Memo1.Lines.Count;
X:= StrToFloat(Memo1.Lines[I]);


for I:= 0 to N-1 do

M:=X/(N-1)
Label1.Caption:='平均値は'+IntToStr(X) ;
ここまでできたんですが間違い直しもかねておねがいします

ヘルプ検索したか？
MeanAndStdDev手続きのソース見てみな。
・・・もっともキミのコード見るとそれ以前の問題のような気もするが。


MeanAndStdDev手続き
MeanAndStdDev は，配列要素の平均と標準偏差を計算します。

2から17までの平方根を二つのグループに分け
その二つのグループができるだけ等しくなるよう
にするプログラムを書け

>>129
命令されてまでやりたくない

>>130
理不尽なことに宿題はたいてい命令口調で書かれています

命令口調はいいけど二つのグループのなにをできるだけ等しくするんだろ？

>>132
グループの中にあるすべての平方根の和です
どうしたらいいのかまったくわからないんでよろしくお願いします

なんかどこかで見たような問題だからアルゴリズムがあるのかもしれんが、最悪でも単純に全パターン試しゃいいだろ

ナップザック問題になりそうな気がするのはおいらだけ？

いい参考書ありますか？

私が調べた限りではサイエンス社からいくつか出版されています。
どうでしょうか？

>>129
こんなもんで、どうでしょう？
program prg00(Output);
var
N: Integer;
e: array [2..17] of Real;
f: array [1..17] of Integer;
sumM,sumH,sum: Real;
procedure Print;
var
I: Integer;
begin
for I := 2 to 17 do
Write(Output, f[I]:2);
Writeln(Output, sumM)
end;
begin
sumM := 0.0;
f[1] := 1;
for N := 2 to 17 do
begin
e[N] := Sqrt(N);
sumM := sumM + e[N];
f[N] := 0
end;

つづく

sumH := sumM / 2;
N := 2;
while N >= 2 do
begin
if f[N] = 0 then
begin
f[N] := 1;
sum := sum + e[N];
if sum >= sumH then
begin
if sum < sumM then
begin
sumM := sum;
Print
end
end
else
if N < 17 then
N := N + 1
end
else
つづく

begin
f[N] := 0;
sum := sum - e[N];
if N < 17 then
N := N + 1
else
while f[N] = 0 do
N := N - 1
end
end
end.

f[N]=0 の方の和が sumH を超えたときの探索枝もカットできるな。
あと、e[N] は Ｎ が増えると大きくなるんだから、その辺の探索も
カットできるな。
それ直せばいけるんじゃない？

:=
↑これの読み方教えて

>>141
めだか

>>141
定義する

>>141
あさいんめんとおぺれーたー、とかだった気がする

てんてんいーこーる

Cプログラムで合計と平均および最大値と最小値値を求めて表示するプログラムを作れ。
という課題を出されたのです。
３時間考えてもわからなかったので助けてください。

1. キーボードから10個の実数を配列 double a[10] に読み込み、合計、平均、
及び最大値、最小値を求めて表示するプログラムを作れ。
という課題がでました。
助けてください

Pascalの宿題は俺にやらせろ！！Part1
Pascalの宿題は俺にやらせろ！！Part1
Pascalの宿題は俺にやらせろ！！Part1

質問です。
アルファベットの大文字を入力して小文字を出力したいのですが
アイディアだけでも教えてください

Ord('a') - Ord('A')が文字コードでの大文字と小文字の差なので入力した字をOrdとChrで

やべぇordとかchrとか全然ﾜｶﾝﾈ('A`)
勉強しなおしてきます

厳密に標準Pascalに従おうとすると、英字が連続しているとは
かぎらないので、ちょいむずかしい。表を使って
program Locase(input,output);
const MaxChar = 255;
var C : Char; I : Integer;
   table : array [Char] of Char;
   High, Low : packed array [1..26] of Char;
begin
   High := 'ABCDEFGHIJLMNOPQRSTUVWXYZ';
   Low := 'abcdefghijlmnopqrstuvwxyz';
   for C := Chr(0) to Chr(MaxChar) do table[C] := C;
   for I := 1 to 26 do table[High[I]] := Low[I];
   while not Eof do begin
      if Eoln then begin
         Readln; Writeln
      end else begin
         Read(C); Write(table[C])
      end
   end
end.
のようにする。ただし
1. Charが8ビットでない場合はMaxCharを適当に直すこと。
2. 入力が改行で終わっていない場合はおかしくなるかもしれない。
3. DelphiではHigh/Lowの型をstringにしないとエラーになる。

Delphiなら LowerCase 使えば一発だけど

>>147
ほかで質問したか？
っていうか、Ｃの入門書読めば配列の説明に解説つきでありそうだが。
たった３時間でくじけるな。

今みたらＣの宿題スレで質問済みだったね。
でもテンプレ無視の理解不能質問で見捨てられたみたい。

Imageコンポーネントに円や多角形を描画して車とか船とかなんでもいいので
作ってもらえませんか？

・ペイントを起動して、車とか船とかを描きてきとーに保存
・フォームにImageコンポーネントを貼りつけそこに読み込む
・完成

すみません、パスカルでもいろいろあるんですかね？？？
これだと駄目みたいでした↓↓

うん、HectoPascal とか。

これってどれのことだ？

クイックソートのプログラムってどんな感じになるの？

#・・・懐かしい。Pascalのソースを目にするのは20年ぶりくらいだ。
#スレ違い申し訳無い。

>>161
クイックソートは分割統治法を利用した再帰アルゴリズムです。
アルゴリズムを勉強しましょう！

おすすめ本
Ｄｅｌｐｈｉアルゴルズム
ＩＳＢＮ４−７９７３−０８４５−１

クイックソートの解説もソース付きで載ってるよ。
６年前の本だけどまだ売ってるのかな？

>>161
全体をある値以上と以下に分けて、そのそれぞれをある値以上と以下に〜繰り返し。

クイックソートはたいていのPascal教科書にのってるのでそれ参照。
Delphiでコンパイルできないように整合配列使って書いてみたが、ぜんぜん
おもしろくなかったのでやめた。

人名とテストの点数を読み込み、リスト構造を作成する。
ただし点数の低い人のデータから入力するものとする。

program ex(input,output);
type name_p=^person;
person=record
name:string[20];
test:integer;
ptr:name_p
end;
var start,refer:name_p;
datn:string[20];
dat:integer;

{１人分のデータ（点数、名前）を読み込み、点数が低い順に並ぶようにそのデータを挿入する手続き}
procedure insert;

begin
{初期設定}
new(start);
refer:=start;
{リスト構造の作成}
write('input name:'); readln(datn);
refer^.name:=datn;
while datn<>'end' do begin
write('input test:'); readln(dat);
refer^.test:=dat;
new(refer^.ptr);
refer:=refer^.ptr;
write('input name:'); readln(datn);
refer^.name:=datn
end;
refer^.ptr:=nil; refer^.test:=10000;
{データの挿入}
insert;
{データの出力}
refer:=start;
writeln;
while refer^.ptr<>nil do begin
writeln(refer^.name,':',refer^.test);
refer:=refer^.ptr
end;
writeln
end.

挿入手続きinsertを完成させなさい。ただし引数は何も用意しないものとする。


これ、どなたかできますか？いろいろやったんですが上書きになったりして
できません（泣）助けてください。

挿入というかリストのソートをすればいいんだよね。
最後の要素に10000を入れているということは、ほかの要素は10000
未満であると仮定していいのかな？

ポイントは(1)リストの先頭に挿入するときに厄介な事にならないように最初の
要素をダミーにしておくと楽(2)ポインタをつなぎかえる前に元の値を保存して
おく、くらい。

   procedure insert;
   var p, pptr, s, sorted: name_p;
   begin
      new(sorted);
      sorted^.ptr := refer; { 番人 }
      p := start;
      while p^.ptr <> nil do begin
         s := sorted;
         while s^.ptr^.test < p^.test do s := s^.ptr;
         pptr := p^.ptr; { 保存して }
         p^.ptr := s^.ptr; s^.ptr := p; { つなぎかえて }
         p := pptr { つぎへ }
      end;
      start := sorted^.ptr;
      dispose(sorted)
   end;

>>169
ご丁寧にありがとうございます。
ただ、ちょっと説明が足りなかったかもしれません。
問題冒頭にあるように始めから、点数は低い順に並んでいるので
ソートでは無く、挿入なのです。
つまり以下のような文を手続き中に入れることになります。

write('input 挿入name:'); readln(newdatn);
write('input 挿入test:'); readln(newdat);

これを、順番を崩さないように挿入するということです。
分かりますでしょうか？m(_ _)m

>>170
う、そんなに簡単な問題だとはおもわなかった。
var s, p: name_p;
としておいて

   p^.name := newdatn; p^.test := newdat;
   if newdat < start^.test then begin
      p^.ptr := start; start := p
   end else begin
      s := start;
      while s^.ptr^.test < newdat do s := s^.ptr;
      p^.ptr := s^.ptr; s^.ptr := p
   end

あたりでいいのでないの？

>>171

追記。上のは newdatn/newdat の入力のあとに new(p); として
そのあとの部分ね。

学生の身長を表すデータ型を、学籍番号を表す整数型の欄noと、
身長を表す実数型の欄heightをもつ次のレコード型で定義する。
type student = record
                no : integer;
                height : real
                end;
2人の学生のデータ（student型のa,b）を引数とする、以下の2つの関数および手続きを作成せよ。
(1)身長の高い方の学生の学籍番号noを返す関数higherno(a,b:student):integer
(2)身長の高い方の学生のデータをcに返す手続きhigher(a,b:student; var c:student)
ただし、2人の身長が等しい場合は一つめの引数となった学生のデータ
（(1)ならば学籍番号。(2)ならばstudent型のデータ）を返すこととする。


そもそもレコード型へのデータを入れ方が分からないです(；´Д｀)
おながいします

>>173

さすがにそれは……

レコード型 a の内容を c に入れるには c := a で OK。
a が b より大きいなら a.height > b.height。

あとはわかる？

そもそもレコードよく分かってないんで勉強しなおしまする

>>171
できました！ありがとうございます！感動・・・

function higherno(a,b:student):integer;
begin
if a.height >= b.height then higherno:=a.no else higherno:=b.no
end;

procedure higher(a,b:student; var c:student);
begin
if a.height >= b.height then c:=a else c:=b
end;

こんな感じでせうか(；´Д｀)

pascalでバックトラックを勉強したんですが、
プログラムの書き方が分かりません。
ナイトの巡回という名前のプログラム知ってますでしょうか？

チェスの盤上をナイトが全マス移動するってやつか？
今まで移動したところを記憶して、全部移動してたら終了。
移動先があったら記憶して再帰、帰ってきたら記憶を消して次の移動先で再帰。

そうです。

ナイトの初期位置(１、１)で、５＊５マスに対する全ての解を求めよ。
ただし、対称なものは除くこと。

という問題の答えを教えて欲しいです。

Delphi消したから今処理系ないんだよね。
対称解はどうやって除いたいいものか。

1/8

エイトクイーンのプログラムお願いします

program eightqueen(input, output); const queen = 8; type q = 1..queen;
var board : array [q] of q; num : integer;
procedure answer; var i, j : q; begin writeln; num := num + 1; writeln(num);
for i := 1 to queen do begin for j := 1 to queen do
if board[i] = j then write('Q') else write('.'); writeln; end; end;
function check: boolean; var i, j : q; begin check := true;
for i := 1 to queen do for j := 1 to queen do if (i <> j) and
((i-j = board[i] - board[j]) or (i-j = board[j] - board[i]) or
(board[i] = board[j])) then check := false; end;
procedure loop(n : q); var i : q; begin for i := 1 to queen do begin
board[n] := i; if n <> queen then loop(n+1) else if check then answer;
end; end; begin num := 0; loop(1); end.

Dev+GNU Pascal (A Full GPL Pascal Programming Environment + Win32 IDE)
http://www.gnu-pascal.de/contrib/chief/

>>184
ありがとう！助かります！

>>184
えらくおそいと思ったら、ぜんぶ置いてからチェックしてるのか。

途中でチェック版
program eightqueen(input, output); const queen = 8; type q = 1..queen;
var b : array [q] of q; num : integer; procedure answer; var i, j : q;
begin writeln; num := num + 1; writeln(num); for i := 1 to queen do begin
for j := 1 to queen do if b[i] = j then write(' Q ') else write(' . ');
writeln; end; end; function check(n: q): boolean; var i: q; begin
check := true; for i := 1 to n-1 do if (abs(i-n) = abs(b[i]-b[n])) or
(b[i] = b[n]) then check := false; end; procedure loop(n: q); var i : q;
begin for i := 1 to queen do begin b[n] := i; if check(n) then if n <> queen
then loop(n+1) else answer; end; end; begin num := 0; loop(1); end.

>>178,>>180のナイトの巡回、(1,1)開始で
とりあえず対称なものも含めて全ての解を求めるには
どうすればいいですか？

総当り

対称解ありだけど、８の倍数にならないな・・・。
program knight(input, output);const SIZE = 5; type D = 1..SIZE;
M = 0..SIZE*SIZE; var board : array [D, D] of M; num : Integer;
procedure init; var i, j : D; begin num := 0;
for i := 1 to SIZE do for j := 1 to SIZE do board[i,j] := 0; end;
procedure answer; var i, j : D; begin writeln; num := num + 1; writeln(num);
for i := 1 to SIZE do begin for j := 1 to SIZE do write(board[i,j]:3);
writeln; end; end; procedure move(x, y : D; n : M); forward;
procedure next(x, y : D; n : M); begin
move(x+2, y+1, n); move(x+2, y-1, n); move(x+1, y+2, n); move(x+1, y-2, n);
move(x-1, y+2, n); move(x-1, y-2, n); move(x-2, y+1, n); move(x-2, y-1, n);
end; procedure move; begin if (x in [1..SIZE]) and (y in [1..SIZE]) then
if board[x,y] = 0 then begin board[x,y] := n; if (n = SIZE*SIZE) then
answer else next(x, y, n+1); board[x,y] := 0; end; end;
begin init; move(1,1,1); end.

>>188
微妙に出力形式が改良されてる（笑）。

というか >>184 でもそれなりの速度で解答がでるのを見て、
いまのCPUのすさまじい速さに今さらながら驚かされたよ。

>>191
対称解をのぞくと二種類だけど、片方は回転しても同形に
なるからだね。

>>192
ごめん、191に対するレスは勘違い。

>>191

とりあえず部分範囲型の範囲チェックをオンにすると move でこける。
(Delphi, Free Pascal) gpc でそのまま通るのはナゼ？

ただのintegerとして扱われるからじゃない？

あげ

radixソートのpascalのプログラムをおねがいします。

とりあえず、手元の資料からあまり離れないように
変数名や条件を書き換えてみましたが、
失敗してはいじってを繰り返しているうちにぐだぐだになってしまいました。

const n:=5;
var x0,y0,i,j:integer;dx,dy:array[1..8] of integer;board:array[1..n,1..n] of integer;
procedure tour(turn,x,y:integer); var i,j,k,no:integer;
begin
　no:=0;k:=0;
　if (x>0)and(x<=n)and(y>0)and(y<=n)and(board[x,y]=0) then begin
　　board[x,y]:=turn;no:=no+1;k:=k+1;x:=x+dx[k];y:=y+dy[k];
　　if turn=(n*n) then tour(turn+1,x,y)
　else begin board[x,y]:=0;tour(turn+1,x,y) end
end
else
　if turn=(n*n) then begin
　　writeln('No.',no);
　　for i:=1 to n do begin
　　　for j:=1 to n do
　　　write(board[i,j]:3);writeln
　　end
　end;
end;
begin
dx[1]:=2;…dx[8]:=2;dy[1]:=1;…dy[8]:=-1;
for i:=1 to n do for j:=1 to n do board[i,j]:=0;
x0:=1;y0:=1;tour(i,x0,y0)
end.

途中で止まるか、何も出力されないかのどっちかだったと思うんですが、
どうでしょうか？

const N = 100;
var A : array [0..N-1] of integer;

procedure radixsort;
const R = 10;
var
radix : array [0..N-1] of 0..R-1;
temp : array [0..N-1] of integer;
i, j, k, x, max: integer;
begin
max := 1;
for i := 0 to N-1 do
while A[i] > max do max := max * R;

x := 1;
while x <= max do begin
for i := 0 to N-1 do
radix[i] := (A[i] div x) mod R;

i := 0;
for j := 0 to R-1 do
for k := 0 to N-1 do
if radix[k] = j then begin
temp[i] := A[k];
i := i + 1;
end;

for i := 0 to N-1 do
A[i] := temp[i];
x := x * R;
end;
end;

黒ツメ草の花が咲いたら
さあ行こうパスカル

はぁ？

書籍のデータベースの作成 Delphi
========================

１．要求仕様

(1)書籍の情報
　　　著者，書籍名，出版社，発行年月日，分野の分類，コメント
　
(2)必要な機能
　データの追加機能，データの検索機能，データの削除機能，
　データの更新機能，CSVファイルからのデータ入力機能，
　CSVファイルへのデータ出力機能
(3)データの形式，メニューなどの詳細仕様は各自で決めること．

こんな課題がでました。ほぼ丸投げ状態です。よかったらよろしくおねがいします

それ宿題じゃなくておまえの仕事だろ

いやほんとに課題です；普通にソフトウェアの授業で出ました

とりあえず仕様の洗い出しから

書籍ﾃｰﾌﾞﾙ
　著者　文字型
　書籍名　文字型
　出版社(ｺｰﾄﾞ)　数値型(整数)
　発行年月日　日付型
　分野の分類(ｺｰﾄﾞ)　数値型(整数)
　コメント　Memo型

出版社名ﾏｽﾀ
　出版社ｺｰﾄﾞ　数値型(整数)
　出版社名　　文字型

分類名ﾏｽﾀ
　分類ｺｰﾄﾞ　数値型(整数)
　分類名　　文字型

画面
　書籍ﾃｰﾌﾞﾙ入出力画面(追加・更新・削除)
　出版社ﾏｽﾀﾒﾝﾃﾅﾝｽ画面(追加・更新・削除)
　分類名ﾏｽﾀﾒﾝﾃﾅﾝｽ画面(追加・更新・削除)
　書籍ﾃｰﾌﾞﾙ検索画面
　CSVから書籍ﾃｰﾌﾞﾙへｲﾝﾎﾟｰﾄ画面
　書籍ﾃｰﾌﾞﾙからCSVへｴｸｽﾎﾟｰﾄ画面

【より良い】データモデリング【モデルを】
http://pc5.2ch.net/test/read.cgi/db/1057509675/

「4×4の配列をＬＵ分解するプログラムを作れ」という課題がでました。
よろしくお願いします

わかんねーーーーーーーーーー！！！！

このスレ結構需要があるのですね。
http://www.oishi.info.waseda.ac.jp/~oishi/sir/node21.html
このとおりにすれば？

a,b,cを定数にして、三角形の面積の求め方(式)を教えて下さい。

>>210
何の定数やら。

>>211
変数でした。お願いします

>>212
だから、a,b,cは何を表しているのか解からない。辺の長さかな？？

はい、そうです。辺の長さです

>>210
ヘロンの公式
http://www.asahi-net.or.jp/~jb2y-bk/NaturalSci/math/heron.htm

begin
a[1,1]:=2;a[1,2]:=2;a[1,3]:=1;a[1,4]:=1;
a[2,1]:=2;a[2,2]:=4;a[2,3]:=4;a[2,4]:=5;
a[3,1]:=4;a[3,2]:=10;a[3,3]:=14;a[3,4]:=18;
a[4,1]:=6;a[4,2]:=10;a[4,3]:=15;a[4,4]:=20;
p[1]:=1;p[2]:=2;p[3]:=3;p[4]:=4;
lup_decom(a,p,sz);
for i:=1 to sz do
begin
for j:=1 to sz do
if p[i]:=j then write(1,' ') else write(0,' ');
writeln();
end; writeln();

for i: =1 to sz do
begin
for j:=1 to sz do write(a[p[j],j:5,' ');
writeln()
end;
wrteln()
end.

↑LUP分解でlup_decom()の手続きを教えてください

１００個の乱数の中から適当に数字選んで足してその合計が、整数の２乗になるようなプログラムお願いします。数字はできるだけ多く使用するようにお願いします。

合計すると整数の２乗になる数値を選び出すってこと？
それを全組み合わせを取得？
適当に抜粋しないで問題全部書いてみな。

与えられた整数をなるべく多く使用して、数の合計を２乗にするゲーム。

ルール

１、問題ファイル
・問題としてmondai.txtというファイルを入力する。
・kaito.txtという名前で出力する。
・kaito.txtには、使用した整数は”１”、しなかった整数は”０”を出力する。

２、得点の獲得条件
ポイントを獲得するには、以下の条件もすべて満たさなければならない。
以下の条件を満たしたとき、使用した整数の数を得点とする。
・合計数が平方数である。
・mondai.txtにある整数を使っていいのは一回まで。
・解答の合計した数がmondai.txtの全部の数を足したものの半分以下。

なんですけどわかりました？ファイルの入出力は大丈夫なんですけど、いかに整数をたくさん使用して、
その合計を平方数にするかということで悩んでます。

　1+3+…+2･n-1=n^2
てなところからなんとかならんか？

すいませんできません…

>>222
奇数のﾙｰﾌﾟを作って与えられた数次々に引いていって残りがちょうど0になったら平方数。
続いて次の与えられた数についても次の奇数から順に引いていって残りがちょうど0になったら二つの与えられた数の和は平方数。
残りが0にならなかったら、残りを次の与えられた数に組み入れる。

ていう案は如何？

おいで　今日もPascal　ボクのひざへ♪

１、大きい順に並べ直す
２、AllSumに全部の合計を求める　
３、SqrAll:=Trunc(Sqrt(AllSum/2));
４、ＳｑｒＡｌｌより小さくなるまで、大きい順に捨てる
５、SqrAlと一致すればそれが答え
６、差を求めて、その差に一致する　捨てた組-小さい組みがあればそれを採用して答え
７、それも無ければ

再帰でしらみつぶしにやれば？

>>225
3､N:=Trunc(Sqrt(AllSum/2));
3.1､SqrAll := N * N;
では?
なお､Nは>>221のnの上限｡

ちょっとむりっぽいのでプログラム書いてもらえますか？お願いします！

>>228
わてちょっと阿呆っぽいのでﾌﾟﾛｸﾞﾗﾑ書けないっぽいです!

>>210
＞a,b,cを定数にして、三角形の面積の求め方(式)を教えて下さい。
偶然だな。俺の大学でも似たようなレポ出てた。

各辺の長さ、とかなら分かるが「定数」だけで面積でたらお笑いだな、その問題

なんでだろう。10日ほど前の事がもう何ヶ月も前のことのように感じられる。

Pascalでスクリプトってないですか？

>>233
DelphiScript

BASICをPASCALになおすのやってくれますか？

ＢをＰに、ＩＣをＣＡＬに置換すればできる。

>>235
b2p.exe

>>237
それなんですか？

ｍとｎを読み込んで
1からｍまでの整数の集合Ａ｛ｎ∈Ｎ｜１≦ｎ≦ｍ｝の中から
ｎ個の整数を取り出す組み合わせをすべて生成するプログラムを作れ。
数字の組み合わせは大きいほうから順に確定していくことにせよ。

という課題がでました。お願いします。

集合型を使うのと、新たに集合用の型と演算を定義するのとどっちにする？

集合生成は集合型とは直接関係しない。
比較演算子と集合演算子とin演算子しかない。
わからない

後者のほうでお願いします。

よくは分からないのですが、集合型って言うのを授業で使ったことがないので
それを使うのは想定されて無いと思います。

type num = record n : integer; next : ^num; end; list = ^num;
procedure print(p : list);
begin
if p <> nil then begin
print(p^.next);
write(p^.n:8);
end;
end;
procedure hoge(m, n : integer; p : list);
var tmp : num;
begin
if n = 0 then begin
print(p);
writeln;
end else if m <> 0 then begin
tmp.n := m;
tmp.next := p;
hoge(m-1, n-1, &tmp);
hoge(m-1, n, p);
end;
end;

type itteyoshi = set of 0..255;

procedure omaemona(m,n: Integer; a: itteyoshi = []);
var i: Integer;
begin
　if n > 0 then
　　for i := m downto n do omaemona(i-1,n-1,a+[i]);
　else begin
　　i := 1;
　　while a <> [] do begin
　　　if i in a then begin
　　　　Write(i,' ');
　　　　Exclude(a,i);
　　　end;
　　　Inc(i);
　　end;
　　Writeln('');
　end;
end;

あとは、omaemona(5,3) とかやればいいんでない？

返答遅れましたすみません。
next : ^num; のところで　Error in type statement!　
とか言われてしまいます。というか、「type」自体を使ったことが
無いんですけど使わずに出来ませんでしょうか・・・。

処理系によって"^"だったり"@"だったりするのかも、と横槍

このくらいなら標準PASCALにしたがって書けばいいのに……

6.4.1 型定義の型表記は，その型定義の識別子の引用を含んではならない。

ポインタ型の被指示型に現われる場合はいいんじゃないの？

>>249
ごめんそこは問題なかった。でも
> hoge(m-1, n-1, &tmp);
とか
> a: itteyoshi = []
とかは標準PASCALじゃないよね。

あと型定義がコンパイラを通らないばあいは
  type list = ^num; num = record n : integer; next : list end;
と書くといいと思う(Jensen/Wirthはこの書き方)。

>>250
うん、それは標準PASCALじゃないっぽい｡

あと型の同値性は標準PASCALでは名前同値だっけ?

>名前同値

原則としては。でも例外がいくつかあってあんまりきれいでない。

すみません、Pascalで外部プログラムを起動させる方法ってありますか？
Shell32.DLLなどから呼び出したいのですが、どのようなフォーマットを
定義してあげればいいのでしょうか？

よろしくお願いします。

>>253
すみません､Pascalで外部ﾌﾟﾛｸﾞﾗﾑを起動させる標準的な方法ってありません｡
処理系依存なのでお使いの処理系のﾏﾆｭｱﾙを読んでください｡
Shell32.DLLなどから.exeになったPascalﾌﾟﾛｸﾞﾗﾑを呼び出したい場合は､C言語のsystem関数のようなDOSﾌﾟﾛﾝﾌﾟﾄから実行するのと同じﾌｫｰﾏｯﾄで起動させる関数または手続きがあるはずです｡

遅レスすみませんです。よくわかりました。試してみます。ありがとうございました。

Pascalいじってたのは遠い過去の話だから、妖しいカキコですまそ。
（いまじゃREALBasicで遊んでるだけのロートルでつよ）

>245
excludeはPascalの標準手続きじゃなかったような。
M-2では標準だったっけ？
incも標準手続きじゃないよな。

i-1とかもpred(i)などと書くのが好きだった。

type
　list = ^num;
　num = record
　　n : integer;
　　next : list
　end;

がやっぱ標準だよね。
コンパイラ側から見ると、list = ^numを見た段階で「なんか判らんが、
ポインタ型が来る」と思う。ポインタ型のデータ幅は何を参照しようと
一定で既知だから、one pass型の実装でも問題ない。

本当に再帰下降式を意識した言語だよな。

>256:774RRさん
incはPascalの標準手続きじゃったような｡
i+1はなんて書くんだっけ｡

後でJIS調べときまっさ。多分。

>>257
Inc, Dec, Include, Exclude はボーランド拡張（元ネタは MODULA-2）です。

>257
iが整数型なら succ(i)

ありがとう、あまりに昔(TP6.0の時代)なのでごちゃごちゃになってました。

ポーランド記法で入力した四則演算式を２分木で表現し、 演算式の係数値を入力したときに、
その計算結果を出力する プログラムを作れ。

おねがいします。

フィボナッチ数列のプログラム作ってください

>>262

fibonacci.pas でぐぐるとたくさんでてくる。

>>261
program rpo(input,output);
type tree = ^node; node = record op: Char; L,R: tree end; var root: tree;
   procedure ReadChar(var c: Char);
   begin c := ' '; while not Eoln and (c = ' ') do Read(c)
   end;
   procedure ReadTree(var t: Tree);
   begin New(t); ReadChar(t^.op);
      if t^.op in ['+', '-', '/', '*'] then begin
         ReadTree(t^.L); ReadTree(t^.R)
      end
   end;
   function Calc(t: Tree): Integer;
   var n: Integer;
   begin
      if t^.op = '+' then
         Calc := Calc(t^.L) + Calc(t^.R)
      else if t^.op = '-' then
         Calc := Calc(t^.L) - Calc(t^.R)
      else if t^.op = '*' then
         Calc := Calc(t^.L) * Calc(t^.R)
      else if t^.op = '/' then
         Calc := Calc(t^.L) div Calc(t^.R)
      else begin
         Write(t^.op, ': '); Readln(n); Calc := n
      end
   end;
begin ReadTree(root); Writeln(Calc(root)) end.

>>264

問題の意味がよくわからなかったので、変数はぜんぶ1文字で整数と仮定してある。
式の中に同じ変数が複数回出てくる場合は毎回たずねてくる。
処理系が対話的である(Write してから Read すると、前の Write がプロンプトとして
働く)ことを仮定している。入力エラー処理はしていない。

このへんがまずかったら適当に直してちょうだい。

ありがとうございます！！

>>263
サンクスコ

一連の男女の名前と経歴を読み込み、
経歴の似ている男女を組み合わせできたカップルのリストを出力するプログラムお願いします！

だれか・・・

さげてた・・・

>>268

経歴の類似度をどうやって数値にするつもりか知らないけれど、あとは
「安定な結婚」問題でしょ。アルゴリズムの本にはふつうに載っている。
たぶん三十行くらい。

stable matching か stable marriage あたりでぐぐるとでてくるんじゃない
かなあ。

お勧めのコンパイラってなんでしょかね？
フリーパスカルは使いにくい…

>>272
Borland - Delphi 6 Personal Download
http://www.borland.co.jp/delphi/personal/

>271
「コンピュータアルゴリズム事典」にもあった。
あの本、愛用したなあ…

>>274

アルゴリズム辞典の全ソースが奥村氏のサイトに置いてあるので
ttp://oku.edu.mie-u.ac.jp/~okumura/algo/algo_pas.html

この中の「program StableMarriage」を参照するといいかも。

>>271

ありがとうございます！早速調べてみます

ぶしつけでなんですが355/113がパイに近いということに感動し、ほかにもそういう数が無いかと思いパスカルで求めようと思いました。
んでこういうの書いたんですがなんか馬鹿なことしてますでしょうか？

program paisagashi(output);
const n=100000;
pi=3.141592653;
var i: integer;
delta: real;

begin
for i:=1 to n do begin
delta:=i*pi;
if abs(delta-round(delta))<0.0001 then writeln(i);
end
end.

n=10000だったらちゃんと113をwriteしてくれるんですけど・・・なにがいかんのでしょうか。

i: integer → longint ？

ああ、なるほど。
確かにintegerの範囲超えてますね・・・
馬鹿な質問に答えてくださりありがとうございました。

MAXINTは処理系依存でつ

>>280
あ、そのようですね。指摘ありがとうございます。

こんな宿題が出ました。

入力として英小文字からなる文字列をいくつか与えられている。
それらを辞書式順序に並べ換えれ。

どなたか、よろしくお願いします。

sageちゃった・・・

自然数を小さい順に整列化したファイルfile1,file2がある。
この内容を合わせて、小さい順に整列化したファイル file3を作れ。
ただし、file1とfile2のデータ数は等しくないものとする。
実行例を示すために、二つのファイルを作成するプログラムも作り、出力結果を示せ。


という課題で、一応作ってみたんですけどエラーが出てしまいます。
どこが悪いのでしょうか

program a(input,output,intfile1,intfile2,intfile3);
var
　intfile1,intfile2,intfile3 : file of integer;
　a,b,c : integer;

procedure mkfile1;
begin
　rewrite(intfile1,'file1');
　writeln('file1の作成 整数を小さい順に入力。(0を入力で終了)');
　readln(a);
　while a<>0 do begin
　　write(intfile1,a);
　　readln(a)
　end
end; { mkfile1 }

procedure mkfile2;
begin
　rewrite(intfile2,'file2');
　writeln('file2の作成 整数を小さい順に入力。(0を入力で終了)');
　readln(b);
　while b<>0 do begin
　　write(intfile2,b);
　　readln(b)
　end
end; { mkfile2 }

procedure showfile3; { file3確認用 }
begin
　writeln('file3の出力。');
　reset(intfile3,'file3');
　while not eof(intfile3) do begin
　　read(intfile3,c);
　　writeln(c)
　end
end; { showfile3 }

begin
　mkfile1; mkfile2; { file1,file2の作成 }

　rewrite(intfile3,'file3');
　reset(intfile1,'file1'); reset(intfile2,'file2');
　read(intfile1,a); read(intfile2,b);

　repeat
　　if a<b then
　　　begin write(intfile3,a); read(intfile1,a) end
　　else
　　　begin
　　　if a>b then
　　　　begin write(intfile3,b); read(intfile2,b) end
　　　else
　　　　begin write(intfile3,a); read(intfile1,a); read(intfile2,b) end
　　　end
　until eof(intfile1) or eof(intfile2);

　if eof(intfile1) then
　　repeat write(intfile3,b); read(intfile2,b) until eof(intfile2);
　if eof(intfile2) then
　　repeat write(intfile3,a); read(intfile1,a) until eof(intfile1);

　showfile3 { file3の出力 }

end.

とりあえずＴＡに聞こうぜw
ハノイは大丈夫か？w

ハノイは完成したぜ！
ファイル型苦手ぽ(´･ω･｀)

>>288
うるせーばか

282です。
一応作ってみたんですが、例えば始めにデータ数を3と入力したら
データを2つ入れたところでソートされてしまいます。
どこが悪いのでしょうか

program sort(input,output);
type characters = array [1..50] of char;
var d: array [1..10000] of characters;
i,j,k,n: integer;
tmp: characters;
begin
{データ入力}
read(n);
for i:=1 to n do
readln (d[i]);

{ソート}

for i:=1 to n do
begin
j:=i;
for k:=i+1 to n-1 do
if d[j]>d[k] then j:=k;
tmp:=d[j];
d[j]:=d[i];
d[i]:=tmp;
end;

{データの出力}

for i:=1to n do

writeln(d[i])
end.

readとreadlnの違いを調べてみるといいよ。

実際、処理系やOSによっても実装がいいかげんだったりするから、
心配なら全部readlnで処理して、データの後には常に改行を入れるように
する。

学生の学席番号と成績が入力として与えられている。
このとき、順位、学籍番号、成績の順に出力されるようにせよ。
ただし、同成績なら同じ順位とし、
順位がi番目の人がx人なら次の成績の人の順位はi+xとする。
っていうのが出たんですけど、
>同成績なら同じ順位とし、順位がi番目の人がx人なら次の成績の人の順位はi+xとする。
っていうところができません。

program sort(input,output);
const n = 10000;
m = 8;
type characters = array[1..8] of char;
var d : array [1..n] of characters;{No}
g : array [1..n] of integer;{Score}
num,i,j,k,tmp1,r,q : integer;
tmp2 : characters;

begin
{input}
readln(num);
for i:=1 to num do
begin
read(d[i]);
readln(g[i]);
end;

for i:=1 to num do
begin
{sort}
j:=i;
for k:=i+1 to num do
if g[j]<g[k] then j:=k;
tmp1:=g[j];
tmp2:=d[j];
g[j]:=g[i];
d[j]:=d[i];
g[i]:=tmp1;
d[i]:=tmp2;
end;
{output}
for i:=1 to num do
writeln(i,' ',d[i],' ',g[i])
end.

点数は負にならないと仮定する。

const
MaxStudentNumPlus1 = {想定する学生数+1}

result = record
Score, IDNum : integer
end;

var
i, ii, n : integer;
StudentNum, order : integer;
results : array [1..MaxStudentNumPlus1] of result;
begin
{ 学生数StudentNumを読み込む。適当な値でなければ終了 }
{ resultsを読み込む。}
{ resultsを成績の降順に順序付けする }
results[succ(StudentNum)].Score = -1; (* sentinel *)
order := 1;
i := 1;
while i <= StudentNum do begin
ii := i;
n := results[ii].Score;
repeat ii := succ(ii) until results[ii].Score < n;
{ orderを出力 }
{ results[i]からresults[pred(ii)]までの内容を出力 }
order := order + (ii - i);
i := ii
end
end.

英小文字からなる文字列をいくつか入力して、
それらを辞書式順序で並べ替えるプログラムを作成せよ。
という宿題がでたんですが配列を使ってやってみようとしたんですが、
文字型の定義とかがうまくいきません、どなたかよろしくおねがいします。

大学でＰＡＳＣＡＬ習わされる人ってすくないのかなぁ

298です、すぐ上に同じ質問が・・・、すいませ

数列の掛け算のプログラムを作っているのですが…
arrayとfor変数to doを使って数列の成分を入力したあと、
うまく計算させることができません。
個々の成分をa11、a12....と入力させて実行させることはできたのですが、
課題として配列変数を使わないといけないらしいので、
arrayとfor変数to doを使った数列掛け算のプログラムのご指南をおねがいします。

数列の乗算というのは何だろう？　行列のことかな？
だったら「MATLABを買う」が一番はy(r

>>302
実際に直面している問題ならそれで正解だけど、>>301は課題だから
さすがにそれはまずいだろ。

>>301
よし、やってる！
と思ったはいいんだが数列の掛け算ってどういうこと？

program hairetsu(input,output);
const n=10;
var a : array [1..n] of integer;
i : integer;
begin
writeln(n,' 個の数値を順に入力してください');

for i:=1 to n do read(a[i]);
writeln('隣り合うものを順にかけてみた');
for i:=1 to n-1 do writeln(a[i]*a[i+1]);

end.

こんなん作ってみたが参考になるんだろうか。

>303　まぢレスされちゃった orz

Pascalな課題をWirth教徒が勝手に解いて楽しむスレだったな。
効率の悪い例だけれど、定義に沿った計算法。動くと思うけど、
面倒だからテストしてない（一時的にマカーなものですまそw）。
MATLABなら一行なんだがww

const
maxColumn = {assumed maxium column number};
maxRow = {assumed maxium row number};
type
indexC = 1..maxColumn;
indexR = 1..maxRow;
matrixdata = array[indexC][indexR] of real;
matrix = record
nc : indexC; (* number of columns *)
nr : indexR; (* number of rows *)
data : matrixdata
end;

{つづく}

procedure MatrixProduct(A, B : matrix; var C : matrix; var avail : boolean);
(* A×Bを計算し、Cに出力する。演算不能であればavailにfalseを返す *)
var i : indexC; j : indexR; k : integer; sum : real;
begin
avail := (A.nc = B.nr);
if avail then
with C do begin
nc := B.nc;
nr := A.nr;
for i := 1 to nc do
for j := 1 to nr do begin
sum := 0;
for k := 1 to A.nc do sum := sum + A.data[k, j] * B.data[i, k];
data[i, j] := sum
end
end
end;

宿題の一部で使いたいんですが、

ある集合Sがあってある数nがあったとします。
nがSの中に無かった場合その後のプログラム(for文等)を実行させる方法がどうすればいいか分かりません(´･ω･`)
よろしくお願いします。

ああ、説明不足＿|￣|○
・集合Sを作る
・Sに数kを入れる
・集合Sにnがあるか無いかを調べ、無かったらその後のを実行

こんなのでもう1時間くらい悩んでますorz

program match(input,output);
const m=3;
type syuu = array [1..m,1..m] of integer;
var S : syuu;
i,j,n : integer;
k,key : integer;
begin
{Sの中身を入力}
for i:=1 to m do begin
for j:=1 to m do begin
read(k);
S[i,j]:=k;
end;
end;
{ある数nを入力}
writeln;
read(n);
for i:=1 to m do begin
for j:=1 to m do
if n=S[i,j] then key:=1;
end;
if key=1 then begin
{なにかすること。}
end;
end.

>>307
こういうことでいいのか？

ある元 n が、集合型変数 s にあるかどうかは式 n in s を評価すれば判る。
例

var
s : set of 1..16;
n : 1..16;

begin
...
s := [3, 5, 2];
s := s + [7, 11, 13];
n := {なんか好きな数}
if n in s then {なんか好きな処理};
...

>>309,310
ありがとうございます！教科書にあった>>310さんの
s := [3, 5, 2];
s := s + [7, 11, 13];
こういう表現がどうすればできるのかと分からなかったもので・・・・(しかも記述が[]じゃなくて{}なんですよね・・)。
そしてif文はinを使えば判定できるんですね・・・。
日本語不足でごめんなさい(;´Д`)

キーボードから任意個数（上限100）の整数データ入力に対して、次を求める。
　● 入力したデータの個数
　● 偶数データ、奇数データの個数
　● 入力したデータを表示
　● 小さい順番に並べ替える、大きい順番に並べ替える
　● 平均、分散、中央値（メジアン）を求めよ。

すみません、お助けくださいませm(__)m

＞302、304
すみません、数列の掛け算ではなく、行列の掛け算でしたm(__)m
304さんに「数列の掛け算」をわざわざプログラムしていただいたのに、
申し訳ありません。。。
よろしければ、行列の掛け算で再度お願いいたします。。。

>>313
>>305,>>306 がその答えだと思うんだけど、なぜ無視?

>>305
ボケツッコミのつもりだったんだけど…

>314　えへへ(^^)
>312
Pascalの標準的な方法だけで「キーボードから任意個数の整数データを
入力する」のはやればできるが面倒（入力終了を示す一般的な方法が
ないから）。

仮に、既にデータ数はn、データは配列AのA[1]からA[n]まで入っているとする。

手持ちの処理系(Virtual Pascal for OS/2)で関数引数を記述する方法を
忘れたので例によってテストできないw　取説どこにしまったっけ…

function NumberOf(function criterion(n1 : integer) : boolean);
var nn : integer;
begin
nn := 0;
for i := 1 to n do nn := nn + ord(criterion(A[i]));
NumberOf := nn
end;

function isodd(n : integer) : boolean;
begin
isodd := odd(n)
end;
function iseven(n : integer) : boolean;
begin
iseven := not odd(n)
end;

偶数データの個数はNumberOf(iseven)、
奇数データの個数はNumberOf(isodd)でもとまる。

つづき

procedure Quicksort(L, R: integer; function order(n1, n2 : integer) : boolean);
(* 奥村先生の本というかalgo_pas.lzhのCHAP07.PRGから改変 *)
var I, J, X, T: integer;
begin
X := A[(L + R) div 2];
I := L - 1; J := R + 1;
repeat
repeat I := I + 1 until order(X, A[I]);
repeat J := J - 1 until order(A[J], X);
T := A[I]; A[I] := A[J]; A[J] := T (* 最後の交換は余計である *)
until I >= J;
A[J] := A[I]; A[I] := T; (* 最後の交換を元に戻す *)
if L < I - 1 then Quicksort(L, I - 1, order);
if J + 1 < R then Quicksort(J + 1, R, order)
end;

function NotLessThan(n1, n2 : integer) : boolean;
begin
NotLessThan := n1 <= n2
end;
function NotGreaterThan(n1, n2 : integer) : boolean;
begin
NotGreaterThan := n1 >= n2
end;

昇順にソートするときはQuicksort(1, n, NotLessThan)、
降順ならQuicksort(1, n, NotGreaterThan)を呼ぶ。

初めてカキコさせていただきます。学校での演習が少なすぎるんでこのスレで質問に答えるフリをして
心から感謝をして演習問題にさせていただいているものなんですが、このスレにとっては邪魔
者でしょうか。邪魔ではないのなら居座りたいと思ってるんですが。
いまのところかなりチンプンカンプンな書き込みをしておりますし、いちいちレスをつけるのも
らくではないだろうと思いそろそろ気が引けてきた次第です。
んー。名前欄に初心者とでも書いておこうかなとは思っているんですがどうでしょう
？

>317=309=304
折れも勝手に居座ってるアマチュアなロートル。
過疎板の過疎スレなんだから皆で居座ろう。

ついでに添削。
>309の
if n=S[i,j] then key:=1;
...
if key=1 then

ってのはPascal的wじゃない。せっかく論理型ってのがあるんだから、

flag : boolean;
...
flag := n = S[i, j]
...
if flag then ...

なんて書くとかっこいいし、エラーも減るよ。

>>318
どうもありがとう。
いざというときは縦読みだとでも言って逃げるつもりでした。

program P1;
var
permstring,blank:string;

procedure permutation(var target,original :string);
{originalの並び替えた順列をすべて見つけ、それらをtargetの右端に連結する}
var
i:integer ;
target1,original1:string;
begin
if length(original)=0 then
begin
writeln(target);
end {originalに文字がないならtargetを出力}

else
begin
i:=1;

while i <= length(original) do {それ以外は各々のiに対して}
begin {originalのi番目の文字をtargetの右端に写し}
target1:=target+original[i]; {再帰の呼び出しを行う}
original1:=copy(original,1,i-1)+copy(original,i+1,length(original)-i);
permutation(target1,original);
i:=i+1;
end;

end;

end;

begin {メイン開始}
writeln('input a string of characters');
readln(permstring);
blank:= ' ';
writeln('the set of permutations:');
permutation(blank,permstring); {あらゆる順列を見つける}
writeln('done');
end.

ランタイムエラーが出るんです・・・。

> permutation(target1,original);

permutation(target1,original1);

じゃないかな？

プログラムの実行時間を計測するにはどうすればいいんですか？
順列のプログラムを並び替える個数を変えながら計測しろっていう問題
なんですけど、プログラムはできてます。
ちなみにDelhi6を使ってます。

始める前の時間を保存。
終了したときの時間との差を求める

Windows.GetTickCount でも使えば？

プログラミング初心者なのですが、キーボードから整数値の駐車時間を分単位で読み込む。
・駐車時間が１時間未満ならば無料
・駐車時間１時間から３時間未満までは１５０円
・３時間以上は、一律３００円
・０（ゼロ）を入力すると終了する。
というのがどうしても分からないのですが、よかったら教えて頂けないでしょうか？
<プログラム実行例>


PARKING
Input minutes = 430
Parking time => 7:10 =>\300
Input minutes = 127
Parking time => 1:7 =>\150
Input minutes =67
Parking time => 1:7 =>\150
Input minutes =32
Parking time =>0:32 =>\ 0
Input minutes =0

Write(Output, 'Input minutes = ');
Readln(Input, n);
Write(Output, 'Parking time => ', n div 60, ':', n mod 60, ' =>');
if n < 60 then
Writeln(Output, '\ 0')
else
if n < 180 then
Writeln(Output, '\150')
else
Writeln(Output, '\300');

みたいな感じに作ってみよう。

if n < 60 then writeln(output, '\ 0')
else if n < 180 then writeln(output, '\150')
else writeln(output, '\300');

と書くとM-2風でカッコイイとまにあがゆってた

case min of
　0: Exit;
　1..59: cost := 0;
　60..179: cost := 150;
else cost := 300;
end;
Writeln(cost);

プログラム初心者です。
宿題がでたのですが、よくわからないので質問させてください。
20人分の国語のテストの点を入力させ、その順位を出力するアルゴリズム。
というのです。
お願いします。

1. 点数を入力させる
2. ソートする
3. 順序と点数を出力する

ソートはとりあえずバブルソートあたりをぐぐれ。
そのまんまのコードが幾らでも見つかる。
わからんかったらまたおいで。

ちなみに
「バブルソート Pascal」より
｢バブルソート Delphi｣でぐぐった方がええ。

ありがとうございます。
早速ぐぐって色々見てみました。
http://su10.sgu.ac.jp/~morita/Seminar/6thStudent/entani/sort/bubble/bubble.html#Bubble.Program
などを参照してみたんですが、具体的なアグロリズムが見つからずわからないままです（汗
この宿題は手打ちでしなければならないので、サンプルとしてのコードなどを教えていただけるとありがたいです。
よろしくお願いします。

間違えました。
＞アルゴリズムです

あと、ソートのやり方がわからないです・・・。

for A:=1 to 20 do
begin
C:=1;
for B:=1 to 20 do
if TEN[A]<TEN[B] then
C:=C+1;
JUN[A]:=C;
end;

こんな感じで

ファイルから数字を配列に読み込み、
ソーティングアルゴリズムによりその数字を昇順に並び替え、
並び終わった後の配列の要素をファイルに出力するプログラムを作成せよ。

ソートは何とかなりそう。
……テキスト型の数字ってどうやって比較するんですか？

>>337
数字の部分だけ抜き出して StrToInt とかで数値に直す。

>>337
俺の課題と似てるなぁ

<<338
やっぱり、一旦数値にするんですか。
ありがとうございました。

<<339
おんなじトコでしょうか。
問題文はほぼそのまま写しましたが。

また来るかもしれませんので、その時はよろしくお願いします。

入力に使うファイルがCSVみたいなやつなら
直接 Integer や Real 型の変数に読み込めばいい。
Input を ファイルにするだけ。

次の２つの条件を満たして、四則演算式を二分木で表現せよ。

1. 演算子とそれによって結ばれる２つの項は，演算子をノード（演算子ノード）として，
   演算子の左の項を演算子ノードの左の子とし，
   右の項を演算子ノードの右の子として表現する（項が数または変数の場合は二分木の葉となる）．

2. 演算の優先順位が最も低い演算子（＋または−）を中心として，
   左右の項に分ける．ただし，最も低い演算子が複数個ある場合は，そのうち最も右にある演算子を中心に項を分ける．
   分けた項に演算子が含まれる場合は，同様にして項が数または変数のみとなるまで左右の項に分ける． 

演算の優先順位：（＊，／）＞（＋，−）

二分木のノードはレコード型として定義するものとする。


入力や出力は考えなくて良いみたいです。よろしくお願いします。

？
文字列として与えられた式を、ツリー構造に変換しろってこと？

そうです。例えば　5+62/4-3　とか与えられた時に、
それをツリー構造に変化するという事です。

procedure Convert(S: String; Node: ノードの型);
var
　iOperator: Integer;
begin
　S から演算子を優先順位が高い順に捜し、見つかったらそのインデックスを保存(iOperator)。
　演算子が見つかった場合
　　演算子を Node で保持。
　　S を iOperator の位置で２つに分割。
　　Convert(S の左側, 新しく作成した Node の左側の子);
　　Convert(S の右側, 新しく作成した Node の右側の子);
　演算子が見つからなかった場合
　　この時点で S は単一の数値又は変数なので、そのまま Node で保持。
end;

こんな感じで再帰的に呼んでいけばいい。
最初の呼び出しは、
　S = 与えられた式
　Node = ルートノード

×S から演算子を優先順位が高い順に捜し
○S から演算子を優先順位が低い順に捜し

(´･ω･) ｺﾞﾒｽ

ああ、更に名前欄間違えてたorz

なんとなく気になったんですが
>>342のような処理はなにかに役立つんでしょうか。
俺にはやけに意味深に見えるのですが。

>>345
ありがとうございます。

>>348
役に立つかどうかはわからないですけど･･･。

>>348
微積分とか数式処理をするときにこういうことをする人もいるかも知れん。

コンパイラとかインタプリタ作るとき、おれは一次元配列でやったが、
こういうことする人もいるかも知れん。

ジェネティックプログラミングでこういうことする人もいるかも知れん。

こういう処理がすごーく役に立つかどうかは分からんけど、
面白いのは面白いよね。

>>345
これ、文字式をstringで定義（？）してるけど、packed　arrayの形でも分割できる？
俺の課題にも文字式を分割する部分があるんだけど、やり方がわからないもんで。

ordなどを駆使して数値に直すようにと言われました。
誰か、ヒントでもいいから教えてくれませんか。

Pascalってcontinue文ある？

標準のPascalにはループの途中で脱出するようなものはない。

一文字づつord(x) > ord(y)みたいに比較するんでない？

>>354
ありがとう。助かりました。

>>337
文字の読み込みはできるんだよな？
たとえば読み込む数が37だとしたらとりあえず一文字読み込み変数xに代入する。
ここでxには文字型の3が入っている。
それを数字に直すにはord(3)-ord(0)とすればよい。これをyに代入。
これでyには数字としての3が入ってる。
また一文字読み込んで今度は変数xに7を入れる。
これまた数字に直すから、ord(7)-ord(0)を取る。
そしてy:=y*10+ord(7)-ord(0)とすればよい。
これでyには37が代入される。
ファイルに数字がどのように記載されているのか分からないからどうしようもないけど、
これにwhile not eof() do beginなんかを付け加えていけばできるはず。

ごめん、修正。

>>337
文字の読み込みはできるんだよな？
たとえば読み込む数が37だとしたらとりあえず一文字読み込み変数xに代入する。
ここでxには文字型の3が入っている。
それを数字に直すにはord(x)-ord('0')とすればよい。これをyに代入。
これでyには数字としての3が入ってる。
また一文字読み込んで今度は変数xに7を入れる。
これまた数字に直すから、ord(x)-ord('0')を取る。
つまりy:=y*10+ord(x)-ord('0')とすればよい。
これでyには37が代入される。
ファイルに数字がどのように記載されているのか分からないからどうしようもないけど、
これにwhile not eof() do beginなんかを付け加えていけばできるはず。

文字'0'から'9'までが、この順で、しかも途中に他の文字がなく充填されて
いると仮定する。
const MaxDigitPlus1 = 9; (* 桁数+1 *)
type str = packed array [1..MaxDigitPlus1] of char;
var zero : integer;

function StrToInt(s : str) : integer;
var i, ii : integer;
begin
i := 1; ii := 0;
s[MaxDigitPlus1] := ' '; (* sentinel *)
while s[i] in ['0'..'9'] do begin
ii := ii * 10 + ord(s[i]) - zero;
i := succ(i)
end;
StrToInt := ii
end;

begin
zero := ord('0');
writeln(StrToInt('123')
....

>>337 は、入力ファイルの例を書くべし

スイマセン。もう自分の手に負えないので質問に来ました。宜しくお願いします。
このプログラムなんですが

procedure sort(var t : table);
var i,j,w : integer;
label m;
begin
for i := 2 to n do begin
w := t[i];
j := i;
repeat
if t[j-1] > w then begin
t[j] := t[j-1];
j := j - 1;
end else goto m;
until (J=1) ;
m:
t[j] := w;
end;
end;

なぜかlabelのところで「beginを入れろ」とエラーがでてしまいます。
もう全くワケわかめです・・・
何が悪いのか教えてください！！おねがいします！！

名札(label)の宣言は、定数宣言の前。

×
var i,j,w : integer;
label m;

○
label m;
var i,j,w : integer;

ｷﾀｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ!!!!!!
あざーーーーーーーーーーーーーす！！！
本当にありがとうございます！！！

質問させてください

出力するテキストファイルに改行を書き込むにはどうすればいいのですか？

assign(t1,"output.txt");
rewrite(t1);

writeln(t1,'ﾎｹﾞﾎｹﾞﾎｹﾞ');
writeln(t1);
writeln(t1,'ﾌｶﾞﾌｶﾞﾌｶﾞ');

close(t1);

こうしても、出力結果はﾎｹﾞﾎｹﾞﾎｹﾞﾌｶﾞﾌｶﾞﾌｶﾞになってしまいます。
ﾎｹﾞﾎｹﾞﾎｹﾞ

ﾌｶﾞﾌｶﾞﾌｶﾞ
にするにはどうしたらいいですか？御願いします

assign(t1,"output.txt")←これって釣りじゃないよな?
'output.txt'のtypoだよな?

すみません '　です　間違えました

しかし、364のように改行ができません。連続書き込み申し訳ないですが。。。

writelnで改行記号を出力する。使い方は>364であってるよ。
コンパイラが文句を言わないなら、t1はtextとして定義されているんだろう。
となると、プログラミング以外の問題だと思われるわけだ。

吐いたファイルをバイナリエディタなりなんなりで覗いてみて、
「改行記号」として何を出力してるのか見るのが手っ取り早いと思う。

ありがとうございました

とりあえず使い方は合っていたようで・・・安心しました。
学校ではLinuxで家ではcygwinなんですが。

ちょっと調べてみます。お世話なりました！

加減乗除だけで平方根の近似値を求めるってのをpascalで表示したいのですが、どうすればよいでしょうか？
小数第一位まで求めるようにしたいです。

http://pc8.2ch.net/test/read.cgi/tech/1078885169/85

すみません。もう僕の手には負えないので質問させてください。
クイックソートなんですが、あるところからソースを手に入れたところpivotをソートする数列の最後の数としていたんです。以下のプログラムです

procedure sortRec(var t : table; min, max : integer);
var i,j,pivot,w : integer;
begin
　　　　if min < max then begin
　　　　　　　　pivot := t[max];
　　　　　　　　i := min;
　　　　　　　　j := max - 1;
　　　　　　　　while t[i] < pivot do i := i + 1;
　　　　　　　　while (i < j) and (t[j] > pivot) do j := j - 1;
　　　　　　　　while i < j do begin
　　　　　　　　　　　　w := t[i];
　　　　　　　　　　　　t[i] := t[j];
　　　　　　　　　　　　t[j] := w;
　　　　　　　　　　　　while t[i] < pivot do i := i + 1;
　　　　　　　　　　　　while (i < j) and (t[j] > pivot) do j := j - 1;
　　　　　　　　　　　　while (i < j) and (t[i] = pivot) and (t[j] = pivot) do begin
　　　　　　　　　　　　　　　　i := i + 1;
　　　　　　　　　　　　　　　　j := j - 1;
　　　　　　　　　　　　end;
　　　　　　　　end;
　　　　　　　　w := t[i];
　　　　　　　　t[i] := pivot;
　　　　　　　　t[max] := w;
　　　　　　　　sortRec(t,min,i-1);
　　　　　　　　ｓortRec(t,i+1,max);
　　　　end;
end;

そこで僕はソートする数列の一番最初の数をpivotとしてプログラムを作りたいなと思い、以下のようなプログラムを作成しました

procedure sortRec(var t : table; min, max : integer);
var i,j,pivot,w : integer;
begin
　　　　if min < max then begin
　　　　　　　　pivot := t[min];
　　　　　　　　i := min+1;
　　　　　　　　j := max ;
　　　　　　　　while t[i] <= pivot do i := i + 1;
　　　　　　　　while (i < j) and (t[j] >= pivot) do j := j - 1;
　　　　　　　　while i < j do begin
　　　　　　　　　　　　w := t[i];
　　　　　　　　　　　　t[i] := t[j];
　　　　　　　　　　　　t[j] := w;
　　　　　　　　　　　　while t[i] <= pivot do i := i + 1;
　　　　　　　　　　　　while (i < j) and (t[j] >= pivot) do j := j - 1;
　　　　　　　　　　　　while (i < j) and (t[i] = pivot) and (t[j] = pivot) do begin
　　　　　　　　　　　　　　　　i := i + 1;
　　　　　　　　　　　　　　　　j := j - 1;
　　　　　　　　　　　　end;
　　　　　　　　end;
　　　　　　　　w := t[j];
　　　　　　　　t[j] := pivot;
　　　　　　　　t[min] := w;
　　　　　　　　sortRec(t,min,i);
　　　　　　　　sortRec(t,j,max);
　　　　end;
end;

↑のようなプログラムを作成したところ、コンパイルは出来るのですが「実行時にエラーが発生しました」といわれます。
もう完全にお手上げです・・・

お願いします、ヒントでもいいので教えていただけないでしょうか？

すいませんさっきの僕が作成したほうのプログラムにミスがありました

×
　sortRec(t,min,i);
　sortRec(t,j,max);

○
　sortRec(t,min,ｊ);
　sortRec(t,i,max);

でした。すみませんでした

sortRecの再帰呼び出しで配列の範囲外を渡してるか、
無限に再帰呼び出しをしてる。

sortRecの再帰呼び出しで配列の範囲外を渡してるか、
無限に再帰呼び出しをしてる。

>>372
どうせアレンジするなら、
pivotを端っこにすると、既に殆どソートされているデータに対して
弱くなるので、min と max の真ん中くらいを使うといいと思う。
宿題なら、アレンジ理由も書けるし。

再起呼び出しの所は元のままいじる必要ない。

宿題で余計なアレンジすると｢勝手なことすんな｣って返されない？

>>381
余計ならしかたないと思う。

http://pc8.2ch.net/test/read.cgi/tech/1123587908/76

a

program strlen_prg(input, output);
　　type
　　　　size_t = integer;
　　var
　　　　str1 : packed array[0..255] of char;
　　　　sz_t1 : size_t;
　　function strlen(pc_arg1 : pchar) : size_t;
　　　　var
　　　　　　pc1 : pchar;
　　　　　　c1 : char;
　　　　　　sz_t1 : size_t;
　　　　begin
　　　　　　c1 := chr(0);
　　　　　　sz_t1 := 0;
　　　　　　pc1 := pc_arg1;
　　　　　　while pc1^ > c1 do
　　　　　　　　begin
　　　　　　　　　　sz_t1 := sz_t1 + 1;
　　　　　　　　　　inc(pc1)
　　　　　　　　end;
　　　　　　
　　　　　　strlen := sz_t1;
　　　　end;
　　begin
　　　　write('文字列を入力 : > ');
　　　　readln(str1);
　　　　sz_t1 := strlen(str1);
　　　　writeln('入力した文字列は ', sz_t1, ' バイトです')
　　end.
(* Copyright (C) 2005 データボックス, All Rights Reserved. *)

う？

pascalで参照型ってあんまり使わない方がいいのか？

>>387
参照型ってなんだっけ?

ポインタ

ポインタを使わないほうがいい理由なんてあるの？

つかうと分かり辛くなるかもしれない

たしかにわかりづらくなるかもしれないなぁ。
ってか理解できない奴にはほんと、女の心よりワケワカメ。

俺も理解するのに1ヶ月ぐらいかかった。
クラスは2ヶ月かかった。

Pascalみたいな小規模な言語で「使わない方がいい」ものなんてないよ。
ポインタは番地なんつーあぶねーものを陽に使わなくてもいいように
?hぃると御大が用意してくれたんだからガンガン使おう。

>>393
(^Д^)９ ﾌﾟｷﾞｬｰ

必要あればつかうだろ。使うか使わないかの判断迫られるときなんてある？
使うときは必然的につかうけどなあ。

PL/0の宿題もアリですか？

すいません質問です。
計算したい式を入力して値を返すというプログラムをつくりたいのですが、
まず仮に（３＋３）＋３と言う式を計算しようと考えました。
以下がそのプログラムです。

program computation (input,output);
const n=100;
type string=string[n];
var letter:string;
a,i,max,min,result:integer;
begin
writeln('数式を入力してください。');
readln(letter);
i:=0;
while letter[i]<>')' do begin
i:=i+1;
end;
max:=i;
i:=0;
while letter[i]<>'(' do begin
i:=i+1;
end;
min:=i;

i:=min+1;
while i<=max-1 do begin
if letter[i]='+' then
result:=ord(letter[i-1])+ord(letter[i+1])-48*2
else i:=i+1;
end;

a:=result+(ord(letter[7])-48);
writeln(a);
end.
（テストなのでまだ一般性のあるものに仕上がっていません。申し訳ありません）

コンパイルはできるのですが、プロセッサの使用量が１００％になってEnterｷｰをおしても
何も起きません。
全くもってわかりません。。。ご教授お願いいたします。

>>399
> while i<=max-1 do begin
> if letter[i]='+' then
> result:=ord(letter[i-1])+ord(letter[i+1])-48*2
> else i:=i+1;
> end;

letter[i] = '+' になると
while 〜
　if 〜
　　result 〜
の３行で無限ループしてる。

あと、Ord(letter[i]) はおかしい。
Ord(Char型)は文字コードを返す。
文字(列)を数値にしたいなら IntToStr。

あ、ｽﾏﾝ。
-48とかで直してるのか。
忘れてくれ。

あ、、、、、、足し算を延々にやってますね・・・これは。。。
ありがとうございました！！

２０日提出なのでまたお世話になると思いますが、宜しくお願いしたします。

すいません。考えましたがなかなかコンパイルできないので質問に来ました。宜しくお願いします。
次の２つの問題なんですが教えてください。よろしくお願いします。
【１】
２行２列の行列ＡおよびＢを考える。これらの行列の各要素を手動で入力、掛け算を実施し、
その結果を表示させるプログラムを配列（array）を用いて作成せよ。
【２】
２０名以下の任意数の学生が受験した試験の結果を読み込み、平均点を計算して出力するプログラムを作成せよ。
平均点が、
８０点以上ならば「問題が簡単すぎた」
６５−８０点ならば「適切」
６５点以下ならば「難しすぎた」
と出力せよ。
＊受験者数は、自分で入力すること。極力、配列を使用すること。

404ｻﾝへ
これじゃあコンパイルできませんよ^^;
まずはPascalプログラムの基本的な構造を勉強してみてはいかがでしょう（^o^）/

>なかなかコンパイルできない

ﾜﾗﾀ

>>398
たぶんいるだろうなとは思ってましたが学校・・・というかクラス同じっぽいですね。
お互い頑張りましょう。

>>404
program gyouretsu(input,output);
var a,b,c : array [1..2,1..2] of integer;

begin
read(a[1,1],a[1,2],a[2,1],a[2,2]);
writeln;
writeln('':1,a[1,1],'':1,a[1,2]);
writeln('':1,a[2,1],'':1,a[2,2]);
read(b[1,1],b[1,2],b[2,1],b[2,2]);
writeln;
writeln('':1,b[1,1],'':1,b[1,2]);
writeln('':1,b[2,1],'':1,b[2,2]);

c[1,1] := a[1,1] * b[1,1] + a[1,2] * b[2,1];
c[1,2] := a[1,1] * b[1,2] + a[1,2] * b[2,2];
c[2,1] := a[2,1] * b[1,1] + a[2,2] * b[2,1];
c[2,2] := a[2,1] * b[1,2] + a[2,2] * b[2,2];
writeln;
writeln('':1,c[1,1],'':1,c[1,2]);
writeln('':1,c[2,1],'':1,c[2,2]);
end.

program exam(input,output);
const n=20;
var score : array [1..n] of integer;
number : integer;
i,amount : integer;
average : real;

begin
amount := 0;

writeln('受験者数を入力してください');
read(number);

writeln('点数を入力してください');
for i:=1 to number do
begin
read(score[i]);
amount := amount + score[i];
end;
average := amount/number;

case trunc(average) of
1..64 : writeln('難しすぎた');
65..79 : writeln('適切');
80..100 : writeln('問題が簡単すぎた');
end;
end.

手続きが分かるなら一つ目はそれを使ったほうがスッキリするかも。

いろいろ考えたのですが、今の自分には一生考えてもできそうにないのでお願いします。
本当に申しわけありませんが10/20までなのでよろしくお願いします。

出納帳プログラム
・メインプログラムを手続き、関数で組み立てる。
・作業用の変数はなるべく手続きの中に含める
・収入、支出を表すデータをレコード型itemとして定義する。
　項目名(head:16文字),金額名(price:整数),日付(dating:date型)
・item型の配列を宣言し,配列に一回ごとの収入あるいは支出のデータを格納
・機能はデータの入力、１日の収支の表示、月ごと年ごとの計算、検索、ソートなど各自考えよ。

出納帳のプログラムの未完成のものです。これを完成させれば良いそうです。
program kadai(input,output);
type slip=record end;
table=array[1..10] fo slip;
var data : table;
count : integer;
query : char; ……;

procedure nyuryoku(var a:table; cnt:integer);
……;
procedure hyoji(a:table; cnt:integer);
……;
procedure kennsaku(a:table; key:integer);
……;
procedure sort ……

begin
readln(query)
while query <> `e` do begin
case query of
`a`:nyuryoku(data,count);
`b`:hyoji(data,count);
`c`:kensaku(data,day);
`d`:sort(data);
end;
readln(query)
end;
end.

日本円を他の国の通貨に換算するプログラムを記述せよ。
という問題で、5ヶ国ぐらいあるんですが、換算する国の番号を何故かアルファベットで入力しないといけません。
こういう場合どのようにしたらいいのでしょうか。小一時間考えたのですが、思いつきませんでした。

>>404
var 変数名:char;
とすればよいと思います

ちなみに入力の部分だけはできたのですが…
type date = record
year:integer;
month:1..12;
day:1..31;
end;
item = record
head:packed array[1..16] of char;
price:integer;
dating:date;
end;
var syuusi:packed array[1..1000] of item;
i,n,x,y:integer;
g:char;
begin
x:=0;　i:=0;
writeln('何項目入力するか入力して下さい');
readln(n);
for i:= 1 to n do begin
with syuusi[i] do begin
writeln(i,'項目目');
writeln('項目名を入力して下さい');　　readln(head);
writeln('収入、支出を入力して下さい　支出の場合はマイナスをつけて下さい');　readln(price);
writeln('年を入力して下さい');　　　with dating do readln(year);
writeln('月を入力して下さい');　　　with dating do readln(month);
writeln('日を入力して下さい');　　　with dating do readln(day);
end;end;

間違えました
>>412

>>410
君が一生考えても無理な問題を君に課すとはどんな指導者ですか

>>413
charでやってみたのですが、途中で止まってしまいます・・・
program calc(input, output);
var
menu : char;
japyen : integer;
exyen : real;
begin
writeln('This program converts Japanese yen into the currency of other countries. ');
writeln;
writeln('******************************');
writeln('d == US Doller');
writeln('p == British Pounds');
writeln('g == Chinese Yuan');
writeln('e == Euro');
writeln('r == Russian Ruble');
writeln('******************************');
write('Exchange to : ');
readln(menu);
write('Enter the amount of money in Japanese Yen : ? ');
readln(japyen);

case menuasc of
d :
begin
exyen:=japyen / 118.94;
writeln('USD = ',exyen:2:2);
writeln;
writeln('End of Job.');
end;
end;
end.

連レスすいません
case menuasc of はcase menu ofの間違いです。

>>416
'd' :
begin
とすればできます。

>>418
何故か止まってしまいます・・・
金額を入力した時点でエラーになるようです

>>419
問題なく動くが。

>>421,418
何故か動かないのでord関数を使って数字に直した後case文で書きました。
せっかく教えていただいたのに申し訳ありません。

ところで、勝手に繰り上げされるのを防止するにはどうしたらいいのでしょうか？
8.408という数字を2桁表示すると、8.41に繰り上げられてしまうのです・・・

100倍してinteger化してreal化して100で割る

pascalの授業って教授の趣味なの？
delphi使いになることを想定してのことなのかな。

Cの授業って教授の布教活動なの？
MSの狗になることを想定してのことなのかな。

pascal　は教育用の言語なのだ
Cが動くのはWinだけではない

404さんはおそらく愛知県内の某工業大学の生徒さんだな。
レス貰ったんだからお礼言おうよ・・・orz

えっと質問です
配列とリダイレクション（？）を使った問題なのですが、
「指定した個数（ｎ）の数字群から最大値を表示させる」という問題で、
dataという無数の数字群のファイルを、ｎ個の配列に読ませて
最大値を判断するのですが、

≫program < data　という風に実行すると、
本来、自分で入力するべき数字の数ｎも、
dataから読み取られてしまうのです。
このような現象が起きないようにするためには、
どうすればいいでしょうか？　（長文ｺﾞﾒﾅｻｲ）

再び質問です。
もう提出期限が迫っているのでヒントではなく答えを教えていただけたら幸いです。
プログラムの内容は全開と同じで
「一桁の正数からなる足し算、掛け算及び括弧をつかった式を入力してその答えを返すプログラムを作れ
」というものです。

1+1+(1+(1+1*1))+1などはできるのですが、2+2*(1+1)*3*(1+1)などができません・・・
どうやっていいのかわかりません。。。

自分が今まで作成したプログラムは以下です。

program test (input,output);
const n=100;
type string=string[n];
table=array[0..100]of integer;
var letter:string;
a,i,x,k,l,z,fin,finalans:integer;
result,ans:table;
t:boolean;


(*掛け算開始*)
procedure multiply(i,fin:integer;t:boolean;var letter:string;var x:integer;var result:table);
begin
repeat
repeat
i:=i+1;
until (letter[i]='*');
if i>=100 then
t:=false;
if t=true then begin
result[x]:=(ord(letter[i-1])-48)*(ord(letter[i+1])-48);
letter[i-1]:='0';
letter[i]:='0';
letter[i+1]:='0'
end;

(*掛け算が続いていた場合*)
repeat
i:=i+2;
if letter[i]='+' then
t:=false;
if letter[i]=')' then
t:=false;
if t=true then begin
if letter[i]='*' then begin
result[x]:=result[x]*(ord(letter[i+1])-48);
end;
end;
until t=false;
x:=x+1;
until i>=fin;
end;

(*足し算開始*)
procedure addition(i,fin:integer;t:boolean;var letter:string;var x:integer;var result:table);
begin
repeat
repeat
i:=i+1;
until (letter[i]='+');
if i>=100 then
t:=false;
if t=true then begin
result[x]:=(ord(letter[i-1])-48)+(ord(letter[i+1])-48);
writeln('r[', x, ']: ', result[x]);
x:=x+1;
letter[i-1]:='0';
letter[i]:='0';
letter[i+1]:='0';
end
until i>=fin;
end;

(*合計開始*)
procedure resultadd(x:integer;var result:table;var l:integer;var ans:table);
var
k:integer;
begin
k:=1;
for k:=1 to x-1 do begin
ans[l]:=ans[l]+result[k];
writeln('r',result[k]);
end;
for k:=1 to x-1 do begin
result[k]:=0;
end;
writeln('ANS:',ans[l]);
l:=l+1;
end;

(*括弧の中の計算*)
procedure priority(i,x:integer; t:boolean;var result:table;var letter:string;var ans:table);
var
eol,sol:integer;
begin
repeat
i:=i+1;
until letter[i]=')';
if i>=100 then
t:=false;
if t=true then begin
eol:=i;
repeat
i:=i-1;
until letter[i]='(';
sol:=i;
letter[sol]:='0';
letter[eol]:='0';
multiply(i,eol,t,letter,x,result);
addition(i,eol,t,letter,x,result);
resultadd(x,result,l,ans);
i:=sol;
if letter[i-1]='*' then begin
ans[l-1]:=ans[l-1]*(ord(letter[i-2])-48);
sol:=i-2;
end;
priority(i,x,t,result,letter,ans);
end;
end;

(*最終合計*)
procedure finalanswer(l:integer;ans:table;var finalans:integer);
var
i:integer;
begin
writeln('L:',l);
for i:=1 to (l-1) do begin
finalans:=finalans+ans[i];
writeln('ANS:',ans[i]);
end;
writeln;
writeln;
write('この式の答えは「');
write(finalans);
writeln('」である');
end;

(*本文開始*)

begin
writeln('数式を入力してください');
readln(letter);
i:=1;
l:=1;
x:=1;
z:=0;
t:=true;
ans[0]:=0;

priority(i,x,t,result,letter,ans);
multiply(i,n,t,letter,x,result);
addition(i,n,t,letter,x,result);
resultadd(x,result,l,ans);
finalanswer(l,ans,finalans);

end.

今気がついたんですが、確認のための余計なwritelnまでかいてしまい申し訳ありません。

あと「１＋１＊１」のように掛け算が最後に来てるときにバグが生じてかえす値がおかしくなってしまいます。。。１＋１＊１＋１は「３」とかえしてくれるのですが。。。

連投してｽﾚを汚してしまったのですが、ご教授いただけたら幸いです。

スイマセン。>>436で「１＋１＊１」のかえす値にバグがあるといったのですが、直せました。
以下が改訂版です。

本当に申し訳ありませんでした。

(*掛け算が続いていた場合*)
repeat
if letter[i+2]<>'*' then
t:=false;
if letter[i+2]='*' then begin
i:=i+2;
result[x]:=result[x]*(ord(letter[i+1])-48);
end;
until t=false;
x:=x+1;
until i>=fin;
end;

丸投げすいません
「正の整数iとjが入力されたとき、その最小公倍数と最大公約数を求めるプログラムを作成しなさい」
よろしくお願いします。

例として2*2*(2+2)を考えると、カッコ内の計算で足し算が行われresult[x=2]=4になってるのはいい。
そしてans[1]=4にもなってる。
その後カッコの前に*があるからans[l=1]:=ans[1]*2が実行されてans[l=1]=8。
それから本文中で2*2*0000という計算を開始してんだけど、まず2*2を実行してresult[x=1]=4、
その後*が続いてるから4*0を実行し、result[x=1]=0。
よってans[l=2]=0になってる。
最終的にans[1]+ans[2]=8。
これが答えと出力されている。
やりたいことはなんとなく分かるんだけどどうすればいいのかを言えるほどはよく分かってない。
でもとりあえずカッコをなくした時点でのの計算が2*2*0000になってるのはよろしくないかと思う。
カッコの前に掛け算が２つ以上続いた場合、とか作るとこの場合なら計算できそうだけど。

でも(2+2)*2*(2+2)とかになるとまた問題が生じるのかな？

説明が分かりにくいけどゴメン、明日の１限はテストなんだ。

一応407=439です

>>397
「再帰下降法」でも良いのかな？
program f(input, output);

function Eval: Integer;
var C: Char;

　procedure ReadChar;
　begin
　　Read(C);
　end;

　function Expression: Integer;
　var X: Integer;

　　function Term: Integer;
　　var X: Integer;

　　　function Factor: Integer;
　　　begin
　　　　if C in ['0'..'9'] then begin
　　　　　Factor := Ord(C)-Ord('0');
　　　　　ReadChar;
　　　　end else if C = '(' then begin
　　　　　ReadChar;
　　　　　Factor := Expression;
　　　　　if C=')' then ReadChar else writeln('括弧が閉じられてないよ');
　　　　end else begin
　　　　　writeln('不正な入力: ',C); Factor := 0;
　　　　end;
　　　end;

　　begin
　　　X := Factor;
　　　while C = '*' do begin
　　　　ReadChar;
　　　　X := X* Factor;
　　　end;
　　　Term := X;
　　end;

　begin
　　X := Term;
　　while C='+' do begin
　　　ReadChar;
　　　X := X + Term;
　　end;
　　Expression := X;
　end;

begin
　ReadChar;
　Eval := Expression;
end;

begin
　writeln(Eval);
end.

>>441-442
神々しいですね・・・
真夜中に感動しました。
寝付けないかもしれません。

>>441-442
こんな手法思いつきすらしませんでした・・・

ありがとうございました！！神よ！！！
僕の命がつながりました！！！！！！

こんなのをプログラミングを始めて半年やそこらの人間が提出して問題なくスルーされるのだろうか。
将来を嘱目されるのは間違いないんじゃない。

handai

本当に何回も聞いてしまって申し訳ないと思っているのですが、また質問です。。。はい・・・
やはり>>445さんのいうようにばれちゃう可能性があると思ったので、自分なりにもう一度改変してみました。

しかしやはり括弧の処理がどうもうまく行きません。
（１＋１）や１＋（１＋１）などはうまく行くのですが（１＋１）＋１や（１＋１）＋（１＋１）がうまく行きません。

これがうまく行ったら前レスで質問していた
（１＋１）＊２＊（１＋１）とかもうまく行くと思うのです。
もう丸投げします・・・

一応改訂版のプログラムをはります。
また連投になってしまうのですが申し訳ありません。
足し算・掛け算・その他のアルゴリズムにエラーはありませんでした。

あと
>>446さん、正解です

program test (input,output);
const n=100;
type string=string[n];
table1=array[0..100]of integer;
table2=array[0..100]of char;
var tmp:string;
i,k,fin,eol:integer;
num:table1;
let:table2;
t:boolean;
(*空白を飛ばす*)
procedure closetmp(n:integer;t:boolean; var tmp:string);
var
a,emps,empe:integer;
begin
a:=0;
repeat
repeat
a:=a+1;
until tmp[a]=' ';
if a>=n then
t:=false;

if t=true then begin
emps:=a;
repeat
a:=a+1;
until tmp[a]<>' ';
end;

if a>=n then
t:=false;
if t=true then begin
empe:=a;
tmp[emps]:=tmp[empe];
tmp[empe]:=' ';
a:=emps
end;
until t=false;
end;

(*分割*)
procedure divide(i,n:integer;tmp:string;var num:table1;var let:table2);

begin
repeat
if tmp[i] in ['0'..'9'] then begin
let[i]:='0';
num[i]:=ord(tmp[i])-48;
end
else begin
let[i]:=tmp[i];
num[i]:=0;
end;
i:=i+1;
until i>=(n+1);

end;

(*文字列を詰める*)
procedure closelines(n:integer;var num:table1;var let:table2);
var
i,k:integer;
begin
i:=0;
repeat
i:=i+1;
if (ord(let[i])-48)=num[i] then begin
k:=i;
repeat
let[k]:=let[k+1];
num[k]:=num[k+1];
k:=k+1;
until k>=n;
i:=0;
end;
until i>=n;
end;
(*掛け算開始*)
procedure multiply(t:boolean;i,fin:integer;var num:table1;var let:table2;var eol:integer);
var
k:integer;
begin
k:=i;
repeat
repeat
k:=k+1;
until (let[k]='*');

if k>=fin then
t:=false;
if t=true then begin
num[k-1]:=num[k-1]*num[k+1];
let[k-1]:='0';
let[k]:='0';
let[k+1]:='0';
num[k+1]:=0;
num[k]:=0;
closelines(n,num,let);
k:=i;
eol:=eol-2;
end;
until k>=fin;
end;
(*足し算開始*)
procedure addition(t:boolean;i,fin:integer;var num:table1;var let:table2;var eol:integer);
var
k:integer;
begin
k:=i;
repeat
repeat
k:=k+1;
until (let[k]='+');

if k>=fin then
t:=false;
if t=true then begin
num[k-1]:=num[k-1]+num[k+1];
let[k-1]:='0';
let[k]:='0';
let[k+1]:='0';
num[k+1]:=0;
num[k]:=0;
closelines(n,num,let);
eol:=eol-2;
k:=i;
end;
until k>=fin;
end;
(*括弧の中の計算*)
procedure priority(n:integer; t:boolean;var num:table1;var let:table2);
var
i,eol,sol:integer;
begin
i:=0;
repeat
i:=i+1;
until let[i]=')';

if i>=n then
t:=false;
if t=true then begin
eol:=i;
repeat
i:=i-1;
until let[i]='(';
sol:=i;
multiply(t,sol,eol,num,let,eol);
addition(t,sol,eol,num,let,eol);
let[sol]:='0';
let[eol]:='0';
closelines(n,num,let);
end;
end;
(*最終合計*)
procedure finalanswer(num:table1);
var
i:integer;
begin

writeln;
writeln;
write('この式の答えは「');
write(num[1]);
writeln('」である');
end;

(*本文開始*)
begin
writeln('数式を入力してください。');
readln(tmp);
i:=1;
eol:=1;
t:=true;

closetmp(n,t,tmp);
divide(i,n,tmp,num,let);
priority(n,t,num,let);
multiply(t,i,n,num,let,eol);
addition(t,i,n,num,let,eol);
closelines(n,num,let);
finalanswer(num);

end.

スイマセンでした。１２時間以上かけた結果、何とかなりそうな予感です。
あくまで予感ですが。。。

連投に連投を重ね、真に申し訳ありませんでした！

考えてくださった方々本当にありがとうございました！！

>427
よく知らないからもっとうまい方法あるんだろうけど。

#! /bin/sh
echo $1 > tmp
cat $2 >> tmp
program < tmp
rm tmp

というshコマンドを作る。
コマンドの第一引数に数値の数、第二引数にデータファイル名を指定する。
これを test.sh という名前で作ったとしたら
ファイル"data"から50個の数値を使う場合

test.sh 50 data

とする。
やってる事は第一引き数を tmpというファイルに書き出し、
第二引き数で指定されたファイルの内容を"tmp"に追加書き出し。
これを入力ファイルとして 'program'を起動する。
最後に"tmp"ファイルを消去する。

最近の.net対応のdelphiでは.netのデレゲートはどうやって扱うのですか?

今日明日と忙しいのに課題が…！！！
はっきり言って超初心者です。忙しいので時間がないのでここにくる余裕がないかもしれません。
しかも、自パソが現在使えないので携帯からです。
かなりヤバい状況なので、一緒に考えて下さるとありがたいです。
一応課題を書いておきます。

課題1
数列を読み込み、バブルソートによってソートし、途中経過及び最終結果を表示するプログラムを作成せよ。また、正しく動作していることを示す実行結果を添付せよ。
課題2
プログラム例（時間がある時にかきます）を元にして、クイックソートのプログラムを完成させよ。また、正しく動作していることを示す実行結果を添付せよ。
課題3
マージ（merge）ソートについて調べて、他の課題と同様のプログラムを完成させよ。また、正しく動作していることを示す実行結果を添付せよ。

プログラム例などがあるのは、時間をみつけて書き込みます。よろしくお願いします。

Delphi6Personalでファイル名をあたれられて動作するexeを作成したいんですが、
どのアプリが起動させたかを知る方法はありますでしょうか？

>>459
それは宿題か? スレ違いではないのか?

>>460 スレ違いなんですが、くだすれがてんぷれ作成中だったもんで
ちまよって宿題スレに書いてしまいました。
そういう訳でお願いします。

次の問題を疑似言語PASCALで記述せよ。

１．学生番号と身長（cm)の組を多数入力し、入力したデータをそのまま出力する。
ただし、身長が１８０以上の場合だけ。”tail"という文字を横につけ加える。
入力データのストッパは、学生番号＝身長＝０とする。
（入力例） （出力例）
1001 168 1001 168
1002 176 1002 176
1004 182 1004 182 tail
0 0

次の問題を疑似言語PASCALで記述せよ。

２．車種、数量、新車ー中古車の区分、の組からなる売り上げデータを多数
入力し、新車、中古車をそれぞれの数量合計を求めて出力する。入力のストッパ
は、車種が"END"であるとする。

（入力例） 　　　 （出力例）
civic 12 古　　新車　　　　7
sunny　　　 8 古　　中古車 20　
splinter 7 新　　　
END 　　　　0　 0

>>458
バブルソートのアルゴリズム

procedure sort(n: integer);
var
ループ制御用の変数i,jを宣言する;
その他、作業用の変数を宣言する;
begin
for i:=n-1 downto 1 do
begin
for j:=1 to i do
begin
もし A[j]>A[j+1]ならば
A[j]とA[j+1]の内容を交換する
end
end
end;

begin
{入力部}
ソートすべき要素の個数を読み込み、それをnとする;
n個の数を読み込み、順に配列Aへ格納する;
{ソート部}
sort(n); {配列A[1..n]をソートする}
{出力部}
配列A[1..n]の内容を書き出す
end.

>>463の続き

上記のアルゴリズムを実現するプログラム中の適切な場所に

for k:=1 to n do
begin
write('A[',k:2,'] : ');
writeln(A[k])
end;

等を追加すれば、その時点での配列Aの内容を書き出すことになる。途中経過の確認などに役立つ。
変数jについてのループを1からiまでまわったときに、一度も交換が起こらなければ、配列全体はソート済みであるといえる。
そのときには、早めに処理を終了してもよい。このような終了条件を追加したバブルソートは、「ほとんどソート済みのデータ」に対しては速いアルゴリズムとなる。

クイックソートのアルゴリズム（例）
program QuickSort(input,output);
var
ソート対象となる数列を格納するinteger型配列Aを宣言する;
要素数を表す変数nを宣言する;
その他、ループ制御用の変数を宣言する;

procedure sort(low,high : integer);{A[low..high]をソートする手続き}
var
分割の基準を表す変数bを宣言する;
探索の注目位置を表す変数i,jを宣言する;
その他、作業用の変数を宣言する;
begin
if low < high then {low = highならば要素が1つだけなのでソートする必要なし。}
begin
i:=low; {探索の初期位置を設定}
j:=high;
b:=A[low]; {分割の基準を設定}

>>466の続き

repeat
while A[i] < b do {左側から探索してA[i]>= bとなる要素をみつける}
i:=i+1;
while A[i] > b do {右側から探索してA[j]<= bとなる要素をみつける}
j:=j-1;
if i<=j then
begin
A[i]とA[j]の内容を交換する;
i:=i+1; {探索の注目位置を進める}
j:=j-1
end
until i>j; {右からの探索と左からの探索がすれ違うまで探索する}
sort(low, j); {左側の部分数列をソートする}
sort(i, high) {右側の部分数列をソートする}
end
end;

begin
{入力部}
ソートすべき要素の個数のみを読み込み、それをnとする;
n個の数を読み込み、順に配列Aへ格納する;
{ソート部}
sort(1, n); {配列A[1..n]をソートする}
{出力部}
配列A[1..n]の内容を書き出す
end.

>>458
>>464-467

よろしくお願いします

>>462-463
マルチ

　

もしかして日本語で書くと解りやすいと思ってる？

>>471
俺の話？？
上に書いたプログラムは、プログラムのアルゴリズム例として配られたものをそのまま書きました
現在はプログラムは作り終えて、レポートに入るところです
Pat図をつけろとか、なにやら俺にはわかりませんがなんとかしようと思います
課題自体は上に書いた通りなんで、わからなくなったら助言願います

>>472
なんていうか、問題作った奴センス無いな

10文字以内の文字列を読み込み
1.全て大文字
2.最初の1文字のみ大文字、後は小文字
3.全て小文字
の3つを出力するプログラムを作成せよ。
（アルファベット以外の時はそのまま出力せよ）

という課題なのですが、function型かprocedure型を使って書かないといけません。
辛うじて1は出来たのですが、他がさっぱりです。
どうかよろしくおねがいします。

>>473
そうなの？？まあなんつうか講義は問題あるけどな
とりあえず授業はしてくれない。課題を与えて、やってってそれだけ
聞けば教えるって言ってるけど、何も知らんのに何聞けばええねん！！！
ごめんなさい。愚痴でした

申し訳ありません、締め切りが迫っているので、どなたか教えていただけないでしょうか。

気が向いたら誰かやるんじゃね

>>474
function ToUpper(str: string): string;
begin
    result:= UpperCase(str);
end;

function ToUpper1stOnly(str: string): string;
var
    tmp:    string;
begin
    str:=LowerCase(str);
    tmp:=str[1];
    tmp:=UpperCase(tmp);
    str[1]:=tmp[1];
    result:=str;
end;

function ToLower(str: string): string;
begin
    result:= LowerCase(str);
end;

>>478
申し訳ありません、よろしければ全部を作って欲しいのですが、だめでしょうか？
あと、stringはcharではだめなのでしょうか？実はそれしか習ってないのでstringは分からないのです・・・

pascalを全く分かってない阿呆な者でして・・・
すみませんが、よろしくお願いします。

しょうがねぇなぁ
ほら、String使わないで作ったぞ

function First(const Source: PChar): PChar;
begin
  Result:= AnsiStrUpper(Source);
end;

function Second(const Source: PChar; var Dest: PChar; const Size: Integer): PChar;
var
  C: Array[0..9] of Char;
begin
  lstrcpy(C, Source);
  AnsiStrLower(C);
  if (C[0] in ['a'..'z']) then
    C[0]:= Chr(Ord(C[0]) - $20);
  Result:= lstrcpyn(Dest, C, Size);
end;

function Third(const Source: PChar): PChar;
begin
  Result:= AnsiStrLower(Source);
end;

>C[0]:= Chr(Ord(C[0]) - $20);
Dec(C[0], $20)でいいような、

…って、宿題にDelphi拡張込みのコードはどうなんだろう。
Charしか習って無いというのは全部array[1..10] of charでやれってことでは。
そのための「10文字以内」だろうし。

>>481
分かっててやってるんだろ
それくらい分かれ

>>478,480
ありがとうございました！これでようやく宿題に目処が付けられます！

>>459なんですが、宿題ということで教えてください。

>>484
そもそも何がしたいのか読み取れん。
「ファイル名を与えられて」というからにはコマンドライン引数を受け取りたいのか、「どのアプリが起動させたかを」というからにはエクスプローラーから起動したならexplorer.exe、コマンドプロンプトから起動したならcmd.exeとかそういうのを知りたいのか。
何がやりたいわけ。

スレ違いですいません。
>>485　　はい。そのcmd.exeです。
　たとえば、cmd.exeなら与えられたファイルを処理するけど
　他のソフトがshellExecuteなどで
　myApp.exe "test.txt"させた場合は何もしないようにしたいんです。　　

簡単に済ますなら標準入出力が親から継承されてるとかかな。
ShellExecuteでもcmd.exe /c myApp.exe "test.txt"とかやられたら区別できない気もするけど。
厳密にやりたいならSDKのPROCESSENTRY32のあたりをうろついて親の親まで辿ってきゃいいかと。

>>487 ありがとうございます。
僕には難しそうで断念しそうな感じですが、
だめもとでやってみようかと思います！

課題でこんなプログラムを作らなくてはなりません。：氏名（２０名文字以内）、電話番号（１５文字以内）、メルアド（３０文字以内）をひとつのレコードとし、
１：氏名から番号と、メルアドを検索
２：番号から氏名と、メルアドを検索
３：メルアドから、氏名と番号を検索
というプログラムを作れと言われています。
レコード件数は３０件で、テキストファイルを作れと言われています。はっきり言うてまったくわかりません。
どうか力を貸してください。Record文とCase文を使うようです。

>>489
Accessとかで作ったらまずいの？

>>489
DelphiのPro以上を購入。
まずDatabase Desktopを起動して項目を設計する。
Delphiを起動してデータベース関係のコンポーネントを貼りまくる。
テキストファイルを扱うデータベースのドライバもあるし、何の問題も無い。
最後に申し訳程度にrecordとcaseをどこかに書いて終了。

>>474
>>489
同じ大学だｗ

とりあえず
氏名　packed array[1..20]
電話　packed array[1..15]
メル packed array[1..30]

をレコードでまとめて
レコードをarrayにして

for でまわしながら入力すればできる

検索は検索したい名前を入力のあとその名前と登録した名前が一致するまで
for文で繰り返して一致したら表示するようにつくればよし

それをcase文でまとめろ

あと3日もあればできるだろｗ

標準PASCALで時間って測れる？

>>492
検索部分が分かりません・・・
宜しければ詳しく教えていただけないでしょうか。

for i := 0 to データ数 - 1 do
　if i番目のデータ.名前 = 検索したい名前 then
　　WriteLn('ｳﾋｮｰ');

自己解決しました。

４７４のプログラムで、全文字を検索するプログラムを作りたいのですが。。。詳細よろしく！

全文字って何？

例えばfd,f,fと設定しておいて、fと入力すると、fd,f,fの３つすべての結果がでるようにしたいです。
つまり、検索対象の先頭の文字（番号）を入力しただけでも検索ができることです。

search : packed array[1..30] of char;
db云々は講義聴いてたら分かるよね。

if (search[1]=db[i].mail[1]) then
begin
検索結果を表示
end;
これで1文字目だけを検索するよ。
ただ、a,ab,abcと設定しておいてabcを検索しても、
a,ab,abcの3つが検索結果として出てきちゃうけどね。
あとは頑張ろう。

マジメなはなし、dbの意味がわかりません・・・

それと、例えば、bag big boxと名前を決めて、bagと入力しても他の２つまで出てしまいます。どうすればいいのでしょうか？

>>502
　　　　　　 ／::＾'´::::::::::::i､::::::::::::::::::::::::::::＼
　　　　　‐'7::::::::::::::::::::::::ハ:ﾊ::|ヽ:::;､::::::::::::丶
　　　　 ／::::::::::::::/!i::/|/　 ! ヾ　ﾘハ:|;!､:::::::l
　　　　/´7::::::::::〃|!/_,,、　　 ''"゛_＾`''`‐ly:::ﾄ　　　
　　　 　 /|;ｨ:::::N,､‐'゛_,,.＼　　 ´''""'ヽ　 !;Ｋ
　 　 　 　 ! |ﾊﾄ〈 　,r''"゛　 ,　　　　　　　ﾘｲ)|　　　　死ねばいいと思うよ
　　 　 　 　 　`y't　　　　 ヽ' 　 　 　 　 /／
　　　　　　　　 ! ぃ､ 　 　 ､;:=＝ｦ　　 〃　　　　　
　　　　　　　　　｀'' へ、 　 ` ‐ '゜ 　 .ｲ
　　　　　　　　　　　 　 `i;､　　 　 ／ l　　　　　　　　　
　　　　　　　　 　　 　 　 〉　` ‐ ´ 　 l`ヽ
　　　　　　　　　　　　／　!　 　 　 　 ﾚ' ヽ_

　 　　　　　　　 　　 　　　 /ﾟ　　　　。
　　　 　 　 　 　　　　　 ／　．　　ﾟ
　　　　　　　　　　　,　'　　　　。　　・
` ー　 ＿ 　 - 　'　　　゜
。　　　　　　　．　　　　　　。　　ﾟ
　　　　：　　　　　。
ﾟ　　　　　　　　　　　　　．
　 ヾ冖ﾌ 　ヾス
　　 [ ,]　　　[ ]　　　　 ､_ノ､_人_人_人_人_人_人_人_人_人_人_
　　 |.　i　/l,ィ .!　　 　 ノ
.　　 ! 　}.r`'j7 !　　　　_）　　皆オラに宿題を教えてくれ！！
　　　!　｀､亠 {　　　　　ヽ
　　　 }　_l _,l_,j　　　　　 '^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^
　　　 ヽｼ_,-i {
　　 　 /`´~ﾊﾞ}
.　　　/　　　j　!
　 　 ∧　'"/`,ｲ
　　　!　ヽ'/l_　 j
　　/ ＼,/　}＼,!
　 .ｧ､ヽｨ 　<`-ｲ
.　 |. `iT. 　 ヽ　j
　　＼ll' 　　　`'

　　　　　　 　　　　　　/ヽ　　　　　　 /ヽ
　　　　　　　　　　　　/ 　ヽ　　　 　 / 　ヽ
　　＿＿＿＿＿＿ / 　 　 ヽ＿＿/　 　 　ヽ
　　|　＿＿＿＿　／　　　 　 　 　　　:::::::::::::::＼
　　| |　　　　　　 / ／　　　　　　＼ 　　:::::::::::::::|
　　| |　var | （●　　　 　 （●　 　 ::::::::::::::| < 今日の19時が期限なの…
　　| |　　aho : int|　∪　　　　　　∪　　　:::::::::::::|
　　| |　　Data: cha|　 　（__人__丿 　.....:::::::::::::::::::/
　　| |＿＿＿＿　ヽ　　　　　　.....:::::::::::::::::::::::<
　 └＿＿＿／￣￣　　　　　　　:::::::::::::::::::::::::|
　　|＼　　　 |　　　　　　　　　　　　:::::::::::::::::::::::|

コレが噂のデスマーチって奴ですかｗ

>>489
とりあえず何がわからないんだ
上に書いてるのを使えばできると思うが
俺はとっくに出来てるから出してくるわｗ

>>502
俺はそこはこだわらないからやってないが
if (search[1]=db[i].mail[1]) then
begin
検索結果を表示
end;
の
ifを大きくfor 1 to 桁 do
でできないか？

できないよ〜涙

>>508
だから、出来る/出来ないでなくて、何がわからないのか、何処で躓いているのかを書いてくれ。

後２時間、いよいよ押し迫って参りました。

>>508
仕方ないあと50分だから助言

var name:packed ar(ry

readln(name);したあとに

for i:=1 to 20 do
begin
if nameの一文字目が文字の場合
文字数に＋１

これで検索した文字数がわかるから
次にmeiboの全員を検索する
for i:=1 to 30 do
begin
それから
その検索名の一文字目と検索する対象の一文字目があってるかを調べて
あってたらAにでも＋１してあってなかったらスルー
そうすれば全部あってる場合
検索の名前の数＝対象の調べた文字
になるからそうなったやつを全部表示すれば対象の文字に例えば調べた文字が
woだとしても
word
world
の二つが引っかかるようになる
俺の提出したやつはそういうやり方だから全部は言えないなｗ

　　　　　　　　　　　　　,. - ─── - 、
　　　　　　　　 　 　 ／　　　 , 　 　 　　｀ヽ.
　　　　　　 　 　 　/〃//,. ,ｨl/|l ﾄ､ !、 、　 ヽ
　　　　　　　 　 ｰ'´| | l |1 | !l. ｌ| ! | l.|ヽ ! !､　',
　　　　　　 　 　 　 YﾚV!ﾋｴ「! |l.「_ト!Ll」| ｌ ｌ　 l
　　　　　　　　　　　! lﾊｲJ |　　´|_jヽ. ﾘ,! ! l. ｌ |　　　>>511は
　　　　　　 　 　 　 |l |l.} ー , 　　Ｌ _,ﾊl.ｌトｌ ｌ. | l　　　日本語が不自由なの？
　　　　　　 　 　 　 |l ｉｌﾄ､ 　 ｎ　　'' 　,1ｌ|ｨ| |l l |
　　　　　　 　 　 _　二,ニ^tュ--ｪ_t１」l.|l !リ|_lﾉ
　　　　　　　ｒ７´　　 ｆ ｒ┐| 〔/ミヽ>,-､￣´
　　　　　　　Y 　 　 　 ー个‐'t　 ﾊ-､_'ゝ、
　　　　　　　 ヽ ．＿･ ｒく￣ヽト-'丿 　ヽ l
　　　　　　　 / (･_＿,）ゝi┬'´ﾊ｀ 　 　　'`|

>>503 >>504 >>505 >>512
AAは他のスレでやろうな

次のプログラムの点線の間を改造して提出しなくてはなりません。このプログラムは、人数を選んで、名前を入力すると、その名前がでてきて、今の時点では、その結果に名前を一人入力して、既に出ている結果の何番目にその名前を追加するかというものです。
そのプログラムを、名前を入力すると、自動で、アルファベット順に並べてくれます。例：aさんbさんeさんと並んでいて、ｄさんを入力すると、bとeの間に追加されるという事です。
ただし、あらかじめ入力する名前はアルファベット順でよいと言う事です。
function文などを追加する場合は、点線以外に追記してもよいらしいです。せめてヒントだけでもいいんでよろしくお願いします！

改造してということは
元となるプログラムがないとどうともいえないかと

これが大学生の日本語か･･･

既にあるプログラムの指定箇所を改造して提出しなければなりません。
現状では、人数と名前のリストを入力すると、入力した名前が出力され
また、更に名前を入力すると、その名前のリスト中のインデックスを出力します。
　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
このプログラムの下線の部分を、アルファベット順で適切な位置に挿入するように修正したいのです。
ただし、予め入力されている名前のリストは、既にアルファベット順に並んでいて良いものとします。
例)a、b、e、と並んでいて d を入力すると b と e の間に挿入される。

新たに関数を定義する場合は指定箇所以外に追記しても構わないそうです。
せめてヒントだけでも良いので宜しくお願いします。

こいつ教えてもらう気あんのか？ｗ

せめて、入力された英字がアルファベット順に表示できるプログラムだけでもいいので教えてください。

TStringList使ってSortすれば？

>>514じゃないけど書いておきます。
よろしくお願いします。
program linkedlist(input, output);
type
timerecord = record
Name: packed array[1..20] of char;
guard: boolean;
next: ^timerecord;
end;
Pointertimerecord = ^timerecord;
Namearray = packed array[1..20] of char;
var
head,last : Pointertimerecord;
n,count : integer;
prev : Pointertimerecord;
DataNO : integer;
procedure printdata(Data: Pointertimerecord);
begin
while Data^.guard=false do
begin
writeln('====================');
writeln(' Name = ',Data^.name);
Data:=Data^.next;
end; { while }
writeln('====================');
end; { printdata }

procedure addlist(var Prevdata,Newdata : pointertimerecord);
begin
new(Newdata);
Newdata^.next:=Prevdata^.next;
Prevdata^.next:=Newdata;
{ enter data of record }
write('Adding data -- Enter the name : ? ');
readln(Newdata^.name);
if Prevdata^.guard=false then
begin
Newdata^.guard:=false;
end else begin
Newdata^.guard:=true;
Prevdata^.guard:=false;
end; { if }
end; { addlist }

begin
new(head);
last:=head;
{ enter data of record }
write('Enter number of record : ? ');
readln(count);
for n:=1 to count do
begin
{ enter data of record }
write('No.',n:2,'--Enter the name : ? ');
readln(last^.name);
last^.guard:=false;
{ make next datum }
new(last^.next);
last:=last^.next;
last^.guard:=true;
end; { for }
writeln;

{ print record }
last:=head;
printdata(last);

{ addlist }
last:=head;
{----------------------------------------------------}
write('Enter the position number of a new datum to be inserted (>=2) : ? ');
readln(DataNO);
if DataNO > (count+1) then
begin
DataNO:=count+1;
end;
for n:=1 to (DataNO-2) do
begin
last:=last^.next;
end; { for i }
prev:=last;
addlist(prev,last);
if DataNO<2 then
begin
head^.next:=last^.next;
last^.next:=head;
head:=last;
end; { if }
{----------------------------------------------------}
{ print record }
last:=head;
printdata(last);
writeln('End of Job.');
end.

以上です。よろしくお願いします。

上のソースの{--------------------------}で囲った部分です。
この部分は、既にある文字に一つ何かを追加する時、入れたい場所を番号で指定するようになっています。
ここを入力した文字がアルファベット順に並ぶようにするプログラムになるようにしなければならなければなりません。
５２０さんどうもです。

どちらが先に来る名前か判定する関数と、
順番に見て行って順番が後の名前を見つけたら、その前に挿入

それがわかったら苦労しないです。。。汗　
具体的に教えてください…汗

あとはコードにするだけでしょ。
具体的にどこができてないの？

点線で囲んだ部分です。プログラム自体が得意ではないんで…
実際にソースで書いてもらえないと理解できないです。

プログラミングが不得意なら何でプログラミングの講義なんて取って、しかも先生の言うことスルーするんだ

宿題スレなのに丸投げを許さないおまいらに惚れたｗ

...

答え丸投げしようが本人が自分でできるようにアドバイスしようが教える側の勝手

怖い・・・もうついていけない・・・

情けないな。
ネコミミがついてないからだ。ネコミミをつけろ。

ネコしっぽだけじゃだめッスか？

>>525
1個目と2個目を比較して位置を入れ替えることはできるけど
2個目と3個目
3個目と4個目という風にしていくと繰り返しでは出来なくなるような

for i := 1 to 3 do
i個目とi+1個目を比較
でいいんじゃない？

もうやめたい・・・

配列中の英単語の種類をまとめて表示しろってあるんだけど
自分がやると
book 3
pen 1
bike 3
apple 2
apple 2
book 2
bike 3
bike 3
みたいになります。単語ごとにまとめるアイディアください

ごめんまったくいみがわからない

Ｃの宿題スレとくらべてなんでこんなに不親切なんだ？
よほど利用者が少ないのか、回答できない低レベルなユーザーばっかなのか。
回答するならきちんと教えてあげなよ。

>>537
last:last^.next
last:=headという風にしてるから
繰り返しをするとデータのつながりが切れたりするかと
4→3→2→1を1→2→3→4に並び替える時に
last:=last^.next;
last^.next:=head;
で3→4にして
head^.next:=last^.next;
で4→2
にしたとして今headが4→2→1　lastが3→4→2→1
head:=lastで同じにして
3→4→2→1
繰り返しだから
last:=last^.next;　lastが4→2→1 head3→4→2→1
last^.next:=head;
とするとここで4→3→4に戻る・・・とここで変になるし
もうひとつprevというのを使っても途中でデータ消えたりするな・・
繰り返す方法が他にあるのかそれともこの計算方法が間違ってるのか・・・
あと1文字目だけを見るときは簡単だが1文字目と2文字目が同じで3文字目が違う場合に
アルファベット順にする場合はもっと複雑になる気が・・・

4→3→4に戻るって意味が分からんが。
この問題だと最初につくるリストはアルファベット順だから
そもそもソートは必要ないんだけどね。

>1文字目だけを見るときは簡単だが・・・
比較をする関数で１文字目から違う文字がでてくるまでループするだけ

book 3
pen 1
bike 3
apple 2
apple 2
book 2
bike 3
bike 3
を
book 2
pen 1
bike 3
apple 2
（単語の後の数字は配列中の単語の個数）
のようにまとめて表示したいのですが、分かりづらくてすいません

>>544
とりあえず元の問題を表示するのとなにを使えと言われてるのかが判らないと
教えるに教えれんぞ
>>543
リストが元からアルファベット順とか書いてないのだが
あと{----}の線の間なら全て消して書き直してもいいのだろうか？
addlistという関数を使うとややこしくなる

>>516によると
＞ただし、予め入力されている名前のリストは、既にアルファベット順に並んでいて良いものとします。
だそうだ。

>>546
うはｗ
520からしか見てなかったorz

>>541
そういう自分が教えてあげない時点で駄目だろｗ

>514
function compare(p,q:pointertimerecord):boolean;var i:integer;
function c:integer;begin c := Ord(p^.name[i])-Ord(q^.name[i]);end;
begin i:=1;while(i<=20)and(c=0)do i:=i+1;compare:=c>0;end;

addlist(head,last);if compare(head, head^.next) then begin
prev:=head^.next;head^.next:=prev^.next;prev^.next:=head;head:=prev;
end else prev:=head;last:=prev^.next;while(not last^.next^.guard)and
compare(last,last^.next) do begin prev^.next:=last^.next;prev:=prev^.next;
last^.next:=prev^.next;prev^.next:=last;end;

これを点線のとこに入れればよいのでしょうか？>549
でも今までとは違ってこれを見ても理解できない自分が情けない・・・

>>550
お前いい加減にしろよ？
なんで自分で試そうとしないんだよ

ソースがあっても、理解もできていないのに、試してもしかたない。
ありがとう指摘してくれて。

こいつに教えても仕方が無いよ
向上心のかけらも無い

同じ大学に通う学生として>>552の発言は本当にどうかと思う
>>553の言うとおり向上心の欠片も持ち合わせてない。

その台詞だけ見れば真っ当な事を言ってるから味方しようと思ったのに
なんだよおまえｗ

>>549
2つほど質問をさせてください。
二つ目のfunctionはどのような意味があるのでしょうか？

begin〜end;が二つあるのはどういうことでしょうか？

二つとも講義中には出てこなかった表現なので、全く分かりません。
5時間ほど自分で調べていたのですが、答えが見つかりませんでした。
どうか宜しくお願いします。

>>556
関数内関数。

function Hoge;
　function Hige;
　begin
　end;

begin
end;

Hige は Hoge 内でのみ使える関数。

>>557
返事が遅くなって申し訳ありません。ありがとうございました。これで全ての謎が解けました。

>549
関数内関数をを使わずにっていうのはできないんですか？

>>559
ｃを変えてやればできるよ

cを変えるってどういうことですか？

関数の名前だろうが

俺も>>514と同じ大学に通う学生なんだけど
ほんとマジ助かった
提出まで後少ししか時間ないからあせってたところ

つか、こんなところに仲間がいたなんてｗｗｗ

>>562
場ぁわきまえて、もの考えてから発言せーや！！
気分悪いねん

バカは黙れｗ

皆おんなじ解答を出してカンニングばれて単位もらえないのがオチｗ

あの先生は、ぬかりがないよ・・・

そこまでバカじゃないだろｗ
変数名や関数名変えて関数内関数もばらしたりしてれば
大丈夫なんじゃない？

>>549
名前何を入力しても2番目に挿入されるんだけどｗ

俺のミスだったorz

>>520-523+>>549のプログラムで
アルファベットの大文字と小文字を区別しないように
したいのですがヒントor丸投げお願いします

大文字から小文字への変換をかます。

1ヶ月ごとに学生アルバイトにバイト代を払うための、 学生アルバイトの労務管理システムを作りたい。すべての
アルバイトデータが、日付、学生氏名、その日の職種、 その日の労働時間　の4項目を持つものとする。
（注　：　学生の数は50名以下であるとしてよい！）

（1）　まずはこれらのデータを格納する型をレコード 型により定義せよ。ただし、職種はｒ　（レジ係）、ｐ　（配送係）、
i　（接客係）、　ｃ　（清掃係）、　のいずれかとする。
（2）　次に（１）で定義した型に、準入力 （Keyboardのこと）から値を読み込み、メモリー内の配列（あるいはポイ
ンターを利用したlinked list）内に 収納するとともに、標準出力（画面のこと）へ書き出す操作を任意の回
数だけ繰り返すところまでプログラム を作成せよ。ただし、仕事のイメージとしては、月末に、伝票に書い
　　　 てあった「日付、学生氏名、その日の 職種、その日の労働時間」を日付順に打ち込んでいく作業である。つ
　　　 まりイベント順の入力方式である。し たがって、日付が異なれば同じ学生氏名であっても異なる入力が存
　　　　在する。また1日の間では、ある一人 の学生の職種は変化しないが、日付が異なれば、職種は変化する場
　　　　合があるものとする。
　　　　なお、ここで入力するデータ は、伝票の中身をそのまま残すのが目的なので、同じ学生のデータでまと
　　　　めたり、ソートしたりはしないこと。 （注　：　伝票の数はあらかじめわかっているとしてよい）
（3）　（2）で作った基本データに追加で任意の数のア ルバイトデータ（追加の伝票のデータ）を追加できるように
　　　　プログラムを改造せよ。（ここの追加 部分でも、日付などでソートする必要はない。また追加伝票の数はあ
　　　　らかじめわかっているとしてよい）

（4）　（3）までで作った基本データを、外部ファイ ル’save05**.dat’に出力するようにプログラムを改造せよ。
　　　　 ただし、外部ファイルはテキストファ イルでもバッファファイルでもよい。　ただしこのファイルの読み込み機
　　　　 構も備えること。つまりこの段階で は、基本データのファイルへの書き出し、ファイルからの読み出しが出
　　　　 来ることが必要である。ただしファイ ル名の**には月名が入る（1月→01、　12月→12）。月名は標準入力
　　　　 から手で入れるものとする。
（5）　（4）で読み出した基本データをもとに、それぞ れの職種のその月の時給を入力すると、各学生が受け取る
　　　　 べきアルバイト代を、標準出力（画 面）に表示するとともに、外部テキストファイル’pay005**.txt’に出力
　　　　 するようにプログラムを改造せよ。た だし、同じ学生の基本データはすべて集約するものとし、学生のアル　
　　　　 ファベット順に（大文字小文字は区別 しない）出力のこと。
　　　　　　　　　　　　　　　　　　
　　

（例）　基本データ　（テキストデー タとした場合の例）
　　　　　 10-05　　　　 Shinomori r 3
10-22 Shinomori p 1
10-22 Mendori c 4
10-20 Shinomori r 1 added

支払いデータ（pay00510.txt)
Octobar parttime job payment.
r 620 per hour
p 750 per hour
i 900 per hour
c 820 per hour
---------------------------------------------
Mendori c 820 * 4 = 3280

total = 3280
---------------------------------------------
Shinomori r 620 * 4 = 2480
p 750 * 1 = 750

total = 3230
---------------------------------------------
End of payment data.
（6）　上の機能（２〜５）をメニューで選んで自由な 順で、使えるようにプログラムを改造せよ。

>>573-575に書き込んだ課題が最初からまったくわかりません。
締め切りも近いし本当にあせっています。
どうか助けてください。

(1)：recordsample.pを参考に書き換えよう
(2)：これも同じくrecordsample.pの書き換え
(3)：for 2で入力した人数+1 to 追加する人数+2で入力した数 do
　　 あとは(2)と同様
(4)：textwrite.pとtextread.pを良く見ながらやってみよう
(5)：俺も分からん。ここだけ誰か教えてください

>>577さん、書き込みありがとうごさいます。
これで一歩前に進めそうです。

宿題で
ぎこＢＡＳＩＣ２００５のソースをいじくっているのです。
誰がやらせろと言っているのですか？
もしよろしければ
ギコＢＡＳＩＣ２００５のソースに細かく注釈をつけて欲しいのです。
お願いつかまつりそうろうでございまする。

できあがったその暁にはカスタマイズされた
ギコＢＡＳＩＣ２００６（２００６年完成予定）をオープンソースで提供しましょう。

ここはPascalなんだからギコPascalにしてくれ。

ギコＢＡＳＩＣ２００６がリリースされた暁には
誰でも自分言語をもてる時代が来ます。
ギコＰＡＳＣＡＬに改造することもたやすいでしょう。
ただ、現在のソースを解析するには困難なのです。

ＰＡＳＣＡＬスクリプトでも良いというならばわかりましたといいます。
しかしネイティブコードを吐くには時間がかかりすぎます。
ＤＥＬＰＨＩソース生成ならば考えがなくもなくもなくもないのです。

というか宿題かそれ

宿題です。
学校の宿題ではないですが、
宿題だからきっと願いはかなうと思ってました。

宿題の肝心の部分は自分で何とかしようと努力しています。
しかし過去に何人もの２ｃｈねるパネラーの方々が
ギコＢＡＳＩＣのソースの前にひれ伏しているのです。

これが改良された暁には
２ｃｈねるパネラーの方々の標準言語として
親しまれていくことでしょう。

Pascalの宿題出す学校の方がもはや希少価値

ギコ PASCAL を先に作った方が良いと思われ。

ギコＢＡＳＩＣ、しい言語、ときたらギコはＰＡＳＣＡＬではいけない気がします。

type list = record
name:packed arra[1..20] of char;
next:^list;
judge:boolean;
end;
datalist =^list;
var
data:array[1..10] of datalist;

という形式のファイルの保存と読み込みがしたいのですが
nextがやっかいでなかなかできません助けてください。。

>>573-575の課題丸投げでお願いします。助けて下さい。

こちらの方の方が困ってらっしゃるように見える。

>>587さん優先でお願いします。

というよりもです
自力で明日一日かけて取り組むことに決めました。

>>587
連結リストでしょ。
単に定義の仕方が違うだけでは。

type
　datalist =^list; //先にポインタ型を定義する

　list = record
　　name: packed array[1..20] of char;
　　next: datalist;　//定義済みのポインタ型を使う
　　judge: boolean;
　end;

var
　data:array[1..10] of datalist;

>>573-575で(1)と(2)はできたんですがその後がわかりません。誰か教えてくれませんか？

お断りする。

>>592どうしてですか？

>>590
ありがとうございます
早速試してみます

誰か>>573-575をお願いします！

>>595
最終課題は一人でやらないとカンニング扱いで全単位もらえなくなるから
やめといたほうが・・・ｗ
ヒントぐらいにしとけ・・・

いや、丸写しする人はいないでしょｗ

>>595
しつこいよ君
やりたい人が来たらやるだろうから待ってろ

いろいろ試してみましたが、さっぱりわかりません。
どなたか>>573-575を早急にお願いします！

>>599
こんなものは余裕だ。ひまわりならばだが。

そしてひまわりのソースは公開されている。

さあ！あなたのすべきことは一つ。と言ってみるテスト

>>600
ごめんなさい、何をすればいいのか全然分かりません。
何でもするので教えてください！
どうかお願いします！

ひまわりはＤＥＬＰＨＩ言語でできている。ということは
簡単なひまわりでまず達成する。
そしてひまわりのソースはほぼパスカルなわけだから、

ひまわりのソースから部分的に抜き出すことで宿題は完結します。
と思いませんか？

で最後に宿題の条件にあうように加工すればＯＫ

ひまわりって何ですか？

>>602
ソースファイルはどこにありますか？

ひまわりのダウンロードサイトにあります。
やふると簡単にでます。
「プログラム　ひまわり」でどうぞ。
というか…。

というか…なんですか？

できましたか？

ひまわりのソースを落としました。
LZHになっていて開いてみたのですが、たくさん入っていてどれだか分かりません。
ソースのどの辺りを抜き出せばいいのか教えてください。
もう時間がないので、どうかお願いします。

目的の物をひまわりで組んでみるのですよ。まず

そんな！自分でプログラムできるくらいなら質問したりしません！
私にできることなら何でもするので、どうか教えてください。
明日までに提出できないと単位がもらえないかもしれないです。
もし留年したら親にも迷惑がかかるし、それだけはどうしても困ります！
どうかよろしくお願いします。

提出期限　１２月２日　１９時３０

正直キミの単位がどうなろうとこっちには関係ない。
それに教えてもらってそれをそのまま提出したところで
単位はないだろうしさ。
困るなら少しは自分で考えようよ

>>612
>>597

5番目のヒント欲しいです

>>613
今までに十分すぎるほどでてるヒントで解けないなら
単位諦めればいいんじゃね？

出てないと思いますが・・・

いや、出とるがな

>そんな！自分でプログラムできるくらいなら質問したりしません！
>私にできることなら何でもするので、どうか教えてください。
>明日までに提出できないと単位がもらえないかもしれないです。
>もし留年したら親にも迷惑がかかるし、それだけはどうしても困ります！
>どうかよろしくお願いします。

お前の勉強不足が原因だろ

分からない人は目の前に餌が転がってても見えない好例ですね

>>613
(5)はスクリーンに表示するようにｔｘｔに表示したらいいだけだぞ

釣られる方もどうかしてる罠。

ソースの提供を・・汗
２番まではできましたが、そこから先が・・・汗

その2番まで出来たソースを晒せ。話はそれからだ。

誰か２番までのソースを提供きぼんぬ

ファイル文を使って、datファイルに、データが書き込まれたものがあるのですが、
それに、更にデータを追加するにはどのようなプログラムを書けばよいのでしょうか？

program bout(input,output,J1JIIl);typellIlIJ=record
lIlJJI:string(20);I11JI1:^llIlIJ;l1l1l1 : boolean;end;
varJ1JIIl:text;ll1ll1:string(20);IlIlIJ,IJIlJJ:integer;
IIlJ11: ^llIlIJ;beginnew(IIlJ11);ll1ll1:='NullPointer';
writeln('Nmber');readln(IJIlJJ);rewrite(J1JIIl,ll1ll1+'.txt');
for IlIlIJ:=1 to IJIlJJ do beginIIlJ11^.l1l1l1:=false;
writeln('Name');readln(IIlJ11^.lIlJJI);writeln(J1JIIl,ll1ll1);
new(IIlJ11^.I11JI1);IIlJ11:=IIlJ11^.I11JI1;IIlJ11^.l1l1l1:=true;
end;end.

>>623ちょっとだけど書いたよｩ

>>624の詳細知りたいです。

write('どんだけ追加すんだよ');
readln(a);
for m:=n+1 to n+a do
begin
readln(data.a);
readln(data.b);
nantoka[m] := data;
end;

つーかこれも>>573-575と絡んでるだろ

上の文章を使って、すでにあるデータに、名前や仕事時間などを入力できるのですか？？

名無しおもしろすぎ

>>629
お前>>552と同一人物か。
試してからモノを言え。
試せないんなら単位落としてダブれ

ガス漏れに注意しよう、な？

テキストファイルを読み込んでレコードファイルを出力する課題が出ているのに、定義を含めて扱い方がさっぱりわからない。
誰か助けてください。

>>633
>>503

しかしいつかは御自分でやらなければならないのですよ。
しかもひまわりすらできないというのか。

土日月と三日もあったのに何もせずにいるのが信じられん。
三日あればヘローワールドくらいはできただろうに。
課題が出たのはさらに前なんだろうな、きっと。

このスレは宿題をやるスレであって課題をするスレじゃないぞ

か‐だい〔クワ‐〕【課題】
１ 与える、または、与えられる題目や主題。
２ 解決しなければならない問題。果たすべき仕事。

しゅく‐だい【宿題】
１ 家庭でやってくるべきものとして教師が児童・生徒に課する、学習上の課題。
２ 解決が後日に持ち越された課題。

はいはいそうですねそうですね

レコードは，ほかの言語では構造体とも呼ばれ，複数の型を持つ要素の集合を表します。
すべてのアルバイトデータが、日付、学生氏名、その日の職種、 その日の労働時間　の4項目を持つものとする。

アルバイトデータは日付、学生氏名、その日の職種、 その日の労働時間をもつ構造体である
ってこういうことですか？
type
アルバイトデータ = record
日付: strings;
学生氏名: strings;
その日の職種: (r, p, i, c);
その日の労働時間: integer;
end;

ここで質問です。コンソールでやりなさいということでしょうか？

ソースを・・・きぼんぬ

ttp://www.otafuku.co.jp/

ソースソースうるせーよバカ

グーグルで調べても分からなかったのですが、指定したディレクトリの有無を
調べるような関数（または方法）はありますか？

定義
type
　elementtype = real;
　pointertype = ^celltype;
　celltype = record
　　element : elementtype;
　　next : pointertype
　end;
var
　header,q : pointertype;
　y : real;

絶対値に関して昇順に並ぶように線形リストにデータを挿入する

q := header;
while ( ( q^.next <> nil ) and ( abs( y ) >= abs( q^.next^.element ) ) ) do q := q^.next;
insert( y, q );

エラーが出るのですが原因が分かりません。
お願いします。

insert 関数の中身を書け

>>643
WindowsならWinApiを使えば

procedure insert(x:elementtype; var p:pointertype);
var tmp : pointertype;
begin
　tmp:=p;
　new(p);
　p^.element:=x;
　p^.next:=tmp
end;

こんな感じです

header が nil じゃん。

＞( ( q^.next <> nil ) and ( abs( y ) >= abs( q^.next^.element ) ) )
ここ駄目じゃね？

もうダメぽかも分からんね

じゃあしねぽ

おまえらあきらめたのかよ。

>>651
が実は
>>644
だったらどうする？

プログラムもいいが作業報告書もがんばろう、な！

がんばるよ！

出来たよ！

作業報告書もできたよ！このスレの皆さん本当にありがとう！！

できたやつなんてそういないから、だいたい誰かしぼれるけどな。

だめだ、ぜんぜんできない。

>>658
>>655-657・・・
1：別の大学に通う学生
2：>>654に合わせただけ
3：実は嘘

>>658
>>655-657は・・・
1：別の大学に通う学生
2：>>654に合わせただけ
3：実は嘘

遂に今日は課題期限の前日
さあ伸るか反るか。運命の時〜♪

大半は死亡決定！？

>>662
半ばやけくそだな

今夜は眠れない夜になりそうだな

眠れない夜は眠れない夢を

留年したほうが本人の為になる。
こう考えてくれ。
「常人より１年多く学べる」

>>667
余分に金かかる事を忘れずに

>>668
本人の為を思うならかけたほうが良い。

>>669
かけたくてもかけれないやつもいるんだぞ

>>669
国立ならそういう考えも起きるけどね

かけれなかったら頑張るしかないなｗ

たかだかこの程度の課題も出来ずに留年…
情報系の大学生のレベルってこんな程度なのか
まぁ就活で現実を直視させられるだろうな

同じ大学生でもＢＡＳＩＣコンパイラ作っちまう奴もいる。
宿題は御自分でやりなさいってことよのう。

授業のことを何も知らない>>673は黙ってろ

>>673
ヒント：先生の教え方

そんなの知ってるわけねーじゃんｗｗ

>>676
勉強は自分でするものだよ…(´･ω･｀)

>>676
ヒント：勉強に対する意欲と予習・復習

まだ始めて２ヶ月も経ってない俺達にどうしろと
まあその中でできてる奴らもいるんだけどね…

苦手意識を捨てなさい。

苦手意識はない
むしろ得意だった
しかし、急速に授業が進んでいって大したレクチャーも受けず
習うより慣れろってな感じでプログラム真似させられてわけもわからないまま
今に至る

家で勉強すると吉と出ました。

>>682
確かに。一度躓いたら一気に置いてけぼりにされるいい例だね

1 名前：デフォルトの名無しさん 04/07/13 20:55
教育用（？）プログラムPascalの宿題をやって頂くスレ

■全く分かってない阿呆も放置しないで優しく対応

>>678,679
復習はしてた。でもあの教えｋ（ｒｙ

>>683
正直コンパイラがどこにあるかとか誰も知らないと思うよ。
比較的見つかりやすいfpcじゃ大学で使ってるgpcとかなり違うし。
gpcは余計にどこにあるか分からないね。

さあ提出期限の日ですよ！
皆さん！準備はいいですかー！？

いいわけねーよwwwwwwﾊﾞｰﾛｰwwwwww

>>687
バッチコーイ！！！１

エラー箇所をC-kで削除してたら大事な部分まで消してしまった。
俺は泣いた、友達は吹いた。

>>690
C-_でUndoできるっしょ

>>691
そうだったんだ…。知りませんでした。どうもありがとう。
なんとか思い出して修正は完了してます。

今この寮で必死こいてプログラム書いてる奴何人いんだろ

たぶんそんなにいないんじゃね？
ここにもあきらめてるやついるし…

どっか別のBBSで協力し合ってればよくね？

ム、ムリだ

初心者です。
デルフィで宿題してるんですが、中かっこ｛｝を数字で割ることはできないんでしょうか?
こういう感じで→｛｝/2;中かっこの中には()を含む掛け算が入ってます。何回してもエラーになります

実数なら
a := ((b - 200) / 2) / 3;

整数なら
a := ((b - 200) div 2) div 3;

と、言う話？

>>686
fpcはフリーパスカルということか？
gpcはGNUパスカルならば俺にはわかる。（DEV-PASCALでぐぐると楽かもしれん）
あとDELPHI６PERSONALは無料である。

>>697
デルファイな

697です。とりあえずできました。
〉698
ありがとうございました
鶴亀算を作ってるんですが実数と整数ってどういうときに使い分けたらいいんですか?

小数が必要になった時に決まってるだろが

あれぐらいの課題でなんでこんなにスレが伸びてるんだ
ただ
入力　出力　テキストに書き込み　保存　読み込み　
をそれぞれcase文で作るだけだろが・・・

それすら出来ず、あげく自分の勉強不足を教師に責任転嫁する
ダメニンゲンズが何人か出没したからな

このスレの趣旨を理解してない馬鹿多すぎ
>■全く分かってない阿呆も放置しないで優しく対応
って書いてるのが読めないのか？
特に「これぐらい誰でも出来る課題じゃん」とか言ってる奴。
そんなに簡単なら教えてやれ。教える気が無いなら下らん発言すんな

アライグマパスカル。あげ。

>>705
向上心が全く無く、ただ丸投げのみを期待している人間に優しく対応しただけだ

>>705
全く分かってない阿呆に無視（放置）せずにやさしく自分で勉強するように進めた（対応）！ｗ

>>707,708
日本語すら理解出来んのか
もう一度小学校からやり直せ

>>702
�d!

>>709
小学校じゃ他人の宿題を全部やってあげることがやさしいことって教えてるのかｗｗ

真のやさしさというのは
本人の為に心を鬼にすることも必要なんだぜ

向上心ゼロの池沼にも教える気満々な偉い705と709は
下らん発言してないでさっさと答え書いてやれよ
まさか出来ないなんていうことは無いよな？
留年の腹いせに逆ギレしてるなんてことは勿論ないよな？

このスレは他人の宿題を奪い取り世の中のソフトウェア技術者を減らすためのスレですよ？

まあこんなところで宿題丸投げする奴はどの道単位落とすけどな。

>>714
ひじかた様（ＩＴどかた）の数が減ると困るぞ。

俺多分単位落とした（泣
心入れ替えて勉学に励みます…

>>716
誰が？

>>713
そいつらは質問者の自演だ

>>718
土方を送り込んで利ざやを稼いでいるだけの派遣会社

学校の課題で困っている所があるので、お願いします。
本当にどんな課題でもやっていただけるのでしょうか？

課題内容は、以下のようになってます。↓
「1-5*4+9/2」などのように１桁の整数の加減乗除算（除算はPASCALのdivと同じ）から
なる式がキーボードから入力されるとき、その計算結果（整数値になる）を表示するプログラム
ただし、必ず、以下の２段階の処理でポインタと再帰を用いて実現すること：
1.入力された式をポインタを用いたデータ構造（木と呼ばれる）で表現する。
2.1で生成したデータ構造を用いて、考えに基づいて再帰的な処理で式の値を求める。

program evalExpr(input,output);
const
OP_ADD='+';
OP_SUB='-':
OP_MULT='*';
OP_DIV='/';
type
tree = ^treeCell;
treeCell = record
data : integer;
op : (OP_ADD,OP_SUB,OP_MULT,OP_DIV);
lefy,right : tree
end

var
t : tree; a : array of char
b : integer;
function calc(root: tree):integer;
var
x,y : integer;
begin
if root^.left=nil and root^.right=nil then calc:=root^.data
else
begin
x:=calc(root^.left);
y:=calc(root^.right);
if root^.op=OP_ADD then calc:=x+y
else if root^.op=OP_SUB then calc:=x-y
else if root^.op=OP_MULT then calc:=x*y
else calc:=x div y
end
end;

begin
{ツリーを作る}

b:=calc(t);
writeln(b);
end.

と、ここまでは一応出来たのですが、
{ツリーを作る}の部分のプログラム文がどうしても分かりません。
どうか、完全なプログラム文で教えてください。
お願いします。

>>721
>>342

条件がそれだけじゃなんとも・・・
その今出来てるやつを使わないといけないのか？
加減乗除算だが-+*/を全部使うと式の入力を終了させるようにするのか？
ツリーは2つに分かれてるのを前提でするのか？
どんなパスカルを使ってるのか（俺のじゃnil使えんｗ）
あと;が:になってたりするからそれをコンパイルをしてないことはわかるｗ

課題の目的が、ポインタと再帰処理の理解となっているので、
そのPascalのソースプログラムでポインタと再帰を使っていれば
提出出来ると思います。

OP_SUB='-': ←これの事ですよね。プログラム文見返していたら
確かに、ここだけ;じゃないですね。あ〜怖いなと思いました。

すみませんが教えてください。
『3×3型の二つの行列A＝［ａij］，B＝［bij］を読み込み、積ABとBAを
求めるプログラムを作成せよ。また一般的にはABとBAが等しくならない
ことを確認せよ。』です

>>730
a : array of char

>>728
これを読んで分かる人もいると思うけど、
僕は読んでもまだ分からないので、お願いします。

あっ、a:array of char ←ここにも;忘れてますね。
やっぱり付けるんですか？

>>734
括弧(〜)の中を優先して計算する必要はあるの？

えっ？良く分からないのですが...。

っていうか、ＴＡが言ってそうな文句ですね。

>>736,737
それぞれ誰に対するレスだ？

>>735
有りますよ。そんなの

この人、そんなに答え返してくれてんの？

>>740
どの人だよｗ

丸投げでもいいと言ったもん。

会話をしようという気は無いのかｗ

プログラミング現場では、会話無いですよね。

どうなんのや？これっ。

やってみる!!

もう何がなにやらｗｗｗｗｗ

>>743
natt,
ないです。

自己解決しました！！
ありがとうございました。

会話？？

２ｃｈっ、嫌い。

自演かよｗ

ないです

>>752
なにこれ？

自演というと、困るコツ？

att,
戻れた。

>>749
まだ、事故解決してないよ。まだあ。

これじゃ教えてあげるやついないだろｗｗ

何か、聞けてますか？

私、死んだの？
私、

人が分からないのです。ほんとに。

>>758
本当なんですか？

もうネタ切れか

モノローグしてて楽しいか？

わからなくなりました。

こんな早く打てません。

おまえ >>342 だろ。
誰にも宿題やってもらえなくて
後期終了間近になって焦ってるんだろ。

おとなしくしてれば作ってやるから待ってろ

はっはい。

>>342
あっ、これや。

変な関西弁ですみません。甲陽出身です。

頑張ってね。

モノローグですか？

えっ逮捕!？

プログラム文ですｙo。

　

馬鹿にしないでください。
キチガイだったらパソコンとかプログラミングなんて出来ませんよ。

できてないおまえはそれだな

もうここまでくるとちょっとしたネタになってきたな

ネタ投下ｗ

program evalExpr(input, output);

const
OP_NIL = chr(0);
OP_SPC = ' ';
OP_TAB = chr(9);
OP_ADD = '+';
OP_SUB = '-';
OP_MULT = '*';
OP_DIV = '/';

type
tree = ^treeCell;
treeCell = record
op : char;
data : integer;
left, right : tree;
end;

function calc(root : tree) : integer;

var
lhs, rhs : integer;

begin
if (root^.left = nil) and (root^.right = nil) then
calc := root^.data
else
begin
lhs := calc(root^.left);
rhs := calc(root^.right);
if root^.op = OP_ADD then
calc := lhs + rhs
else if root^.op = OP_SUB then
calc := lhs - rhs
else if root^.op = OP_MULT then
calc := lhs * rhs
else if root^.op = OP_DIV then
calc := lhs div rhs
else
begin
writeln('Unexpected function. [', root^.op, ']');
end;
end;
end;

function viewtree(root : tree) : tree;

begin
if (root^.left = nil) and (root^.right = nil) then
write('(', root^.data, ')')
else
begin
write('L['); viewtree(root^.left); write(']');
write('R['); viewtree(root^.right); write(']');
write(root^.op);
end;
viewtree := root;
end;

function growth(op : char; data : integer; lhs, rhs : tree) : tree;

var
t : tree;

begin
if(lhs = nil) then
begin
new(t);
if(t = nil) then
begin
writeln('no memory.');
growth := nil;
{ break; }
end;
lhs := t;
lhs^.op := OP_NIL;
lhs^.data := data;
lhs^.left := nil;
lhs^.right := nil;
end;

new(t);
if(t = nil) then
begin
writeln('no memory.');
growth := nil;
{ break; }
end;
t^.op := op;
t^.data := 0;
t^.left := lhs;
t^.right := rhs;

growth := t;
end;

function maketree(a : string; p : integer) : tree;

var
t, s : tree;
b : integer;
c : char;
d : integer;

begin
t := nil;
d := 0;

for b := p to length(a) do
begin
c := a[b];
if((ord(c) >= ord('0')) and (ord(c) <= ord('9'))) then
d := ord(c) - ord('0') + d * 10
else if((c = OP_ADD) or (c = OP_SUB) or (c = OP_MULT) or (c = OP_DIV)) then
begin
t := growth(c, d, t, maketree(a, b + 1));
d := 0;
break;
end
else if((c = OP_SPC) or (c = OP_TAB)) then
{ skip }
else
begin
writeln('Illegal function. [', c, ']');
break;
end;
end;

キチガイの漏れが来ましたよ

new(s);
if(s = nil) then
begin
writeln('no memory.');
{ break; }
end;
s^.op := OP_NIL;
s^.data := d;
s^.left := nil;
s^.right := nil;
t := growth('+', 0, t, s);

maketree := t;
end;

var
t : tree;
a : string[255];
b : integer;