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

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

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

【本家】

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

【前スレ】

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

【関連スレ】

くだすれ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

2getズサー

3getズザー

スレの趣旨に反するだろ
バカかお前

>前スレ978

http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/1432.lzh
今見たら49行目にいらんFormatが付いてたから消しといて。

>5
ありがとうございます！！
Ｑ２を表示させるためにはどうしたらいいんですか？
すぐに実行画面が消えてしまいます。

>6
可能性1.コマンドプロンプト（通称DOS窓）が理解できていない。
可能性2.49行目をFormatだけで無く、全部消している。
まあ、想定内だが。

1.なら、コマンドプロンプトでググるか、以下の内容のテキストファイルを解凍したフォルダに作成して、Project1.batって名前に変更し、ダブルクリックするよろし。
Project1
pause.
2.なら元にもどしといて。

>7
2でした。
お陰で完了しました。ありがとうございます。
何だか自分でももう一度組んでみようという気になれました☆

うはwwwwwこんなスレあったのかwwwww

age

自然数 N が与えられたとき、
1 から N までの数字を N 個並べる組み合わせをすべて
列挙するプログラムは Pascal で書くとどうなりますか？

例えば N = 3 のとき
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
となるようにです。
よろしくおながいします。

for counter=1 to N do
begin
for counter=1 to N do
begin

end;
end;
まずこれが思い浮かんだ。

修正。

for 1 to N do
begin
for counter=1 to N do
begin

end;
end;

for i := 1 to N do
　for j := 1 to N do
　begin

　end;

だろ。

間違えた。

for counter1 := 1 to N do
begin
for counter2 := 1 to N do
begin

end;
end;

だった。

なにこのデジャヴ

はっ！！！人に見つかってしまった。

ここはアフォしかおらんのか

クオリティを求めるなら他言語スレ行ってください
CやJavaがお勧めです

>>18
うっさいボケ！自分もでけへんからひがんで荒らしてんのちゃうんか！
アホ↓↓

>>18
Pascal は教科書にしか出てこない研究用言語ですから
プロの実用に耐えません。
ここにいるのはアマチュア以下の人ばかりです。

今じゃPascal=Delphiみたいなもんだろ
objective-PascalとしてDelphiに上塗られて生きていくのさ

n個並べるなんて、階乗使って終わりだろ

>>23
個数がでるだけだろｗ

１〜ｎをn個並べるのには何通りあるかってnの階乗で終わりじゃないのか？
1〜nをｎ−1個並べるのには何通りあるかなら知らんけど
いや、nCn-1か

あぁ全部書き出すのか
忘れてくれwww

>>25,26
全部書き出されたかのチェックには良いかもしれない、と横からフォロー。

>21
本当のプログラマはPascalを使わない、ってのがあったな。
じゃあ何を使うのか? 21への宿題。

お前ら宿題やってやれｗ
誰もやらないから作ってみた↓

program test(input,output);
type
bb=array[1..100] of integer;
usee=array[1..100] of boolean;
var
b:bb;
use:usee;
n,i,p,count:integer;

begin
count:=0;
p:=0;
readln(n);
for i:=1 to n do
b[i]:=i;
for i:=1 to n do
use[i]:=false;
a(p,n,count,b,use);
end.

これに次のprocedureを付ければ多分使える↓

procedure a(p,x,count:integer;z:bb;m:usee);
var
i,l:integer;judge:boolean;
begin
count:=count+1;judge:=true;
for i:=1 to x do
begin
if m[i]=false then
begin
judge:=false;
end;end;
if judge=false then
begin
for i:=1 to x do
begin
if m[i]=false then
begin
z[count]:=i;
if count=x then
begin
for l:=1 to x do
write(z[l]);
end;
m[i]:=true;
a(i,x,count,z,m);
m[i]:=false;
end;end;end;
if count=x then
writeln;
end;

あと
>>Pascal は教科書にしか出てこない研究用言語ですから
>>プロの実用に耐えません。
>>ここにいるのはアマチュア以下の人ばかりです。
とか言ってるがpascalの宿題を書けなかったら
javaやC言語やdelhiでも書けるわけないだろｗ
結局はCUI仕様をGUI仕様にしただけだし

俺もpascalは使えるけどdelhiは無理。

よく分からないけどDelphiでグラフィックが動くプログラム誰か作ってくらはい。
線が移動しながら伸び縮むするとか、多角形とかダイヤみたいなマークが移動するだけのでもいいです。

>>33
必要としているのなら、必要としている人が作るのが一番。人に依頼する
のなら、それなりの対価としっかりした仕様書を出さないと相手にされない。

テスト墨。MaxNplus1はMaxNより1大きい数ね。TP懸かってるから、
標準Pにしてちょ。
Program Enjoy2chtest;
const MaxNplus1 = 5; MaxN = 4;
type
range = 1..MaxNplus1;
range0 = 0..MaxNplus1;
using = set of range;
var
data : array[range] of range0;
use : using;

procedure initialise;
var i : range;
begin
use := [];
for i := 1 to MaxNplus1 do data[i] := 0
end;

procedure display;
var i : range;
begin
for i := 1 to MaxN do write(data[i] : 4);
writeln
end;

これが都筑。部分反鋳型、習合型、再帰予備出といろいろ浸かってる。番兵定石もね。
procedure add(idx : range0);
var ii : range0;
begin
if idx = MaxNplus1 then display
else begin
while data[idx] < MaxNplus1 do begin
ii := data[idx];
repeat ii := succ(ii) until not (ii in use);
data[idx] := ii;
if ii < MaxNplus1 then begin
use := use + [ii];
add(succ(idx));
use := use - [ii]
end
end;
data[idx] := 0
end
end;

begin
initialise;
add(1)
end.

あ、これは>>11のχね。MaxN以下の任意の数に制限しても動作するけど、
その改造くらいはやってみよー

>28の宿題どうなった? >>21

まあ、永遠不滅の漢の言語だな、あれは。

initialise;
とinitialiseのprocedureなしでも作動した
あと>>11の宿題は>>29にもあるぞー

>initialise

sかよｗ

パスカルだからフランス語にしたんだろう。

>40
Que si?
普通の英語だおー

>39
処理系によっては、メモリ領域をOSから貰う時にゼロフィルするのがあるの。

すいません電卓のプログラミングの宿題が出ました
負数も扱えるようにしたいのですがどこに追加したらよろしいのでしょうか
下に与えられたものをすべて書きます
program calc(input, output);
var
NULLTOKEN: char; {文字がないことを表す文字コード}
CurrentToken: char; {現在処理中の字句}
result: integer; {値を評価した結果}
error: Boolean; {エラーが生じたことを示す論理型変数}

procedure GetToken; {字句があれば1字句読みこむ手続き}
var
ch: char;
begin
if eoln(input) then
CurrentToken := NULLTOKEN
else
begin
read(ch);
if ((ord('0') <= ord(ch)) and (ord(ch) <= ord('9')))
or (ch = '+') or (ch = '-') or (ch = '*') or (ch = '/')
or (ch = '(') or (ch = ')') then {読み込んだchが字句ならば,}
CurrentToken := ch {CurrentTokenにいれる.}
else
begin {そうでなければ, エラー.}
error := TRUE;
writeln('Not a token.')
end
end
end;

program calc(input, output);
var
NULLTOKEN: char; {文字がないことを表す文字コード}
CurrentToken: char; {現在処理中の字句}
result: integer; {値を評価した結果}
error: Boolean; {エラーが生じたことを示す論理型変数}

procedure GetToken; {字句があれば1字句読みこむ手続き}
var
ch: char;
begin
if eoln(input) then
CurrentToken := NULLTOKEN
else
begin
read(ch);
if ((ord('0') <= ord(ch)) and (ord(ch) <= ord('9')))
or (ch = '+') or (ch = '-') or (ch = '*') or (ch = '/')
or (ch = '(') or (ch = ')') then {読み込んだchが字句ならば,}
CurrentToken := ch {CurrentTokenにいれる.}
else
begin {そうでなければ, エラー.}
error := TRUE;
writeln('Not a token.')
end
end
end;
;

function expr: integer; {<式>を評価する関数}
var value: integer;
function term: integer; {<項>を評価する関数}
var value: integer;
function factor: integer; {<因子>を評価する関数}
var value: integer;
function digit: integer; {<数字>を評価する関数}
begin
if (ord('0') <= ord(CurrentToken)) and (ord(CurrentToken) <= ord('9'))
then {CurrentTokenが<数字>ならば,}
begin {その<数字>の順序数 - `0'の順序数}
digit := ord(CurrentToken) - ord('0');
GetToken {を, その数字の評価値とする.}
end
else {そうでなければ, エラー.}
begin
error := TRUE;
writeln('Error at digit.')
end
end;

begin {factor}
if CurrentToken = '(' then { <因子> が ( で始まるならば, }
begin
GetToken;
factor := expr; {それ以降を <式>として評価し,}
if CurrentToken = ')' then {その後に ) があることを確認する.}
GetToken
else { )がなければ, エラー.}
begin
error := TRUE;
writeln('Error at factor.')
end
end
else { <因子> が ( で始まらないならば,}
factor := digit { その因子は<数字>として評価.}
end;
begin {term}
value := factor; { <項> のはじめにあるはずの<因子>を評価する.}
while (CurrentToken = '*') or (CurrentToken = '/') do {その後, <乗除演算子>が}
case CurrentToken of {あるかぎり,<乗除演算子><因子>の繰り返し}
'*':
begin {として評価する.}
GetToken;
value := value * factor
end;
'/':
begin
GetToken;
value := value div factor
end end; term := value end;

begin {expr}
value := term; { <式> のはじめにあるはずの<項>を評価する.}
while (CurrentToken = '+') or (CurrentToken = '-') do {その後, <加減演算子>が }
case CurrentToken of {あるかぎり, <加減演算子><項>の繰り返し}
'+':
begin {として評価する.}
GetToken;
value := value + term
end;
'-':
begin
GetToken;
value := value - term
end end; expr := value　end;

begin {main}
{初期化}
{定数}
NULLTOKEN := chr(0); {字句がないことを表す文字コード.}
{大域変数}
error := FALSE;
CurrentToken := NULLTOKEN;
{評価}
GetToken; {最初の字句があれば, 読み込む.}
if CurrentToken = NULLTOKEN
then
writeln('Nothing input.')
else
begin
result := expr; {字句の列を <式> として評価する.}
if not error
then {エラーが起きていなければ結果を表示する.}
writeln(result)
else
writeln('Error occured.')
end
end.

とりあえず
GetTokenの
if ((ord('0') <= ord(ch)) and (ord(ch) <= ord('9')))
or (ch = '+') or (ch = '-') or (ch = '*') or (ch = '/')
or (ch = '(') or (ch = ')') then
でマイナスの場合はエラーを出すようになってるからそこをマイナスでもいけるようにすればいい

その場合charだと一文字しか入らないから-1とかだと2文字を入れることになる

このプログラムの場合2桁の数字をいれてもエラーがでるな

すいません４５のところ間違ってました。訂正します。
function expr: integer; {<式>を評価する関数}
var value: integer;
function term: integer; {<項>を評価する関数}
var value: integer;
function factor: integer; {<因子>を評価する関数}
var value: integer;
function constant:integer;
var value:integer;
function digit: integer; {<数字>を評価する関数}
begin{digit}
if (ord('0') <= ord(CurrentToken)) and (ord(CurrentToken) <= ord('9'))
then {CurrentTokenが<数字>ならば,}
begin {その<数字>の順序数 - `0'の順序数}
digit := ord(CurrentToken) - ord('0');
GetToken {を, その数字の評価値とする.}
end
else {そうでなければ, エラー.}
begin
error := TRUE;
writeln('Error at digit.')
end
end;
begin{consstant}
value:=digit;
while (ord('0') <= ord(CurrentToken))
and (ord(CurrentToken) <= ord('9')) do
begin
value:=value*10+digit;
end;
constant:=value;
end;

46も訂正しました。これなら2桁以上扱えるはずです。
マイナスは '-'ではいけないのでしょうか？
begin {factor}
if CurrentToken = '(' then { <因子> が ( で始まるならば, }
begin
GetToken;
factor := expr; {それ以降を <式>として評価し,}
if CurrentToken = ')' then {その後に ) があることを確認する.}
GetToken
else { )がなければ, エラー.}
begin
error := TRUE;
writeln('Error at factor.')
end
end
else { <因子> が ( で始まらないならば,}
factor := constant { その因子は<定数>として評価.}
end;

これじゃ駄目？

function constant:integer;
var value:integer;
　minus: boolean;

　function digit: integer;
　begin{digit}
　　…
　end;
begin
　minus := CurrentToken='-';
　if minus then GetToken;
　value:=digit;
　while (ord('0') <= ord(CurrentToken)) and (ord(CurrentToken) <= ord('9')) do value:=value*10+digit;
　if minus then constant := -value else constant := value;
end;

たぶんできると思います。
学校じゃないとできないんで月曜日試してみます。
ありがとうございました。

二つの変数の値を交換する手続きを作成する。
２数を変数渡しにしたswap１(var a,b:real)
２数を値渡しにしたswap２(a,b:real)
簡単ですよね。

簡単ですね。

簡単すぎてヘドが出ますね。

値渡しはわかるが変数渡しはわからないな。
まあ俺も始めたばかりのど素人だけどな。

>>57
５分勉強してください＾＾

値渡しでは交換のしようがないと思うのだが。

練習なんだからいいんだろ

z:=a;
a:=b;
b:=z;
これでいいか？ｗ

わかりました。ありがとうございます。

デルフィです。正多角形の頂点をすべて結んでダイアモンドパターンを描くプログラムらしいんですが、動きません。
どうやったら動きますか。修正していただけるとうれしいです。


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const max=50;
procedure line(x1,y1,x2,y2:integer);
begin canvas.MoveTo(x1,y1);canvas.lineTo(x2,y2) end;
procedure dia(x0,y0,r,n:integer)
var xs,ys:integer;{始点}
xe,ye:integer;{終点}
i,j:integer; {ループ変数}
t:real; {角度}
begin
t:=2*pi/n;
for i:=1 to n-1 do begin
xs := x0 + round(r*cos(t*i));
ys := y0 + round(r*sin(t*i));
for j:=i+1 to n do begin
xe := x0 + round(r*cos(t+j));
ye := y0 + round(r*sin(t+j));
line(xs,ys,xe,ye)
end
end
end;
begin
dia(300,20,70,11)
end;

>>63
xe := x0 + round(r*cos(t+j));
ye := y0 + round(r*sin(t+j));
ではなく
xe := x0 + round(r*cos(t*j));
ye := y0 + round(r*sin(t*j));
じゃね？

>>65
ありがとうございます。教科書を再確認したらちょうどそこで間違えてました。

だけど、いまだにvarの直後にカーソルが来てエラーが出るんですが
どこがまだ間違ってるとおもいますか？

＞[エラー]Unit1.pas(31):';'が必要な場所に’VAR’があります
＞[エラー]Unit1.pas(51):宣言が必要な場所にファイルの末尾があります
＞[致命的エラー]Project2.dpr(5):'Unit1.pas'ユニットはコンパイルできませんでした

って言うエラーメッセージが出てきます

procedure dia(x0,y0,r,n:integer) ;←

>>67
ありがとうございます！
こんな簡単なことでつまづいてたなんて恥ずかしいです。

パスカルの宿題がわかりません。どうやってつくったらいいかも…

こっちに誘導されてきました…↓下記にカキコあります↓
http://pc8.2ch.net/test/read.cgi/tech/1135866929/965-

お願いします

>>69
まずは平均点を求めるための式を考えてみましょう

なんかバカにしてるみたいなこと書いてしまったけど、
レスくれたらちゃんと答えに導くつもりなので

Score :array[0..1000] of integer;　
begin
writeln('入力得点の平均と偏差値を計算します'); writeln('入力後、負の数を入力すると…終了します。');
kazu :=0;
repeat
write('点数は？'); readln(data);
if data >= 0 then
begin　
kazu := kazu + 1; score[kazu] := data
end;
until data < 0;
goukei := 0;
for i := 1 to kazu do　
goukei := goukei + score[i];heikin :=goukei / kazu; goukei :=0;
for i := 1 to kazu do
goukei := goukei + Sqr(score[i]);hensa := sqrt(goukei /kazu - sqr(heikin));
writeln('点数　　偏差値');
for i := 1 to kazu do
writeln(score[i]:4, 50 +10 * (score[i]-heikin)/ hensa:10:1);
writeln(' 平 均 ＝',heikin:5:1);　 writeln('標準偏差＝',hensa:5:1);
readln;
end.
・・・こ、このプログラミングは・・・！！！直すとこ多すぎて説明めんどい・・・！！！！！！
とりあえず、for文でもif文でもuntilでもいいんだけど、for 〜　do とかのあとが２行以上になる場合は必ずbegin
をつけろ。あと、３科目データが入力されてない。最後のreadlnもwritelnの間違い。
そこも直せ。話はそれからだ

教科書のプログラミングをそのまま書いたのですが…
三科目のデータを入力する言葉?がわかりません。

var
Score :array[0..1000] of integer; i, kazu, data : integer; goukei, heikin, hensa : real;
begin
writeln('入力得点の平均と偏差値を計算します');
writeln('入力後、負の数を入力すると…終了します。');
kazu :=0;
repeat
write('点数は？');
readln(data);
if data >= 0 then
begin
kazu := kazu + 1;
score[kazu] := data
end
until data < 0;
goukei := 0;
for i := 1 to kazu do
goukei := goukei + score[i];
heikin :=goukei / kazu;

goukei :=0;
for i := 1 to kazu do
goukei := goukei + Sqr(score[i]);
hensa := sqrt(goukei /kazu - sqr(heikin));
writeln('点数　　偏差値');
for i := 1 to kazu do
writeln(score[i]:4, 50 +10 * (score[i]-heikin)/ hensa:10:1);
writeln(' 平 均 ＝',heikin:5:1);
writeln('標準偏差＝',hensa:5:1);
readln;
end.

秋学期試験前に難しい宿題出て四苦八苦してます

ひとりの３教科の点数を一度にくれてやったらだめなのか

const
  kyouka = 3;
  Kazu = 10;
  kyoukaNames: Array[0..(kyouka-1)] of String = ('国語', '理科', '数学');
var
  ScoreArray: Array[0..(Kazu-1), 0..(kyouka-1)] of Integer;
  i, j, Sum1: Integer;
  Sum2: Extended;
begin
  writeln('入力得点の合計と教科ごとの平均を計算します');

  for i := 0 to (Kazu-1) do
  begin
    writeln(Format('%d人目の得点を入力してください', [i+1]));
    readln(ScoreArray[i, 0], ScoreArray[i, 1], ScoreArray[i, 2]);
    Sum1 := ScoreArray[i, 0]+ScoreArray[i, 1]+ScoreArray[i, 2];
    writeln(Format('%d人目の合計点は%d', [i+1, Sum1]));
  end;

  for j := 0 to (kyouka-1) do
  begin
    Sum2 := 0;
    writeln(KyoukaNames[j]+'の平均は');
    for i := 0 to (Kazu-1) do Sum2 := Sum2+ScoreArray[i, j];
    Sum2 := Sum2 / Kazu;
    writeln(Format('%.4f点です', [Sum2]));
  end;

  readln;
end.

回答ありがとうございます。
constって習っていません
formatがDelphi６では未定義となります。
これだと終了しないのでは？。。

>>76
const は定数で、リードオンリー。
format が未定義と出るのは、uses に SysUtils ユニットが入ってないからと思われ。

返答ありがとうございます。

formatと%dの意味がわかりません。
もしn人目の三科目の平均を表示するなら下記でよろしいですか？
writeln(Format('%d人目の得点を入力してください', [i+1]));
readln(ScoreArray[i, 0], ScoreArray[i, 1], ScoreArray[i, 2]);
Sum1 := ScoreArray[i, 0]+ScoreArray[i, 1]+ScoreArray[i, 2];
　　heikin= sum1/3;
writeln(Format('%d人目の合計点は%d点', [i+1, Sum1]));
writeln(Format('%d人目の平均点は%d点',[i+1,heikin]));
end;

%.4fとはどういう意味ですか？
小数点以下が４桁も表示されるので表示しないようにしたいのですが…

'%.4f点です', [Sum2]));

ヘルプを見ずに質問するのがこのスレの流儀です。

むしろヘルプをみるとすぐに答えが分かってしまうため、ヘルプを見るのは御法度です。

>>79-80ヘルプに載っていたのですね。安易に質問してすいません。
もしn人目の三科目の平均を表示するなら下記でよろしいですか？
writeln(Format('%d人目の得点を入力してください', [i+1]));
readln(ScoreArray[i, 0], ScoreArray[i, 1], ScoreArray[i, 2]);
Sum1 := ScoreArray[i, 0]+ScoreArray[i, 1]+ScoreArray[i, 2];
　　heikin= sum1　/　3;
writeln(Format('%d人目の合計点は%d点', [i+1, Sum1]));
writeln(Format('%d人目の平均点は%d点',[i+1,heikin]));

