A gondom:Meg van írva egy progi pascalban.Ciklus van benne.A tanár úgy akarja,hogy 2 ciklus legyen benne.Amúgy a progi így szól:Van 5 szám és meg kell álapítania,hogy mennyi +,-,0 a szám.

Aha. Úgy gondolja, első ciklusban beolvasod a számokat, a másodikban megszámolod, miből mennyi.

So it goes… We stand alone by standing stones and turn them into circles.

Igen így.És ezt hogy?

pld.

const
  MAX_SZAM = 5;

var
  i: integer;
  szam: array[1..MAX_SZAM] of integer;
  pozitiv, negativ: integer;

begin

  pozitiv := 0;
  negativ := 0;

  for i := 1 to MAX_SZAM do begin
    write(i,'. szam: ');
    readln(szam[i])
  end;

  for i:= 1 to MAX_SZAM do begin
    if szam[i] > 0 then inc(pozitiv)
    else if szam[i] < 0 then inc(negativ);
  end;

  writeln('Pozitiv: ', pozitiv, ' Negativ: ', negativ, 'Nulla: ', MAX_SZAM-(pozitiv+negativ));
end.

So it goes… We stand alone by standing stones and turn them into circles.

Értem már!Kösz:)

Most ki is javítgattam, elvileg lefordítható :)

So it goes… We stand alone by standing stones and turn them into circles.

Menni fog!Amúgy mi a feltételeknél az az inc?

increment, azaz növelés.
mintha azt írnád, hogy
  pozitiv := pozitiv+1
a párja a dec, ami ugyanígy csökkent.
Adhatsz nekik még egy paramétert, pld.
  inc(valami, 3) hárommal növeli meg valami értékét.
Ha nem haragszol meg, egy Pascal-könyv nem ártana :P

So it goes… We stand alone by standing stones and turn them into circles.

És milyen könyv?Nálunk ilyeneket nem tanítanak.Nálunk,számtechen jobban a and,nand stb kapukat tanítsák.

Kissé off...

Kedves zöld sas, ilyen hozzáállással talán (mások segítségével) átmész Pascal-ból, de egész életedben nem fogsz megtanulni semmit. Miért nem próbálkozol magad? Miért nem olvasol el egy Pascal könyvet, írsz meg egy egyszerű változatot, és javítgatod addig, amíg el nem éri a kívánt szintet?

Ja, hogy ez sok időbe telik és egyszerűbb megkérdezni? Igaz - de egyrészt így örömöd se lesz a dologban, másrészt könnyen eljöhet a nap, amikor tényleg tudni kell valamit, és nem lesz ott a súgógép.

Nem azért kérdeztem!Egyébként szoktam próbálkozni sikeressen!Csak valahogy úgy néz ki a számtech,hogy tanár bejön.Elmondja mit akar 2-3 percben és 2 óra múlva látjuk újra.így lehet tanulni nem?

Jól van, én sem bántani akartalak, csak elgondolkodtatni :)

A tanár hozzáállása valóban szégyenletes. Te viszont meg tudsz tanulni magadtól is programozni, sőt, pár szempontból így még talán jobban is jársz, mert nem ront el a tanár mindenféle egyéni nézetekkel. A jó könyvekből pedig így még jobban el tudod sajátítani a programozást. Persze ha érdekel :)

írj le légyszi pár könyvet.Amúgy érdekel,de nagyon.

Igazi programozóktól, igazi programozóknak:
Marco Cantú: Delphi x mesteri szinten (x= 3..7)
Borland Delphi x Developer's Guide :) (x=3..7)

Vagy ha jobban ízlik a pluszpluszos világ:
Bjarne Stroustrup: A C++ programozási nyelv

A legújabb divat:
Microsoft Press: A C# programozási nyelv (egész ígéretes!)

Hirtelen ennyi, a többiek még biztos mondanak jókat. Csak nehogy elfajuljon a téma.

A ''readln(szam[i])'' után miért nincs '';''?

[ RIOS Release 5 – multiportal engine by Panther ]

Lehagyta.Bocsáss meg neki.

Mert utolsó utasítás a blokkban, nem kell neki. Ami meg nem kell, azt minek erőltessük :DDD

So it goes… We stand alone by standing stones and turn them into circles.

Aha. Kösz :)

FTC: épp azért kérdeztem, amit válaszolt; mert nem voltam benne biztos hogy oda kell vagy sem, és érdekelt hogy ha nem kell, akkor miért. Pascalban nem vagyok menő ugyanis :DDD

[ RIOS Release 5 – multiportal engine by Panther ]

Huhúúú, ettől kitépem a hajam!

A logika ugye az, hogy minden utasítást pontosvessző terminál. Az egy dolog, hogy a Pascal compiler olyan kretén, hogy elfogadja így is (utolsó utasításnál nincs pontosvessző), de egy igazi tököslegény :P azért korrekt és konzisztens!

dicranum scoparium + genista pilosa = :)

Nem: a logika az, hogy az utasításokat pontosvessző választja el. Mivel az end előtt már nincs több utasítás, az utolsó ; felesleges. :))

So it goes… We stand alone by standing stones and turn them into circles.

''Az igazi tököslegény kiteszi a pontosvesszőt!'' :))
(Itt most csak a lényeget idéztem :D)

[ RIOS Release 5 – multiportal engine by Panther ]

Sőt, megnéztem: az eredeti Pascal szabvány szerint kifejezetten helytelen az utolsó utasítás után kitenni a pontosvesszőt. Mik nem vannak :))

So it goes… We stand alone by standing stones and turn them into circles.

Bocs, nem a fordító kretén, hanem Prof. Wirth, amiért így alkotta meg a szintaxist... :))

Szeretettel:
Szalma

ui.: Perl a király!!!! Regexpekkel tűzdelve!!! :))

De nem, ő sem! ... Vagy én is. :) Én látom benne a logikát :DDD

So it goes… We stand alone by standing stones and turn them into circles.

Persze, nem kretén: a legjobban letisztult nyelveket köszönhetjük neki, amik Neumann rendszerű gépre készültek. :))

Szeretettel:
Szalma

Te is ismered az Oberont? Végre valaki :)

So it goes… We stand alone by standing stones and turn them into circles.

OFF

Aha. Oberon: a programnyelvek/oprendszerek/fordítók Csimborasszója. :) Aki ennél jobbat tud, az csal. :) ~7000 sor (persze csak 3-4 alapszintű driverrel) a natív PC-s Oberon, ami egyben fejlesztőkörnyezet és operációsrendszer. És végtelenül letisztult. (''Nem kellenek ikonok, hiszen az ember nem azért tanult meg olvasni, hogy semmitmondó képecskékből következtessen a kattintás végeredményére...'', Wirth.)

ON

Igaziból a Modula-2 jobban fekszik, mert az még keret független volt. Nagyon ütős natív thread támogatással... :) (Vagy 3 éven keresztül M2-ben dolgoztam...)

Szeretettel:
Szalma

Angster Bözse: Programozás I/II. Nagy rulez könyv, középsuliba is ajánlották, meg most fösulin is ez kell :)) Amugy egy átlagos könyv, de elég jol rendezett szvsz.

A biztonsági öv lehet, hogy korlátoz a mozgásban, de még mindig nem annyira, mint a tolószék.