28 éve Veletek – 1998– PC Dome / 2012– PlayDome

Pascal házi HELP!

Death666
#41 Death666 [1113]
Nagyon rég pascaloztam, valószínűleg a legegyszerűbb megoldás ha a karakterkódolást állítod át UTF-8 ra, de ha ez nem megy, akkor írj rá egy algoritmust, ami az adott karaktereket a megfelelő ékezetes betűre cseréli íráskor.

Megjegyzem én pl ha textfileba írok ki vele, és rányitok notepadban ugyanazt tapasztalom mint te, viszont ha f3-al ránézek, akkor ha ASCII kódolásban nézem minden ékezet a helyén van, ha pedig ANSI-ban akkor van az amit írtál.

Twelve galaxies, and all coming at me!

Válasz erre

david139
#40 david139 [18716]
Pascallal fájlba kéne írnom úgy, hogy az ékezetes betűk is átmenjenek, valaki tudja hogyan lehet?

-------
Indul si emelet: 13.
C‚lemelet: 17.
Feladatk˘d: 22
Befejez‚s ideje: 9:3:14
Sikeress‚g: w
-------

Mert ez így nem jó

I wish I could have known about the view from halfway down

Válasz erre

kappadi
#39 kappadi [3564]
az eslő modszerrel csinálom ás egoldottam a képernyőtörlést! viszont kár hogy a pascal nem tud tangenst számolni igy a sin/ cos-al kell megcsinálni!

L. Ádám

Válasz erre

Előzmény: Babykiller 2006.04.05. 18:34
Babykiller
#38 Babykiller [14268]
Ott nem kell variálni, csak az x és az y koordinátákat kell kiszámolni az idő függvényében. Szerencse, hogy a pascal, tud szinuszt számolni, a többi pedig gyerekjáték.

De ne feljetsd el, ha valaminek a mozgását szimulálod, le kell törölni a képrnyőt a következő kirajzolás előtt, és pascalban ez elég ratyi. A másik, de jobb módszer, ha háttérszínnel rajzold ki az előző fázist, de akkor ugye el kell tárolnod azokat a koordinátákat.

Válasz erre

Előzmény: kappadi 2006.04.04. 18:16
kappadi
#37 kappadi [3564]
már a program első fele megvan! márcsak számolni kell és az alapján egy betü fere hajitását szimulálni,vagyis a nehez még hátra van!

L. Ádám

Válasz erre

Előzmény: kappadi 2006.04.04. 18:16
kappadi
#36 kappadi [3564]
a képlettel konkrétan mit csináljak? gondolom variálni kell a változóit azt majd azokkal kell számolni?

L. Ádám

Válasz erre

Előzmény: Babykiller 2006.04.04. 16:38
Babykiller
#35 Babykiller [14268]
Képlet, aztán képernyőre normálás. A lényeg, hogy kerekíteni kell, mert csak egész koordinátába tudsz pöttyöt kirajzolni, ha szükség van rá.

Válasz erre

Előzmény: kappadi 2006.04.04. 15:12
kappadi
#34 kappadi [3564]
hali!

tudna segiteni valaki?

pascalban ferdehajítás programot kellene készítenem de nekem ez nem jön össze! ha valaki tud segiteni az írjon please!

thx!

L. Ádám

Válasz erre

Seekoly
#33 Seekoly [1990]
basszameg én most elvileg nem is írok erre a fórumra...

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Seekoly
#32 Seekoly [1990]
Számológép

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: Aware 2005.02.08. 16:28
Aware
#31 Aware [581]
nem tud valaki egy pascalos számológép forráskódját, hogy hol találhatom meg a neten?
fontos lenne!
előre is köszi!

Válasz erre

Aware
#30 Aware [581]
Oké!

Ezt a forráskódot beírtam a Turbo Pascal 7.0 és nem megy!
Miért?Mi a hiba benne?

Program Akasztofa;
Uses Crt;
Const JoKarakterek: String = ('abcdefghijklmnopqrstuvwxyz');
Var FIn: Text;
Darab, Valasztas: LongInt;
Szo, TagoltSzo, EredmenySzo: String;
Ciklus: Byte;
Key: Char;
Begin
{ File megnyitasa }
Assign(FIn, 'be.txt');
Reset(FIn);

{ Megszamoljuk hany szo van a file-ban }
Darab:= 0;
While Not Eof(FIn) Do
Begin
Inc(Darab);
ReadLn(FIn, Szo);
End;

{ A file mutatot elore allitjuk }
Reset(FIn);

{ Veletlenszeruen kivalasztunk egy szot }
Randomize;
Valasztas:= Random(Darab) + 1;

{ Beolvassuk a kivalasztott szot }
Darab:= 0;
While Valasztas Darab Do
Begin
ReadLn(FIn, Szo);
Inc(Darab);
End;

