Készíts egy grafikus programot Pascalban, amelyik megmutatja hogy egy kör köré hány kör írható? Ennyit mondott a tanárom.

Végtelen sok

Ha rajzolni is kell, akkor gyakorlatilag csak a pixelek száma határozza meg. Megnézed hogy egy adott sugarú körvonal tetejétől, aljától, oldalaitól hány pixelre van a képernyő széle és a legkisebb a válasz.

Ehhez még kirajzolni sem kell-

program Circles;

begin

writeln ('Végtelen.')

end.

Ezt a feladatot lehet többféle képpen is értelmezni.

Itt van egy lehetséges megoldás:

[link]

A kör köré 6 darab ugyanolyan méretű kör írható, mint maga a kör.

Kár volt törölni az előző kérdésedet, olyan szépet írtam neked pythonban:

from turtle import *

mode('Logo'); reset(); color('black');

pencolor('red'); shape('turtle'); pensize(15)

up(); left(60); down(); forward(136);

for i in range(0, 40):

      left(6); forward(8)

forward(264);

for i in range(0, 40):

      right(6); forward(8)

forward(126); hideturtle();

exitonclick()

Szerintem #6 találta el a feladatot. Ha a tanárod tényleg a fentieket találta mondani, akkor őt illeti az alapos fejmosás, amiben a pongyolaságot illetőleg téged részesítettünk előzőleg. Ezek az eredetivel megegyező sugarú érintőkörök -- két olyan nélkülözhetetlen kikötés, amelyek nélkül a feladat kész ostobaság. Érdekes lenne tudni, hogy a program szerkezetében is látszania kéne a levezetésnek, vagy elég, ha felrajzolja az imént linkelt ábrát.

Tabaki: "Kár volt törölni az előző kérdésedet,"

Kár volt neki majomságokat beugatni. Ha nem teszed te is, akkor talán nem is törölte volna.

#9: „Kár volt neki majomságokat beugatni.”

Hát bocs, az a részemről elvitathatatlanul jó szándékú provokáció volt, aminek máris meglett az üdvös eredménye: Ez a kérdés, amelyből egyrészt a programnyelv is kiderült, másrészt Panna feje fölül is elhussant a fogalmazási impotencia sötét gyanúja, harmadrészt pompás tipp született arra nézvést, hogy mire gondolhatott a tanár, miközben hülyeséget beszélt. Idáig valóságos diadalmenet az ún. majomságok eredménye, már csak a programot kéne megírnia valakinek...