Aktív témák
-
Kinti
csendes tag
Hali!Szoval a problemam a következo:kaptam egy hazidolgozatot aminek 2 nap mulva kész kellene lennie
A feladat a következo:Irjunk tele egy tetszőleges(sorsolással generált)derékszögű háromszöget,egyforma,véletlen karakterekkel.
Probaltam kirajzoltatni de a vonalak a széleken megtörtek.:(Kérlek segitsetek!
Örülnék nagyon ha több féle változat is érkezne,mert sajna nekem a háromszög sem mindig jött ki derékszögűnek.:(Előre is köszönöm -
q0w1e2
tag
prog.hu
-
tildy
nagyúr
SZerintem ott hamar lehurrognák a kishugomat:(
szerk:hirtelen nekem sincs ötletem rá, de időm se, mivel minden időmet leköti a phps wml-s szakdogám.
[Szerkesztve]"Tartsd magad távol azoktól, akik le akarják törni az ambíciódat! A "kis" emberek mindig ezt teszik, de a nagyok éreztetik veled, hogy te is naggyá válhatsz" - Mark Twain
-
Panther
HÁZIGAZDA
[ Tyűű, lesz itt majd tolongás ha rájönnek a népek mi a szitu :U ]
MOD: Tildy, már el is szóltad magad. ;]
[Szerkesztve][ RIOS Release 5 – multiportal engine by Panther ]
-
Viktor77
titán
Most bánom, hogy nem tudok programozni! :D
Csinálni kell. Kész. Pont.
-
PeliScan
addikt
QBasic, esetleg..? :D
-
Mennyi?
aktív tag
OFF:
Mennyi új ''helyes csajszi'' avatár van! :DD Vagy csak én vettem későn észre?:B
ON -
HiperG
addikt
Fúúú... miis pascalt tanulunk, de egyrészt nemis sikerült felfogni túlságosan a feladatot, meg amúgyse hiszem, hogy menne :)
-
tildy
nagyúr
Mert Gimiben szerintem örülnek ha ezt megérti a gyerek.Ráadásul amiket tanítanak nekik:(
A feladat pedig a következő:
kirajzolni random helyre egy derekszogu haromszoget es random karakterekkel ''kitolteni '' azt
[Szerkesztve]"Tartsd magad távol azoktól, akik le akarják törni az ambíciódat! A "kis" emberek mindig ezt teszik, de a nagyok éreztetik veled, hogy te is naggyá válhatsz" - Mark Twain
-
HiperG
addikt
tildy temeg figyelhetnél már irc-n is, mert olyan csönd van :)
[Szerkesztve] -
PeliScan
addikt
Az az igazság, hogy bár nem szeretem a Pascal, azért ha vki komolyabban szeretne programozni, akkor valszeg jobb mint a QBasic. Én nagyon szeretem ezt a nyelvet, talán mond6om hogy elég mesterien műveltem (hangkártya, egér drivert írtam/használtam benne, írtam egy egész CDs játékot is ám..! :D) de amikor elkezdtem C++ tanulni, akkor hatalmas hátrányaim származtak a QBs megszokásokból... így abba is hagytam az egészet, és elmentem szociológusnak. :D
Kinti, azért ha vmi folytán mégis jó lenne a QB szólj feltétlen, mert magamtól már biztos nem veszem elő, de ha van vmi ehhez hasonló értelmes cél, akkor nagyon szívesen nosztalgiáznék egyet... :) -
Kinti
csendes tag
Remélem tud valaki segiteni!Holnap majd felnezek netre!Előre is köszönöm!Jó8!
-
tildy
nagyúr
Timi itt egy up:)
Sråcok håt egy lege'ny sincs talpon a vide'ken, aki kenne' vågnå a pascalt???
[Szerkesztve]"Tartsd magad távol azoktól, akik le akarják törni az ambíciódat! A "kis" emberek mindig ezt teszik, de a nagyok éreztetik veled, hogy te is naggyá válhatsz" - Mark Twain
-
L3zl13
nagyúr
Hááát, pascalban én sem tudok segíteni, de mi lenne, ha mondjuk beírnád, amire eddig jutottál.
Ha csak az algoritmusban van hiba, akkor abban az is tud segíteni, aki nem vágja a pacalt...
Pl miért nem derékszögűek a háromszögek stb...Aki hülye, haljon meg!
-
HEBI
senior tag
Ez nem Pascal kérdése és nem is háromszög rajzolásé, hanem a kitöltés gázos. Kell hozzá tudni a karakter szélességét, magasságát és matematikai alapon kell megközelíteni azt a koordinátapár halmazt amibe lehet kirajzolni. Pontosan kell kitölteni a derékszögű háromszöget?
Meg mellesleg az ilyen házik arra valók, hogy az Illető készítse el!
De segíteni szívesen segítek, ha nekiáll és kérdez!A csiga nem lassú állat, csak nagy a súrlódása...
-
L3zl13
nagyúr
Nem biztos, hogy kell tudni a karakter méreteit.
Lehet, hogy csak azt kell tudni melyek azok a karakterhelyek (normál 25x80-as karakteres módban) amelyek teljesen belül esnek a háromszögön. Persze ez a feladattól függ.
Ráadásul azt mondja neki már a háromszöggel is gondjai vannak, szóval...Aki hülye, haljon meg!
-
tildy
nagyúr
Ez egy kozepsuli ahol ezt tanitjak epp...Ha jol lattam nekiallt mar de a derekszogu haromszoggel is baja van(neha jol rajzolodik ki neha nem).Tegnap sokat dumaltam Kintivel, es azt mondta tan az is eleg , ha ay alabbi dolog megvalosul (nem random karakterekkkel, hanem csillaggal)Remelem igy mar jobban lathato , mi is a feladat...
*
****
*******
**********
*************"Tartsd magad távol azoktól, akik le akarják törni az ambíciódat! A "kis" emberek mindig ezt teszik, de a nagyok éreztetik veled, hogy te is naggyá válhatsz" - Mark Twain
-
tildy
nagyúr
Mit gondoltal?;]
Egyebkent remelem tenyleg jol tudom a feeldatot es nem vonalrajzolo rutinnal kell megcsinalni(bar itt akar mar az is lehet....)
[Szerkesztve]"Tartsd magad távol azoktól, akik le akarják törni az ambíciódat! A "kis" emberek mindig ezt teszik, de a nagyok éreztetik veled, hogy te is naggyá válhatsz" - Mark Twain
-
-
HEBI
senior tag
Amire én gondoltam ahhoz komoly koordinátageometriai ismertek kellettek volna, amivel már nem rendelkezem. De minimum grafikus felületben gondolkodtam és változó karakter méretekkel, hogy maximálisan ki lehessen tölteni véletlenszerűen a képernyőn véletlenül elhelyezett derékszögű háromszöget, ami tetszőleges szögben állhatott volna. Ehhez képest egy mérföldekkel egyszerűbb feladatot látok...
A csiga nem lassú állat, csak nagy a súrlódása...
-
BlackWoOd
aktív tag
Egy elvet leírok, a pas-t neked kell összebarkácsolni, remélem megy:
Adott a derékszögű hsz, mindegy hol.
A függőleges szára legyen ''Y'', a vízszintes meg legyen ''X''.
Szépen kiszámolod, hogy soronként mennyi csillaggal kell növelni a sort: ''A''=(X-1) / (Y-1)
Ezután soronként a következő a szükséges csillagok száma:
(ez fog az 1 db ciklusban menni, aminek legyen a változója ''i'')
CS(i)= ''i'' * ''A'' + 1
Így a kerekítésből adódó torzulást az utolsó sorban nem tudod kikerülni, de nem zavaró... (a ciklus 0-tól indul, így elsőre 1 csillagot kell kapnod...)
(Jah, rajzoláskor goldolj arra, hogy a képernyő koordináták ''fejjel lefelé'' vannak...)
Nem írtam kódot, csak papíron teszteltem, de 2 kül. adatsorral müxött...
mod: A ''vonalak'' meg persze, hogy megtörnek...
[Szerkesztve]< ..kevés az ember, sok az emberszerű lény... >
-
KovacsUr
addikt
Tényleg szöveges módban kell rajzolni háromszöget? :F Bizotsan nem értettetek félre valamit? Ez így mindenképp nagyon csúnya lesz, a tanár fantáziája viszont dicsérendő :DDD Most mennem kell matek gyakra, de ha estig nem hozzátok össze, segítek összedobni valamit :)
So it goes… We stand alone by standing stones and turn them into circles.
-
BlackWoOd
aktív tag
Ha nem karakteres mód, a fenti dolog grafikusban is ugyanúgy menne...
De ha nem karakteres, a pascal graf. cuccai között van egyszerű poly rajzoló rutin, úgy emléxem, így nem jelentene többet az egész egy kb. 10 sorok programnál...
(DrawPoly, FillPoly) :DDD< ..kevés az ember, sok az emberszerű lény... >
-
9CS
senior tag
Mivel nem írtatok, hogy most pontosan, hogy is van ez kicsit próbálkoztam. De mivel béna vagyok és kezdő így fura dolgok lettek, mindenesetre érdemes lehet átnézni. Ötlet az van benne, csak csiszolni kell. No meg ugyis az a lényeg, hogy elkezdd valahogy aztán már menni fog :)
Program Haromszograjzolasa;
Uses Crt;
var y,x : byte;
o : char;
procedure eztir;
var i : byte;
k : char;
begin
randomize;
i:=random(222)+33;
k:=chr(i);
o:=k;
end;
procedure hovategyem;
begin
randomize;
x:=random(80); {kepernyo meret karakteresen}
y:=random(25); {ahova mehet a 3 szog}
gotoxy(x,y);
end;
procedure mit;
var h,i : byte;
begin
randomize;
h:=random(9)+2; {max hossza a 3 szog alapjanak}
repeat
begin
for i:=1 to h do
write(o);
end;
h:=h-1;
y:=y-1;
gotoxy(x,y);
until h=0;
end;
BEGIN;
clrscr;
eztir;
hovategyem;
mit;
ReadKey;
END.
A gond ezzel, hogy ki-ki fut a képernyőböl, amit persze tuti meg lehet akadályozni (de ugye kezdő vagyok és béna is :D) ha ez meg lenne kész is :) Na jó még egy kis forgatást lehetne beletenni, de az (Nekem) igen nehéznek tünik. No meg ugye az is gond lehet, hogy ez Tildy ''feladatleírásához'' áll közelebb, ha kell vonal is köré az gáz...
szerk: csunya gonosz RIOS3 motor :t hipp hopp eltünt a formázás...
[Szerkesztve]'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
KovacsUr
addikt
No, megvan már? Mert akkor neki sem kezdek :)
So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Ez kb. azt csinálja, amit kell:
program Kinti;
uses Crt;
var
alap, magassag, x, y: Integer;
procedure Koordinatak;
{ Itt kerjuk be vagy generaljuk a koordinatakat izles szerint }
begin
alap := Random(70)+1;
magassag := random(20)+1;
x := Random(79-alap) + 1;
y := Random(24-magassag) + 1;
end;
procedure Kitoltes;
{ Itt toltjuk ki a haromszoget random karakterekkel }
var i, j: Integer;
begin
for j := 0 to magassag-1 do begin
for i := 0 to Round(alap*(j/magassag)) do begin
GotoXY(x+i,y+j);
{ Write('*');}
Write(Char(Random(223)+33));
end
end
end;
begin
TextMode(3);
Randomize;
ClrScr;
Koordinatak;
Kitoltes;
end.So it goes… We stand alone by standing stones and turn them into circles.
-
pardoc
tag
:)))
Tök eccerű. A graf képernyőt teleírod a random karakterrel. Ezután Pl sárgával megrajzolod a háromszög vonalait, majd a háromszögön kívülre eső részen csinálasz egy (rossebb se emléxik a commandra) ''színezés az adott ponttól a megadott színig''. Bár lehet ez C-ben volt, de ha emlékeim nem csalnak Pacalban is van. Így aztán a vonalak meglesznek, és random karakterekkel is fel lesz töltve a háromszög, igaz a széleken a betűk le lesznek vágva, de nem lógnak majd bele a 3szög vonalaiba. Szerintem elegáns :))))
[Szerkesztve] -
tildy
nagyúr
válasz burgatshow #42 üzenetére
Régi rendszer szerint 3.-os gimis, mostani rendszerben 11.-es.
Számtech tagozat.LVG.(Timi ha kitoroltossem ezt a hozzaszolasom, szolj nyugodtan.Gondolom ejfel utan leszel neten.)
Kovacsur:koszonom elore is a neveben.Remelem menni fog neki.
[Szerkesztve]"Tartsd magad távol azoktól, akik le akarják törni az ambíciódat! A "kis" emberek mindig ezt teszik, de a nagyok éreztetik veled, hogy te is naggyá válhatsz" - Mark Twain
-
Wildmage
senior tag
Csak, hogy azok is megtudják miért is Pascalt tanítanak a középsulikban elmondom a storymat, meg amit megtudtam. Én a Kalmár L. Számtech Szkiba jártam 5 évig, ahol a képzés full komolytalan volt attól függetlenül, hogy sok mindent tanítottak az évek alatt a Basictől a C-ig.(Na jó azért sem volt túl nagy sikerük nálunk, mert 5.-ben pl. szinte mást sem csináltunk, mint heti 8 órában Counter-Strike :) ) Utána meg jártam az ELTE TFK angol-számtech tanári szakára 2 hónapot.
A lényeg a lényeg, hogy azért tanítanak Pascalt, mert a kezdőknek az alap rendezőalgoritmusok stb. megtanulására ideális, mivel egyszerű és áttekinthető. A másik dolog meg az, hogy ha neadjisten azon törné a fejét a delikvens, hogy valami ma is használt nyelven kezd el programozni, akkor rengeteg nyelv nagyon hasonlít ehhez és már kevesebbet kell megtanulni belőlük.
Ja és PeliScanhez hasonlóan én is otthagytam a pályát. :D Elmentem reklámmenedzsernek, ami ha minden jól megy be is fog jönni, mert már 4 jósnő azt mondta sok pízem lesz:D
[Szerkesztve]
Aktív témák
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen