Programozás (segítség és publikálás kezdõknek)

[Ati500]

Kuzmina Jekatyerina - Dr. Tamás Péter - Tóth Bertalan:

Programozzunk Delphi 7 rendszerben! (Kylix megjegyzésekkel)

(ComputerBooks - Budapest, 2003)

Én is ebb?l tanultam, azért vagyok ilyen profi !

Ja:

ComputerBooks: www.computerbooks.hu

Na csá!

U.i.: Ja ha kell help Delphi-hez, írj nekem, próbálok segíteni!

[cOntecter]

Hello Szia! Nekem Borland Delphi-ben kéne egy kis segítség, mondjuk egy magyar könyv vagy vmi

ha kell az a könyv amit már ati is írt akkor nekem van egy eladó.2000HUF.(bolt asszem 3860.legalábbis én annyiért vettem)ha kell írj PÜt.

[AttilaK]

Csak, hogy programozásnál maradjunk. Ez egy házi feladat és nem jövök rá alényegére. Szombatra kész kellene lenni. Valami ötlet ?

Írj progamot, amely a szabványos bememetrõl sorokat olvas. Minden sor egy teljesen zárójelezett aritmetikai infix kifejezést tartalmaz(hat). A kifejezés a * / + - mûveleti jeleket (operátor) és decimális számokat (operandus) tartalmazhat. Írj programot, amely minden beolvasott sorról eldönti, hogy az szabályos infix kifejezést taralmaz-e!

Pl:

Input:

((3 + 4)*2)

((5 - 6)

Output:

szabályos

nem szabályos

[conjurer]

Csak, hogy programozásnál maradjunk. Ez egy házi feladat és nem jövök rá alényegére. Szombatra kész kellene lenni. Valami ötlet ?

Írj progamot, amely a szabványos bememetrõl sorokat olvas. Minden sor egy teljesen zárójelezett aritmetikai infix kifejezést tartalmaz(hat). A kifejezés a * / + - mûveleti jeleket (operátor) és decimális számokat (operandus) tartalmazhat. Írj programot, amely minden beolvasott sorról eldönti, hogy az szabályos infix kifejezést taralmaz-e!

Pl:

Input:

((3 + 4)*2)

((5 - 6)

Output:

szabályos

nem szabályos

Megvizsgálod az input minden karakterét, és ha helyes a kif akkor:

-"(" után szám jön, vagy "("

-")" előtt szám van, vagy ")"

-"* / + - " előtt szám, vagy "(" van

-"* / + - " után szám, vagy ")" van

Majd ezután megvizsgálod a "(" és a ")"-k számát, ha egyenlő, akkor szabályos inputról van szó.

[lokids]

Hi! Nekem help kéne pascalban. (Még kezdő vok)

A feladat az lenne, hogy egy tetszőleges nagységú szöveges állományt kiírni a képernyőre, majd soronként lehessen a kurzorral mozogni benne.

Maga a kiiratás még nem is akkora problem, de a mozgás a szövegben az za.

[conjurer]

Hi! Nekem help kéne pascalban. (Még kezdő vok)

A feladat az lenne, hogy egy tetszőleges nagységú szöveges állományt kiírni a képernyőre, majd soronként lehessen a kurzorral mozogni benne.

Maga a kiiratás még nem is akkora problem, de a mozgás a szövegben az za.

Van a Crt egységben egy Keypressed nevű függvény, illetve egy readkey utasítás ezeknek a leírását kéne megnézned. Ezekkel tudod folyamatosan figyelni a leütött billentyűket és reagálni azokra.

[lokids]

Félreértettél.

Szal van 1 szöveger fájl. Tetszőleges méretű. Ezt ki kell iratni a képernyőre. Ebben kell mozogni.

De a pascal csak úgy ezt nem tudja soronként, ezért kellene vele valamit csinálni. Más tipusba átkonvertálni. Asszem stringbe. De hogy tárolom le a szöveget? Mert tömbe nem, mert a tömb az előre beállított. És ha több sor an, akkor már nem jó.

[lokids]

Lehet, hogy ez valami nagyon amatőr kérdés, de nálunk a tanár az tudja, de az megírja a programot, mi lemásoljuk, azt ennyi. De mire lemásoljuk a progit 6x átírja, nem mondja, hogy mit miért csinált, csak 20 lépéssel arrébb, azt jóvan.

Tulajdonképp olyan mintha odaadna egy kész forráskódot, azt mazsolázzuk ki magunk.

[conjurer]

Félreértettél.

Szal van 1 szöveger fájl. Tetszőleges méretű. Ezt ki kell iratni a képernyőre. Ebben kell mozogni.

De a pascal csak úgy ezt nem tudja soronként, ezért kellene vele valamit csinálni. Más tipusba átkonvertálni. Asszem stringbe. De hogy tárolom le a szöveget? Mert tömbe nem, mert a tömb az előre beállított. És ha több sor an, akkor már nem jó.

Csinálsz egy 30x20-es (Ahány sor függőlegesen, illetbve vízszintesen/2 a karakteres képernyő.) 2d-s tömbötm, ennél nagyobb tuti, hogy nem kell.

A progi nagyvonalakban (szar szintaxissal):

...

sorszam=1

While True do

Begin

clearscr;

for i=sorszam to 30 do

begin

for j=1 to 20 do

begin

read(fájl,2DTOMB[j]);

write(fájl,2DTOMB[j]);

end

end

if keypressed="lefelényíl" then inc(sorszam) ... {értelemszerűen a megfelelő ASC2 kód}

..."fölfelenyíl"... dec(sorszam)...

if keypressed="eszkép" then break;

end;

...

[lokids]

A tanár azt mondta, hogy ne tömbe, mert pont az a lényege, hogy bármekkora szöveggel megbírkozzon, akkár 20 milliárd sorossal is. (Persze enyhe tulzással)

És ha jól értelmezem, akkor amit írtál az a tömb csak 1 oldalt tárol.

Meg: 'While true do' ott mi igaz?

[Calypsol]

A tanár azt mondta, hogy ne tömbe, mert pont az a lényege, hogy bármekkora szöveggel megbírkozzon, akkár 20 milliárd sorossal is. (Persze enyhe tulzással)

És ha jól értelmezem, akkor amit írtál az a tömb csak 1 oldalt tárol.

Meg: 'While true do' ott mi igaz?

ez végtelen ciklus

[Nikotin]

én ajánlom minden lelkes kezdö programozónak a darkbasicet

egyszerü kis játék készítő progi

még dijat is nyert

persze ehez is kell a tanulás, de nem annyira nehéz!

[conjurer]

A tanár azt mondta, hogy ne tömbe, mert pont az a lényege, hogy bármekkora szöveggel megbírkozzon, akkár 20 milliárd sorossal is. (Persze enyhe tulzással)

És ha jól értelmezem, akkor amit írtál az a tömb csak 1 oldalt tárol.

Meg: 'While true do' ott mi igaz?

Ennél a módszernél a szöveg mérete mindegy, mert egyszerre csak a látható oldal van a tzömbben

[conjurer]

Csinálsz egy 30x20-es (Ahány sor függőlegesen, illetbve vízszintesen/2 a karakteres képernyő.) 2d-s tömbötm, ennél nagyobb tuti, hogy nem kell.

A progi nagyvonalakban (szar szintaxissal):

...

sorszam=1

While True do

Begin

clearscr;

for i=sorszam to 30 do

begin

  for j=1 to 20 do

begin

read(fájl,2DTOMB[j]);

  write(fájl,2DTOMB[j]);

end

end

if keypressed="lefelényíl" then inc(sorszam) ... {értelemszerűen a megfelelő ASC2 kód}

..."fölfelenyíl"... dec(sorszam)...

if keypressed="eszkép" then break;

end;

...

Amúgy kimaradt egy fontos rész :

...while True do

!!! itt e szöveg helyett újra be kell olvasni a filet !!!

for z=1 to sorszam do readln; (így mászol lejjebb egy sort a kiindulási oldalhoz képest)

[lokids]

Azt tom, hogy még az óra végén felvetettük, hogy 2 megoldás van. Az egyik a 2d-s tömb és egy másik tipusba való konvertálás, amit lehet soronként indexelni.

De a tanár olyasmit mondott, hogy a konvertálás a jobb. De engem mind2 megvalósítás érdekel.

[AttilaK]

Nekem is egy kis help. Megnyitok egy filet pl. FILE *p; mutatóval. Az a bajom nekem, hogy egy ciklus ellenőrzésnél túl fut a mutatóm és vissza szeretnék vele lépni. Most próbálgatom használni a fgetpos() függvényt. Azt nem tudom pontosan, hogy amit meg kell neki 2.argomentumban adni annak milyen típusnak kell lennie? pl: fgetpos(p, ?);

illetve ez hogyan is működik ez a függvény.

[AttilaK]

Na rá is jöttem. Storno problem. Egy fpos_t típusú mutatót és hozzá egy változót kell létrehoznom. Mostmár tudom beállítani fgetpos()-al és és rá állni fsetpos()-al. OK.

[lokids]

Amúgy kimaradt egy fontos rész :

...while True do

!!! itt e szöveg helyett újra be kell olvasni a filet !!!

for z=1 to sorszam do readln; (így mászol lejjebb egy sort a kiindulási oldalhoz képest)

És valaki nem tudja mik az escII kódjaik?

Meg valamiért a kexpressed='valami' then-el baja van.

A then-re type mismacht ad. nem tom miért.

[Calypsol]

És valaki nem tudja mik az escII kódjaik?

Meg valamiért a kexpressed='valami' then-el baja van.

A then-re type mismacht ad. nem tom miért.

miért kell ascii kód?

uses crt; van az elején?

type mismatch? copyzd be azt a részt plz

[Calypsol]

És valaki nem tudja mik az escII kódjaik?

Meg valamiért a kexpressed='valami' then-el baja van.

A then-re type mismacht ad. nem tom miért.

jah...ha nincs ifed, akkor a thant nem tudja értelmezni

[conjurer]

jah...ha nincs ifed, akkor a thant nem tudja értelmezni

Igen If keypressed= ...

[conjurer]

miért kell ascii kód?

uses crt; van az elején?

type mismatch? copyzd be azt a részt plz

Crt van az elején, azt már az elején megbeszéltük, hogy keypressed függvény az a crt-ben van

[lokids]

Alap, hogy CRT unitot használok.

Erre ad hibaüzit.

if keypressed='s' then

[conjurer]

Erre ad hibaüzit.

if keypressed='s' then

if keypressed=readkey then változó=readkey ,vagy valami hasonló, sajnos ninenek nálam a régi programjaim, mostanában meg a Java a menő

[Napster]

Mi Delphi -ben nyomulunk ,elötte volt basic utánna pascal.. sztem ez a legjobb

Ja és volt itt aki leirta hogy a tanár csak elmondja és lemásoljátok(lehet hogy egy suliba járunk ? ) ....nah kb nálunk is ezvan ,vagyis magyaráz ,de...

mind1 nagyjából vágom ma is irtunk vmi kis gagyit arra kaptam egy 5-öst ,de volt aki ezt se tudta megcsinálni(sjan elég sokan)