Pascal-strukturiniai duomenu tipai

Gal kas padetu padaryti programa su iraso duomenu tipu?

-----

Duota:

type

zenklas = (pikai, kryziai, bugnai, cirvai);

verte = (sesi, septyni, astuoni, devyni, desimt,

valetas, dama, karalius, tuzas);

korta = record

z: zenklas;

v: verte

end;

Aprasyti logine funkcija Kerta(K1, K2, KS) tikrinancia, ar korta

K1 kerta korta K2, zinant tai, kad zenklas KS yra svietalas(kozeris).

-----

Is anksto dekoju.

Kartais ne Klaipėdoje, ir dar kokia matematiką studijuoji? :) pvz kokiam pirmam kurse? :)

function kerta(k1, k2 :korta; ks:zenklas):boolean;
begin
	if (k1.z=k2.z) and (k1.v>k2.v)
		then kerta:=true
		else if (k1.z = ks) and (k2.z <> ks)
				 then kerta:=true
				 else kerta:=false;
end;

Pagal mane, šitos sąlygos:

and (k2.z <> ks)

nebereikia, nes jeigu abi kortos bus kozeriai, tai jos abi bus vienodos rūšies ir tada bus vykdoma pirmoji sąlyga. :)

Pagal mane, šitos sąlygos:

and (k2.z <> ks)

nebereikia, nes jeigu abi kortos bus kozeriai, tai jos abi bus vienodos rūšies ir tada bus vykdoma pirmoji sąlyga. :lol:

Na taip, galima ir be šito buvo apsieit :D

Kartais ne Klaipėdoje, ir dar kokia matematiką studijuoji? :D pvz kokiam pirmam kurse? :D

Teisingai :D ačiū tiem, kas padėjo :lol: