トップページ⇒tech
47コメント12KB

★★PASCAL言語の質問スレッド★★

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
大学生はこれで悩んでる人多いよね。。まあ書き込んでみなよ。
0002デフォルトの名無しさんNGNG
>>1
チンコが痒いのですがどうしたらいいでしょうか？
パスカルでチンチン直りますか？
0003デフォルトの名無しさんNGNG
＞１
オチンチンいい！オチンチンいい！！
0004デフォルトの名無しさんNGNG
objectpascalもありでいいよNE!
0005デフォルトの名無しさんNGNG
コンパイラの本はパスカルが多いけどなんで？
どうして？
0006デフォルトの名無しさんNGNG
アライグマの話ですか？
0007デフォルトの名無しさんNGNG
ＰＡＳＣＡＬって、２〜流国立大がやる言語だろ？
0008セパレートNGNG
大学の研究室に「パスカル」って椅子があった．
姿勢がよくなるやつ．
0009デフォルトの名無しさんNGNG
>>1
マカマカマカー！チンチンフリチン！！パスカール！！！
0010デフォルトの名無しさんNGNG
パスカル言語で二次方程式の解（虚数・実数）を求めるプログラム
がよくわかりません。特に虚数のところがエラーになってしまうみたい
なんです。どういうプログラムを組めばいいんでしょうか？
0011デフォルトの名無しさんNGNG
>>10
正しいプログラムを組みましょう。
0012デフォルトの名無しさんNGNG
>>7
あんたＣの方が高級だとか思ってるの？。
0013デフォルトの名無しさんNGNG

誰か二次方程式のPASCAL言語書いてやれよ
0014デフォルトの名無しさんNGNG
あらいぐまパスカル
0015デフォルトの名無しさんNGNG
＞３
チンチンいい！チンチンいい！！
0016デフォルトの名無しさんNGNG
シモネタに走る小学生はお下品板にでもいってくれよ。
http://www2.bbspink.com/ogefin/index2.html
0017なんだかNGNG
delphiで参照についてなんか混乱してんだけど。。
0018デフォルトの名無しさんNGNG
age
0019デフォルトの名無しさんNGNG
program quadraticEequation (input, output);

　type
　　complex = record
　　　　r, im: real;
　　　end;

　var
　　a, b, c: real;
　　answer1, answer2: complex;
　　firstTerm, secondTerm: complex;

　function mySqrt (x: real): complex;
　begin
　　if x >= 0 then
　　　begin
　　　　mySqrt.r := sqrt(x);
　　　　mySqrt.im := 0;
　　　end
　　else
　　　begin
　　　　mySqrt.r := 0;
　　　　mySqrt.im := sqrt(-x);
　　　end;
　end;

　function addComplex (a, b: complex): complex;
　begin
　　addComplex.r := a.r + b.r;
　　addComplex.im := a.im + b.im;
　end;

　function subComplex (a, b: complex): complex;
　begin
　　subComplex.r := a.r - b.r;
　　subComplex.im := a.im - b.im;
　end;

　function r2c (a: real): complex; {real to complex}
　begin
　　r2c.r := a;
　　r2c.im := 0;
　end;
0020デフォルトの名無しさんNGNG
begin
　readln(a, b, c);

　if (a = 0) and (b = 0) then
　　begin
　　　writeln('err');
　　　halt;
　　end;

　if a <> 0 then
　　begin
　　　firstTerm := r2c(-b / (2 * a));
　　　secondTerm := mySqrt((b * b - 4 * a * c) / (4 * a * a));
　　end
　else
　　begin
　　　firstTerm := r2c(-c / b);
　　　secondTerm := r2c(0);
　　end;

　answer1 := addComplex(firstTerm, secondTerm);
　answer2 := subComplex(firstTerm, secondTerm);

　writeln(answer1.r : 12 : 6, ' +', answer1.im : 12 : 6, 'i');
　writeln(answer2.r : 12 : 6, ' +', answer2.im : 12 : 6, 'i');

end.
0021デフォルトの名無しさんNGNG
>>19
いえくしょん。いえくしょーん！
0022デフォルトの名無しさんNGNG
インデントの仕方に何とはなしに年季を感じる
0023デフォルトの名無しさんNGNG
FreePascal使ってる人いる
0024名無しさんNGNG
>>23
どこで手に入るの？
0025<> 23NGNG
http://www.freepascal.org/
http://www.jp.freepascal.org/mirror/fpc/

ツールもあるでよ。
http://www.vector.co.jp/vpack/filearea/win/prog/pascal/index.html

