O’zbekiston respublikasi oliy va o’rta maxsus ta’lim vazirligi buxoro davlat universiteti qo’lyozma huquqida udk

2.8 Satr yozish dasturi

Endi esa dastur tuzishda satrlar bilan ishlaymiz. Bu dastur quyidagicha matn chiqaradi.

implement main

open core, string

class predicates

tokenize:(string, string_list) procedure (i, o).

clauses

classInfo("main", "string_example").

tokenize(S, [T|Ts]) :-

frontToken(S, T, R), !, tokenize(R, Ts).

tokenize(_, []).

run():- console::init(),

L= ["it ", "was ", "in ", "the ", "bleak ", "December!"],

S= concatList(L), UCase= toUpperCase(S),

RR= string::concat("case: ", Ucase),

R1= string::concat("It is ", "upper ", RR),

stdio::write(R1), stdio::nl, tokenize(R1, Us),

stdio::write(Us), stdio::nl.

end implement main

goal

mainExe::run(main::run).

Quyidagi dasturni ishlatib ko’ramiz.

implement main
    open core, string, console, stdio
class predicates
    tokenize:(string, string_List) procedure (i,o).
clauses
    %classInfo("main", "string_example").
    tokenize(S, [T|Ts]) :-
        frontToken(S, T, R), !, tokenize(R, Ts).
    tokenize(_, []).
    run():- console::init(),
       Text=stdio::readLine(),
       tokenize( Text, List),
        stdio::write(), stdio::nl, tokenize(R1, Us),gg
        stdio::write(Us), stdio::nl.
        L= ["gul", "sha", "har ", "pro ", "log ", "!"],
        R1= string::concat("bu ", " __", RR),
        stdio::write(R1), stdio::nl, tokenize(R1, Us),
        stdio::write(Us), stdio::nl.
        stdio::write(List), stdio::nl.
       stdio::write(Text), stdio::nl.
       end implement main
goal
    mainExe::run(main::run).

Bu dasturimizda Gulshahar prolog degan yozuv ekranimizga chiqadi. Xuddi shu dasturni klaviaturadan xam kiritish mumkin. Bu uchun quyidagicha ishlarni amalga oshiramiz. Dasturimizga o’zgartirishlar kiritamiz. O’zgartirish kiritgan dasturimiz quyidagicha:

implement main
    open core, string, console, stdio
class predicates
    tokenize:(string, string_List) procedure (i,o).
clauses
    %classInfo("main", "string_example").
    tokenize(S, [T|Ts]) :-
        frontToken(S, T, R), !, tokenize(R, Ts).
    tokenize(_, []).
    run():- console::init(),
       Text=stdio::readLine(),
       tokenize( Text, List),
        stdio::write(List), stdio::nl,
        S= concatList(List),
        stdio::write(S), stdio::nl,
        UCase= toUpperCase(S),
        RR= string::concat("Katta harflar bilan: ", Ucase),
        stdio::write(RR ), stdio::nl.
       end implement main
goal
    mainExe::run(main::run).

Bu dasturimizni Prolog dasturiga kiritib ishlatsak ekranimizda quyidacha ko’rinish hosil qilamiz.

(2.3-rasm) satrlar bilan ishlovchi dasturning natijasi