Upotreba podataka

     
 

Rješenje Primjera 10 - nastavak 4

Program koji crta pravokutnik i ispisuje mu opseg i površinu izgleda ovako:

to pravokutnik :a :b
repeat 2[fd :a rt 90 fd :b rt 90]
make "opseg 2*(:a+:b)
make "povrsina :a*:b
print (se "Opseg "pravokutnika "sa "stranicama :a "i :b "je  :opseg)
print (se "Površina "pravokutnika "sa "stranicama :a "i :b "je :povrsina)
end

Na slici možete vidjeti izgled prozora MSWLoga nakon izvršavanja programa pravokutnik 70 150, s crtežom i ispisom.

Isprobajte program s vrijednostima po želji.