{ File lezarasa }
Close(Fin);

{ Szokozoket szurunk a szoba }
TagoltSzo:= '';
EredmenySzo:= '';
For Ciklus:= 1 To Length(Szo) Do
Begin
TagoltSzo:= TagoltSzo + Copy(Szo, Ciklus, 1) + ' ';
EredmenySzo:= EredmenySzo + '_' + ' ';
End;

{ Jatek inditasa }
WriteLn('Összesen 5 rontásod van.');
Darab:= 5;
Repeat
{ Kiirjuk az eddigi eredmenyt }
WriteLn('(', Darab, ') ', EredmenySzo);

{ Billentyu leutesre varakozas }
Repeat

Válasz erre

Seekoly
#29 Seekoly [1990]
Akkor próbáld meg a következő tutorokat:
-Legnagyobb közös osztó vagy lkkt
-x prím-e
-pénzérmés feladatok: hányszor lesz fej és hányszor lesz írás
-dobókockás: lényegébe ua. mint a fenti
-10 db szám bekérése és azok nagyság szerinti rendezése
-celsius-ról fahrenheitra átszámolni az értékeket 0-300 fahrenheit fokig (20-as lépéközzel)
-n elemű tömbben, megkeresni egy elemet, de írja ki a program, hogy hanyadik ez az elem.
-végülis egy egyszerű kalkulátor programot is össze lehet dobni.

ezeket szerintem próbáld meg, nagyon alap feladatok, ha meg tudod őket csinálni és érted is, akkor lesz vmi halvány sejtésed a programozásról
Ha nem értessz vmit, akkor kérdezz!

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: Aware 2004.12.28. 13:04
Aware
#28 Aware [581]
nagyon köszönöm!
hát még most tanulgatom a nyelvet...

Válasz erre

Előzmény: Seekoly 2004.12.28. 11:15
Seekoly
#27 Seekoly [1990]
ezt a programozás.lap.hu-un találtam,igaz angol, de jó!!

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Seekoly
#26 Seekoly [1990]
milyen szintű tutorok kellenek?
Pl:
-LNKO, LKKT
-n!
-n db bekért szám, majd azok rendezése
-keresés, kiválasztás
-tel. könyv
...

ilyen kis apró hülyeségeket magadtól is ki tudz találni, de van még egy hely ahol segíthetnek:

PH! pascalos topikok

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: Aware 2004.12.28. 11:07
Aware
#25 Aware [581]
Köszi!
A prog.hu-t ismerem

Válasz erre

Előzmény: Seekoly 2004.12.28. 11:05
Seekoly
#24 Seekoly [1990]
Nézz szét az alábbi oldalakon:
prog.hu
programozas.lap.hu

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: Aware 2004.12.28. 11:01
Aware
#23 Aware [581]
Hy!
Nem tudtok olyan oldalt amin magyar nyelvű Pascal tutorialok vannak?
Előre is kösz!

Válasz erre

Lex
#22 Lex [266]
Megvan, Ctrl+Alt+4

Welcome in the Familie!

Válasz erre

Lex
#21 Lex [266]
Lenne egy röhejes problémám: nem tudok pontosvesszőt írni
Virtual Pascal 2.1-et használnék. Ha valaki tud segíteni írjon, kösz.

Welcome in the Familie!

Válasz erre

Seekoly
#20 Seekoly [1990]
Jahh tegnap volt az érettségi, de halál egyszerű volt,legalábbis a számtech amúgy télleg találtam megoldást a problémámra, de azért köszi!

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: yosh 2004.06.15. 19:59
yosh
#19 yosh [314]
Üdv!
Asszem, kicsit elkéstem, de egy hétig nem volt netem
Látom, már nem aktuális a probléma, remélem, azért sikerült az érettségid
Ha így, vizsga után is érdekel, írok egy progit és átküldöm mailben!

Válasz erre

Előzmény: Seekoly 2004.06.07. 09:32
Seekoly
#18 Seekoly [1990]
És akkor még annyit, hogy vki nem tudna nekem segíteni "n" faktoriális előállítását pascalban (természetesen rekurzívan), mert jövőhéten érettségizek számtechből és csak teljesen elfelejtettem a fv-ek rekurzióját
előre is 100000000000 köszönet

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

yosh
#17 yosh [314]
???
Sztem csak rekurzívan lehet megadni, parancs sincs rá, a számológéped is rekurzívan számolja. Szal nem hinném, hogy létezik másik út.

Válasz erre

Előzmény: Seekoly 2004.05.22. 13:28
Seekoly
#16 Seekoly [1990]
N faktoriálisról lenne szó (hogy egyértelmű legyen)

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: Seekoly 2004.05.22. 13:28
Seekoly
#15 Seekoly [1990]
Tárgytalan
Inkább tudna vki segíteni n! előállításában (pascalban), de lehet mindjárt rájövök, azért várom a tanácsokat
Azt toom, hogy lehet rekurzivan, de ha jól emlékszem létezik másikút is...

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Előzmény: Seekoly 2004.05.22. 10:57
Seekoly
#14 Seekoly [1990]
SOS!!!
elfelejtettem, hogy lehet egy szám gyökét vonni, pascalban!!!! áááá
vki segítsen már rajtam lécci!

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

Remen
#13 Remen [1651]
Csináltam egy gagyi tankos progit: stfclan.uw.hu/TAB111NK.EXE

Abit NF7 - 2500+ Barton - 512MB - GF2MX - SB X-Fi - 300,200,120 Gb Maxtor

Válasz erre

okoska3000
#12 okoska3000 [12750]
akkor ha sosem csinálja meg senki, mindíg elnézi

viszont így nem fogjátok megtanulni és nem tudsz majd progikat írni, kell az a Pascal alapnak, a programozás elméleti részét nagyon jól meg lehet rajta tanulni a gyakorlatban vele, ciklusok, elöltesztelős, hátultesztelős, ilyesmi...

Válasz erre

Előzmény: J. Dávid 2003.11.26. 18:24
J. Dávid
#11 J. Dávid [6295]
Nemcsinálta meg senki a csoportból így elnézte a tanárnő...de elvileg karó járna ha nincs házi...

-1nap: sajnos az a gáz,hogy kedden(2óra gyak.) és szerdán(1gyakorlati-1elméleti) van számtechem. Pénteken meg csak rühes gépírásom van...

Válasz erre

NisMaster
#10 NisMaster [1956]
Azért biztos megoldotta valahogy a problémát.

Válasz erre

Előzmény: okoska3000 2003.11.26. 11:47
okoska3000
#9 okoska3000 [12750]
szegénynek írhatod már, rég az iskolapadot nyomja és nincs a floopyján a program

Válasz erre

Előzmény: Lacko 2003.11.26. 11:29
NisMaster
#8 NisMaster [1956]
Így már mindjárt egyszerűbben hangzik a feladat.

Válasz erre

Előzmény: Lacko 2003.11.26. 11:29
NisMaster
#7 NisMaster [1956]
Jó nem mondtad, de hozzám képest biztosan ász vagy.

Én is tanultam Pascal-t nekem is ment egy két feladat megoldás, de Már vagy két és fél éve találkoztam vele.
Most meg java-t tanulok, de hát messze vagyok még a haladó szinttől.

Válasz erre

Előzmény: okoska3000 2003.11.26. 11:09
Lacko
#6 Lacko [11560]
van egy olyan függvény, hogy inttostr() ezzel átalakítod stringé a egész számot. ez után pedig egy ciklussal végigmész rajta és számlálod a "3"-asokat.

Válasz erre

Előzmény: J. Dávid 2003.11.25. 18:11
okoska3000
#5 okoska3000 [12750]

én nem mondtam semmire sem, hogy ász vagyok, de valamicskét konyítok a programozáshoz, és mivel Pascal a tanulónyelv, azzal kellett találkoznia minden programozónak

nekem jól ment

Válasz erre

Előzmény: NisMaster 2003.11.26. 11:01
NisMaster
#4 NisMaster [1956]
Szóval Pascalban is ász vagy?

Válasz erre

Előzmény: okoska3000 2003.11.26. 10:19
okoska3000
#3 okoska3000 [12750]
legközelebb korábban írj, ne az előző nap este, akkor szívesen tudok segíteni...

Válasz erre

Előzmény: J. Dávid 2003.11.25. 18:11
Seekoly
#2 Seekoly [1990]
ennek a feladatnak akkor lenne vmi értelme, ha meg lenne adva mekkora lehet a szám, mert ha így generálsz egy tetsz. nagyságú számot, amit nem is lehet ha jól tudom, akkor bonyolult megvizsgálni az összes számjegyet, habár... lehet én tudok vmit rosszul...

A fórumban szereplő hozzászólásokért semmilyen felelősséget nem vállalok!

Válasz erre

J. Dávid
#1 J. Dávid [6295]
Ez lenne a feladat holnapra:
"Adva van egy "n" természetes szám számoljuk meg hogy hány db 3mas számjegyet tartalmaz."

Ennyi. És mindezt holnapra kéne megcsinálnom.
Ha valaki tud, segítsen. Köszönöm.
DiVaD

Válasz erre

A fórumon szereplő hozzászólások olvasóink véleményét tükrözik, azokért semmilyen felelősséget nem vállalunk.

Fórumszabályzat