>>78
わかんないんならムリに Format を使う必要ないだろう
ただ単に文字列の体裁を整えているだけなので、これは IntToStr 等に置き換えられる。

writeln(IntToStr(i+1)+'人目の合計点は'+IntToStr(Sum1)+'点'); 

>>81
n人目なら i じゃなくて n だけどな
小数点以下を必要としないときは３で割る部分を

var
  heikin: Integer;  //整数型で充分
begin
  heikin := Sum1 div 3;

などとする。こうすると整数の割り算になるから小数点以下は捨てられる。
こういう総論的なことは教科書が手元にあるんだったら載ってるはずだから確認してみれ
つか試験とか大丈夫なのか？

>>82返答ありがとうございます。できました！
大学秋試験は大丈夫ですよ〜ノートとかきっちりとってますので。。。
ありがとうございました。

>>82
> writeln(IntToStr(i+1)+'人目の合計点は'+IntToStr(Sum1)+'点');
何故
　　writeln(i+1, '人目の合計点は', Sum1, '点');
と書かないの？

>>84
えーだってこっちのほうが分かりいいと思って
引数の数が不定のFormatがわかんないっていうし

「フィボナッチ数列を生成するプログラムを、再帰呼び出しを使って作成したい。数列の長さを入力させ、その長さの結果を出力するように、プログラムしなさい。
フィボナッチ数列は、1 , 1 , 2 , 3 , 5 , 8 , 13 , 21 , … のような数列である。」
という問題です。
私は以下のようなプログラムを作りました。いちおう実行できるのですが、もっと簡潔な美しいプログラムが書けるのでしたら教えてくださると助かります。
よろしくお願いします。

program fibonacci(input,output);

var i,n : integer;

function fibonacci(n : integer):integer;

begin
if n>=3 then
begin
fibonacci:=fibonacci(n-1)+fibonacci(n-2)
end
else
begin
fibonacci:=1
end
end; { fibonacci }

begin
writeln('数列の長さを入力してください');
readln(n);
for i:=1 to n do
begin
write(fibonacci(i):3,', ')
end;
writeln;
end.

連続ですいません。こちらもよろしくお願いします。
「2個の整数値の最大公約数を計算するアルゴリズムを使って、n個の整数値を入力し、それらの最大公約数を出力するプログラムを
再帰呼び出しの形式で作れ。ただし、入力は最大10個までとし、値を0読み込む前までの正の整数を入力値とする。」
という問題です。
再帰呼び出しを使わないプログラムは以下のように書けたのですが、これをどう変換すればいいのかがわからなくて、、、orz

program gcd(input,output);

var p,q,n : integer;

function gcd(a,b: integer ):integer;

var tmp : integer ;

begin
if a < b then
begin
tmp := b ;
b := a;
a := tmp;
end;
repeat
tmp := b;
b := a mod b ;
a := tmp ;
until b = 0 ;
gcd := a;
end { gcd };

87のつづき


begin
n:=1;
repeat
writeln('整数値を入力してください。(',n:2,'回目)');
readln(q);
if (q > 0 ) then
begin
if ( n = 1 ) then
p:=q
else
p:=gcd(p,q);
n:=n+1;
end;
until ( n > 10 ) or ( q = 0 );
writeln('最大公約数は',p,'です。') ;
end.

Program fibonacci(input,output);
var i,n : integer;

function fibonacci(n : integer):integer;
begin
if n>=3 then fibonacci:=fibonacci(n-1)+fibonacci(n-2)
else fibonacci:=1
end; { fibonacci }

begin
writeln('数列の長さを入力してください');
readln(n);
for i:=1 to n do write(fibonacci(i):3,', ');
writeln
end.

複文を変えた程度で、ほとんどいじる所がない。
誰でも同じように書ける言語つーのがPascalつーか?hぃると先生の流儀。

>87
AとBとCとのGCDは
(AとBとのGCD)とCとのGCD、って発想かと。
末尾再帰になりそうだから、ループに展開するのが普通じゃないかな。
（書いてみてないのでぼそっと）

function gcd(a, b: integer): integer;
begin
　if b = 0 then gcd := a
　else gcd := gcd(b, a mod b)
end;

program gcd(input, output);

var
i,x,answer : integer;

function gcd(a,b : integer):integer;

begin
if b=0 then gcd:=a
else gcd:=gcd(b,a mod b)
end; { gcd }

begin
i:=1;
repeat
writeln(i:2,'番目の値を入力');
readln(x);
if x>0 then
begin
if i=1 then
answer:=x
else
begin
answer:=gcd(answer,x);
i:=i+1
end;
end;
until (i>10) or (x=0);
writeln('最大公約数は',answer:3);
end.

（上のつづき）としたら、実行結果が

1番目の値を入力
10
1番目の値を入力
20
1番目の値を入力
30
1番目の値を入力
40
1番目の値を入力
50
1番目の値を入力
60
1番目の値を入力
70
1番目の値を入力
80
1番目の値を入力
0
最大公約数は 80

･･･orz

64の図形をウィンドウの端まで行くと、入射角＝反射角で跳ね返る
っていうのを繰り返すように組むことってできますか？
例えばボタン１で図形が現われて、ボタン２で上記の動きを始めるみたいな・・・

3桁の整数を入力し、その英語読みを出力するようなプログラム
ってどう書くんですかまったくわかりませんorz

>>95
超適当だけど
program f(input, output);
var v: Integer;
procedure writeOne(d: Integer);
begin
　case d of
　　0: begin end; 1: write('one'); 2: write('two');
　　3: write('three'); 4: write('four'); 5: write('five');
　　6: write('six'); 7: write('seven'); 8: write('eight');
　　9: write('nine'); 10: write('ten'); 11: write('eleven');
　　12: write('twelve'); 13: write('thirteen'); 14: write('fourteen');
　　15: write('fifteen'); 16: write('sixteen'); 17: write('seventeen');
　　18: write('eighteen'); 19: write('nineteen');
　end;
end;
begin
　readln(v);
　if v=0 then write('zero');
　if v>=100 then begin
　　writeOne(v div 100); write(' hundred ');
　　v := v mod 100;
　end;
　if v>=20 then begin
　　case v div 10 of
　　　2: write('twenty '); 3: write('thirty '); 4: write('forty '); 5: write('fifty ');
　　　6: write('sixty '); 7: write('seventy '); 8: write('eighty '); 9: write('ninety ');
　　end;
　　v := v mod 10;
　end;
　writeOne(v); writeln;
end.

>>95
とりあえず作ってみた。

http://www.uploda.org/uporg299109.lzh.html
pass:pascal

>>97
自己レス。

　TOneToNine = 0..9;　←型名と範囲がずれているけど、細かいことは気にしてはいけない
　TTwoTo99 = 0..99;　←型名と範囲がずれているのは、直すのを忘れたから

・DelphiとFreePascalでコンパイルできると思う。
・できたプログラムを実行すると、プログラムと同じディレクトリにある
　"hoeee.txt"を上書きしてしまう。ソースを読めばわかるだろうけど、一応注意ってことで。

>>95, >>96
ありがとうございます！！(感涙)
>>87のほうも是非お願いします！！

100

>>99
program g(input, output);

var
i,x,answer : integer;
function gcd(a,b : integer):integer;
begin
if b=0 then gcd:=a
else gcd:=gcd(b,a mod b)
end; { gcd }

begin
i:=1;
repeat
writeln(i:2,'番目の値を入力');
readln(x);
if x>0 then
begin
if i=1 then
answer:=x
else
answer:=gcd(answer,x);
i:=i+1
end;
until (i>10) or (x=0);
writeln('最大公約数は',answer:3);
readln;
end.

>>101
禿しくサンクスです！！
ありがたく拝見させていただいて学習します。

お、こんなとこで同級生ﾊｹｰﾝ。
ガンガレ。

＞PASCALの宿題は俺にやらせろ！！
やらせはせんよ！

入力された値を大きい順に並べて出力するプログラムのつもりで作りました。
０で入力停止のはずなのに止まらないし、なんか変な結果が出ます。
どこに問題があるのでしょうか？？

program k(input,output);
var count,x,i : integer;
data : array[1..100]of integer;
procedure swap(a,b : integer);
var tmp : integer;
begin
readln(a,b);
if a<b then
begin
tmp:=a;
a:=b;
b:=tmp
end;
end; { swap }

105つづき

begin
count:=0;
readln(x);
while x<>0 do
begin
count:=count+1;
data[count]:=x;
for i:=(count-1) downto 1 do
begin
swap(data[i],data[i+1])
end;
readln(x);
end;
for i:=1 to count do
begin
writeln(data[i])
end;
end.

>>105
procedure swap(var a, b: integer); (* var で書き換え可能にする *)
var
　tmp : integer;
begin
(*　readln(a,b); これは必要ない *)
　if a<b then
　　：
　　：

５次元のベクトル A と B のデータを読み込み、それらの和ベクトル C とそれらの内積の値 D を求めて出力するプログラムを作れ。
ベクトルの要素のデータ型は、整数、実数のどちらかに統一しなさい。データはキーボードから読み込むものとする。また、 writeln を用いて、データの型、入力のさせ方をメッセージの形で記述せよ。


これお願いします。
なんか俺プログラミングの教材読んでもとりあえず理解できたけど問題出されると解けないんですが、これってもうそっち方面の考える力がないんですかねえ。
他の理系科目は普通にこなせるんですが、離散もできないし。
数こなせば出来るようになんの？

ベクトルと内積というのがよくわからん・・・
数学的問題は基本的に苦手だが
とりあえず5次元だから
Data:array[1..n][1..n][1..n][1..n][1..n] of real;
型ってことか・・・？（笑）
AとB読み込んでA+BをCに入れて内積の計算 |a|*|b|*cosθ をDに入れて出力するだけなら
Data:array[1..4] of real;
でいいと思う

