PASCAL入門

おことわり

コメント

変数

var text : string;
    moji1,moji2,moji3 : char;
    suuji1 : integer;
    suuji2 : real;
    baito : byte;
    rongu1,rongu2 : longint;

• 予約語と同じ変数名は使えない。
• アンダーバー以外の記号を使ってはならない。
• 数字から始まってはならない。
• 変数名の長さが規定以上であってはならない。

プログラム名

定数

program const_test;

const tadano=65 ; saitoh=18;
var goukei:integer;

begin
	goukei := tadano+saitoh;
	writeln(goukei)
end.

代入

文字列

複合文

ループ

while

repeat

for

条件式

if

if x>0 then
        a:=1
else
        a:=2;

if x>0 then
        begin
                a:=1;
                b:=1
        end
else
        begin
                a:=2;
                b:=2
        end;

case

case x of
        0: writeln('Xは0だ');
        1: writeln('Xは1だ');
        2: writeln('Xは2だ');
        3,4,5: writeln('Xは3か4か5だ')
else
        writeln('しらん')
end;

goto

3:
x:=4;
case x of
	0: writeln('Xは0だ');
	1: writeln('Xは1だ');
	2: writeln('Xは2だ');
	3,4,5: writeln('Xは3か4か5だ')
else
	writeln('しらん')
end;
goto 3;

スカラ型

スカラ型とは、Perlでいうところのスカラー変数・・・ではありません。（Perlのスカラー変数は、いわゆる「ふつーの変数」です。）みなさんは、エクセルに「ユーザー設定リスト」というのがあるのをご存知でしょうか？これは、 アルファベット順ではなく、人間が決めた規則で並べてあるリストです。

たとえば、エクセルではデフォルトでSun、Mon、Tue、Wed、Thu、Fri、Satというリストが登録されています。これは、この順でソートすることもできます。Pascalでは、この、エクセルでいうところの「ユーザー設定リスト」を設定する事ができます。

wday := Sun;
writeln(ord(wday));

部分範囲型

type sebango = 0..99;

配列

普通の配列

var hairetu: array[0..10] of integer;

スカラ型の添字

type day_of_week = (Sun,Mon,Tue,Wed,Thu,Fri,Sat);
var callender: array[day_of_week] of integer;

begin
        callender[Sun] := 1;
        writeln(callender[Sun])
end.

固定長文字列

var mojiretu: array[0..9] of char;

begin
        mojiretu := 'abcdefghijklmnopqrstuvwxyz';
        writeln(mojiretu)
end.

二次元配列

var hairetu: array[0..10,0..10] of integer;

begin
        hairetu[0,0]:=10;
        writeln(hairetu[0,0])
end.

圧縮指定

var hairetu: packed array[0..10,0..10] of integer;

レコード型

program record_test;

type senshu = record 
                                name: array[0..19] of char;
                                term: array[0..9] of char;
                                position: array[0..9] of char;
                                sebango: array[0..2] of char;
                                uchi: char;
                                nage: char;
                                nenpo: longint
                end;

var s: array[0..69] of senshu;

begin
        s[0].name:='Yoshio Itoi';
        s[0].term:='Fighters';
        s[0].position:='center';
        s[0].sebango:='7';
        s[0].uchi:='L';
        s[0].nage:='R';
        s[0].nenpo:=100000000;

        writeln(s[0].name);
        writeln(s[0].nenpo)

end.

        with s[0] do
                begin
                        writeln(name);
                        writeln(nenpo)
                end

集合型

program set_test;

type rui = (first, second, third);
	runner = set of rui;
var zanrui: array[1..9] of runner;
	zanrui_kei: runner;

begin
	zanrui[1] := [first];
	zanrui[2] := [first,second];
	zanrui[3] := [second,third];
	zanrui_kei := zanrui[1] + zanrui[2] + zanrui[3];

	if  first  in zanrui_kei then writeln('１塁残塁あり');
	if  second in zanrui_kei then writeln('２塁残塁あり');
	if  third  in zanrui_kei then writeln('３塁残塁あり')

end.

program set_test;

type rui = (first, second, third);
	runner = set of rui;
var zanrui: array[1..9] of runner;
	zanrui_kei: runner;

begin
	zanrui[1] := [first];
	zanrui[2] := [first,second];
	zanrui[3] := [second,third];
	zanrui_kei := zanrui[1] * zanrui[2] * zanrui[3];

	if  first  in zanrui_kei then writeln('毎回１塁に残塁あり');
	if  second in zanrui_kei then writeln('毎回２塁に残塁あり');
	if  third  in zanrui_kei then writeln('毎回３塁に残塁あり')

end.

