- PDF Free Download

Size: px

Start display at page:

Download ""

てるえたつざわ
5 years ago
Views:

2 4

3 Communication1 program communication1(input, output); procedure double; r1, r2: real; r2 := 2 * r1; double; end.

4 Communication1 program communication1(input, output); procedure double; r1, r2: real; communication1 r2 := 2 * r1; double; double end. r1 r2 2*

5 Communication2 program communication2(input, output); procedure double; r1, r2: real; readln(r1); r2 := 2 * r1; writeln(r2); double; end.

6 Communication2 program communication2(input, output); procedure double; r1, r2: real; communication2 readln(r1); r2 := 2 * r1; writeln(r2); double double; r1 end. r2 2*

7 Communication3 program communication3(input, output); num: real; procedure double( x: real); r1, r2: real; r1 := x; r2 := 2 * r1; writeln(r2); readln(num); double(num); end.

8 Communication3 program communication3(input, output); num: real; procedure double( x: real); communication3 r1, r2: real; num r1 := x; r2 := 2 * r1; writeln(r2); x r1 readln(num); 2* double(num); r2 double end.

9 Communication4 program communication4(input, output); num, ans: real; procedure double( x, y: real); r2: real; r2 := 2 * x; y := r2; readln(num); double(num,ans); writeln(ans); end.

10 Communication4 program communication4(input, output); num, ans: real; procedure double( x, y: real); r2: real; communication4 r2 := 2 * x; num ans y := r2; readln(num); x y double(num,ans); 2* writeln(ans); r2 end. double

11 Communication5 program communication5(input, output); num, ans: real; procedure double( x, y: real); y := 2 * x; readln(num); double(num,ans); writeln(ans); end.

12 Communication5 program communication5(input, output); num, ans: real; procedure double( x, y: real); y := 2 * x; communication5 readln(num); double(num,ans); num ans writeln(ans); 2* end. x y double

13 Communication6 program communication6(input, output); num: real; procedure double( x: real); x := 2 * x; readln(num); double(num); writeln(num); end.

14 Communication6 program communication6(input, output); num: real; procedure double( x: real); communication6 x := 2 * x; num readln(num); double(num); writeln(num); end. x 2* double

16 Mr. Maison visited at 3:00 P.M. Mr. Maison is a chemist.

17 noun1 relation noun2 Mr. Maison visited at 3:00 P.M. Mr. Maison is a chemist.

18 noun1, relation, noun2: string; noun1 := Mr. Mason ; relation := is ; noun2 := a chemist. ; end. noun1 relation noun2 Mr. Mason is a chemist.

19 noun1, relation, noun2: string; readln(noun1); readln(relation); is readln(noun2); end. Mr. Mason a chemist. noun1 relation noun2 Mr. Mason is a chemist.

20 type stringarray100 = array[1..100] of string; noun1a, relationa, noun2a: stringarray100; noun1a Mr. Mason The professor is visited at relationa a chemist. 3:00 P.M. noun2a stringarray100

21 last last: integer; noun1a Mr. Mason The professor is visited at relationa a chemist. 3:00 P.M. noun2a last 2

22 Database1 program Database1(input, output); type stringarray100 = array[1..100] of string; command: string; noun1a, relationa, noun2a: stringarray100; last: integer; procedure help; procedure InputFact; ( procedure PrintFacts; procedure Find;

23 Database1 noun1a[1] := 'Lord Dunsmore'; relationa[1] := 'is married to'; noun2a[1] := 'Lady Dunsmore.'; noun1a[2] := 'The gardener'; relationa[2] := 'is married to'; noun2a[2] := 'the maid.'; last := 2; command := 'start'; while command <> 'q' do write('command:'); readln(command); if command = 'f' then Find; if command = 'help' then help; if command = 'i' then InputFact; if command = 'p' then PrintFacts; writeln(' '); end.

24 InputFact

25 InputFact(1) procedure InputFact; writeln('input a fact. Type three fields on sequential lines.'); last := last + 1; readln(noun1a[last]); readln(relationa[last]); readln(noun2a[last]);

26 InputFact(2) procedure InputFact( n1,r,n2:stringarray100; last:integer); writeln('input a fact. Type three fields on sequential lines.'); last := last + 1; readln(n1[last]); readln(r[last]); readln(n2[last]);

27 PrintFacts

28 Find - - answer

29 Find procedure Find( n1, r, n2: stringarray100; last: integer); noun1, relation, noun2, result: string; i: integer; writeln('give the query. ); writeln('type three fields on sequential lines.'); readln(noun1);readln(relation);readln(noun2); writeln('the RELATED FACTS:'); i := 1; while i<=last do QFCompare(noun1,relation,noun2,n1[i],r[i],n2[i],result); if result = 'answer' then writeln(n1[i],r[i],n2[i]); i := i+1;

30 QFCompare(1) procedure QFCompare( Qnoun1, Qrel, Qnoun2, Fnoun1, Frel, Fnoun2, an: string); if (Qnoun1 = Fnoun1) and (Qrel = Frel) and (Qnoun2 = Fnoun2) then an := 'answer'; end else an := 'no';

31 QFCompare(2) procedure QFCompare( Qnoun1, Qrel, Qnoun2, Fnoun1, Frel, Fnoun2, an: string); if ((Qnoun1 = '?') or (Qnoun1 = Fnoun1)) and (Qrel = Frel) and (Qnoun2 = Fnoun2) then an := 'answer'; end else an := 'no';

32 { }

33 (Jill) (is a sister of) (Nancy.) (Nancy) (is a sister of) (Barbara.)

34 (Jill) (is a sister of) (Nancy.) (Nancy) (is a sister of) (Barbara.) (?) (is a sister of) (Barbara.) Jill Nancy

35 p. 167, 174

橡挿入法の実践

橡挿入法の実践 PAGE:1 7JFC1121 PAGE:2 7JFC1121 PAGE:3 7JFC1121 Kadai_1.pas program input_file;{7jfc1121 19 20 { type item = record id : integer; math : integer; english : integer; var wfile data flag id_no filename :