problemele su fps

sveiki, gal kas zino kaip padaryt si uzdaviny?

Išnagrinėkite procedūrą ir pateikite visas galimas rezultatų reikš-mes. Kokia turi būti kintamojo n (n > 0) reikšmė, kad parametrai r ir sp įgytų tokias pat reikšmes, kokias turėjo pradžioje?

program skaiciuok;

var n, i,r,sp: integer;

type rasau = (piestuku, parkeriu, tusinuku);

spalva = (zalia, melyna, raudona,juoda);

procedure dirbu (n : integer; var r : rasau;

var sp : spalva);

var i : integer;

begin

for i := 1 to n do

begin

if sp = juoda then sp := zalia;

if r = tusinuku then r :=piestuku;

if r =piestuku then sp := succ(sp);

r := succ®

end;

end;

begin

writeln('ivesk');

readln(n);

dirbu (r,sp);

readln;

end.

sry uz 2bel posta narsykle suda mala :)

Čia pats šitą programą rašei? Aš neesu matęs didesnės nesąmonės.

cia kazka meginau va kaip uzduotis atrodo:

32. Duota tipo apibrėžtis ir procedūra:

type rašau = (pieštuku, parkeriu, tušinuku);

spalva = (žalia, mėlyna, raudona,juoda);

procedure dirbu (n : integer; var r : rašau;

var sp : spalva);

var i : integer;

begin

for i := 1 to n do begin

if sp = juoda then sp := žalia;

if r = tušinuku then r :=pieštuku;

if r =pieštuku then sp := succ(sp);

r := succ®

end

end;

Išnagrinėkite procedūrą ir pateikite visas galimas rezultatų reikš-mes. Kokia turi būti kintamojo n (n > 0) reikšmė, kad parametrai r ir sp įgytų tokias pat reikšmes, kokias turėjo pradžioje?

p.s. pries stumdami ant musu it specelistu ir sakydami kad jie nieko nemoka geriau suzinokit kaip juos ruosia aukstuosiuose. kai destytojas buvo supykes ant musu tai 3 svaites nieko nekalbejo per paskaitas. jai kas zino eugenijus valaviciu tai manau supras kas jis per zmogus

daugmaz algoritma zinau, bet pacia programa nzn kaip parasyt.

atsakymas mano toks 3 * 4 = 12 galimos reiksmes tesiasi algoritmu 12(1) + 12(2) + ... + 12(n) iki integer ribos

krc kai pas ji html mokiaus tai gal viena kart per visa semestra jam aptemo protas ir paaiskino kaip remus daryt, o seip viska is googles mokiaus

32. Duota tipo apibrėžtis ir procedūra:

type rašau = (pieštuku, parkeriu, tušinuku);

spalva = (žalia, mėlyna, raudona,juoda);

procedure dirbu (n : integer; var r : rašau;

var sp : spalva);

var i : integer;

begin

for i := 1 to n do begin

if sp = juoda then sp := žalia;

if r = tušinuku then r :=pieštuku;

if r =pieštuku then sp := succ(sp);

r := succ®

end

end;

Man šita programa nesuprantama, todėl padėti negaliu. Gal yra žmonių kurie darė kažką panašaus, ar bent nutuokia kaip daryti.