program set_test;

type shubiichi = (first, second, short, third, right, center, left, catcher);
        skill = set of shubiichi;

        var koyano,nioka,inada: skill;

begin
        koyano := [first, third, left];
        nioka := [first, short, third];
        inada := [first, third];

        if koyano >= inada then writeln('小谷野は稲田より守れる場所が同じか多い');
        if koyano >= nioka then writeln('小谷野は二岡より守れる場所が同じか多い');

end.

ポインタ型

program pointer_test;
var p: ^integer;
begin
        new(p);
        p^:=5;
        writeln(p^);
        dispose(p)
end.

program pointer_test;

type    p_senshu = ^senshu;
                senshu = record 
                                name: array[0..19] of char;
                                term: array[0..9] of char;
                                position: array[0..9] of char;
                                sebango: array[0..2] of char;
                                uchi: char;
                                nage: char;
                                nenpo: longint;
                                next: p_senshu;
                end;

var s: array[0..20] of senshu;
        p: ^senshu;

begin

        s[0].name:='Yoshio Itoi';
        s[0].term:='Fighters';
        s[0].position:='center';
        s[0].sebango:='7';
        s[0].uchi:='L';
        s[0].nage:='R';
        s[0].nenpo:=100000000;
        s[0].next:=@s[1];

        s[1].name:='Sinji Takahashi';
        s[1].next:=nil;

        p:=s[0].next;
        writeln(p^.name)

end.

ファイル

program binary_file_test;

type senshu = record 
                                name: array[0..19] of char;
                                term: array[0..9] of char;
                                position: array[0..9] of char;
                                sebango: array[0..2] of char;
                                uchi: char;
                                nage: char;
                                nenpo: longint
                end;
	var f: file of senshu;
	var a: senshu;

begin
	assign(f,'test.dat');
	rewrite(f);
	a.name:='Yoshio Itoi';
	a.term:='Fighters';
	a.position:='center';
	a.sebango:='7';
	a.uchi:='L';
	a.nage:='R';
	a.nenpo:=100000000;
	write(f,a);
	close(f)
end.

program text_file_test;

        var f: text;
        var a: string;

begin
        assign(f,'test.dat');
        rewrite(f);
        a:='Yoshio Itoi as Hokkaido Nipponham Fighters No.7 Center Fielder.';
        writeln(f,a);
        close(f)
end.

program binary_file_test;

type senshu = record 
                                name: array[0..19] of char;
                                term: array[0..9] of char;
                                position: array[0..9] of char;
                                sebango: array[0..2] of char;
                                uchi: char;
                                nage: char;
                                nenpo: longint
                end;
	var f: file of senshu;
	var a: senshu;

begin
	assign(f,'test2.dat');
	reset(f);

	while not eof(f) do
		begin
			read(f,a);
			writeln(a.name)
		end;

	close(f)
end.

	seek(f,2);
	read(f,a);
	writeln(a.name);

	seek(f,1);
	read(f,a);
	writeln(a.name);

	seek(f,0);
	read(f,a);
	writeln(a.name);

program text_file_test;

	var f: text;
	var a: string;

begin
	assign(f,'test3.dat');
	reset(f);
	while not eof(f) do
		begin
			readln(f,a);
			writeln(a)
		end;
	close(f)
end.

program text_file_test;

	var f: text;
	var a: char;

begin
	assign(f,'test3.dat');
	reset(f);

	while not eoln(f) do
		begin
			read(f,a);
			write(a)
		end;

	close(f)
end.

サブルーチン

ポインタ渡し 値渡し

program procesure_test;

var a,b:integer;

procedure sub1 (aa:integer; var bb:integer);
	begin
			aa:=1;
			bb:=1;
	end;

begin
	a:=0;
	b:=0;
	sub1(a,b);
	writeln(a,b)
end.

ローカル変数

program procesure_test;

var a,b:integer;

procedure sub1 (aa:integer; var bb:integer);
	var c,d:integer;
	begin
		c:=3;
		d:=4;
		writeln(c,d);
	end;

procedure sub2 (aa:integer; var bb:integer);
	var c,d:integer;
	begin
		c:=5;
		d:=6;
		writeln(c,d);
	end;

begin
	a:=1;
	b:=2;
	sub1(a,b);
	sub2(a,b);
	writeln(a,b);
end.

関数

program function_test;

var a,b,c:integer;

function func1 (var aa:integer; var bb:integer) : integer;
	var d:integer;
	begin
		d:=aa*bb;
		func1:=d;
	end;

begin
	a:=5;
	b:=6;
	c:=func1(a,b);
	writeln(c);
end.

最後に

このページの先頭へ