そういやLinux Japanに記事が載ってたな。
0026デフォルトの名無しさんNGNG
DelphiだけどCPadなかなかいいな。
今度BCC5.5Free CompilerやJavaでも使ってみよう。
0027名無しさんNGNG
You can download the whole package as 1 big zipped file: w32104full.zip (17.4 MB)
Or you can download a version that doesn't include the sources,gdb and gnu utils: w32104.zip (10.8 MB)
Or you can download the whole package including Dos / GO32v2 files 1 big zipped file: dosw32104full.zip (22.8 MB)

>>25のサイト行ったら↑の3個あるんですが、どれをＤＬすればいいんですか？2番目のやつで十分？
0028shigeNGNG
　　ﾊﾊﾊ
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣
　（　＾∀＾）＜　　あほか
　（ つ ⊂ ）　＼＿＿＿＿＿＿＿＿＿
　 .）　 ）　）
　（_＿）＿）　　　　　（＾∀＾）ｹﾞﾗｹﾞﾗ


ruby >>>>>>>>>>>>>>>>>>>>>>> pascal
0029デフォルトの名無しさんNGNG
ruby極めてくれよ。な。
0030デフォルトの名無しさんNGNG
shigeはruby派なのか。
0031デフォルトの名無しさんNGNG
>>19,20
一行目を見て、おおっ。Turbo Pascal/Delphi じゃない Pascalか？
と思ったが、今確かめてみたところ、TPの場合でも (input,output) を
付けてもいいんだね。
0032デフォルトの名無しさんNGNG
>>27
とりあえずは2番目でいいんじゃない？
0033デフォルトの名無しさんNGNG
すみません、困っています
当方FreeBSD4.0でp2cc使いながらpascal勉強していますが、
それだとポインタが使えません。ポインタを使ううまい方法何かあるでしょうか
0034デフォルトの名無しさんNGNG
どうしてボインﾀﾝを使う必要があるの？
0035デフォルトの名無しさんNGNG
>>34
学校で使っているからです.
家で先んじて勉強しようと目論んでいるのです
0036デフォルトの名無しさんNGNG
FreePascalはポインタ使えたと思うが。
0037６２５６３NGNG
>>33
なんで使えない？pascalのアドレス演算子(って言うのかな？)は
@だったり↑だったり^だったりするんだろ。どう使えないのか
ハッキリしないと答えられない。コンパイルエラーとか、もしそうなら
こんなメッセージが出ましたとか…。「書き込む」ボタンを押す前に
自分の文章で事情を知らない人間が理解できるのか考えろ。それが
ネットで質問するときのマナーだ。(受け売りですが)
…で、FreeBSDならKylixでも入れたら？
0038デフォルトの名無しさんNGNG
よく知らんけどFreeBSDでKylix動くの？>37
linuxエミュ使うってやつ？
003933NGNG
>>37
失礼しました.リスト構造がうまくいかないのです
リスト構造を作る時、レコード型の定義は
type rist = ^aaa
aaa = record
bbb:integer;
next:rist
end;
var head,p,q:rist;

で、

new(q); q^.next:=head; head:=q

とかでいいのでしょうか。しかしコンパイルすると
invalid operands to binary != とでて来ます

＞Kylix
なんでしょうかコンパイラですか？
004033NGNG
あ、>>39のは
q^next:=head でした

q@next:=head でも同様のエラーがでてうまく行きません

↑はどうやって打つのですか？ 当方emacsです
0041デフォルトの名無しさんNGNG
FreePascalってファイル使えないの？
0042デフォルトの名無しさんNGNG
program sample13a;

var
fp : text;
i : integer;

begin

rewrite(fp,'alphabet.txt');

for i:=48 to 122 do
writeln(fp,'アスキーコード',i:3,'の文字は',chr(i),'です。');

close(fp)

end.

sample13a.pp(9,14) Error: Incompatible type for arg no. 2: Got SHORTSTRING, expected LONGINT
sample13a.pp(16,4) Fatal: There were 1 errors compiling module, stopping

FreePascalでコンパイラしたらエラーになっちゃうんですけど、どこがいけないんですか？
0043デフォルトの名無しさんNGNG
assignでファイルパス指定するのでは？
0044デフォルトの名無しさんNGNG
>>39
なんだよristって．Pascalやる前に中学英語やり直せよ．
見てる方が恥ずかしすぎんだよ．
0045デフォルトの名無しさんNGNG
42>>43
ありがと　解決したよ

ところでassignでファイルパス指定するのは、FreePascalだから？他のPascalでもそうなの？
学校のでは>>42で書いたのでコンパイルできたんで。
0046デフォルトの名無しさんNGNG
free pascalってvarying[] of charをつかえないの？
0047デフォルトの名無しさんNGNG
あげ
■ このスレッドは過去ログ倉庫に格納されています