A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
inf-prog-fszi:toertek [2017/06/19 10:29] beistvan létrehozva |
inf-prog-fszi:toertek [2017/06/19 10:29] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Törtek ====== | ||
+ | <code pascal tortek.pas> | ||
+ | program tortek; {2012. majus, angol} | ||
+ | type szamok=record | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | var i, | ||
+ | a: | ||
+ | t:text; | ||
+ | k:char; | ||
+ | // | ||
+ | function lnko(a, | ||
+ | begin | ||
+ | if a=b then lnko:=a; | ||
+ | if a<b then lnko: | ||
+ | if a>b then lnko: | ||
+ | end; | ||
+ | // | ||
+ | function lkkt(a, | ||
+ | begin | ||
+ | lkkt:=a*b div lnko(a,b); | ||
+ | end; | ||
+ | begin | ||
+ | writeln(' | ||
+ | write(' | ||
+ | readln(sz); | ||
+ | write(' | ||
+ | readln(n); | ||
+ | if sz mod n = 0 then writeln(sz div n) | ||
+ | else writeln(' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | if sz mod n=0 then writeln(sz,'/', | ||
+ | if lnko(sz, | ||
+ | else writeln(sz,'/', | ||
+ | writeln(' | ||
+ | write(' | ||
+ | readln(sz1); | ||
+ | write(' | ||
+ | readln(nn1); | ||
+ | write(sz,'/', | ||
+ | ssz: | ||
+ | sn:=n*nn1; | ||
+ | if ssz mod sn=0 then writeln(ssz,'/', | ||
+ | if lnko(ssz, | ||
+ | else writeln(ssz,'/', | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | write(sz,'/', | ||
+ | sz: | ||
+ | sz1: | ||
+ | n: | ||
+ | nn1: | ||
+ | write(sz,'/', | ||
+ | psz: | ||
+ | pn:=n; | ||
+ | if psz mod pn=0 then writeln(psz,'/', | ||
+ | if lnko(psz, | ||
+ | else writeln(psz,'/', | ||
+ | writeln(' | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | i:=0; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | with a[i] do | ||
+ | begin | ||
+ | readln(t, | ||
+ | // write(s1,' | ||
+ | // readln; | ||
+ | end; | ||
+ | end; | ||
+ | m:=i; | ||
+ | close(t); | ||
+ | assign(t,' | ||
+ | rewrite(t); | ||
+ | for i:=1 to m do | ||
+ | begin | ||
+ | with a[i] do | ||
+ | if muv=' | ||
+ | begin | ||
+ | write(t, | ||
+ | s1: | ||
+ | s2: | ||
+ | n1: | ||
+ | n2: | ||
+ | write(t, | ||
+ | psz:=s1+s2; | ||
+ | pn:=n1; | ||
+ | if psz mod pn=0 then writeln(t, | ||
+ | if lnko(psz, | ||
+ | else writeln(t, | ||
+ | end {if} | ||
+ | else | ||
+ | begin {if muv = ' | ||
+ | write(t, | ||
+ | ssz:=s1*s2; | ||
+ | sn:=n1*n2; | ||
+ | if ssz mod sn=0 then writeln(t, | ||
+ | if lnko(ssz, | ||
+ | else writeln(t, | ||
+ | end; {else} | ||
+ | end;{for} | ||
+ | close(t); | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ |