[gedi]

Egy olyan pascal programra lenne szükségem ami fájlból olvas be valamilyen adatokat vagy szöveget. Ezekkel aztán végez valamilyen számításokat és egy grafikonon szemlélteti.(pl. 5 cég legutóbbi 24 hónapi bevételének összehasonlítása grafikon ) Nagyon sürgõs lenne!
[url="http://"http://www.gedi86@freemail.hu"]www.gedi86@freemail.hu[/url]

[flugi]

idézet:

---

Ezt írta gedi:
Egy olyan pascal programra lenne szükségem ami fájlból olvas be valamilyen adatokat vagy szöveget. Ezekkel aztán végez valamilyen számításokat és egy grafikonon szemlélteti.(pl. 5 cég legutóbbi 24 hónapi bevételének összehasonlítása grafikon ) Nagyon sürgõs lenne!
[url="http://"http://www.gedi86@freemail.hu"]www.gedi86@freemail.hu[/url][/quote]

Eléggé alulspecifikáltad a dolgot, gyorsan körüljárjuk:
1. szövegfile: azért jó, mert kézzel lehet írni az adatokat, akár egy táblázatból is ki lehet ollózni, szövegként használni. (apropó, miért kell erre program, amikor ott a sok táblázatkezelõ, openoffice.org pl. tökéletes?)
2. típusos file: ennek is van elõnye, de kreálni sokkal bonyolultabb. Ha az adatok már binárisan vannak meg, akkor persze nincs mese, így kell csinálni

mondjuk legyen szövegfile, akkor kell egy szövegfile változó:
var t:text;

amit meg kell nyitni:
assign(t,'fileneve.txt');
reset(t)

Ha bolondbiztos progit akarsz, akkor így:
assign(t,'fileneve.txt');
{$I-}
reset(t)
{$I+}
if ioresult <> 0 then begin writeln('baj van a megnyitassal'); halt(0); end;

olvasni readdel kell:
var a:longint;
read(t,a);

aztán bezárod a filet:

close(t)

érdemes egy kétdimenziós fix tömböt használni, ahol a méretek az egyik irányba hogy hány cég, a másik irányba hogy hány hónap.

a grafika:

elõször inicializálni kell a grafikus felületet (lehetõleg ha már a filekezelésen túlvagyunk, hogy lássuk a hibaüzeneteket) Fontos, hogy az egavga.bgi file elérhetõ legyen.

uses graph;
var gd,gm:integer;
detectgraph(gd,gm);
initgraph(gd,gm,'');

a végén pedig
closegraph;

rajzolni pedig vonallal meg bar-ral érdemes, de nézz körül majd a helpben, meg a graph unit demójában, hogy melyik megjelenítés fekszik a legjobban.
Sima színes diagramokhoz talán a vonal a legjobb:
setcolor(szin);
line(x1,y1,x2,y2);
ez egy [szin] színû vonalat húz az (x1,y1) képponttól az (x2,y2) képpontig.

sok sikert hozzá! ez igazi gyakorlófeladat.

[gedi]

Köszi Flugi!!!

De nagyon megköszönném ha egy kész porgramot küldenél az e-mail címemre.

Sajnos tök hülye vagyok a programozáshoz!

[Skiri]

idézet:

---

Ezt írta gedi:

Sajnos tök hülye vagyok a programozáshoz![/quote]

Akkor vajon miért...?!?!

[James Sunderland]

idézet:

---

Ezt írta Skiri:


Akkor vajon miért...?!?![/quote]

Van egy sejtésem...

[Root_Kiskacsa]

idézet:

---

Ezt írta gedi:
De nagyon megköszönném ha egy kész porgramot küldenél az e-mail címemre.

Sajnos tök hülye vagyok a programozáshoz![/quote]

Kicsit unalmas, hogy a vizsgaidõszak kezdetével egyre többen itt akarják ingyen letudni a féléves vizsgájukat. Személyesen engem is szoktak bombázni ilyen kérésekkel, de egy idõ után úgy döntöttem, hogy ha valaki annyira nem veszi a fáradságot, hogy megtanulja a témát, akkor fizessen! Választhat, hogy jó pénzért megcsinálom neki a programot ( + le is dokumentálom, mert hát azt is kérik), avagy ingyen, baráti alapon korrepetálom, hogy õ maga meg tudja majd írni a házidolgozatát. Magyarul úgy is fogalmazhatunk, hogy honorálom ha valakiben van akaraterõ, és nem honorálom ha nincs.
Na de ez már offtopic (meg csak egy magánvélemény), és különben is elnézést, ha most éppen nem a féléves doga letudásáról lenne szó.

[FlowM@N]

idézet:

---

Ezt írta Root_Kiskacsa:

Na de ez már offtopic (meg csak egy magánvélemény), és különben is elnézést, ha most éppen nem a féléves doga letudásáról lenne szó.[/quote]

Szvsz arról van szó már megint, de nem értem ha valaki tök hülye a progarmozáshoz akkor minek jár olyan iskolába ahol ezt kell neki tanulni. :confused:

[fiola]

meg az emilcime is aranyos

[gma]

idézet:

---

Ezt írta *FlowM@N*:


Szvsz arról van szó már megint, de nem értem ha valaki tök hülye a progarmozáshoz akkor minek jár olyan iskolába ahol ezt kell neki tanulni. :confused:[/quote]

Tudjátok mi a legrosszabb? Hogy az ilyen dolgok nagyban befolyásolják az egész szakma és egy-egy fõiskola megítélését. Tudnék mesélni...

[flugi]

idézet:

---

Ezt írta gedi:
Köszi Flugi!!!

De nagyon megköszönném ha egy kész porgramot küldenél az e-mail címemre.

Sajnos tök hülye vagyok a programozáshoz![/quote]

1. A feladathoz nem kell program, programot te akarsz írni/iratni

2. Menj a csudába, ha programozni akarsz akkor, amikor nincs rá okod, akkor programozz, vagy legyél hülye a programozáshoz, és használj offiszt.

3. Elejétõl sejtettem, hogy beadandóspórolás van a háttérben, de adtam egy esélyt a sorsnak, nem akartam otthagyni valakit, akinek valóban szüksége van a segítségre. Lopod az ember idejét.

Ha olyan iskolába jársz, ahol meg kell tanulni programozni, akkor két lehetõséged van: megtanulni programozni, vagy elmenni az iskolából. Ha te vagy az, aki a másik topicban is kért programot (csak azóta megtudta, hogy milyen programot kell leadni), akkor szerintem menj el az iskolából, és válassz olyan foglalkozást, amihez már értesz, mert valami újat megtanulni úgy látszik nem tudsz vagy nem akarsz - de az tökmindegy.

Ha programozó akarsz lenni, akkor pedig vegyél magadon erõt, emeld fel a segged, és kösd föl a gatyát, mert magától ez nem megy.

[Nevergone]

Én asszem ezt a topicot csuklóból bezárnám... :confused:

[Delawer]

idézet:

---

Ezt írta flugi:


1. A feladathoz nem kell program, programot te akarsz írni/iratni

2. Menj a csudába, ha programozni akarsz akkor, amikor nincs rá okod, akkor programozz, vagy legyél hülye a programozáshoz, és használj offiszt.

3. Elejétõl sejtettem, hogy beadandóspórolás van a háttérben, de adtam egy esélyt a sorsnak, nem akartam otthagyni valakit, akinek valóban szüksége van a segítségre. Lopod az ember idejét.

Ha olyan iskolába jársz, ahol meg kell tanulni programozni, akkor két lehetõséged van: megtanulni programozni, vagy elmenni az iskolából. Ha te vagy az, aki a másik topicban is kért programot (csak azóta megtudta, hogy milyen programot kell leadni), akkor szerintem menj el az iskolából, és válassz olyan foglalkozást, amihez már értesz, mert valami újat megtanulni úgy látszik nem tudsz vagy nem akarsz - de az tökmindegy.

Ha programozó akarsz lenni, akkor pedig vegyél magadon erõt, emeld fel a segged, és kösd föl a gatyát, mert magától ez nem megy.[/quote]

Uppsz
Látom már semmi köze nincs a dolognak a pascalhoz
Azért kiváncsi lennék, hogy:

• miért nem hamarabb kezdett hozzá a delikvens?
  
• miért nem ül össze pár ismerõssel akik értenek esetleg a programozáshoz?
  
• könyv használata felmerült?

Eddigi tapasztalatom során nagyon sok segítõkész és jópár felkészült ember van a fórumon.
Sajnos nagyon sokan el sem olvassák a topicokat, legalább pár hozzászólás erejéig, hogy hátha már valaki elõtte feltette ugyanazt a kérdést, esetleg arra netán válaszolt is valaki...

Pedig épp ma mondtam, miközben fát mentünk vásárolni, hogy valaki még egy nagyon egyszerû kis lökést is adott ahhoz, hogy el lehessen indulni a programmal.
Nagyon rosszindulatú lennék, ha én is beszállnék a topicnyitót "fegyelmezõk" sorába, ezért igyekszem nem azt tenni.
Csak megjegyzem, hogy sajna mindennek megvan az ára, ahogy flugi is mondta és bizony "a gyorsan csináld meg helyettem, mert te profi vagy" dolog sokszor visszaüt, amikor épp nem lesz senki a közelben, aki segítõ kezet nyújtana...

[flugi]

idézet:

---

Ezt írta Delawer:


Pedig épp ma mondtam, miközben fát mentünk vásárolni, hogy valaki még egy nagyon egyszerû kis lökést is adott ahhoz, hogy el lehessen indulni a programmal.
[/quote]

Kb mindent odaírtam neki, ami fontos. Ott bukott le, hogy nem tudott kérdezni.

Nem kell tudni minden programot nulláról megírni, a legutóbbi két házifeladatbeadandómat sem nulláról kezdtem, egyszerûen mert nem értek az OpenGL-hez, muszáj volt valahonnan elkezdeni, de basszus, hát leülök és töröm a fejem, próbálkozok, és vagy sikerül, vagy nem. És ha nem, akkor tudok kérdezni, hogy van-e olyan mint a nurbs, csak nem kontrollpontokkal, hanem interpoláló. (ez mellesleg tényleg érdekel)

Miért kéne bezárni a topicot? Részemrõl örülnék egy "bocsi, akkor megpróbálom megcsinálni abból amit mondtál" reagálásnak. Optimista vagyok

[kla]

Egyebkent lehetne valami policy-kiegeszitest csinalni, ami kb. ugy szolna (nehany helyen talalkoztam mar ilyennel), hogy segitseget azt nyujtunk, ha szepen kerik, de hazifeledatokat nem oldunk meg.

[Freeze]

Gondoljatok bele, aki még azt sem tudja mivel lehetne mp3mat audiocd-re kiirni, az hogy is tudna bármilyen programot írni... :confused: :confused:
[url="http://"https://www.hwsw.hu/perl/ultimatebb.cgi?ubb=get_topic&f=15&t=004016"]topic1[/url] [url="http://"https://www.hwsw.hu/perl/ultimatebb.cgi?ubb=get_topic&f=24&t=000200"]topic2[/url]

[nagy1]

pedig a pascalt már néhány nap alatt meg lehet tanulni valamilyen szinten, ha az illetõ tényleg rászánja magát, és egy kicsit ért a számítógéphez.
szvsz aki erre is lusta, annak elég kemény lesz majd a többi nyelv. a pascalt pont azért tanítják, mert egyszerû, áttekinthetõ, és a legtöbb programozási alapfogást el lehet benne sajátítani.

flugi útmutatása alapján már minimális tudással és 1-2 óra munkával meg tudná oldani a dolgot, amíg a hozzáértõbbek azidõ alatt sokkal érdekesebb problémákkal tudnának foglalkozni...

[Delawer]

idézet:

---

Ezt írta nagy1:


pedig a pascalt már néhány nap alatt meg lehet tanulni valamilyen szinten, ha az illetõ tényleg rászánja magát...[/quote]

Az elsõ komolyabb nyelv amin programot írtam a pascal volt. Persze maga a program közel sem volt "komoly", de mindenesetre én szerettem. Sajna a kezdeti lelkesedés óta átnyergeltem más nyelvekre, de néha meg-megnézem azokat a kis bugyuta programokat, amiket akkoriban csináltam.
Valószínûleg sokakat az riaszt el, hogy "mit keres egy ilyen csúnya DOS-os ablak a windózomon???"

[FlowM@N]

idézet:

---

Ezt írta Delawer:

....
Valószínûleg sokakat az riaszt el, hogy "mit keres egy ilyen csúnya DOS-os ablak a windózomon???"[/quote]

Lehet, de szvsz a topikindító kollégának a Delphi se menne jobban.

[Warrior]

Nos, gedi?

[Xp]

Warrior
Szerintem gedi azért nem nagyon programozik mert nem is nagyon érti.
Azért a programozást érteni is kell.