writeln('Aの入力');
readln(Data[1]);
writen('Bの入力');
readln(Data[2]):
Data[3]:=Data[1]+Data[2];
Data[4]:=ABS(Data[1])*ABS(Data[2])*COS(θ）;
writeln('和ベクトル',Data[3]);
writeln('内積の値',Data[4]);

みたいな感じかな・・？
数学得意じゃないのでいまいちわからんからあとはがんばれ

>>108
とりあえず作ってみた。
http://www.uploda.org/uporg304927.lzh.html

・入力のエラーチェックはしていない。
・ FiveVector1→A
　FiveVector2→B
　FiveVectorSum→C
　hoeee→D
という対応になってるんで、必要ならテキスト置換でも使って変換してくだちい。

111

>>107
ありがとうございます。ご指摘の通り直したら動きました。
ところで
procedure swap(var a, b: integer); (* var で書き換え可能にする *)
とありますが、varをつけるとプログラム本文のところで別の文字を使って使える
ということですか？
なんか実引数とか仮引数とかがわかってないことを見せつける質問ですいませんorz

ハローパスカル始めることにしたから、よろしく。

>>112
program none(output);
var a,b:integer;
procedure add(var a,b:integer);
begin
a := a + 1;
b := a + 2;
end;

begin
a:=2;
b:=3;
add(a,b);
writeln(a,b:2);
end.

ってしたら最終的にaが3で、bが5になってる。
procedure add(a,b:integer);
だったらadd(a,b)が実行されても値は変化しない。つまりaが2で、bが3。

それにしても暇だ。
大学一年生にもできそうでちょっと難しいような宿題が投下されないだろうか。

>115
じゃあCASLのアセンブラと仮装機械w

�d
最初見たとき言葉遣いとhoeeeにうけましたｗ

>>116
調子こいてました（＞＜

でも単純に機械語に翻訳するだけならなんとかなるのだろうか。
そこからプログラムを動かすってのが明らかに不可能です
本当にありがとうございました。

みんなのところもポインタで逆ポーランドの電卓つくるのがゴールかな？

>>119
は？バカ？

>>119
え？このスレってそんなレベル？

逆ポーランドってなんだ？

あっはっはっはｗ

逆ポーランドなつかすいな。
HPの電卓もかっこよかたな。

1 ENTER 2 + 3 * 4 - ....

ポインタをつかって逆ポーランドの電卓をつくってください。
識者の方どうかおねがいします（＞＜）

電卓って？標準入力で入力していいのか？

手抜きで標準入力、文字列から数への変換も手抜きだ。
TP互換環境なら走るだろう。その壱

Program Enjoy2chCalc;
const MaxNplus1 = 5; MaxN = 4;
type
pstack = ^stackitem;
stackitem = record
data : real;
next : pstack
end;
var
stack : pstack;
s : string;
r : real;
i : longint;
toend : boolean;

procedure push(r : real);
var s : pstack;
begin
new(s);
s^.data := r;
s^.next := stack;
stack := s
end;

procedure pop(var r : real);
var s : pstack;
begin
if stack <> nil then begin
s := stack;
r := s^.data;
stack := s^.next;
dispose(s)
end else
writeln('Stack underrun.')
end;

procedure calc(opr : char);
var r1, r2 : real;
begin
pop(r2);
pop(r1);
case opr of
'+' : r2 := r1 + r2;
'-' : r2 := r1 - r2;
'*' : r2 := r1 * r2;
'/' : r2 := r1 / r2
end;
push(r2)
end;

procedure disp;
begin
if stack<>nil then writeln('>>', stack^.data)
else writeln('Stack underrun.')
end;

procedure initstack;
begin
new(stack);
stack^.data := 0;
stack^.next := nil
end;

procedure allclear;
var s : pstack;
begin
while stack<>nil do begin
s := stack.next;
dispose(stack);
stack := s
end;
initstack
end;

begin
initstack;
toend := false;
repeat
disp;
write('ENTER Number, +-*/, q-quit, c-clear, a-AC : '); readln(s);
if (length(s) = 1) and (s[1] in ['+','-','*','/','q','c','a']) then
case s[1] of
'+','-','*','/' : calc(s[1]);
'c' : pop(r);
'a' : allclear;
'q' : toend := true
end
else begin
val(s, r, i);
push(r)
end
until toend;
allclear;
dispose(stack)
end.

1
2
+
3
4
+
*
...
って感じに入力していくと逆ポな計算機になるよ。
スタックを線形リストで表現してるのが一応演習課題に則ってる。

本当なら、文字列→数の変換もスタックを使うんだが、めんどい。
そこまですると、電卓の+/-キー（符号反転キー）が二項演算子の-キーと
分かれている理由がよく理解できる。

procedure allclear;
var s : pstack;
begin
while stack<>nil do begin
s := stack.next;
dispose(stack);
stack := s
end;
initstack
end;


s := stack.next;
じゃなくて

s := stack^.next;
じゃない？

いけねえ、最初のconstは見なかった事にしてくれ。
前回投稿した消し残りだw

>132
その通りだけど、何でコンパイルできたんだろうw
拡張構文なのかコンパイラのバグかww

めちゃくちゃ初心者なのですが・・・。
問題聞いてもらってもよろしいでしょうか？

一応問題を書かせて頂きます。

1 一方向リストの中のp番目とNEXT(p)番目の位置の要素を交換するプログラムを
手続きを用いて書け。
関数NEXTの定義：リストLで位置pの直後の位置を返す関数
とありますが、NEXTという関数はPascalに標準であるのでしょうか？
私の使っているCPad for free pascalだとないと言われるのですが・・。

無いんじゃない？

>>137　ですよね・・。
ということは、自分でNEXT関数を自分で定義しろということですか？

いや、俺もそんな詳しくないけど聞いたことはないよね。
一方向リストってどういう構造なん？
ポインタで繋いでるなら別段難しいことはないと思うんだけど。

>>139
ポインタを使ったリスト構造のことだと思います。

type
list = ^listcell
listcell = record
e : element;
point : listCell;
end;

var
p : list;

みたいな感じに定義してlistcell型の要素が繋がってるんなら、たとえばp^.pointが
pの要素の次の位置を指しているんじゃないの？
なんだかいまいち俺には分からないんだ。
問題を全部書いてくれれば分かるかもしれない。
あれで全部？

双方向じゃないやつだな＜一方向

えっと、あれで全部です・・・。
e:elementってelementってどういう変数か知りませんが、要素って
名前とかじゃだめですかね？

type
list=^listcell
listcell=record
name:string[10];
id:integer;
pointer:list
end;

var init,current:list;
datname,datid:string[10];

こんな感じでもいいかな？

>>142
じゃあ、ポインタとはまた違うものだってことでしょうか？
まったく習っていないのでわかりません。

type
list=^listcell
listcell=record
name:string[10];
id:integer;
pointer:list
end;

var init,current:list;
datname:string[10];
datid:integer;

に訂正

そっから

new(init);
new(current);
init^pointer := current;

みたいな感じで繋げていくんだよな？
そのあと値を入れていったとする。

>1 一方向リストの中のp番目とNEXT(p)番目の位置の要素を交換するプログラムを
>手続きを用いて書け。
>関数NEXTの定義：リストLで位置pの直後の位置を返す関数

ってことだけど、例えばp=１番目の直後の位置ってのはこの例でいくと
init^.pointerが指してるもののことじゃないの？
あと交換するだけなら要素の内容をレコード型変数かなにかに一旦格納して
入れ替えればいいんじゃないかと思うんだけど、どのあたりを俺は勘違いしているのか。

>>146
> そっから
> new(init);
> new(current);
> init^pointer := current;
> みたいな感じで繋げていくんだよな？
> そのあと値を入れていったとする。
この部分はわかります。

next関数に関してですが、p=1の場合と最後の時、それから途中の場合で
場合わけしなければいけないと思うのですが、
入れ替える位置というのが名前とか、idだとできると思うんですがこの問題の場合
p番目といわれるとわかりません・・・。

あ、while current^.pointer <> nil do begin
でまわしてるときに、
n:=n+1していけばいいのかな？

n := n + 1;
でいいだろうね。
それとnext関数を最初と最後で場合わけしないといけないってことだけど、
最初と最後になにも入ってないダミーセルを配置しておけば例外処理を
行わなくてもできるんじゃない？
つまり実際に値を格納しておくものよりも二つぶん多めにnewしとく。

>>149
ダミーセルをつくるのはたぶんだめっていわれます。

とりあえず、リストの作成と書き出しをやってみましたが、終了条件を'end'にしているのに
endで終わらない・・・。

var init,current:list;
datname:string[10];
datid:integer;

begin
new(init);
current:=init;
write('名前を入力してください'); readln(datname);
write('IDを入力してください'); readln(datid);
while datname <> 'end' do begin
current^.name:=datname;
current^.id:=datid;
new(current^.pointer);
current:=current^.pointer;
write('名前を入力してください:　'); readln(datname);
write('IDを入力してください：　'); readln(datid);
end;
current^.pointer:=nil;
{リストの書き出し}
current:=init;
while current^.pointer <> nil do begin
write(current^.name,' ',current^.id);
current:=current^.pointer
end;
writeln
end.

なんかいろいろセミコロンが抜けてるように見えるんだけど

直りました。


var init,current:list;
datname:string[20];
datid:integer;

begin
new(init);
current:=init;
write('名前を入力してください：　'); readln(datname);
current^.name:=datname;
while datname <> 'end' do begin
write('IDを入力してください：　'); readln(datid);
current^.id:=datid;
new(current^.pointer);
current:=current^.pointer;
write('名前を入力してください:　'); readln(datname);
current^.name:=datname
end;
current^.pointer:=nil;
{リストの書き出し}
current:=init;
while current^.pointer <> nil do begin
write(current^.name,' ',current^.id,' ');
current:=current^.pointer
end;
writeln
end.

問題はここからですね。入れ替える位置pを入力して、p番目の要素とp番目の次の
要素を入れ替えなさい。

できない・・・。currentの前を指すpreviousを用意して
currentとpreviousのpointerを入れ替えればできるか思ったのですが
無限ループになってしまいます。
削除と挿入ならできるのに・・。

この手の課題でリストの頭と尻尾にダミーをいれておいて、
必ず3個以上の要素が存在するようにするのは
極普通のプログラミングテクニックで、やらないほうが変だと思うが…

「次」を示すフィールドがnextだとするね。
p-1番目の要素を見つける所から始める。
これはwhile文で頭から律儀に数えるしかない。

その上で、

ppred ← p-1番目の要素を指すポインタ
pp:=ppred^.next ← p番目の要素を指すポインタ
psucc:=pp^.next ← p+1番目の要素を指すポインタ

をまずやっとく。

pwork := psucc^.next;
ppred^.next := psucc;
psucc^.next := pp;
pp^.next := pwork;

これでppred->psucc->pp->元のpsuccの次って順序になった。
psucc, pp, ppred, pworkは全部局所変数でおけ。

>146
record型のデータの部分がでかい場合、コピするのにマシンサイクルを
使い過ぎる。簡単に張り替えられるのがリストの利点よん。

ありがとうございます。
currentとpreviousとtempのほかにもうひとつ必要だったのですか。
そうすると、メインプログラムも変えないとだめってことでしょうか？

メイン変えなくてもできますね。とりあえず、できました。次を示すフィールドをpointerとして
ppred・・previous
pp・・current
psucc・・next
pwork・・tempになってます。

procedure change;
var p,n:integer;
previous,temp,next:list;
begin
n:=1;
write('入れ替える位置を指定しなさい'); readln(p);
current:=init;
while current^.pointer <> nil do begin
previous:=current;
current:=current^.pointer;
next:=current^.pointer;
n:=n+1;
if n=p then begin
temp:=next^.pointer;
previous^.pointer:=next;
next^.pointer:=current;
current^.pointer:=temp
end;
end;
current:=init;
while current^.pointer <> nil do begin
write(current^.name,' ',current^.id,' ');
current:=current^.pointer
end;
writeln
end;

手続きを仕えってなら、こんなのはどうだ?
Program Enjoy2chList;
type
plist = ^listitem;
listitem = record
data : string;
next : plist
end;
var
top, tail : plist;
s : string;
toend : boolean;

procedure addtolist(s : string);
var p : plist;
begin
new(p);
p^.data := s;
p^.next := top^.next;
top^.next := p
end;

procedure exchange(pprev : plist);
var pnext, ptemp : plist;
begin
if pprev<>nil then begin
ptemp := pprev^.next;
pnext := ptemp^.next;
if pnext <> tail then begin
ptemp^.next := pnext^.next;
pnext^.next := ptemp;
pprev^.next := pnext
end else
writeln('The item is at the tail of the list...')
end
end;

function findprev(key : string) : plist;
var p : plist;
begin
tail^.data := key;
p := top;
while p^.next^.data <> key do p := p^.next;
if p^.next <> tail then
findprev := p
else begin
writeln(key, ' is not found ... Orz');
findprev := nil
end
end;

procedure disp;
var p : plist;
i : integer;
begin
p := top^.next;
i := 0;
while p<>tail do begin
i := succ(i);
writeln(i, ' ', p^.data);
p := p^.next
end
end;

procedure initlist;
begin
new(top);
new(tail);
top^.next := tail;
tail^.next := nil
end;

procedure disposelist;
var p : plist;
begin
p := top;
while top<>nil do begin
p := top^.next;
dispose(top);
top := p
end
end;

begin
initlist;
toend := false;
repeat
write('ENTER Any word to add or NULL to quit: '); readln(s);
if s='' then toend := true
else begin
addtolist(s);
disp
end
until toend;
toend := false;
repeat
write('ENTER Any word to exchange or NULL to quit: '); readln(s);
if s='' then toend := true
else begin
exchange(findprev(s));
disp
end
until toend;
disposelist
end.

読まずにすまそ。壱から書く方がらくなんで…
粘着もすまそでつ。
最近もの書きばっかやっているんで
たまにプログラムを書かないと脳が腐る ●rz

↑いけねえハン忘れた orz
ともかく帰依まつ

ありがとうございます。
この問題はもう解けました。
次の問題は、カーソルによるリスト構造の実現で、INSERT、DELETE,配列SPACEの全
セルを使用可能スペースリストにつなぐinitializeの手続きにエラーチェックを加え、メインプログラム
にて確認しなさい。という問題なのですが、これからそれぞれの手続きを書きますのでよろしく
お願いします。
参考：ttp://www.elect.chuo-u.ac.jp/automount/tsuki/Tsuki-lab/tsuki/Chap-2/2.4.pdf
これはC？で書いてあります。

まず、基本的な型宣言から
var
SPACE:array[1..maxlegth] of record
element:elementtype;
next:integer
end

elementtypeって何？って感じです・・・。

次にセルを移動するmove関数
function move(var p,q:integer):boolean;
var temp:integer;
begin
if p=0 then begin
writeln('セルがない');
return(false) {retuenってなに？}
end
else begin
temp:=q;
q:=p;
p:=SPACE[q].next:=temp;
retuen(true)
end
end;

手続きINSERT
procedure INSERT(x:elementtype;p:position;var L:LIST);
begin
if p=0 then begin{最初の位置に挿入}
if move(available,L) then
SPACE[L].element:=x
end
else{最初以外の位置に挿入}
if move(available,SPACE[p].next)then
{xのセルをSPACE[p].nextがさしている}
SPACE[SPACE[p].next].element:=x
end;{INSERT}

次に手続きDELETE
procedure DELETE(p:position;var L:LIST);
begin
if p=0 then
move(L,available)
else
move(SPACE[p].next,available)
end;{DELETE}

最後に手続きinitialize
procedure initialize;
var
i:integer;
begin
for i:=mazsize-1 downto 1 do
SPACE[i].next:=i+1;
available:=1;
SPACE[maxsize].next:=0
end;{inisialize}

誰か識者の方、166-168の問題解いてもらえませんか？
よろしくお願いします。

与えられた自然数 n(n>=3) に対し、正n角形とその対角線を表示するプログラムを作れ。
ただし、Readlnでnの値を読み込んでから作図するようにせよ。

TopPascalのこのような課題が出ました。
どうか皆様の力をお貸しください。

170に答えてください。お願いします。

>>171
お前は１週間何やってたんだと小一時間説教してやる。

そろそろ説教も終わった頃かね
TopPascalもコマンドラインで描画の方法も知らんけど、
Delphi で n 角形の各頂点の位置なら

procedure GetApex(ApexCount: Integer;// 頂点の数
　Radius: Integer;                              // 外接円の半径
　Center: TPoint;                              // 外接円の中心
　var Apexes: array of TPoint);            // 結果
var
　i: Integer;
　CurAngle: Double;
begin
　// 初期値
　CurAngle   := 0;

　for i := 0 to ApexCount - 1 do
　begin
　　Apexes[i].X := Center.X + Trunc(Radius * Cos(CurAngle));
　　Apexes[i].Y := Center.Y + Trunc(Radius * Sin(CurAngle));
　　CurAngle    := CurAngle + 2 * PI / ApexCount;
　end;
end;

てけとーに真似してやってみれ

ありがたいのですが、Delpiってのはわからないんで…。
できればどなたかコピペしてランすればできるのを提供していただけないでしょうか？

ﾌﾟｷﾞｬ━━━m9｡ﾟﾟ(ﾟ^Д^≡^Д^ﾟ)ﾟﾟ｡9m━━━━!!!!

デルピ

もうデルピーは居ないんだよ・・・

次はデルピーって言うのか出るのが楽しみだ(ﾉ´∀｀*)

「■全く分かってない阿呆も放置しないで優しく対応」という
ことに甘えまして、宜しくお願いいたします。

文字列型(あくまで)で、00〜ffに対し、
最終integer型で0〜255に変換したいのですが・・。
たとえば、

var
a:string;
b:integer;
begin
a:='2f';
･
･
･
･
write(b);
end.

ここでのＣＲＴ出力を
「47」
としたい訳です。
どのような手法で可能でしょうか？ご教示下さい。

0-fの文字を0-15の整数に変換する関数hogeを書く。
hogeを使って一文字づつ変換して１６倍するループを書く。

>>180
有り難うございます、一寸やってみます。

こんなのどうですか。

function HexToInt(const S: string): Integer;
const
　Table: array['0'..'F'] of Integer =
　　(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, -1, -1, -1, -1, -1, -1,
　　-1, 10, 11, 12, 13, 14, 15);
var
　I: Integer;
begin
　Result := 0;
　for I := 1 to Length(S) do
　　Result := Result shl 4 + Table[UpCase(S[I])];
end;

解析してアセンブラまで戻すにはするにはどうしたらいいですか？

ファイト

一発

―�u

時、分、秒で表した時間の和を計算するプログラムを作成したい。 但し、以下の条件を満たすように作成し、
プログラムと適当なデータを入力した結果と一緒に提出せよ。

1. データは日、時間、分、秒を表す整数型のフィールド名 day, hour, minute, second のレコード型で定義し、
レコード名を time とせよ。プログラム名を Toi2 とし、 秒と分の計算課程は同一であるため、
その個所は手続きを使って表現せよ。
2. 入力として、時、分、秒の 3個のデータを 2セット入力し、その和を出力せよ。
3. もし、 hour の値が 24 以上であれば day に１の値を、 24未満であれば零にせよ。

フィボナッチ数列の項は、その直前の連続する二つの項の和である。

f( n ) = f( n - 1 ) + f( n - 2 )

但し、 f(0) = 0, f(1) = 1 である。

フィボナッチ数列の連続する項の差の比

z(n) = { f( n - 1 ) - f( n - 2 ) }/ { f( n ) - f( n - 1 ) }

は、 n が大きくなれば、ある値に収束する。この値の近似値を求める プログラムを書き、その値を示せ。この値は黄金分割比と呼ばれる。

プログラム名を Toi3 とし、フィボナッチ数列は関数 fibonacci を作って求め、項は配列に表せ。数列は 100項まで とする。

1. まず f(30)の項まで求めz(n)の値を出力させるプログラムを作り、その値が 収束していく様子を出力して確かめよ。
2. 次に、1.のプログラムを書き換えて、収束判定のために定数 dif = 1.0 e -6 を宣言し、
連続する z(n-1),z(n) の差の 絶対値が dif 以下になったとき、収束したとして計算を終了する プログラムを作り、
プログラムとその計算結果を提出せよ。
もし、n=100でも 収束しない場合、z(100)の値と”収束しなかった”文を出力せよ。

Program Toi2;
type
time = record
day, hour, minute, second : integer
end;
var t1, t2, t3 : time;

procedure add60(a, b : integer; var c : integer; var carry : boolean);
(* a + b must be less than 120 *)
begin
c := a + b;
carry := (c >= 60);
c := c mod 60
end;

begin
(* データを読む1 -> t1 *)(* データを読む2 -> t2 *)
add60(t1.second, t2.second, t3.second, cry);
add60(t1.minute, t2.minute + ord(cry), t3.minute, cry);
with t3 do begin
hour := t1.hour + t2.hour + ord(cry);
if hour >= 24 then begin
day := 1; hour := hour -24
end else
day := 0
end;
(* 表示 *)
end.

>>189
carryとcryをintegerにしてcarry:=(c>=60);をcarry:=c div 60;にすれば
(* a + b must be less than 120 *)の注意書きも要らなくなると思う。

そうすれば+ord(cry)をそのまま+cryに出来るし。

>>189
cryって何ですか？
ほかにもコンパイルエラー出てるんですけど？

>>191
少しは自分で考えて。宣言がいくつか足りないのと、初期化やデータの
入出力をどうするのかは>>187に出ていないのでその部分は自分で書く
必要がある。

program Toi3(input,output);

var
i,n: integer;
f,z: array [0..1000] of integer;

function fibonacci(n : integer):integer;

begin
case n of
3..1000 : fibonacci:=fibonacci(n-1)+fibonacci(n-2);
1,2 : fibonacci:=1;
0 : fibonacci:=0
end; { case }
end;

begin
write('n=');
readln(n);
for i:=0 to n do
begin
f[i]:=fibonacci(i);
z[i]:=(f[n-1]-f[n-2])div(f[n]-f[n-1]);
writeln('f(',i:2,')=',f[i]:1,', ');
writeln();
writeln('z(',i:2,')=',z[i]:1,', ');
end;
end.

というのを作ったのですが、コンパイルはできるのに値を入力しても答えが出力されませんorz

program Toi3(input,output);

var
i,n: integer;
f,z: array [0..1000] of integer;

function fibonacci(n : integer):integer;

begin
case n of
3..1000 : fibonacci:=fibonacci(n-1)+fibonacci(n-2);
1,2 : fibonacci:=1;
0 : fibonacci:=0
end; { case }
end;

begin
write('n=');
readln(n);
for i:=0 to n do
begin
f[i]:=fibonacci(i);
z[i]:=(f[n-1]-f[n-2])div(f[n]-f[n-1]);
writeln('f(',i:2,')=',f[i]:1,', ');
writeln();
writeln('z(',i:2,')=',z[i]:1,', ');
end;
end.

というのを作ったのですが、コンパイルはできるのに値を入力しても答えが出力されませんorz

z[i]:=(f[n-1]-f[n-2])div(f[n]-f[n-1]);
は,
z[i]:=(f[i-1]-f[i-2])div(f[i]-f[i-1]);
の間違いです。
しかしまだ何かがおかしいらしい。

パスカルでおしえて大学生を抹殺するプログラムを作ろうと思いますが、
コメントの記念すべき一文字目は何にしようか迷ってます。

>190
そりゃそーなんだけど、キャリーはやっぱりフラグでしょw

>195
fibonacci関数は動くはずだから、それだけテストしてみるといい。
fibonacci(1)
fibonacci(2)
fibonacci(3)
と増やしていって、
fibonacci(100)の計算にどれだけ時間かがかかるか、ためしてごらん。
どうしてこんなに遅いのか、どうしたら効率良くできるのか。

そうすると for i:=0 to n do f[i]:=fibonacci(i); てのが
原理的には正しくても酷く悪いコーディングだと気付く。
それが勉強だよ。

俺は詳しくないからどうすればいいプログラムになるかというレベルではアドバイスできないんだけど
for文の中で"i"が"0"のときに
z[i]:=(f[i-1]-f[i-2])div(f[i]-f[i-1]);
というのは
z[0]:=(f[-1]-f[-2])div(f[0]-f[-1]);
ってことになってないかい？
あと整数型における"div"ってのは商を求める演算子であって
実数型における"/"とは違うってことは分かってる？

すっごい効率が悪いこととか、i=0のこととか、わかってるのですがどうすればいいのかがわからないすorz

3..1000 : fibonacci:=f[n-1]+f[n-2];

case文で、例えば「nの値が0の時は■、1の時は▲、2以上の時は●」としたいとき、
「2以上の時は●」のところはどうやって表記すればいいのですか？

case n of
0 : ■;
1 : ▲;
>=2 : ●;

とするとコンパイルエラーになってしまうのです（泣）

>>201
caseは順序型だから、下限、上限が決まっている。で、2からその上限まで
を指定すればいいってことになる。具体的には
case n of
　　0 : ■;
　　1 : ▲;
　　2..100 : ●;
とすればいい（上限値が100の場合）。

case n of
　0 : ■;
　1 : ▲;
else
　if n >= 2 then
　　●;
end;

>>203
それ通らない処理系もある（というか標準Pascalだとcase節にelseは無い）。

caseのどの条件にも該当しなかったことを検出するにはどうすればいいのですか？

>>205
論理型変数を一つ用意して最初にfalseにしておく。
そのあとでcase文中の任意の条件にマッチした場合はtrueに変更してやる。
そうすれば該当しなかった場合はfalseのままだからfalseの場合なにかするっていうように
すれば一応できるんじゃない？

>>205
だからcase節の変数部（上記nの所）は順序型しか指定できないわけ
だから、上限、下限が決まっていて、個数も自ずと出てくるわけ。

だから「どの部分にも該当しなかった」という部分を抜き出すことも可能
でしょ。それをどこかで指定してやればいいわけ。例えば以下のような
感じで。

case n of
　　5 : ■;
　　8 : ▲;
　　15 : ●;
　　0..4, 6, 7, 9..14, 16..100 : ×;　　(* どの条件にも該当しない場合 *)

これは、nが0から100までの値を取る順序型の場合。範囲がそれ以外
の場合は適宜指定してやればいい。

pascal ha erai mendou na gengo desune.

>>202
上限がないから困っているわけでw
if文で書くしかないですかね？

if n >= 2 then
begin
　　●;
end else begin
case n of
　　0 : ■;
　　1 : ▲;
end;
じゃダメなのか？

フィボナッチを以下のように書き換えたのですが、確かに走るし100項でもすぐ出るんですが、マイナスの値がでてくるんです。なぜでしょうか？
program kadai14_2(input,output);
var
m,k : integer;
function fibonacci(n : integer):integer;
function fib(i,old,new : integer):integer;
begin
if i=n then
fib:=new
else
fib:=fib(i+1,new,old+new)
end; { fib }

begin
if n<=1 then
fibonacci:=n
else
fibonacci:=fib(1,0,1)
end; { fibonacci }

begin
writeln('数列の長さを入力してください');
readln(m);
for k:=1 to m do
begin
write(fibonacci(k):1);
write(',')
end;
writeln;
end.

>>211
整数がオーバーフローしてるんじゃないかと思われ。

>>212
詳しくお願いします！！

>>209
Pascalには上限のない順序型などない

>>213
何を詳しくお願いしてるんだ？
オーバーフローじゃないか？って言ってるじゃん。

>>213
integer が符号付き32ビットだったとすると、範囲は -2^31..2^31-1
つまり、-2147483648..2147483647。

フィボナッチ数列を計算してみると、

Fibonacci(45) = 1134903170
Fibonacci(46) = 1836311903
Fibonacci(47) = 2971215073 ←ここで32ビット版integerの範囲を超える
Fibonacci(48) = 4807526976

になるみたいなので、Fibonacci(47) 以降は値がおかしくなると思われ。

二進数で書くと、
.　　　　　　　　　↓このビットが1になると32ビット版 integer ではマイナスの値
Fibonacci(47) = 10110001000110010010010011100001
絶対値は
　　　　(100000000000000000000000000000000
　　 　 - 10110001000110010010010011100001)
　　=　 (11111111111111111111111111111111
　　 　 - 10110001000110010010010011100001) + 1
　　= 　 01001110111001101101101100011110　+ 1
十進数に直すと
|Fibonacci(47)| = 1323752222 + 1 = 1323752223 ←これにマイナスがついた値になってしまう

http://www.edm2.com/0409/introc2.html
の Conclusion の手前に同じようなことが書いてある。(Cの例だけど)

数字がずれた…

> 　　=　 (11111111111111111111111111111111
> 　　　 - 10110001000110010010010011100001) + 1
> 　　= 　 01001110111001101101101100011110　+ 1
> 十進数に直すと

age

>>216
じゃあどうすればよいのですか？

多倍長整数演算るーちんをかく

必要なのは加算だけだから文字列のまま加算すればいい

文字列＋整数型の加算の例
function AddN(s:string;N:Integer):string;
var i,M:Integer;
var r:string;
procedure afunc;
begin
　 M:=((N mod 10)+10) mod 10;
　 r:=Char( ord('0') +M)+r;
　 N:=N-M;
　 N:=N div 10;
end;
begin
　 r:='';
　 for i := length(s) downto 1 do begin
　 N:=N+StrToInt(s[i]);
　 afunc;
　 end;
　 while N<>0 do begin
　 M:=((N mod 10)+10) mod 10;
　 afunc;
　 end;
　 Result:=r;
end;
文字列同士は、ループが３つ必要

function AddAB(a,b:string):string;
var i,j,N,M:Integer;
var r:string;
　procedure afunc;
　begin
　 M:=((N mod 10)+10) mod 10;
　 r:=Char( ord('0') +M)+r;
　 N:=N-M;
　 N:=N div 10;
　end;
begin
r:='';
j:=length(b);
N:=0;
for i := length(a) downto 1 do begin
N:=N+StrToInt(a[i]);
if j>=1 then N:=N+StrToInt(b[j]);
afunc;
dec(j);
end;
for i := j downto 1 do begin
N:=N+StrToInt(b[i]);
afunc;
end;
while N<>0 do begin
M:=((N mod 10)+10) mod 10;
afunc;
end;
Result:=r;
end;

function fibonacci(n : string):string;
function fib(i,old,new : string):string;
begin
if i=n then
fib:=new
else
fib:=fib(AddN(i,1),new,AddAB(old,new))
end; { fib }

begin
if (length(n)<2) and(StrToInt(n)<=1) then
fibonacci:=n
else
fibonacci:=fib('1','0','1')
end; { fibonacci }



begin
for k := 1 to 100 do writeLn(k:5,':', fibonacci(IntToStr(k))) ;

>>189
まだ完成されていないみたいですが何が足りないのでしょうか？
４月からＰａｓｃａｌ始めたものですが・・・

>>187の問題のコト?

「名前」と「電話番号」をキーボードから入力すると、 それらのデータをUNIX上の ファイル 'teldata' に出力するプログラムを作成せよ。なお、 'teldata' に書き込まれた内容を全て表示させる手続きを加え、 完成したプログラムと実行例をつけて提出せよ。
ただし、1人当たりのデータの記憶にはレコード型を用い、 'teldata' はこのレコード型を成分とするファイルとすること。 また、データ入力の終了は「名前」として文字列 'end' を与えることで表現し、 入力可能なデータ数（人数）の上限は特に定めないこと。

この問題で

program kadai21(input , output , opfile);
type Kojindate = record
name : packed array [1..10] of char;
tel : packed array [1..15] of char;
end;
var opfile : file of Kojindate;
a : Kojindate;
begin
repeat
rewrite( opfile , 'intdate' );
writeln('名前：');
readln( a.name );
writeln('電話番号');
readln( a.tel);
write(opfile , a);
until a.name = 'end';
reset ( opfile , 'intdate' );
while not eof(opfile) do begin
repeat
read( opfile , a );
writeln( '名前：',a.name , '電話番号：' , a.tel);
until a.name = 'end'
end
end.

どこがまずいですかね？

それと
課題 2-1 では、 登録された電話番号データを全て出力した。 これを、 検索したい人の名前をキーボードから入力し、 対応する電話番号を答えるように変更せよ。
ただし、該当するデータが未登録の場合は検索に失敗したことを 通知するプログラムとすること。 （例えば「該当者なし」と表示するなど）

さらに、 名前として 'end' を入力するまで何回でも検索できるように拡張すると、 なお良い。

こいつお願いします。

キーボードから正の奇数を小さい順に入力し、 それらのデータをUNIX上の ファイル 'oddsequence' に書込む。
次に 正の偶数を同じく小さい順に入力し、ファイル 'evensequence' に 書込むプログラムを作れ。
更に、この二つのファイルの内容を合わせて、正の整数が小さい順に書込まれた ファイル 'sequence' を作り、その内容を全て表示するプログラム を作れ。

ただし、データは３、７、１３など、小さい値から入力すればよい。また、データ入力の 終了は 値 ０ を与えることで表現し、入力可能なデータ数の上限は特に定めないこと。

>>226多分こうだと思う。
Assign(opfile, 'teldata');
Rewrite(opfile);
repeat
writeln('名前：');
readln( a.name );
if a.name <> 'end' then begin
writeln('電話番号');
readln( a.tel);
write(opfile , a);
end;
until a.name = 'end';
Close(opfile);

>>227
procedure search;
var name : packed array [1..10] of char;
c : boolean;
begin
Readln(name);
while name <> 'end' do begin
Reset(opfile);
c := true;
while not eof(opfile) do begin
Read(opfile, a);
if a.name = name then begin
Writeln(a.tel);
c := false;
end;
end;
Close(opfile);
if c then Writeln('該当者なし');
Readln(name);
end;
end; { search }

>>228
program test1(input);
var o,e : file of integer; i:integer;begin
Assign(o,'oddsequence');Rewrite(o);
Read(i);while i <> 0 do begin Write(o,i); Read(i); end;
Assign(e,'evensequence');Rewrite(e);
Read(i);while i <> 0 do begin Write(e,i); Read(i); end;
Close(o);Close(e);end.

program test2(output);
var o,e,s : file of integer; i,j:integer;begin
Assign(o,'oddsequence');Reset(o);
Assign(e,'evensequence');Reset(e);
Assign(s,'sequence');Rewrite(s);i := 0; j := 0;
while not (eof(o) and eof(e) and (i = 0) and (j = 0)) do begin
if not eof(o) and (i = 0) then Read(o,i);
if not eof(e) and (j = 0) then Read(e,j);
if (i <> 0) and (i < j) then begin Write(s,i); i := 0;
end else if j <> 0 then begin Write(s,j); j := 0; end; end;
Reset(s); while not eof(s) do begin Read(s,i);Write(i);Write(' ');
end;Close(o);Close(e);Close(s);end.

はあ？

>>229
夜遅くにご苦労様です。
そこにif入れればよかったのか。

フィボナッチ数列の項は、その直前の連続する二つの項の和である。
f( n ) = f( n - 1 ) + f( n - 2 )
但し、 f(0) = 0, f(1) = 1 である。
フィボナッチ数列の連続する項の差の比
z = { f( n - 1 ) - f( n - 2 ) }/ { f( n ) - f( n - 1 ) }
は、 n が大きくなれば、ある値に収束する。この値の近似値を求める プログラムを書き、その値を示せ。この値は黄金分割比と呼ばれる。
フィボナッチ数列は関数 fibonacci を作って求め、項は配列に表せ。まず 30 項まで求め、黄金分割比の値が収束していく様子を出力して
確かめよ。収束判定のために定数 dif = 1.0 e -6 を宣言し、 連続する z の差の絶対値が dif 以下になったとき、
収束したとして計算を終了するプログラムを作り、プログラムとその 計算結果を提出せよ

コンパイルはできるんだけど、何かがおかしいです。
すみませんがわかる方教えてくれませんか？

program pe1_2(input,output);
const dif = 1.0e-6;
var i,m, g : integer;
f, z,q : array [0..500] of real;
function fibonacci(n: integer):integer;
begin
if (n >=0) and (n <=1) then fibonacci:=n
else fibonacci:=fibonacci(n-1)+fibonacci(n-2);
end; { fibonacci }
begin
f[i]:=fibonacci(i);
writeln('30項まで求めます ');
for i :=1 to 30 do
begin
writeln('f(',i:2,')=',f[i]:1);
end;
write('m=');
readln(m);
for i:= 3 to m do
repeat z[i]:=(f[i-1]-f[i-2])/(f[i]-f[i-1]);
until dif >= z[i]-z[i-1];
writeln(z[i]);
{writeln('z(',i:3,')=',z[i]:1,','); }
end.

こんな感じじゃないのか？

program pe1_2(input,output);
const
　dif = 1.0e-6;
var
　i : integer;
　f,z : array [1..30] of real;

function fibonacci(n: integer):integer;
begin
　if (n >=0) and (n <=1) then fibonacci:=n
　else fibonacci:=fibonacci(n-1)+fibonacci(n-2);
end; { fibonacci }

begin
　writeln('30項まで求めます');
　for i :=1 to 30 do
　begin
　　f[i]:=fibonacci(i);
　　writeln('f(',i:2,')=',f[i]:1);
　end;

　for i:= 3 to 30 do
　begin
　　z[i]:=(f[i-1]-f[i-2])/(f[i]-f[i-1]);
　　writeln('z(',i:2,')=',z[i]);
　　if (i > 3) and (dif >= abs(z[i]-z[i-1])) then
　　　break;
　end;
end.

>>236
言われたとおりにしましたが前と同じ結果でした。
コンパイル結果
f(1)=0.0e+00
　　　：
　　　：
f(27)=0.0e+00
f(28)=0.0e+00
f(29)=0.0e+00
f(30)=0.0e+00
m=30

この後何も動きませんでした。
どこがおかしいのでしょうか？
わかる人教えてくれませんか？

if (n <=1) then fibonacci:=n

あんまり変わってないんじゃない？

⇒　if (n >=0) and (n <=1) then fibonacci:=n
＞但し、 f(0) = 0, f(1) = 1 である。
　　　if (n <=1) then fibonacci:=1;

としても、ゼロになるというのは変だね
もしかして　ちゃんとループさせてないんじゃないの？ >>236をそのまま実行させてないでしょ

それから　integerのビット幅はいくら？ 16bitだとビット数が不足するよ


function fibonacci(n: real):real;
begin
　 if (n >=0) and (n <=1) then fibonacci:=1
　 else fibonacci:=fibonacci(n-1)+fibonacci(n-2);
end; { fibonacci }

begin
　 writeln('30項まで求めます');
　 for i :=1 to 30 do
　 begin
　 f[i]:=fibonacci(i);
　 writeln('f(',i:2,')=',f[i]:10:0);
　 end;

　for i:= 3 to 30 do
　begin
　　z[i]:=(f[i-1]-f[i-2])/(f[i]-f[i-1]);
　　writeln('z(',i:2,')=',z[i]);
　　if (i > 3) and (dif >= abs(z[i]-z[i-1])) then
　　　break;
　end;
end.

function fibonacci(n: integer):real;

program kadai(input , output);

type intri = ^real;

var ip : intri;
a : real;

begin
new( ip );
write( 　`値：` );
readln( a );
ip^ := a;
writeln( ip );
dispose( ip )
end.

簡単なやつなんですが実行しても入力した値そのままが出力せず、５桁の数字が出力してしまうという状況です。
ご指摘お願いします。

program kadai(input , output);

type intri = ^real;

var ip : intri;
a : real;

begin
  new( ip );
  write( '値: ' );
  readln( a );
  ip^ := a;
  writeln( ip^ );
  dispose( ip );
  readln;
end.

>>243
ポインタをまだ理解しきれてなかったみたいです。
ありがとうございました。

本当に初歩的な質問なんですが…
x:=6*(1+3div2)mod5
とあったら、6×(1+1)÷5=2...2より、答えは2でいいんでしょうか？
また、m:=((x>z)and(y<z))
とあって、これはfalse and falseとなるんですが、
このあとは具体的にどうすればいいんでしょう？
ちなみにmは整数です。
助けていただければ幸いです…。

１、四則演算はカッコが最優先、乗除算がその次だからあってると思うよ

２、pascal は型に厳しいから 論理型を整数型に代入できないと思うのだが？

ご回答ありがとうございます。
最初は合ってましたか…よかった。
次なんですが（すいません書くならば正しくはfalse and trueでした）
mは整数、x,y,zは変数で、
具体的には　m:=((2>10) and (5<10))
なんですが、これは…どうすればいいんでしょうか…。。。

申し訳ありません。見間違えていました…
mがbooleanでx,y,zが整数でした。本当にすいません…
そうしたら結局mはfalseということでよいのでしょうか？

and だから　false だよね

どうもありがとうございました。そそっかしくてすいません…

２個の１次方程式が入力されたとき、その和を 出力するプログラムを作成しなさい。ただし、変数名はアルファベット１文字とし、 その係数値は整数１文字とせよ。

たとえば、2 x - 5 y を１文字ずつ入力（改行で区切る）し、ピリオド '.'が入力 されたならば、次の式、 - 9 y + 2 z を同じように入力する。プログラムはそれら の和、2 x - 14 y + 2 z を出力する。

すべてのパスワードを解読するプログラムがあったらすごい･･･
ありえないか。

すべてのって言うのが引っかかりますが、
総当りでやればいいんじゃないのか?

総当りならどんな難解なパスワードも必ず解析できるね。






何百年とか掛かるかもしれないけど。

まともなシステムなら連続で複数回間違えた時点でパスワードが無効になるような対策がなされているから無理

しばらくしたら正規のユーザーが管理者に申告して復活するでしょ

>>251 の答えまーだ？

キーボードからいくつもの「文字」を入力した時、各文字が何回入力されたかを結果として返すプログラムを、入力データの記憶にリスト構造を利用して作れ。なお、入力は１文字ずつ return で区切って入力し、その終了は '.' (ピリオド) で示すものとする。


と、


課題４ - １を参考にして、２個の１次方程式が入力されたとき、その和を出力するプログラムを作成しなさい。ただし、変数名はアルファベット１文字とし、その係数値は整数１文字とせよ。

たとえば、2 x - 5 y を１文字ずつ入力（改行で区切る）し、ピリオド '.'が入力されたならば、次の式、 - 9 y + 2 z を同じように入力する。プログラムはそれらの和、2 x - 14 y + 2 z を出力する。


２つの問題お願いします。

>>251
なんか良く判らんけど　適当に

{構造体の定義}
type TData=record c:char;a:Integer;next:Pointer;end;
type PData=^TData;
var root:PData;

{リストの印刷}
procedure writes;
var p:PData;
begin
p:=root;
while p<>nil do begin
if p^.a>0 then write('+');
write(p^.a,p^.c);
p:=p^.next;
end;
writeln;
end;

procedure func(s:string);
var w:TData;
var p:PData;
var sgn:-1..1;
var num:string;
begin
sgn:=1; w.next:=nil; num:='';
while s<>'' do begin
w.c:=s[1]; delete(s,1,1);
case w.c of
'+': begin sgn:= 1;num:=''; end;
'-': begin sgn:=-1;num:=''; end;
'0'..'9': begin
num:=num+w.c;
end;
'a'..'z','A'..'Z': begin
if num<>'' then w.a:=sgn*StrToInt(num) else w.a:=sgn;
p:=root;
while p<>nil do begin
if p^.c=w.c then begin p^.a:=p^.a+w.a; break; end;
p:=p^.next;
end;
if p=nil then begin w.next:=root; root:=@w; func(s); exit; end;
end;
'.': writes;
end;
end;
writes;　readln(s);　 if s<>'' then func(s);　{続けて処理するなら}
end;

なんか、改行が多すぎますが厄介だなあ
で、呼び出し部

var s:string;
begin
root:=nil;
readln(s);
func(s);
end;

素直に、ヒープか配列使った方がいいかもね

このコード提出した奴からは、動作説明させるからな

偽者はだまれ！自分独り占めにするな！
本物ならここに書き込まず裏で減点しているわ!

でも、単にメモリ確保の為にわざわざ再帰してるようなコードは、ちょっと目立つぞ

だれかエラトステネス篩について、具体例を交えながら分かりやすく解説してくれませんか？
もう訳が分かりません…

エラトステネスの篩の概念は、次のようになります。
1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　...
このような数値列を用意して
まず最初の2は素数としてチェックして
2の倍数は素数じゃないから、フラグを立てます。
1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　...
　　O　　　 X　　　 X　　　 X　　　 X　　　 X　　　
次に素数の可能性のある3は素数としてチェックして、
3の倍数はやはり素数じゃないから、フラグを立てます
1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　...
　　O　　　 X　　　 X　　　 X　　　 X　　　 X　　　
　　　　O　　　　　 X　　　　　 X　　　　　 X
4にはすでに×がついているので、素数ではなく
次に素数だと思われる5は素数としてチェック。
5の倍数は素数ではないフラグを立てて…
1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　...
　　O　　　 X　　　 X　　　 X　　　 X　　　 X　　　
　　　　O　　　　　 X　　　　　 X　　　　　 X
　　　　　　　　O　　　　　　　　　 X
と続けていくとチェックされていない所に
〇がつき、素数列が求まるという手法です。

具体例を交えながらわかりやすく解説するほど
労力をかけたくないから、適当に勉強汁

http://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=%E3%82%A8%E3%83%A9%E3%83%88%E3%82%B9%E3%83%86%E3%83%8D%E3%82%B9%E3%81%AE%E3%81%B5%E3%82%8B%E3%81%84&num=50

上記例では、1〜13の箱を用意するために
Booleanの配列を定義して
1〜13全部をTrueにしてから
4,6,8,10,12の箱をFalseにして、
6,9,12の箱をFalseにして、
という処理をする方法よ。

どうもありがとうございました。
プログラムで読んだ時、なにがtrueやfalseなのかがよく分からなかったんですが、
やっとなんとかわかりました。ありがとうございました。

キーボードからいくつもの「文字」を入力した時、 各文字が何回入力されたかを結果として返すプログラムを、 入力データの記憶に２分木を利用して作れ。 なお、入力の終了は '.' (ピリオド) で示すものとし、 結果はアルファベット順に出力するものとする。

を

program bi( input , output );

type tree = ^node;
node = record
moji : char; kaisu : integer; left , right : tree; end;

var p , head : tree; a : char;

procedure append(var t : tree; x : char );

begin
if t = nil then begin
new( t );
t^.moji := x;
t^.kaisu := 1;
t^.left := nil;
t^.right := nil
end
else if t^.moji = x then
t^.kaisu := t^.kaisu + 1
else if ord( t^.moji ) > ord( x ) then
append( t^.left , x )
else
append( t^.right , x )
end; { append }

procedure printl(t : tree );
begin
if t <> nil then begin
writeln( t^.moji , t^.kaisu );
printl( t^.left );
end
end; { printl }
procedure printr(t : tree );
begin
if t <> nil then begin
writeln( t^.moji , t^.kaisu );
printr( t^.right );
end
end; { printr }
begin
new( head );
new( p );
head := nil;
p := head;
repeat
write( '文字： ');
readln( a );
append( p , a )
until a = '.';
printl( head );
write( p^.moji , p^.kaisu );
printr( head );
dispose( head );
dispose( p )
end.

キーボードから「整数」を読込み、 入力データを２分探索木に書込め。 書き込んだ結果を出力せよ。 なお、整数は正または負のデータとし、入力の終了は '０' (ゼロ) で 示すものとする。同じ値が入力されることはないものとせよ。
を
program kadai5no2( input , output );
type tree = ^node;　　　node = record　 kazu : integer;　left , right : tree;　end;
var p , root : tree;　a : integer;
procedure data(var t : tree; x : integer );
begin
if t = nil then begin
new( t );
t^.kazu := x;
t^.left := nil;
t^.right := nil
end
else if t^.kazu > x then
data( t^.left , x )
else
data( t^.right , x )
end; { data }
procedure printl(t : tree );
begin
if t <> nil then begin
if t^.right <> nil then begin
write( t^.right );
printl( t^.right )
end
else begin
write( t^.kazu );
printl( t^.left )
end
end
end; { print }

begin
new( root );
new( p );
root := nil;
p := root;
repeat
write( ' 数： ');
readln( a );
data( p , a);
until a = 0;
printl( p );
dispose( p );
dispose( root )
end.
としたのですがどちらも出力をどうすればいいか分かりません。出力の他にも変なところがあれば指摘してくれると嬉しいです。

とりあえず上はそれだと白丸のところが出力されないはず
　　　●
　　 ／＼
　　●　●
　／|　　|＼

●
○　○ ●

火曜提出でしょ？
もう少し悩んでみてもいいと思われ。

あと線形リストや二分木の先頭だけdisposeすると、
2番目以降は解放じゃなくて参照不可になるんじゃなかったっけ？

ウホッ、ずれまくったorz

キーボードから「英文」を読込み、空白（スペース）を英単語の 区切りと見做して、英単語辞書を整順リストの形式で作成するプログラム を作りなさい。

なお、入力の終了は '.' (ピリオド) で示すものとし、 同じ英単語が入力される場合は辞書に登録してはいけない。

a. 英文はアルファベット小文字のみの単語、スペース、ピリオドだけで 作られている場合を、まず考えよ。各単語の文字数は２０文字以内とせよ。

b. 次に、大文字が含まれる場合には、その文字を小文字に変換するよう に拡張せよ。

c. 最後に、数字、疑問符？、感嘆符！、クオート’、ダブルクオート"、 ハイフン-、コロン:、セミコロン；などの特殊文字が含まれている文 などを処理できれば完全である。

英単語辞書の問題において、 整順リストを２分木表現とするプログラムを作成せよ。

ポーランド記法で入力した四則演算式を２分木で表現し、 演算式の係数値を入力したときに、その計算結果を出力する プログラムを作れ。但し、演算式はアルファベット一文字の 変数と四則演算子のみで表現されている。

a.演算式が定数は含まない場合を考えよ。

b.整数の定数を含む場合に拡張せよ。

課題丸投げ早すぎｗ

>>277
そんな突っ込みより
答えキボンヌ。

電通大Ｃ科乙ｗ

>>279
去年につづきまたあそこか
馬鹿しかいないのか？

馬鹿が教えてるからしょうがない。

>>281
言えてる…。

>>278
ヒント

program database( input , output );
type a = ^b ; b = record c : packed array [1..20] of char ; d : a ;
var e, f : packed array [1..20] of char ;
bagin
readln(e);
readln(f);
if e < f then
begin writeln( e , f ); end else begin writeln( f , e ); end;
end.

２単語入力のみ対応

電通大生なんだが・・評判落とすような事はやめてくれ！
少しは考えろよ！！
言っておくが、これくらい普通に出来ないと後々の課題なんて出来ないぞ！
その時はまた写すのか？
お前それでいいのか？

>>284

　　　　　　　､--‐冖'⌒￣￣`ｰ-､
　　　　 ／⌒`　　　　　　　　　三ミヽｰ-ﾍ,_
　　　__,{　;;,, 　　 　 　　　　　　 ミミ　　　ｉ　´Z,
　　 ゝ　　　''〃//,,, 　　　 　,,..｀ミﾐ､_ノリ}j;　f彡
　　_)　　　 　 　 〃///,　,;彡'rffｯ､ｨ彡'ﾉ从iﾉ彡
　　>';;,, 　 　　　 ノ丿川j !川｜;　 :.`7ﾗ公 '>了
　_く彡川fﾞノ'ノﾉ ノ_ノノﾉイシﾉ｜ }.:　'〈八ﾐ､､;.)
　 ヽ.:.:.:.:.:.;=､彡／‐-ニ''_ｰ＜、{_,ﾉ -一ヾ`~;.;.;）
　 く .:.:.:.:.:!ﾊ.Yイ　　ぇ'无ﾃ,`ヽ｝｝}ィt于 ｀|ィ"~
　　 ):.:.:.:.:|.Y }: :!　 　 ｀二´/'　;　|丶ﾆ　 ﾉﾉ
　 　 ） :.: ﾄ､リ: :!ヾ:、　　　丶　;　|　ﾞ　　ｲ:}　　　　逆に考えるんだ
　　 ｛ .:.: ｌ　｛: : }　 ｀　　　　,.__(__,}　　　/ﾉ
　　　 ヽ !　　`'ﾞ! 　 　　　 ,.,,.`三'ﾞ､,_ 　/´　　　「電通大の課題が 2ch ねらーのヒマ潰しになっている」と
　 　 ,/´{　　ﾐ　l　　　　/ﾞ,:-…-〜､ ） |
　　,r{ 　 ＼ ﾐ 　＼　　 `'　'≡≡'　" ﾉ　　　　　　　　考えるんだ
__ノ 　ヽ 　　＼　 ヽ＼　　　　彡 　,ｲ_
　　 　 　＼ 　　＼ ヽ 丶. 　　　　ノ!|ヽ｀ヽ、
　　 　 　 　 ＼ 　　＼ヽ ｀¨¨¨¨´/ |ｌ　ト､　｀'ｰ-､__
　 　 　 　 　 　 ＼　　｀'ｰ-､　　/／　/:.:.}　 　　 　 ｀'ｰ､_
　　　　　　　 　 ｀､＼　　　／⌒ヽ　 /!:.:.|
　　　　　　　　　　｀､ ＼ /ヽLｆ___ハ/　　{
　　　　　　　　　　　　　 ′ /　! ヽ

>>283

b a g i n

>>283
ほとんどヒントになってないし。
リスト構造も木構造も実装されてないし。
読み込み部分にしたって、
空白区切りをまったく無視してくれちゃってるし。
まったく、なにやってるんだか。

>>287
丸写しするお馬鹿さんには関係ないこと。成績表を見て泣くだけ。

http://up.nm78.com/data/up080235.jpg

答えまーだ？

やっと落ち着いたか

Javaなどの新しい言語がある中で、電通大が未だにPascalを使ってプログラミングの講義をしているのは一種の男気の現れですか？

教えるヒトがそれ以外の言語を知らないので仕方がないのです。

今まさにPascal習ってる電通大生ですよっと
Pascal習う理由として、
�@複数の言語を学んだほうが体系的に（で言葉あってるのか？）文法を理解できる。
�APascalは教育用言語としてはふさわしい
とか言ってた気がする。

ただ、俺は大学入って初めてプログラミングに触れるようになったため、
教授の考えがきちんと伝わっていないかも知れない。
要は公式見解ではないということ

>>293

男気の正反対ですね。

今プログラミング教育用として主流になってる言語って何ですかね？

授業で使われている数はc/c++とJavaが圧倒的でしょう。

Javaはまだいいとして、C/C++って教育用途には向いてるんでしょうかね？

Javaが向いてる？ご冗談を

JavaよりC/C++の方が向いてるに決まってるじゃないか

C++がプログラミング入門用として最適の言語。










とかのたまうメルマガ鵜呑みにして強引にC++から入った俺が来ましたよ。

Cは良いけどC++は教育用としてはどうかとおもう

C++の方が明らかにCより使いやすいし。
教育用としても
オブジェクト指向のC++の方がいいに決まってるし。

PerlほどじゃないけどC++のオブジェクト指向もひどいぞ

「オブジェクト指向の教育」という観点からは薦められない

本物のプログラマはPascalを使わない。真の漢は黙ってFORTRAN77。

来年から電通はCになるらしいけどな
まじで頭おかしいだろあそこ

Rubyにすればいいのに

HSPにすればいいのに

pascalの文法には、変数名とか関数名の非終端記号があるらしんだけど
これはすべて名前（識別子）であって文法を簡単にするものであると。

原始プログラム中のその名前をみただけではどの名前であるか
判別できない。これの解決策はなにですか？

俺のESPを試す時がきたようだ。

例えば次のようなソースがあるとします。
if (0 < hoge) then ...
このhogeが変数なのか関数なのかはここから判別する事はできないと思います。
コンパイラはどうやっているんでしょうか？

こんな感じか？

ネストしたスコープの話なのかな？

pascalは事前に変数も関数も宣言する必要があるので問題無い。

モンテカルロ法を用いて1/3を求めよ。
そのときモンテカルロ法を試行する回数を、プログラム実行時に選択できるようにせよ。

いやです。

やってやらんこともないが

なぜ 1/3 なんだ？

パスカルの問題でわからないので教えて下さい。
問１
任意の人数に対してBMI（肥満度を判定する指標）を計算し、その平均値を出力させる。ここで，BMIとは
体重／身長／身長
で定義されるため，体重および身長を人数分だけ標準入力せよ。ここで，人数の最大は10名としてよい。なお，関数あるいは手続きを用いること。

問２
１０名分のクラスの学生名前（アルファベット）を配列に保存せよ。また、最後にそれを標準出力せよ。
また、ファイル出力の場合も考えよ。
＊stringを使いなさい。

パスカルの問題でわからないので教えて下さい。
問１
任意の人数に対してBMI（肥満度を判定する指標）を計算し、その平均値を出力させる。ここで，BMIとは
体重／身長／身長
で定義されるため，体重および身長を人数分だけ標準入力せよ。ここで，人数の最大は10名としてよい。なお，関数あるいは手続きを用いること。

問２
１０名分のクラスの学生名前（アルファベット）を配列に保存せよ。また、最後にそれを標準出力せよ。
また、ファイル出力の場合も考えよ。
＊stringを使いなさい。

このスレまだあったのか

リスト構造ってむずい部類？

>>318
リストによっては。

単純な線形ならそんなに難しくないけど、双方向になると少し難しくなって、
ツリー構造とかになると結構難しくなって。バランス木くらいになると相当
難しくなる。

どうむずかしいの

>>320
自分で実装してみれば分かる。

なんで？

Delphiの課題なのですが

乱数を生成して 正方形 と 円（四分円）の面積を比較することにより，
　　　　円周率 π の近似値を求める方法がある。
　　　　以下は，この方法に関する問いである。

(1)　乱数によって定まる点の分布の状況を PaintBox 上に図示せよ。

(2)　円周率 π の近似値を計算せよ。

という問題が出されました
取っ掛かりからわからないという初心者ぶりです
ご教授願えませんでしょうか

> 乱数を生成して 正方形 と 円（四分円）の面積を比較することにより，
> 円周率 π の近似値を求める方法がある。

この方法については理解してる？

ランダムに点を打ってくんじゃなかったか?

まずアルゴリズムをはっきりさせること。

ｒを半径とすると、
円の面積は Pi*r*r
正方形の面積 r*r
円の公式 x*x + y*y <= r*4

を使うんじゃないの？

１辺の長さがRの正方形とそれに内接する四分円とを描画する。
正方形内にランダムに点を打ち、打った点の総数と、
そのうち四分円の中に入った点の数をそれぞれカウントする。
あとはその比率から円周率を近似するくらいはわかるだろう。

もんてかるろ法だわな

円の公式は x*x + y*y <= r*r
でした。

ご教授レスありがとうございました。

自宅にDelphiがないのですが（学校にある）、
取り敢えずモンテカルロ法について調べてみました。

結果イメージとしては理解できたのですが
点を打つ方法、点を数える方法がともにわかりませんでした。
（乱数関係から検索したのですが）

何もしてないと言われても仕方ない有様ですが、
どうかその二つの作業の方法だけでも教えていただけませんでしょうか。

>>330
ttp://www.wikihouse.com/DelphiVIP/index.php?%A5%B3%A5%E9%A5%E0%2F%A5%D1%A5%A4%A5%D1%A5%A4%A5%E2%A5%F3%A5%C6%A5%AB%A5%EB%A5%ED%A4%BF%A4%F3

>>330
>>331にほとんど答えが載っているが
せっかく文章練ったので。

http://sylphys.ddo.jp/upld2nd/pc2/src/1152029914998.png

乱数 x, y を別々に発生させ、>>329の式で
4半円(図の白い部分)の中にあるか判定する。

4半円の中に入った点の数・外になった点の数をそれぞれ
変数にもって、判定結果に従ってカウントアップ。
ある程度の数の点を計算したら、点の数の比を計算すれば、面積比が出てくる。

後は、既知の円の面積の公式 4πr^2 からπを求める。

PaintBoxは自分でやってください。

自分で考えないと馬鹿になるぉ

>既知の円の面積の公式

これがクセモノ

トートロジー

円の面積の公式も分からないとはいくらゆとり世代でも酷すぎる

>>335
というか、「Piを求めるのにPiを使った円の面積の公式を使う」
というのは問題じゃないのかと>>334は言いたいんだろう。

>>329

いや、式がおかしいです。
モロゆとり世代ですんません

4πr^2って球の話なの^^

>>339

>>332 のは 1/4 だから
点の数の比を計算するのに
4πr^2 になるってだけの話だと思う

おかげさまで課題できました。
皆さんお世話になりました。

パスカルの問題でわからないのですが、教えてください。

・学籍番号と点をデータとして入力し、これを得点の高い順に並べ替え、
　順位をつけて表示する。

高い順に並べ替えるまではできるのですが、それを点じゃなくて学籍番号
で表示することができません。

配列2個用意して、両方並べ替える。
Delphi的に正しいのは record 使う。

学籍番号と得点を組にして持って、並べ替えるときに一緒に動かすんだ。

ﾜｰｫ

すいません。よくわかりません。

とりあえずコード書いて晒してみれ。

これであと学籍番号を一緒に表示したいにですが、どうすればいいですか？
SysUtils;
type rec=record
name:String;
ten:integer;
end;var stud:array[1..5]of rec;
i,j,w:integer;

begin
{ TODO -oUser -cConsole Main : この下にコードを記述してください }
for i:=1 to 5 do begin
write('no.',i,' 学籍番号：');
readln(stud[i].name);
write('no.',i,' 点数：');
readln(stud[i].ten) end;

for i:=1 to 5-1 do
for j:= i+1 to 5 do
if stud[j].ten>stud[i].ten then
begin
w:=stud[i].ten;
stud[i].ten:=stud[j].ten;
stud[j].ten:=w
end;

writeln;
for i:=1 to 5 do writeln(stud[i].ten);
writeln;
readln;
end.

ここまで出来ててなんでそれが出来ないんだｗ

分からんままコピペしただけかな?

最後の
for i:=1 to 5 do writeln(stud[i].ten);
に、点数を出力する文を加えればいい。

みなさんのおかげで何とかできました。
ありがとうございました。

手続きや関数での変数宣言で、varをつけるのとつけないのの違いがよくわからないです。
誰か教えてください。

参照渡しと値渡し

アホですみませんがこの2つの問題がわかりません
ぜひ教えてください



５教科のテストを行いました。それぞれのテストの点数を入力してもらい、
それぞれの点数と５教科の合計と平均をわかりやすく表示するプログラムを作成しなさい。





プログラムを作成していて、次のような関数"printAns()"が必要となりました。
printAns()は第一引数としてint型を受け、受け取った整数に50をかけて
”答えは○○です”と表示してから、その答えをint型で返します。
このような関数printAns()を製作してください。
メインとなるプログラムは次のものを流用するように。

var
a,b:Integer;

begin
Write(Output,'n ? |');
Read(Input,a);
Writeln(Output,'ここから関数');
b :=Culculate(a);
Writeln(Output,'ここまで関数');
Writeln(Output,'戻り値は　',b);

end.

いくらなんでも丸投げ過ぎ

解答者がやりたくなるような質問の仕方を研究して来い

話はそれからだ

>>354
>>348 を改良すれば作れるよ。

課題内容：

新幹線に乗るために阪急電鉄・石橋駅から梅田経由で地下鉄御堂筋線・新大
阪駅まで行きたいとする．新大阪駅に到着したい時刻を入力すると，石橋駅
で何時何分発の列車に乗ればよいかを教えてくれるプログラムを以下の３段
階に分けて作成せよ．ただし，以下の２つの条件を満たすこと．

条件：

(1) 手続きもしくは関数を用いること．
（プログラムを分かりやすくするため）

(2) 少なくとも以下の情報を出力すること．
（ユーザが使いやすいように，出力を工夫すること）

・阪急電鉄・石橋駅の発車時刻
・阪急電鉄・梅田駅への到着時刻
・地下鉄御堂筋線・梅田駅の発車時刻
・地下鉄御堂筋線・新大阪駅への到着時刻

．

段階：

(1) 平日ダイヤのみに対応する．阪急は急行しか利用しない（普通列車な
ど，急行以外の列車は無視する）．

(2) 段階 (1) に加えて，阪急の全列車（特急，特急日生エクスプレス，
通勤特急，急行，準急，庄内・曽根通過待ちなしの普通，庄内・曽根
通過待ちありの普通）を利用可能にする．ただし，普通列車が後発の
特急などに追い越される可能性は無視する（追い越される普通列車を
出力してよい）．さらに，土曜・休日ダイヤに対応する．

(3) 段階 (2) に加えて，後発の特急などに追い越される普通列車でなく，
後発の特急を出力するようにする

358、359の者なんですが、PASCALの課題で下のような時刻表を与えられていてこれ以外にもたくさんあって、
配列に一つ一つ打ち込むにはあまりに多すぎるんで、どうにかファイルを呼び出したいんですが、
教科書のようなものを読んでみていじってみても上手くいきません。
どなたか少しわかりやすく説明していただけたら嬉しいんですが…

急行
6 4 22 33 44 51
7 1
829 49 56
9 7 16 27 39 49 59
10 9 19
1558
16 8 18 28 38 48 58
17 7 16 26 36 46 56
18 6 17 26 36 48 57
19 8 17 28 37 48 57
20 8 17 28 38 48 58
21 8 18 28 38 48 58
22 8 18 28 38 48
23 2 14

>>318
リストだけに超絶に難しい。

>>360
>>228-232 あたりに載ってる。
実用的な問題ですね。

1行ずつスキャンして、ansiナントカで解析していけばよい

二分探索法を手続き宣言して使用する場合、
procedureとfunctionのどちらを使えば良いでしょうか？

また、それらに処理に必要なデータを引数として渡すようにする場合、
どういった形式が望ましいのでしょうか？

いろいろ試してみましたが、うまくいかないので…
応えて頂けると幸いです。

とりあえずCとかのサンプルコードを移植したら?
それからDelphiスタイルに変えればいいかと。

Pascal過疎ってるなぁ。

>>364
procedure（手続き）とfunction（関数）は値を返すか返さないか
の違いだけしかないから、値を返したいんだったらfunctionにして
値が要らないんだったらprocedureにすればいいのでは。

処理に必要なデータは渡さなきゃならないけど、どうやって渡す
かは実装する人の自由だから、好きにすればいいと思う。

長文で失礼します。

(1) 配列にしまわれたいくつかの整数をデータとして，
棒グラフを作成するプログラムをかけ。
（入力データ x は 0<= x <=100 をみたすとする。）
Hint:
以下の作業を，i=1 から i=n まで，
n 回繰り返す （ for 文や repeat 文を用いる）
作業：
x 方向に位置をずらしながら，
a[i] に応じた高さの細長い長方形を n 個描く

50 未満のデータに対する「棒」は赤色で表示し，
50 以上のデータに対する「棒」は青色で表示するようにせよ。

という課題なのですが

var n : integer;
a : array[1..20] of integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(Edit1.Text);
n := n + 1;
a[n] := StrToInt(Edit1.Text);

Edit1.Clear; Edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
with PaintBox1.Canvas do
begin
for i= 1 to n do

//棒グラフ作成？

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Clear;
Edit1.Clear; Edit1.SetFocus;
end;

end.
という状態です。
ここまでに誤りがあるのか、また、肝心の空欄部分はどうすればいいか
教えていただけたら幸いです。

垢と阿保はどうすれば出ますか？

>>368-370
nは初期化されている? PaintBox1.Canvasはクリアされている?
棒グラフを書く前に座標軸を書かなきゃ。

棒グラフはまず「グラフ用紙に自分出てで書いて」みれば、どう
書けばいいか分かると思う。その書く手順そのままCanvasに
書けばいいだけ。

手で書く時に位置情報（ピクセル単位）を意識しながら書けば
簡単に出来ると思う。

いくつかのご指摘ありがとうございます。
なんとかがんばってみます。

C言語で書かれたプログラムをpascalに変換する何かってないですか？

Cを読む事が出来、pascalを書く事が出来る人間の脳と手

簡単だから自分で覚えた方がいいよ

Pascalがいかに面倒かってよく分かる

すごく間抜けた質問かもしれませんが
pascalのプログラムを家で作成したいのですがどこか置いてるサイトとかありますか？

Pascalコンパイラがどこにあるかってこと？

http://www.jp.freepascal.org/download.html

16bit だったような気がするけど

純正 pascal にこだわらないなら
Delphi / kylix あたりでいいんじゃない？

>>379>>380
どうもありがとう。
>>379のはなんか落とせないから>>380のやつみてみます。

pascalのコンパイラで有名なのは

１、Delphi 6 http://www.vector.co.jp/soft/win95/prog/se205882.html
　　登録が必要　http://www.borland.com/downloads/download_delphi.html

２、FreePascal
　http://www.jp.freepascal.org/
　IDEで有名なのはlazarus　http://www.lazarus.freepascal.org/

３、HelloPascal
　http://members.jcom.home.ne.jp/yurizaka/soft/

４、カベソン
http://www.tokumaru.org/plang/cabezon/cabezon.htm

５、gpc 　GNU Pascal Compiler

>>382
すごく参考になりました。どうもありがとう。

うわーカベソンで今もあったんだ。
なつかしー

Pascalとか、わけわかないっすお

for文くらいまでしか理解してません、もうﾀﾞﾒﾎﾟorz
誰か助けてください。。。○投げですいませんOTL

(i)　自然数(整数)で表記される「キー」、および、8文字までの文字列で表現される「データ」を、2分木の構造で管理するプログラムであること。
*常に左右のバランスを保つAVL木であること。
(ii)　プログラムの実行開始直後に、可能な操作のメニューが表示され、自在に選択でき、1つの操作が実行された後、そのメニューが再表示され、入力待ち状態になること。
(iii)　「キー」「データ」の値を入力することによりデータの登録ができること。
(iv)　二重登録を防止し、その際警告メッセージを出すこと。
(v)　「キー」の値の入力することにより、データの削除ができること。
(vi)　登録されていないデータを削除しようとすると、メニューに戻る前に警告メッセージを出すこと。
(vii)　「キー」の値を入力することにより、そのキーの値をもつデータを参照できること。
(viii)　2分木の構造(頂点間の接続関係)を表示できること。
(ix)　登録されている全データを、キーの小さい順に列挙できること。
(x)　2分木内の各頂点の(木の根からの)深さを表示できること。
---------------------------------------
*はできるとボーナス点

要解説書。手続きの処理内容、変数の説明など
解説書〆7/24
プログラムソース〆7/21
orz

↑
Pascalです。。。

recordを使う

俺もレポートやんないと

これpascalにしてください。
http://ime.st/zetubou.mine.nu/itoshiki/nozomu/zetubou26032.txt

ime.st のまま貼るなよ

Pascalでプログラムの実行実時間を調べるコマンドがわからないのですが、
誰かご存知でしょうか？

開始時と終了時に時間を取得して差を求める

WindowsならtimeGetTimeがms単位で測定できる。

やっとXcodeでFPC走るようにしたよん。記念にたまにはあげよう。

>394
それが信頼できるかはまた別物。リアルタイム処理を今のビジネス／ホビー用パソコンでやるのは
かなり無理があるよ。

DOSでTurbo Pascal使った方がいいくらい。

で？

Turbo Delphi で Pascal のコンパイルは出来ますか？

できます

integerで扱える範囲を越えた数値を代入すると、
誤った値を返したりすることってありますか？
また、そういうことを防ぐ、というかせめて
間違った値が出るということを予測できるといいなあと思うのですが

どういう文献を調べればよいのかも教えていただけると助かります！

integerの範囲を超えないように注意することで防げます。

ふつうは例外が出ると思う

>>400

integerの範囲?

low(integer)..high(integer)

引数のパラメータにconstを付けるのは、どういう意味（違い）があるのですか。
varなら分かりますが。

const も var も参照渡しだが、constは値の変更ができない。

すんません
手元にパスカルないんですけど
パスカルにおける論理式が真の時の返り値って
１でしょうか、それともー１でしょうか？

実装によりますが-1が多いです。

True です。

>>407
いやdelphiでもfpcでもord(true)は1だろ。

PInteger(@b)^ だと $FFFFFFFF

BooleanとIntegerではバイト長が異なるのでそのキャストは無意味

PByte(@b)^ だと $FF

>>408が正しいと思う。論理式は論理値しか返さないから、true
もしくはfalseしかない。1か-1かで比較すると「型が違います」と
怒られる。

Booleanは順序型だよ

だから何？

全ての順序型は数値とと互換性がある

そう。良かったね。

>>413
ord使えよ

それで？

>>406
0以外としか定義されてないよ。だからどっちかは風任せ

言語としては>408が正解だろう。
実装としては>420の言う通り取説嫁としかいいようがない。

fpcだと
boolean - false : 0 / true : 1
bytebool, wordbook, longbool - false : 0 / true : 0以外のなんでも
となっている。

ふーん、それが何か？

ユーグリッド互除法のプログラムを変更することにより正整数x、yを読み取りux+vy=gcd(x,y)
を満たす整数の組(u,v)を一つ出力するプログラムを作れ。ただし配列は用いない。

わからないのでお願いします!

program gcd(input, output);
var x0, y0, x, y, w, a1, b1, a, b, q1, u, v : integer;
begin
readln(x0, y0);
if (x0 > 0) and (y0 > 0) then begin
x := x0; y := y0; a := 1; b := 0;
while x <> 0 do begin
w := y mod x; y := x; x :=w;
q1 := y0 div x0;
a1 := b - q1 * a;
b := a;
a := a1
end;
u := b;
v := ( y - u * x0 ) div y0;
writeln('gcd(', x0:1, ', ', y0:1, ') = ', y:1);
writeln('(u,v)=(', u:1, ',', v:1, ')')
end
end.

こう作ったんですけど、x、yの値が大きくなると正しく動きません。
添削してください。

ポインタを使った2つの線形リストにそれぞれアルファベットを入れて、
その2つの共通部分を別の線形リストに入れて出力するプログラム

を書きたいのですが、よくわかりません。
まず、線形リストに文字を入力して、それを出力するだけのプログラムを
書いたのですが、コンパイルはできるものの実行すると無限ループになります。
何がいけないのかご指摘いただけると助かります。

↓↓つづく↓↓

program intersection(input,output);

type
pointer = ^celltype;
celltype = record
element : char;
next : pointer;
end;

var
listA,listB,listC : pointer;
x : char;

procedure insert(var p : pointer; a : char);

var
q : pointer;

begin
new(q);
q^.element:=a;
q^.next:=p;
p:=q;
end; { insert }

procedure print(p : pointer);

begin
while p<>nil do begin
write(p^.element,' ');
print(p^.next)
end
end; { print }

begin
readln(x);
while x<>'.' do begin
insert(listA,x);
readln(x)
end;
if listA^.element<>'.' then begin
print(listA)
end;
writeln();
dispose(listA)
end.

>while p<>nil do begin
>write(p^.element,' ');
>print(p^.next)
>end

pが変化してないようだが。while→ifじゃ無いか？

>>429
ifにしたらうまくいきました！！
逆順に出力されるけど・・・

共通要素を探す手続きのほうもがんばって作ってみます。
ありがとうございました。

で、その共通要素を探す手続きなのですが・・・
これのどこがだめなのかご指摘願います。

procedure search(var p,q,r : pointer);

var
found : boolean;

begin
while p<>nil do
begin
found:=false;
while q<>nil do
begin
if p^.element=q^.element then found:=true
else q:=q^.next
end;
if found then
begin
new(r);
insert(r,p^.element)
end;
p:=p^.next
end
end; { search }

あと、メインプログラムで

if listA^.element<>'.' then begin
print(listA)
end;

とありますが、このif文て必要ないですよね？
それから、listA,Bについてnewしてないのですが、これって問題あります、よね？
なぜか値が格納されてるみたいなのですけど・・・

age

リストに要素の重複は無いんだな。

>procedure search(var p,q,r : pointer); 
p,qは呼び出し元の値を変えんな。var取れ。

>if p^.element=q^.element then found:=true 
>else q:=q^.next 
ifが真の時、q:=q^.nextは実行されない（無限ループ）。

>new(r);
不要。

>とありますが、このif文て必要ないですよね？ 
無い。

>listA,Bについてnewしてないのですが、これって問題あります、よね？
無い。むしろdispose(listA)しかしてないのが気になる。

>>434
大変遅ればせながらありがとうございます。
無限ループはどうすれば回避できるのでしょうか？
それから、なぜlistA,Bをnewしなくてもよいのでしょうか？
質問ばかりですいません

>>431
ある文字がリストにあるかどうかを調べる関数を作れば
解りやすくなると思う。

実数が格納されている配列があって、その実数を配列の最初から順に
足し合わせていく関数を作りたいのですが、以下の関数だとうまくいきません。
ご教授願います。

function wa(f:hairetu):real;{hairetuは100項ある実数型の配列}

var i:integer;

begin
for i:=1 to 100 do begin
wa:=wa+f[i];
i:=i+1
end
end

wa　は何？

関数の名前です

function wa(f: hairetu): Real;
var
i: Integer;
sum: Real;
begin
sum := 0.0;
for i := 1 to 100 do sum := sum + f[i];
result := sum;
end;

こんなのはどうですか。

waに直接足し合わせていくのはだめなんですかね？
sumみたいな変数を用意しないとだめなんでしょうか？

じゃこれ。

function wa(f: hairetu): Real;
var
i: Integer;
begin
for i := 2 to 100 do f[1] := f[1] + f[i];
wa := f[1];
end;

wa := wa + f[i] とやると、右辺の wa はDelphiでは関数呼び出しと解釈されるから、無理。

配列に入れた値をヒープソートで絶対値とった小さい順にするプログラム教えてください。

ヒープソート難しいよ。

>>443
Wikipedia逝け
アルゴリズム載ってるから

>>445
そんなのもう見ました。

私もよく解らないけど、
配列を二分木のように解釈するみたい。
配列の先頭＝二分木の根っこで、ここに一番大きい値を持ってくるみたい。

ここまではＯＫ？

ttp://www.ics.kagoshima-u.ac.jp/~fuchida/edu/algorithm/sort-algorithm/heap-sort.html
ttp://su10.sgu.ac.jp/~morita/Seminar/6thStudent/entani/sort/heap/heap.html

実行時に０〜９以外のキーを入力した場合、
自動的に消えるようにしたいんだけどどうしたらいいかな？
わかる人いますか？

何が消えるようにしたいの？

Editへの入力からじゃないかな。
ようは数値入力専用Editを作りたいのかと。
OnKeyDownイベントで、いらないキー入力は Key := 0; で無効に出来る。

448　ですけど、質問下手ですいません。
具体的に言うと、

program Keisan(input,output);
var a,b,wa:integer;
begin
a:=30;
writeln('数字を入力してください');
readln(b);
wa:=a+b;
writeln('a=',a,' b=',b);
writeln('a+b=',wa)
end.

で実行して、間違ってアルファベットとか打つとエラーになるでしょ？
そうじゃなくって「再度入力してくれ」と表示してもう一回って感じに
自動的に持ってきたいんです。
charでどのキーも入力OKにしてから０〜９を数値型に変換するのかなと
考えたんだけど、いまいちやり方わかりません

function ReadInt: Integer;
var
　S: strting;
begin
　repeat
　　WriteLn('数字を入力してください');
　　ReadLn(S);
　until TryStrToInt(S, Result);
end;

すみません。学校でパスカルにちょこっとふれただけなのですが、課題がでて、もうどうしてよいか分かりません。
助けてください。
入力されたｎ個の数を大きい順に並び替えるプログラムを作れ。

お願いします。

n個の配列を用意して二重ループで大きい順に入れればいい。

こんなんどうだ？

function FindMax(A: array of Integer; Start: Integer): Integer;
var
　Max, I: Integer;
begin
　Max := Start;
　for I := Start + 1 to High(A) do
　　if A[I] > A[Max] then
　　　Max := I;
　FindMax := Max;
end;

procedure Swap(var A, B: Integer);
var
　Temp: Integer;
begin
　Temp := A;
　A := B;
　B := Temp;
end;

procedure Sort(var A: array of Integer);
var
　I: Integer;
begin
　for I := 0 to High(A) do
　　Swap(A[I], A[FindMax(A, I)]);
end;

GNU PascalをOS X上のXcodeで使ってます。
時間の計算をしたいと思いますが、如何すればいいですか？

求むエスパー

ミリ秒に変換して計算すれば良いと思う。

>>458
回答ありがとうございます。それでは、ミリ秒に変換するには如何すればよいのでしょうか。

何がしたいのか具体的に書かないと誰も答えられないよ。

1 sec = 1000msec
1 min = 60 sec
1 hour = 60 min

バッババババビューンと空を逝くw

さて、明けたことだし宿題やろ

[質問]
「上から○(円)が落ちてきて、
ウィンドウの１番下に達したら
その円は止まり、新しい円が
また落ちてくるプログラムを作れ
(ただしfor文を使うこと)。」
という宿題が出たのですが、
よく分かりません。

どなたか分かる方、教えて下さいm(__)m

やだ

ヒント
Form1.Canvas, Ellipse, Timer, Form1.ClientHeight

ここはいつからDelphiスレになったんだ？

あぁ、Delphiも対応であったか。失礼。

パスカルの入門書でおすすめありませんか？
http://www.saiensu.co.jp/books-htm/ISBN4-7819-0757-1.htm
これを買おうかな、と今は思っているのですが。

やめとけ

つーか、今からPascalを勉強しようというのが…　授業かなんかかい?

Pascalの教科書は何冊か使ったけれど、てもとにあるのは森口さん他の
「Pascalプログラミング講義」（共立出版）
だ。これ、ちょっと内容が薄いかな。

思い出してみればボーランドのTurbo Tutorが結構優れた教科書だった。
TP5.5はフリーになってるけど、Turbo Tutorってネットに流れてない?

定番アルゴリズムは奥村さんのアルゴリズム事典で勉強したね。
ttp://oku.edu.mie-u.ac.jp/~okumura/algo/algo_pas.html

あれだ、今日びは言語自体より、（一昔前なら）API、（出るちゃん以降は）
コンポーネントの使い方の方が大事だってゆー、つまらないといえばつまらない
世の中になったもんだよ。

いえ、授業ではなくてただの興味です。
レスありがとうございますm(__)m

授業でないなら、その手の教科書本は初心者にはしんどいと思うよ。
興味を持ち続けられないと思う。

Delphi言語や、教育目的、古いプログラムの保守は別として、
Pascalもまだまだ現役で使われてるんですか？

全く。

DelphiってもしかしてObjectPASCALのことですか？

>476
その辺は複雑で、ボーランドはBorland Pascal がサポートする言語を
Object Pascal と呼んでいた。Borland Pascalは消滅して、ご存知Delphiが現行なんだが、
これが実装している言語は今では「Delphi言語」と呼ばれているはず。

Delphi言語はプログラミング言語Pascalをオブジェクト指向を用いて
拡張したものだから、Object Pascalの一種であり、最も普及したものだね。
既にPascal言語の de facto standard といっていいと思う。

すいません、お初です。
学校課題でπの近似値を求めろ、言われました。マチンの公式使ってやってみようと思ったんですけど、数字を何乗かしたいとおもったっとき、使えるコマンドはあったでしょうか？
たとえば、２のＮ乗がしたいとき、read(n)で読み込んで、計算させたいということなんですけど。
教えてください。

標準的にはないけど、処理系のおまけでついている可能性がある。
なくても自分で書けばおっけー。

えーと、どうやれば書けますか？
ちょっと想像がつかないので教えてください。

再帰的な定義をそのまま実装（普通は末尾再帰→繰り返しにする）するか、
a ^ bのbが実数の場合は標準函数（だったよね）としてlnとexpがあることを利用すると、ln(a^b) = ln(a) * bだから a^b = exp(ln(a) * b)

冪乗の演算子／函数がないのに対数、指数関数があるというのがWirth先生。
以下FPCでテスト墨

Program PowerTest;
var a, b : real;

function power(a : real; b : integer) : real;
begin
if b > 0 then power := a * power(a, pred(b))
else if b = 0 then power := 1
else power := 1 / power(a, -b)
end;

function RealPower(a, b : real) : real;
begin
RealPower := exp(ln(a) * b)
end;

begin
write('a ^ b, a= , b= '); readln(a, b);
writeln(power(a, round(b)), ' ', RealPower(a, b))
end.

ありがとうございました。後はもう少し自分であがいて見ます。

落ちてる？

GPCのバグを発見してしまったage

整数演算の結果がオペランドのビット巾で丸められちまう。

丸められるって？

質問です。
大学入ってPascalプログラミングやってるんですが、
『選択ソートのプログラムを作成せよ。
ただし、データ数を最初に入力するように変更すること。
また、データ数は１個から最大１００００個まで対応できるようにすること』
とあるのですが、サッパリです。
かなり初心者な質問で申し訳ないのですが、どなたか教えてください

>ただし、データ数を最初に入力するように変更すること。

元のソースが無いと変更しようが無い。

すみません。元のソースは

program sort(input,putput);
const numofdata=893;
var d: array [1..numofdata] of integer;
i,j,k: integer;
tmp: integer;
begin
for i:=1 to numofdata do
begin
read(d[i]);
end;

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

for i:=1 to numofdata do
begin
writeln(d[i])
end
end.

です

ほれ。FreePascalでテスト済み。

Program sort(input, output); (* putputってぉぃw *)
const numofdata = 893; (* 嗤いどころかこれ。これを10000に汁 *)
type dataindex = 1..numofdata;
var d: array [dataindex] of integer;
datanum : dataindex; (* データ数を貯めとく変数を用意するのが肝な *)
i, j, k: integer;
tmp: integer;
begin
write('n (max ', numofdata, ')= '); readln(datanum);
for i := 1 to datanum do read(d[i]); (* begin endブロックいらね *)
for i := 1 to pred(datanum) do begin
j := i;
for k := succ(i) to datanum do
if d[j] > d[k] then j := k;
tmp := d[j]; d[j] := d[i]; d[i] := tmp (* セミコロンいらね *)
end;
for i := 1 to datanum do writeln(d[i]);
writeln('...so modified and tested by 2channelers ;-)')
(* このまま提出するなよ *)
end.

ありがとうございます！

ローカルのファイルにアクセスするにはどうすればいいですか？

>>491
Pascalには標準的な方法がありません。処理系とファイルシステム依存です。

UCSD-Pascal, Pascal/MT, MT+, Turbo/Borland Pascal, FreePascal では
assign手続きを実行しといて、resetなりrewriteなりします。

assign(ファイル変数, ファイル名);
reset(ファイル変数);
...
close(ファイル変数)

GPCだと上のBorland方言に加えて、ISO拡張Pascal標準のbind手続きが使えます。

PASCALでCGIは作れますか？

>>datanum : dataindex; (* データ数を貯めとく変数を用意するのが肝な *)
申し訳ないのですが、なぜデータ数を溜めておく変数が必要なのか教えていただけませんか

変数に保存しとかなきゃ何回入力を受け入れるべきか解からなくなるじゃｎ

>>493
俺はCP/M世代の棺桶片足なおさんだから、そういう今様なものは
良く知らんのだが、perlやRubyの本をチラリズムしたカンジダと、
httpdとの間でデータをやり取りする規格さえ合ってれば、
文字列操作ができさえすれば良くて、
言語自体はLISPでもCOBOLでもALGOLでもPL/Iでもいいんじゃまいか。
実際、FreePascalでCGI作ってる例があったなあ。

ttp://courses.cs.vt.edu/~cs3304/FreePascal/doc/user/node12.html
や
ttp://www.erg.slf.th.schule.de/informatik/c/cgi-vortrag/index.html
に説明があるけど、uncgiユニットてのを使うと便利らしい。

ttp://www.is-hanko.co.jp/info/welcome.html
も面白い。茨の道へGO!

PASCALの問題です

問題１

西暦を入力して、「1989年は平成2年です」というように年号や年を出力するプログラムを作りなさい。
ただし各年号の境目は両方の年号を出力するようにすること。（1988年は昭和64年でも、平成元年でもある）


問題２
下記を表示するプログラムを作れ

(1)
**********
*********
********
*******
******
*****
****
***
**
*

(2)
*
**
***
****
*****
******
*******
********
*********

問題３
Nを入力して1からNまでの和を計算するプログラムを作れ。
また1からNまでの奇数の和を計算するプログラムも作れ。


問題１はif文，２・３はfor文を使用します。
一週間ほど足りない頭で粘ってみてもわかりません。
先生は非常勤だから質問する相手もいないので
皆さんの知恵をお貸ししていただけたら幸いですm(__)m

ふーん
こういう宿題出るもんなんだな(´・ω・｀)

Program LotsOfStars(output);
var i : integer;

procedure StarBar(n : integer);
var i : integer;
begin
for i := 1 to n do write('*');
writeln
end;

begin
for i := 10 downto 1 do StarBar(i);
for i := 1 to 10 do StarBar(i)
end.


おまけ
Program SingleStar(output);
var i : integer;
begin
for i := 10 downto 1 do writeln('*' : i);
for i := 1 to 10 do writeln('@' : i)
end.

問題3の前半
Program NeverTested(input, output);
var n : integer;
begin
read(n); write((n * (n+1)) div 2)
{ don't trust me ;-p }
end.

>>500-501
大きなヒントを下さってありがとうございます♪
教養科目で卒業が掛かっているのでとても嬉しいです

問１を自分なりにやってみたのですが、
program gengou(input,output);
var a:integer;
begin
readln(a);
writeln('西暦',a,'年の元号は？');
if a>1988
then writeln('平成',a-1988,'年です')
else if a>1926
then writeln('昭和',a-1926,'年です')
else if a>1910
then writeln('大正',a-1910,'年です')
else if a>1867
then writeln('明治',a-1867,'年です')
else writeln('江戸時代です')
end.

何がダメなのかすらわかりません＞＜
助けてください・・・

別に何もダメじゃなくね？

強いて言えば問いかけの前にreadlnしてるとこ。

あ、元号境界の処理と＋１してない。

>>505
INC(年号)は俺も気づかなかった

>502
1989年は平成元年かつ昭和64年ってのを、最初のif文で判定する必要があると思う。

なんとなく年号のテーブルがずれてる気がした。

program gengou;
{$APPTYPE CONSOLE}

var a, i: integer;
const
era: array[0..3] of Integer = (1989, 1926, 1912, 1868);
eraname: array[0..3] of array[0..10] of char = ('平成', '昭和', '明治', '大正');
begin
readln(a);
writeln('西暦', a, '年の元号は：');
for i := 0 to 3 do
if a >= era[i] then
begin
writeln(eraname[i], a - era[i] + 1, '年');
if a = era[i] then
writeln(eraname[i + 1], a - era[i + 1] + 1, '年');
break
end

end.

一応コンパイラはdelphi使って確認したけどコンパイラ指示除いてBorland拡張は使っていない・・・と思う。

例題から察するに、配列はまだ習ってないんじゃないか

>>508
>const
>era: array[0..3] of Integer = (1989, 1926, 1912, 1868);
>eraname: array[0..3] of array[0..10] of char = ('平成', '昭和', '明治', '大正');

ここでもうBorland方言でつ。

む、そうなるとかなり長いif文の羅列になるな・・・スマンそのコードは俺の性には合わない。

な、な、定数配列はBorland方言とな！標準Pascalじゃやっぱり書けん！

>>513
大域変数として名前を確保し、変数初期化手続きを書いて、
大域変数はそこでまとめて面倒を見ておく、てのが常道だった。
まーそこまでストリクトに標準Pascalの流儀を守る必要もないんだけどw

あと、文字列型を使っていいのかも不明なんだよな。

久しぶりにヴィルトの原書開いてみたらやっぱり載ってなかった。
なるほどK&Rのどちらかだったか、「これじゃ書けねえ・・・」と思った気持ちもわかる。
いや、嫌いじゃないんだよPascal。むしろ好き。
ありがとう僕の友達Pascalに会わせてくれて。

>>515
それはラスカルだ

>>515
定数配列や変数宣言での初期化は便利だし、可読性も高くなるんだよね。

言語仕様を出来るだけ小さくしようと言うのがヴィルト先生の狙いだったのと、
原始Pascalでは宣言の順序が決まっているから、
定数宣言の中にユーザ定義型の識別子を書けないというのがあったのかな。

>>516
歳がバレるぞww

いや歌は違うだろうけど最近もやってるよ。
ttp://www.nippon-animation.co.jp/pocapoca/

ﾃﾗｷﾓｽｗ

break文もBorland方言だな。標準Pならgoto文で抜け出すことになるね（こういう時のためにgotoを残してあるんで）。
era回りだけど、record型を使う方が原則的で美しいよな。それと、効率は少し落ちるけど、
eraname = packed array [1..10] of char;
era = record
beginyear, endyear : integer;
name ; eraname
end;
eraarray = array[1..4] of era;

とやってあげて、eをeraarray型の変数として、
for i := 1 to 4 do with e[i] do begin
if (a >= beginyear) and (a <= endyear) then begin
j := a - beginyear;
if j = 0 then write(name, '元年 ') else write(name, succ(j), '年 ')
end
end;
writeln

も手だな。eがソートされていなくても動くし、元年の処理の特殊性が減る。課題とは動作が違うけどね。

ファイル型の要素にtreeは使えないの？

program test (input,output,IntFile);
type tree=^node; node=record name:char; tel:integer; left,right:tree; end;
var IntFile:file of tree; r:tree;
begin
reset(IntFile,'tel-data');
read(IntFile,r);

rewrite(IntFile,'tel-data');
write(IntFile,r);
end.

こんな感じで

使えるけど無意味だよ。

大学ではpascalの講義の後lisp, prologと続くのか？最近はjavaとかもやるのか？

っていうかpascal教えてる大学ってどういうところ？
情報系だとJavaを最初に教えると思うし。

最終的にpascal処理系を作成させる為に最初にpascalやるんじゃなかろうか？

↓の問題なのですが、どなたか教えていただけないでしょうか？

『下記のプログラムを参考にして、ファイルからデータを読み、それを整列し、その後、
”入力された値をデータの中から二分探索によって探索する”ことを繰り返すプログラムを作成せよ』


↓↓↓↓↓下記のプログラム↓↓↓↓↓

program sort(input,output);
var d:array [1..10000] of integer;
numofdata:integer;
i,j,k:integer;
tmp:integer;
begin
read(numofdata)
for i:=1 to numofdata do
begin
read(d[i]);
end; 　　　　↓続きます

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

for i:=1 to numofdata do
begin
writeln(d[i])
end
end.

どなたかお願いしますｍ(_ _)ｍ

ちょいと書き直すと、
Program sort(input,output);
var d:array [1..10000] of integer;
numofdata:integer;
i,j,k:integer;
tmp:integer;
begin
read(numofdata);
for i:=1 to numofdata do read(d[i]); (* begin end いらね *)
for i:=1 to numofdata-1 do begin
j:=i;
for k:=i+1 to numofdata do if d[j]>d[k] then j:=k; (* begin end いらね *)
tmp:=d[j]; d[j]:=d[i]; d[i]:=tmp
end;

for i:=1 to numofdata do writeln(d[i]) (* begin end いらね *)
end.

ここで
tmp:=d[j]; d[j]:=d[i]; d[i]:=tmp
が肝な。その上のfor文で、i<=jで最も小さいd[j]になるようなjを探し出している。
d[i]をそのd[j]と入れ替えれば、d[i]はi以降の最小値になるわけだ。
これをバブルソートって呼ぶことは知っているよな。

ついでだからばぶるな挿入な。さて、新しい値を p とする

d[numofdata + 1] := p;
i := 1;
while p < d[i] do i := i + 1;

これで i は　p>=d[i]を満たす最小の値になった（もうソートしてあるから）
p がたまたま d の最大値だったら、これ以上処理は必要ない。そうでなければ、
d の i 番目に p をそうぬうする。

for j := numofdata downto succ(i) do d[succ(j)] := d[j];
d[i] := p;

でそうぬう官僚。実は、p がたまたま d の最大値だった場合もこれを走らせていい。
しかし、課題は二分探索であった。あんま奇麗じゃないがfpcで試してはある。

procedure binarysearch(p : データの型; mini, maxi : integer);
begin
i := (mini + maxi) div 2; (* mini と maxi の間の数ならなんでも *)
if p = d[i] then writeln('Found at ', i)
else
if maxi = mini then begin
write('Not found. Must be inserted ');
if p > d[i] then write('after ')
else write('before ');
writeln(i, ' th number.')
end else
if p > d[i] then binarysearch(p, succ(i), maxi)
else binarysearch(p, mini, pred(i))
end;

これをメインプログラムから binarysearch(調べたい数, 1, numofdata)

と呼ぶ。文字列型が使えると、少し奇麗になる。d[i]を何度も評価しているから、
d[i]の評価にコストがかかる場合はローカルにコピーしとく。

>>531は局所変数 i を宣言する行を落としていたな。

でだ、>>530と一緒に考えると、次のような改造をすぐ思いつく。

procedure insert(p ; データの型; i : integer);
var j : integer;
begin
numofdata ;= succ(numofdata);
for j := numofdata downto succ(i) do d[j] := d[pred(j)]; (* >>530は間違いだ orz *)
d[i] := p
end;

これは p を d の i 番目にそうぬうする手続な。>>531の真ん中へんでこれを呼ぶ。
if maxi = mini then begin
i := i + ord(p > d[i]);
writeln('Not found, then instert it as ', i, ' th number.');
insert(p, i)
end

新しい数が現れたらずんずん配列に追加していく改造な。

>>527
二分探索って何か分かってる？

どんな巨大なデータも２分で探索できる高速アルゴリズムのことです

データ数が1でも2分かかったりしてw

それはないｑ

俺の偽者がずいぶんいるな。おまいらちゃんと名前修飾しろw

初めまして、いきなりで申し訳ないんですが教えてください(_ _)

入力された論理式の充足可能性を判定するプログラムを作成せよ。
論理式は， 充足可能性判定の計算量を考慮し， 最大10変数までにする。
という問題です。
以下は注釈です。
「論理式」とは論理変数 x0，x1，x2，・・・に， 論理演算「¬（否定）」，「∧（論理積）」，「∨（論理和）」を有限回適用したものである。
論理式 F(x1,...,xn) が「充足可能である」とは， F(a1,...,an) = true となる変数割当て (a1,...,an)∈{true, false}n が存在することをいいます。
作成するプログラムには， 以下の機能を付加すること。

１：入力された論理式を，通常の式のように表示する機能
「x1∨x2」， 「¬x0」， 「(x2∨¬x3)∧x1」など

２：論理式が true となる（すべての）変数値割当てを表示する機能
例
「F = x1∨x2 が true になるのは
x1=true, x2=true のとき
x1=true, x2=false のとき
x1=false, x2=true のとき
よって F は充足可能である」

ちなみに入力方法はキーボードで直接入力です。
例として、
例えば， (x1∧x2)∨x3， x1∧¬x1 などはいずれも論理式です。
例えば， F1 = (x1∧x2)∨x3 とすると， x1 = true， x2 = false， x3 = true のとき F1 = true となるので， 論理式 F1 は充足可能です。 一方， F2 = x1∧¬x1 とすると， どのような x1 に対しても F2 = false となるので， F2 は充足可能ではありません。

お願いします(_ _)

めんどいから逆ポで式を書くことにする。
例えば a b & c ¥ | ならば (a and b) or (not c) な。変数の個数は maxvar で与える。
Program Viva2chan;
const maxvar = 'c';
type
pnode= ^node;
node = record value : boolean; next : pnode end;
var
stack : pnode;
variables : array ['a'..maxvar] of boolean;
i : integer; s : string; c : char;

procedure push(v : boolean);
var nd : pnode;
begin
new(nd);
nd^.value := v; nd^.next := stack; stack := nd
end;

function pop : boolean;
var v : boolean; nd : pnode;
begin
nd := stack; v := nd^.value; stack := nd^.next; pop := v;
dispose(nd)
end;

procedure ope(operation : char);
var operand : boolean;
begin
if operation in ['&', '|', '#'] then operand := pop;
with stack^ do
case operation of
'&' : value := value and operand;
'|' : value := value or operand;
'#' : value := value xor operand;
'¥' : value := not value
end
end;

function calc(source : string) : boolean;
var i : integer; c : char;
begin
for i := 1 to length(source) do begin
c := source[i];
if c in ['a'..maxvar] then push(variables[c])
else if c in ['&', '|', '#', '¥'] then ope(c)
end;
calc := pop
end;

procedure SetVarSet(n : integer);
var c : char;
begin
for c := 'a' to maxvar do begin
variables[c] := odd(n);
n := n div 2
end
end;

function powerof(n : integer) : integer;
begin
if n > 0 then powerof := powerof(pred(n)) * 2
else powerof := 1
end;

begin
stack := nil;
write('Enter term :'); readln(s);
for i := 1 to powerof(ord(maxvar) - ord('a') + 1) do begin
SetVarSet(i);
for c := 'a' to maxvar do write(variables[c], ' ');
writeln(calc(s))
end
end.

つうわけで、n個の論理型変数が張る空間を全部舐めて、結果を表示する。
ここでは手抜きでやってるけど、空間なめにはハフマン距離を使うとかっこいい。

実際には全部舐める必要はなくて、最初にtrueが帰った時に終了すればいい。
中置気泡対応は任せた。

学校の宿題が

電車をA駅からB駅で乗り換えて、C駅に行きたい。
C駅での到着希望時刻を入力したらA駅での時刻が出力されるプログラムを作れ。

なのですが、行数300越え＋時刻表からデータ取り込みなんで質問しようにもどこがおかしいのかいまいち分かりません。
怪しいところを抜粋して書き込むのでアドバイスよろしくお願いします。

procedure Minteger( var int: integer);
begin
repeat read(f, c) until c in['1','2','3','4','5','6','7','8','9','0'];
if c in['1','2','3','4','5','6','7','8','9','0'] then
int := ord(c) - ord('0');
end

procedure Extfile(var a:data; i :count);
var
x,y,z: integer;
begin
i := 0;
while not eof(f) do begin { ファイル末尾でない限り }
Minteger(int);
x := int;
Minteger(int);
y := int;
x := (10*x)+y;
while not eoln(f) do begin
i := i + 1;
Minteger(int); y := int;
Minteger(int); z := int;
a[i] := (x*60) + (y*10) + z + 6;
end;
readln(f); { 改行文字を読み飛ばす }
end;
n := i;
writeln(output);
end;

時刻表の数字の部分をinteger型に直す手続き(procedure Minteger)と、それぞれの時間を
分の単位に直してa[i]の配列に放り込む手続き(procedure Extfile)のつもりです。

時刻表のファイル自体はちゃんと開けています。
時刻表は
08 09 19 29 39 51
09 01 11 21 31 41 51
10 01 11 21 31 41 51
のようにすべて二桁になるようにつくっています。

procedure ArriveSin(var Ax:integer);
var
x,y,z,mi: integer;
k: count;
begin
if (d = 1) then begin
reset(f, 'HolyUmeda'); writeln('Holyを読み込み増した。')
end
else begin
reset(f, 'WeekUmeda'); { ファイルを開く }
writeln('Weekを読み込み増した。')
end;

Extfile(a, i);

if (h < 14) then begin
k := 1;
while a[k] <= mi do
k := k+1;
Ax := a[k-1];
end
else begin
k := n;
while a[k] > mi do
k := k-1;
writeln('a[',k,'] = ',a[k]);
Ax := a[k];
end;
close(f)
end;

さっきのa[i]の配列の中でmi(到着希望時刻を分単位になおしたもの)より小さいものの中で、一番大きなものを探してAxに代入しています。

hは時刻（時）で14時より早いなら前から、遅いなら後ろから調べるようにしているつもりです。

>>538です。
答えありがとうございます！
実際の入力は例えば「ab＆cdｌ＆」と入力すればいいってことですね(ﾟ∀ﾟ)
出力が（a∧b）∧（c∨d）　となる感じですね。

あと、プログラムの解説も書いて提出しなければならないのですが・・・
もしよろしければ、解説をしていただけるとありがたいです。

node = record
value : boolean; term : string; next : pnode
end;

てなかんじに項を文字列としてスタックに積めるようにする。
逆ポはそれ自体構文解析してるようなもんだから、次のようにすれば中置紀宝に
できるよ。

procedure term(operation : char);
var operand, tempterm : string;
begin
if operation in ['&', '|', '#'] then operand := popt;
with stack^ do begin
case operation of
'&' : tempterm := term + ' and ' + operand;
'|' : tempterm := term + ' or ' + operand;
'#' : tempterm := term + ' xor ' + operand;
'¥' : tempterm := 'not ' + term
end;
term := '(' + tempterm +')'
end
end;

function disp(source : string) : string;
var i : integer; c : char;
begin
for i := 1 to length(source) do begin
c := source[i];
if c in ['a'..maxvar] then pusht(c)
else if c in ['&', '|', '#', '¥'] then term(c)
end;
disp := popt
end;

push, pop類はスタックを実装している。RPNだから単純なスタックマシンで
好きなだけ複雑な式を計算させられる。calcが手抜きパーザで、変数名を見ると
スタックに値を積み、演算子を見ると、opeで演算を行いスタックトップに値を残す。
最後にpopすれば式全体の値になる。
変数空間を舐めるのはSetVarSetで、0から始まる2^変数個の整数を生成して、
得られた整数の各ビットを変数の値に代入している。

for i := 1 to powerof(ord(maxvar) - ord('a') + 1) do
はこれでもいいけど、
for i := 0 to pred(powerof(ord(maxvar) - ord('a') + 1)) do
の方が見栄えがいいな。

「変数空間を舐めるのはSetVarSetで、0から始まる2^変数個の整数を生成して、
得られた整数の各ビットを変数の値に代入している。」は
「変数空間を舐めるために、0から始まる2^変数個の整数を生成して、得られた
整数の各ビットをSetVarSetで各変数の値に代入している。」

>>543
時刻表ってのは基本的に列車の配列なのな。
列車をどうデータ化するかが問題じゃな。
別線を通ったり、優等列車だったりして特定の駅に停まらないことを表現するのも
忘れてはいけないのな。

駅乙にある時刻までに到着する、
駅乙に到着する前に駅甲に停車する列車のうちで、
駅甲の発車時刻が一番遅いものを見つける。この操作を二回繰り返せばいい。

>>548です。ありがとうございます。
実際に実行してみました。
Enter term: の後に a b & c \ | と入力すると
TRUE FALSE FALSE TRUE
FALSE TRUE FALSE TRUE
TRUE TRUE FALSE TRUE
FALSE FALSE TRUE FALSE
TRUE FALSE TRUE FALSE
FALSE TRUE TRUE FALSE
TRUE TRUE TRUE TRUE
FALSE FALSE FALSE TRUE
と表示されました。これは左から a, b, c, [(a and b) or (not c)]
となっているとわかりました。
実はプログラムへの要求事項があって
入力された論理式を，通常の式のように表示する機能
(例えば 入力が「a b |」 ならば 出力で「(a∨b」と表示される)
論理式が true となる（すべての）変数値割当てを表示する機能
の二つの機能、まとめると
「F = a∨b が true になるのは
a=true, b=true のとき
a=true, b=false のとき
a=false, b=true のとき
よって F は充足可能である」
こういうような形で表示しなければならないらしいんです。
こうするにはどうしたらいいのでしょうか?
何度もすみません＾＾；

「普通の式」で書くのは549-550のを久美こんでくれたまへ
もひとつのは、式の評価がtrueな時だけ出力すればいいから簡単。

ただねえ、10変数まで許すんでしょ、変数の値の集合には1024個の
元があって、式（変数1）を真にするのは500個、変数1-10の論理和をとれば
1023個で真になる。そんなのを表示しろというのも、若干野蛮な問題だと
思うなww

>>553です。ありがとうございます。
教えていただいたプログラムに549ー550を加えてみました。
Program Viva2chan;
const maxvar = 'c';
type
pnode= ^node;
node = record
value : boolean; term : string; next : pnode
end;
var
stack : pnode;
variables : array ['a'..maxvar] of boolean;
i : integer; s : string; c : char;

procedure push(v : boolean);
var nd : pnode;
begin
new(nd);
nd^.value := v; nd^.next := stack; stack := nd
end;

function pop : boolean;
var v : boolean; nd : pnode;
begin
nd := stack; v := nd^.value; stack := nd^.next; pop := v;
dispose(nd)
end;

procedure ope(operation : char);
var operand : boolean;
begin
if operation in ['&', '|'] then operand := pop;
with stack^ do
case operation of
'&' : value := value and operand;
'|' : value := value or operand;
'\' : value := not value
end
end;

function disp(source : string) : string;
var i : integer; c : char;
begin
for i := 1 to length(source) do begin
c := source[i];
if c in ['a'..maxvar] then pusht(c)
else if c in ['&', '|', '#', '\'] then term(c)
end;
disp := popt
end;

function powerof(n : integer) : integer;
begin
if n > 0 then powerof := powerof(pred(n)) * 2
else powerof := 1
end;

begin
stack := nil;
write('Enter term :'); readln(s);
for i := 1 to powerof(ord(maxvar) - ord('a') + 1) do begin
SetVarSet(i);
for c := 'a' to maxvar do write(variables[c], ' ');
writeln(calc(s))
end
end.

5ー7行目を549のように書き換えました。
60ー83行目に549ー550を追加しました。
コンパイルすると
push, pop, ope, calc, SetVarSet, term
"datakozo.p", line 62: Warning: Symbol 'POPT' is not defined [221]
"datakozo.p", line 62: Warning: Mixing non-strings with strings [170]
, disp
"datakozo.p", line 80: Warning: Symbol 'PUSHT' is not defined [221]
"datakozo.p", line 83: Warning: Symbol 'POPT' is not defined [221]
"datakozo.p", line 83: Warning: Mixing non-strings with strings [170]
, powerof, Viva2chan

Translation completed.
datakozo.c: 関数 `term' 内:
datakozo.c:116: `popt' が宣言されていません (この関数内で最初に利用)
datakozo.c:116: (未宣言の各変数については、それが最初に現われたそれぞれの関数
datakozo.c:116: に対して一度だけ報告されます。)
datakozo.c: 関数 `disp' 内:
datakozo.c:162: `popt' が宣言されていません (この関数内で最初に利用)

となりました。この場合はどうなのでしょうか?
あと、trueのときだけを表示するには下から4行目を換えればいいのかなと思ったのですがどうでしょうか?

約分をするプログラムの作り方を教えてください

最近はBASIC屋に化けてるww

約分ってのは分母子を最大公約数で割ればいいわけだから、
よーするに最大公約数を求める問題にいきつく。
これは二千年以上前から判っている方法で溶ける。FPCでテスト墨。

Program Euclid;

function GCD(m, n : integer) : integer;
begin
if n = 0 then GCD := m
else if m mod n = 0 then GCD := n
else GCD := GCD(n, m mod n)
end;

begin
writeln(GCD(123, 12))
end.

エウクレイデス先生はとても偉かったし、算法も高効率だが、
このコード自体の効率はわるいよ。

有賀と

data.txt(100個の英単語がアルファベット順)というファイルに、
新しく単語を入力、またはそのファイルから単語を削除するプログラムを
どなたか作ってください。お願いします。

おい！誰ぞ！

パスカルの後継言語ヘクトパスカル作れよ！

そこはあえてバールと言おうぜ。

どんなに気圧が低くても、愛の風は風力3w

program EX01(input,output);
var D1,D2,S,D,P,Q:integer;
begin
read(D1,D2);
S:=D1+D2;D:=D1-D2;P:=D1*D2;Q:=D1 dir D2;
writeln(D1,D2);
writeln(S,D,P,Q);
end.
整数の四則演算なのですが、Windowsで保存するときの拡張子を教えてください。

急いでいたので、言葉が足りなかったかもしれません…。
今日から大学での講義がスタートして、教科書もなんにもなく、いきなり出された宿題なので、さっぱり分かんないのです。
C言語でやっていたように、Windowsのメモ帳でプログラムを作って、
【.cpp】ではない何かで保存→コマンドプロンプトで実行
というようにやりたいのですが、いろいろと教えていただきたいです。

EX01.pasじゃだめなの？

>>567
開発環境、つか、コンパイラは何を使っているんですか？

コマンドプロンプトでは、
C:\Documents and Settings\user>cd My Documents
C:\Documents and Settings\user\My Documents>bcc32 EX01.pas
C:\Documents and Settings\user\My Documents>EX01.exe
って感じでおｋですか？

>>569
見てみたら、C++ Builderってやつでした。
これじゃPascalは無理か…

>>566
そのソースプログラムをFree Pascal Compiler 2.0で
コンパイルしてみたらエラーが出たよ。dirはdivだね。

誤　Q:=D1 dir D2;
正　Q:=D1 div D2;

>>571
ぼくはLinuxユーザーですが、
Free PascalにはWindows用のものもあるようですから
Free Pascalをインストールして試してみられてはいかがでしょう？

http://www.freepascal.org/
このサイトのDownloadというリンクをクリックしてみてください。
Win32, Win64 and WinCEというのがあるはずです。

ちなみに、Free Pascalについてはこのページが参考になります。
ttp://www.ss.u-tokai.ac.jp/~onishi/lecture/freepascal.html

>>572
板書の写し間違いですね。ありがとうございます。

>>573
�dです！今すぐダウンロード＆インストールします！

うおおおおおおおおお！！！！！！！！
できました！！！！！！！！マジ�dクス！

来週からもよろしくお願いしますｗｗｗ

てへ、もういっちょ教えてくださいｗ
さっきのを、整数じゃなくて実数にするのですが、
program PR01(input,output);
real D1,D2,S,D,P,Q:integer;
begin
read(D1,D2);
S:=D1+D2;D:=D1-D2;P:=D1*D2;Q:=D1/D2;
writeln(D1,D2);
writeln(S,D,P,Q);
end.
だとエラーが出るんですけど、どこが違うのでしょう？

２行目は
var D1,D2,S,D,P,Q:real;
ですね。でもまだ上手くいかない気が…。

うお、S:6:2とかにしないと、桁数がおかしなことになるんですね。
解決しました！

　

一番短いパスカルのプログラムってどんなのですか？
文字数が一番少ないものを作れという課題が出たのですが…

ageてしまえ

program a;
begin
end.

>>583
改行コードをスペースにすれば（環境によっては）1文字分減るかも。

短すぎてびっくりしましたｗ　それでもいいんですね。ありがとうございます。
ついでにこれも…。
☆頭書きをBNF記法で表せ。
☆整数｢43221｣を読み込み、逆順にして、元のデータと共に出力せよ
☆次の余剰を調べよ
14 mod 4
-14 mod 4
14 mod -4
-14 mod -4

program a;begin end.

Pascalのセミコロンは区切り子なので、改行もスペースもいらない。

>>585
>☆頭書きをBNF記法で表せ。
何の頭書き？

>☆整数｢43221｣を読み込み、逆順にして、元のデータと共に出力せよ
正数を文字列にしてひっくり返せばいいの？

>☆次の余剰を調べよ
何が分からないの？その式をそのまま実行して出力したんじゃダメなの？

program PR0203(input,output);
var W,L,H,V,S:integer;
begin
readln(W,L);raldln(H);writeln(W,L,H);
V:=W*L*H;S:=2*(W*(L+H)+L*H);
writeln(V,S);
end.

これでエラーが出るのは何故なんでしょう？

PR0203.pas(4,21) Error: Identifier not found "raldln"
PR0203.pas(4,24) Error: Illegal expression
PR0203.pas(4,25) Warning: Variable "H" does not seem to be initialized
PR0203.pas(8) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
Error: C:\FPC\2.2.0\bin\i386-Win32\ppc386.exe returned an error exitcode (normal
if you did not specify a source file to be compiled)

と出たのですが、よくわかりません。

コンパイラ「raldln なんて関数ねーよ」

>>588
>raldln(H)

そらー単純にミスタイプづら。
「raldlnなんつー識別子はないどごるぁ」ってコンパイラが逝ってるじゃん。

>>589
うふっ、けこーんね♥
こんど一緒にゐると先生の所にいきませんこと?
ねぇってば、ねぇ、ねぇ

それにしても、どう指を動かすとイク^H^Hこんなtypoするんだろうなw

ひゃー、タイプミスはずかし…。
>>585の頭書きなんですけど、

program ●●●(input,output)

の事らしいです。BNFをぐぐってもいまいち理解出来なくて。

<頭書き> ::= <名前> "(input,output)"

こんなんでいいのけ？？

http://imepita.jp/20071004/062300

とっさに書きました。
これをBNFに書き換えるのを教えてください！！
お願いします！！！！！

http://videointroplayer.web.fc2.com/?ii9YN1kO-TK36%+WhqyiIrhz0F110%+Kjtps4byn7a119%+esA5NHPWRF1115%+026mGIi9Z4824%+@1@_KeyboardCrusher

>>585の2個目

program PR0231(input,output);
var D,X,S:integer;
begin
read(D);
X:=D;S:=0;

S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;

writeln(D,S);
end.

これで出ないのはなぜ、、、。

できました！
ありがとうです！！

いいよいいよ。どんどん宿題をオープンにしちゃって！　他の人も勉強になるから。

バッカス・ナウア記法って、そういや昔『やさしいコンピュータ科学』を読んだときに
Turbo Pascalの概要が解説されているところで使われていたのを思い出した。
<> -> <> こんな感じの<>を使った記述。ちがったっけ？

>>596

>S:=10*S+X mod 10;
>X:=X div 10;
>S:=10*S+X mod 10;
>X:=X div 10;
>S:=10*S+X mod 10;
>X:=X div 10;
>S:=10*S+X mod 10;
>X:=X div 10;
>S:=10*S+X mod 10;

次は、「自動化ちうのをしたくて電算機プログラムやってるのに、
なんでオラさはこんな5回も6回もコピペしなきゃなんねえだべ」と思ってみよう。

手抜きとぐうたら根性こそプログラミングの推薬ww

exp(x)とかodd(x)みたいな感じで、even(x)って存在するの？

not odd(x) でいいーぶん

>>602
初めて知った！�d！
ついでに。
なにが違うんじゃー
全部０って出てくるー

program PR0331(input,output);
var D1,D2:real;
var T1,T2,T3,T4,R1,R2,R3,R4:integer;
begin
read(D1,D2);
T1:=trunc(D1);T2:=trunc(D2);T3:=trunc(-D1);T4:=trunc(-D2);
R1:=round(D1);R2:=round(D2);R3:=round(-D1);R4:=round(-D2);
writeln('trunc(',D1:2:1,')=',T1:2,'trunc(',D2:2:1,')=',T2:2,'trunc(',-D1:2:1,')=',T3:2,'trunc(',-D2:2:1,')=',T4:2);
writeln('round(',D1:2:1,')=',R1:2,'round(',D2:2:1,')=',R2:2,'round(',-D1:2:1,')=',R3:2,'round(',-D2:2:1,')=',R4:2);
end.

あと、もうちょいシンプルにできないのかな、これｗ

＞D1:2:1
少なくとも三桁は確保しないと表示できないと思われ。
負数だったら少なくとも四桁。

こういうのはシンプルにしようがないんだけど、元数値を別に表示すると少しは見やすいかな。

writeln('Data Entered : ', D1, D2);
writeln('Trunc''s of them are ', trunc(D1), ' and ', trunc(D2), ' respectivly.');
writeln('Trunc''s of negated them are ', trunc(-D1), ' and ', trunc(-D2), ' respectivly.');
writeln('Round''s of them are ', round(D1), ' and ', round(D2), ' respectivly.');
writeln('Round''s of negated them are ', round(-D1), ' and ', round(-D2), ' respectivly.');
writeln('Thus, both functions are (different from / same for) each other in case of (you must fill this parenthesis ).')

program PR0331(input,output);
const D1=0.4;D2=0.5;D3=-0.4;D4=-0.5;
var T1,T2,T3,T4,R1,R2,R3,R4:integer;
begin
T1:=trunc(D1);T2:=trunc(D2);T3:=trunc(D3);T4:=trunc(D4);
R1:=round(D1);R2:=round(D2);R3:=round(D3);R4:=round(D4);
writeln('trunc(',D1:4:1,')=',T1:2,' trunc(',D2:4:1,')=',T2:2,' trunc(',-D1:4:1,')=',T3:2,' trunc(',-D2:4:1,')=',T4:2);
writeln('round(',D1:4:1,')=',R1:2,' round(',D2:4:1,')=',R2:2,' round(',-D1:4:1,')=',R3:2,' round(',-D2:4:1,')=',R4:2);
end.

にしたら、

trunc( 0.4)= 0 trunc( 0.5)= 0 trunc(-0.4)= 0 trunc(-0.5)= 0
round( 0.4)= 0 round( 0.5)= 0 round(-0.4)= 0 round(-0.5)= 0

ってなっちゃう…やっぱり全部ゼロだ…

>>605
えーと、何が問題なの？

0.4,0.5,-0.4,-0.5をtruncとroundで出力？したいのです。
truncは少数点以下切り捨てだから、全部０になっておｋなのですが、
roundは四捨五入だから、

round( 0.4)= 0 round( 0.5)= 1 round(-0.4)= 0 round(-0.5)=-1

ってなるはずなんですよ。

program PR0311(input,output);
ver D1,D2:integer;
ver O1,O2,E1,E2:Boolean;
begin
read(D1,D2);
O1:=odd(D1);D2:=odd(D2);
E1:=even(D1);E2:=even(D2);
writeln(' odd(',D1,')=',O1);writeln(' odd(',D2,')=',O2);
writeln('even(',D1,')=',E1);writeln('even(',D2,')=',E2);
end.

これのどこがエラーなんでしょう？？

>>607
>roundは四捨五入
ダウト
roundは Banker's rounding

>>608
エラーメッセージが示す通り

>>607
処理系は？

>>668を短くしたんですが、まだエラーっす

program PR0311(input,output);
ver D1,D2:integer;
begin
read(D1,D2);
writeln(' odd(',D1,')=',odd(D1));writeln(' odd(',D2,')=',odd(D2));
writeln('even(',D1,')=',even(D1));writeln('even(',D2,')=',even(D2));
end.

エラーメッセージ
Free Pascal Compiler version 2.2.0 [2007/09/09] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Win32 for i386
Compiling PR0311.pas
Fatal: Syntax error, "BEGIN" expected but "identifier VER" found
Fatal: Compilation aborted
Error: C:\FPC\2.2.0\bin\i386-Win32\ppc386.exe returned an error exitcode (normal
if you did not specify a source file to be compiled)

ver
. ~

orz＜�d

>>609
Banker's rounding　とは？？

全板全スレ全質問対応テンプレ
Q.○○って何ですか？
A.ググレカス

Q.ググレカスって何ですか?
A.再帰汁

http://www.radiumsoftware.com/0503.html

　大学の課題ですが、よく分らないのでお願いします。

ディスプレー上から、A, a, Bなどを入力し，ord()にて
順序型に変換したらどのような数字が表れるかを検討せよ．

プログラムを作成したのち、そのファイルの最後に検討結
果を記述し、提出せよ。

以上が、課題です。
大変困っています。
よろしくお願いします。

まず大学名と学部、学科を

Program ILoveWirth(input, output);
var c : char;
begin
repeat
read(c); writeln(ord(c))
until c = ' '
end.

(* results and discussion *)
(* conclusion *)

本当に、有難うございました。
もう一つ、課題が出されたのですが、光速エスパー世代774RRさんにやってい
ただいたのを参考に、もう一度やってみたいと思います。
また、よろしくお願いします。

ディスプレー上から、A, a, Bなどを入力し，ord()にて順序型に変換したらどのような数字が表れるかを検討せよ．

A君，B君，C君の３人が，programming（プログラミング基礎），algebra（代数），circuit（電気回路），english（英語），electromagnetics（電磁気学）の５科目のうちのいくつかを選択している。
３人が一緒になる授業、A君が一人のみで出席する授業を調べるプログラムを作成せよ。
但し、３人が選択している科目は各自設定してよい。

教えてください。

65,97,66

programming = 16;
algebra = 8;
circuit = 4;
english = 2;
electromagnetics = 1;

a = algebra + english + electromagnetics;
b = programming + circuit + english;
c = algebra + circuit + english;

3人一緒 = a & b & c;
a君のみ = a & ~b & ~c;

XPでvisualstudioを使ってます。
問題：長さ100のint型配列　int a[100]がある。a[0]〜a[99]には整数が収められているする。
この100個の中で一番小さい数を求め、画面に出力するプログラムを作成せよ。
出力形式は「ans．＝？？？」とせよ。？？？の部分は答え。

なんですが、全くわからないので教えて下さい。

大学の課題で、
ニュートン法により２の立方根（三乗根２）を少数点以下第５位まで求めるプログラムを作りなさい。
と出たのですが、全く分からずにとても困っています。
よろしくお願いします。

>>625
XPて何ですか
intって何ですか
(C)void

>>626
にゅーとん法はやったことがないなあ。いま書類書きで脳があぼんしてるので
気力が出たらやってみる。

ニュートン法って最初に与える初期値の妥当性はどうやって検証したらいいのですか？

>>624
折角なので集合型を使いましょうやw

Program Viva2chan(output);
type
courses = (programming, algebra, circuit, english, electromagnetics);
coursset = set of courses;
var
studentA,
studentB,
studentC : coursset;

procedure DispSet(s : coursset);
begin
if programming in s then write('Programming');
if algebra in s then write('Algebra');
if circuit in s then write('Circuit');
if english in s then write('English');
if electromagnetics in s then write('Electromagnetics');
writeln
end;

begin
studentA := [programming, algebra, electromagnetics];
studentB := [programming, english, electromagnetics];
studentC := [english, circuit, electromagnetics];
DispSet(studentA * studentB * studentC);
DispSet(studentA - (studentB + studentC))
end.

>>627
windowsXPです。
intは整数って事ですかね。
明日締め切りなんです。お願いします！

失礼します〜

program PR0501(input,output);
var C:char;N:integer;
begin
readln(N);
c:=chr(N);
writeln(N-1,' ',chr(N-1),' ',N,' ',chr(N),' ',N+1,chr(N+1));
writeln(N-1,' ',pred(N),' ',N,' ',chr(N),' ',N+1,' ',cuss(N));
end.

これ、なにがちがうんでしょう？そもそも何をやっているのかわかってないのですが…

cussじゃなくてsuccだったｗｗｗ

>>630
　ヘ＿ヘ
ミ・・　ミ　　
（　　　）〜
Pascalは滅んだことにしたいのですね(C)void
（まあ事実だけどさwww）

>>631
勝手に解説すると（俺は電線マンか）

・Pascalには順序型というものがある
・文字型も整数型も順序型である（論理型も>>629の courses も順序型だよん）
・succは順序型の「次の要素」、predは「前の要素」を返す関数である

ということを理解しろというわけ。これって結構大事でさ、順序型はfor文の
制御変数に使えるとか、case文に使えるとかあるから。

他にも、例えば文字型と文字列型の区別がない言語が結構あるんだけど、
ある文字列の「次の文字列」なんて簡単には定義できないから、
そういう言語ではfor c := 'a' to 'z' do なんてのは考えることが難しい。

var atai : word; から上1バイト下1バイトを取得する場合は
ue := atai shr 8;
shita := word(atai shl 8) shr 8;
これでよいのでしょうか？

・正の整数ｎを読み込み
　　1+(1/1!)+(1/2!)+.....+(1/n!)
　の値を計算して出力するプログラムを作りなさい。

だれか教えてください。計算式が作れません。

function factorial(i : integer) : real;
を別に作ると楽。

今こんな感じです。どう直せばいいですか？

function factrial(i:integer): real;
begin
if n=1 then begin
factrial := 1;
end else begin
factrial := i*factrial(i-1);
end;
begin
write('Enter n : ');
readln(n);
For i:=1 to n do
begin
ANS:=1+(1/factrial);
end;
end;

ANS:=1;
For i:=1 to n do
ANS:=ANS+(1/factorial(i));

あ、申し訳ない
ANS:=1; は要らないや

エラーが消えません。どうしたらいいですか？
　たびたびすいません

i : real;
n : integer;
ANS : real;

function factrial(i:integer): real;
begin
if n=1 then begin
factrial := 1;
end else begin
factrial := i*factrial(i-1);
end;
begin
write('Enter n : ');
readln(n);
For i:=1 to n do
begin
ANS:=ANS+(1/factorical(i));
end;
end;
begin

writeln('N = ', ' ANS = ', ANS:8:6);
end.

1を1. ←小数点付き　にしたらどう？

だめでした・・・どこが間違ってるのかわかりません

俺もわからなくなったからdelphi立ち上げて作り直したよ

var
i, n : integer;
ANS : real;

function factorial(i:integer) : real;
begin
if i = 1 then
factorial := 1
else
factorial := i * factorial(i - 1)
end;
begin
write('Enter n : ');
readln(n);
For i := 1 to n do
ANS := ANS + (1. / factorial(i));
writeln('N = ', n, ' ANS = ', ANS:8:6);
readln;
end.

いけました！ありがとうがざいました。

>>634ですが、　良いのか悪いのか、他に方法があるのか
教えてください

>>634
>var atai : word; から上1バイト下1バイトを取得する場合は
>ue := atai shr 8;
>shita := word(atai shl 8) shr 8;
>これでよいのでしょうか？

単に

shita := atai and $FF

でいい。

Turbo Pascal以来のおまけ関数にhi、loってのがあるから、
Unit Reference Manual を詠むといいよ。hi、loってMT+にもあった気がする。

>>640
>i : real;
>n : integer;
>ANS : real;
>
>function factrial(i:integer): real;
>begin
>if n=1 then begin
>factrial := 1;

begin endを使いすぎてるw

まあそーゆー趣味的な所はおいといて、
なぜエラーになる（多分暴走するか、スタックあっぷあっぷで停まる）か判った?

>>646 ありがとうございました。感激です！

日本円を他の国の通貨に変換するプログラを記述せよ。ただし、用いるレートは次の通りである
USD 118.94
GBP 186.53
CNY 13.93
EUR 129.60
RUB 3.73
なお、補助単位もつけよ。
誰か↑をやってください、お願いします。

実行例が
********************
d--USDOLLAR
P--British Pound
y--Chinese Yuan(gen)
e--Euro
r--Russian Rouble
*****************
Exchange to :d
Enter the amout of money in JPY : 1000
USD = $ 8.40

解りにくい説明ですいません。

ルーブリは元の綴りがрубльだから、roubleってのはちょっち違和感があるzo

補助単位って、円に対する銭、ドルに対するセントみたいな奴だっけ。
8.40ドルみたいな十進の小数で書いていいなら簡単だと思うけど、
昔は（今でも?）60進法とかそういうのってあったよな、
そういうのに対応するならめんどいな。
あるいは日本だったら銭・厘・毛の形で出せとか。

type
currencies = (YEN, USD, GBP, CNY, EUR, RUB);
var
exchangerates : array(currencies) of real;
begin
exchangerates[YEN] := 1;
exchangerates[USD] := 118.94;
...
なんてやっといて、日本円 / exchangerates[変換先通過] を計算させればいい。
Turbo Pascal方言を使っていいなら、わざわざ代入分書かないで、いきなり初期値ぶちこみでいいよ。

const
USD = 118.94; GBP = 186.53;
CNY = 13.93; EUR = 129.60;
RUB = 3.73;
var
JPY : integer;
currency : char;
money1 : real; money2 : real; money3 : real;
money4 : real; money5 : real;
begin
write('***************');
write('d -- US Dollar');
write('p -- British Pound');
write('y -- Chinese Yuan (Gen)');
write('e -- Euro');
write('r -- Russian Rouble');
write('Exchange to : '); readln(currency);
write('Enter the amout of money in JPY : '); readln(JPY);
begin
Case currency of
d : money1:=JPY/USD;
write('USD = $ ',money1:8:5);
p : money2:=JPY/GBP;
write('GBP = p ',money2:8:5);
.
.
.
end; { case }
今こんな風にやってるんですけど・・・どうすればいいでしょうか？

>>653
俺もそんな感じになったよ。
Cならポインタが使えるのでもう少し簡潔になるんだが

>>654
エラーがまだ１２〜３個残っててもうお手上げ状態です。

だから配列を使えってば。
今のレベルでは配列 = 表だと考えるといい。

そのうち、Cみたいな配列 = ポインタという捉え方もできるようになる。

const
USD = 118.94; GBP = 186.53;
CNY = 13.93; EUR = 129.60;
RUB = 3.73;
var
c : char;
j, k : real;
begin
repeat
writeln('********************');
writeln('d--USDOLLAR');
writeln('P--British Pound');
writeln('y--Chinese Yuan(gen)');
writeln('e--Euro');
writeln('r--Russian Rouble');
writeln('*****************');
write('Exchange to : ');
readln(c);
until (c = 'd') or (c = 'P') or (c = 'y') or (c = 'e') or (c = 'r');
write('Enter the amout of money in JPY : ');
readln(j);
case c of
'd' : begin
k := j / USD;
writeln('USD = $', k : 8 : 2)
end;
'P' : begin
k := j / GBP;
writeln('GBP = ', k : 8 : 2, ' pound')
end;

'y' : begin
k := j / CNY;
writeln('CNY = ', k : 8 : 2, ' Yuan(gen)')
end;
'e' : begin
k := j / EUR;
writeln('EUR = ', k : 8 : 2, ' Euro')
end;
'r' : begin
k := j / RUB;
writeln('RUB = ', k : 8 : 2, ' Rouble')
end;
end;
readln
end.

たとえばこういうやり方がある。次は換算表(=配列)をファイルから読むとか、
ネットから得るとか、そういう風に発展させる。

Program Viva2chan2;
type
currencies = (YEN, USD, GBP, CNY, EUR, RUB);
RateTable = array[currencies] of real;
var
CurrencyName : array[currencies] of string = ('Yen', 'USD', 'GBP', 'CNY', 'EUR', 'RUB');
JpyToRate : RateTable = (1, 118.94, 186.53, 13.93, 129.60, 3.73);
source : real;
target : currencies;
begin
source := 1000;
for target := YEN to RUB do
writeln(CurrencyName[target], source / JpyToRate[target] : 8:2)
end.

Borland Pascal 互換前提な。FPCでテスト済み

それとさ、

(c = 'd') or (c = 'P') or (c = 'y') or (c = 'e') or (c = 'r')

は

c in ['d', 'P', 'y', 'e', 'r'] でいい。BASICでもCでもねえんだから。

>>660
能書き垂れるだけならフルソース書けよ
人の書いたソースにケチを付けるだけなら誰でも出来る

光速エスパー世代774RBさん、６５７，６５８の人、ありがとうございます！
おかげでできそうです。