Takze uspesnost jako obvykle jo? ;)
gratuluji;)
taky gratuluju...eště mám v živý paměti, jak sem dělal na pátej pokus PPGI1:-)
Pro ty, co stejně jako já, budou dále mořit Avenue jsou v souborech vypracovaná všechna dnešní zadání, FUNKČNÍ. Obzvláště K03 stojí za shlédnutí ;-)
Jinak zadání:
01: viz. výše
02: v seznamu najít slova s písmenem R a zjistit, kolik písmen má nejdelší slovo a které to je, vypsat do MSG
03: z několika témat (liniových a polygonových) načte všechny záznamy, vytvoří extent každého záznamu + spočte jeho plochu. Do nového shp (jednoho) načte jen ty záznamy (extenty), jejichž plocha je větší než průměrná plocha všech extentů. Do tabulky vepíše, ze kterého shp byl který záznam vybrán a jaké měl daný záznam ID. Prostě jednoduchý skript... :-)
Jinak dnešním (5-6) vítězům gratuluji a doufám, že se ještě někdy sejdeme...
to treti neni zas tak tezky ne? ale je to na dlouho....musis vic trebovat....oslavny skripty na Veseli a tak;)
Ve ctvrtek 24.1. od 10:00 budem na ucebne gis seancovat ... kdyžtak si připravte nějaké nejasnosti nebo dotazy, potom kdyžtak dáme nějaký pseudo skript
Pro vsechny, co jdete zitra do boje s Avenue...drzim pesti, at prinesou hodne stesti!
Seance č.2. Ve stredu 30.1. od 9:30 s prestavkou na obed - Pechanec na Gisech ma od 12:00 nejakou zkousku - pocitam, ze to bude tak na hodku- pak muzeme pokracovat dal. :-) dokavad nas pani Dobesova nevyhodi a nebo nas nesezere Avenue...
to Gele: Diky za dnesni seanci.
JDU SLAVIT!!!! :-D
mdennah • 2008-01-25 11:21:47 • 88.102.x.xgratulace :-) kdo ještě?
tom • 2008-01-25 12:16:21 • 213.235.x.xnikdo...:-(
strublos • 2008-01-25 13:16:22 • 88.146.x.xKurva :(
Seance 2 se presouva na ctvrtek31.1 od 9:30. Ve stredu se pise GISvFg.
Kdo jste byli dneska na terminu - pochlubte se zadanim. Diky
najdete i s resenim v souborech
Do oběhu se omylem dostal můj nefunkční finální skript... Nejednalo se o uznanou verzi, ale o nefunkční verzi. Tu finální jsem zapomněl uložit, proto je až nyní zde:
LFtab = FTab.MakeNew("kruhy".AsFileName,polygon)
LField = LFTab.FindField("Shape")
LID = Field.Make("ID",#FIELD_SHORT,3,0)
LFTab.AddFields({LID})
a = 0
poc = 0
p = 0
b = 1
spatne = 1
while (a <> 1)
heslo = msgbox.Input("Vlož heslo", "HESLO", "napis sem konec")
vstup = "konec"
if (heslo = vstup) then
a = 1
else
X = msgbox.Input("Zadej X", "INPUT", "2").AsNumber
Y = msgbox.Input("Zadej Y", "INPUT", "3").AsNumber
if (X > Y) then
b = b + 1
continue
spatne = spatne + 1
else
kruh = circle.make(X@Y, Y - X).AsPolygon
LFTab.AddRecord
LFTab.SetValue(LField, p, kruh)
LFTab.SetValue(LID, p, b)
p = p + 1
end
end
poc = poc + 1
b = b + 1
end
msgbox.INFO("Počet dobrých pokusů byl"++p.AsString++NL++"Počet špatných pokusů byl"++spatne.AsString, "")
theView = View.Make
theView.AddTheme(FTheme.Make(LFTab))
MrijaStudio 2006,2007
