Új hozzászólás Aktív témák
-
Gyuri16
senior tag
ezt csak konkretra irtam, amugy ha jol tudom van egy eljaras ami ezt megcsinalja maga, val, vagy mi a neve, valahogy igy val(string, word); vagy forditva, helpbe meg lehet nezni
val(str,int, int);
a masodik az neki kell valamire, a kozepsobe rakja, egy integer tipusuba
[Szerkesztve]Nem vagyok egoista, csak uborkagyalu!
-
bakaiadam
csendes tag
sziasztok,megpróbálom pontosabban felvázolni a problémmát,,
var a:byte;
var c:string;
var b:char{de ebben,nem vagyok,biztos,lehet,hogy word,aza lényeg,kogy 1 karakter fél er benne};
begin
a:=random(30);
if a=28 then c:='ablakuveg';
na és ennek a szónak kéne minden betüjét char-okba szedni,lécci gyorsan kérdezzetek,ha valami nem tiszta,mert nem sokat internetezek -
Gyuri16
senior tag
válasz bakaiadam #206 üzenetére
tehat van egy string:
c:='ablakuveg';
hogy szett tudd szedni charokba (nem WORD, mert az szam) ahhoz szukseg van 8drb charra, vagy pedig egy tombre, tombbel szebben meg lehet csinalni, valhogy igy:
var
c:string;
a:=array [1..10] of char; {itt a 10et atirhatod nagyobbra, ha kell}
i:integer;
begin
c:='ablakuveg';
for i:=1 to length(c) do a:=c;
end.
szoval ennyiNem vagyok egoista, csak uborkagyalu!
-
KovacsUr
addikt
válasz bakaiadam #206 üzenetére
Felesleges szétszedned, Turbo Pascalban tömbként is tudod használni a String típusú változókat, azaz például
Write(c[1]);
Kiírja neked a string első karakterét, és így tovább. Érdemes ellenőrizni, milyen hosszú a string, nehogy ''túlnyúlj'' a végén.So it goes… We stand alone by standing stones and turn them into circles.
-
b14
senior tag
Az elso string: tudod, hogy mire kell.
Az elso integer: A visszatérő értéke;
A masodik integer: ha <> 0 -val akkor nem csak szam volt a stringben(az elsoben) = hiba a konverzióban
egyebkent nem tudja(aki a kérdést feltette), hogy a word tipusuban szam van(szerintem)
de nem szemrehányás és nem is piszkálás szándékából irtam ezt;''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
Gyuri16
senior tag
szoval ha nem csak szam van benne, akkor nem dob ki errort, hanem ebbe a valtozoba teszi bele? Es akkor mit tesz a integerbe? Marmint ha pl a string ilyen: '123a' akkor beleteszi az 123at, aztan meg a masik integerbe valamit, vagy mashogy?
Nem vagyok egoista, csak uborkagyalu!
-
b14
senior tag
Nem teljesen ertelek.
Talan egy kicsit.
Azzal kapcsolatban, amit iral (...123a....) nem probalkoztam, de nem is nagyon erdekel.
igy szoktam pl egy szam hosszusagat nezve:
uses crt;
var
a:string;
b,c,d:integer;
begin
clrscr;
writeln('Kérek egy számot');
readln(a);
b:=length(a);
val(a,c,d);
if d <>0 then begin writeln('hiba'); readln; halt; end;
writeln('Ez osszesen ',b,' jegyu szam');
readln;
halt;
end.''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
khalox
őstag
A hibás karakter pozícióját teszi bele (tehát ha az értéke nem nulla, akkor történt hiba). Ha hiba történt, akkor nincsen konverzió, a szám 'értéke' ''NaN'' azaz Not a Number.
A szám lehet byte, real vagy longint (egyéb esetben belső typecast történik), a string kezdődhet szóközökkel és lehet hexa, bin, oktális és decimális számleírás.
[Szerkesztve] -
b14
senior tag
Gyuri 16!
Mi a tljes neved?''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
khalox
őstag
válasz KovacsUr #214 üzenetére
Na... csak bökte a csőrömet... bibi.
Deeeee van NaN:
PROGRAM ieee1(OUTPUT);
VAR no_num : REAL;
pos_inf, neg_inf : REAL;
null : REAL;
BEGIN
null := 0E0;
no_num := null / null;
pos_inf := 1E0 / null;
neg_inf := -1E0 / null;
Writeln(no_num, ' ', pos_inf, ' ', neg_inf);
END.
Kimenet:
XL Pascal NaN +INF -INF
Gnu Pascal NaNQ INF -INF
(FreePascal: const NaN = 0/0; és voilá).
Persze egyik sem turbo pascal, de szabványos (annak kell lennie - még a bitsorrendje is rémlik lebegőpontos ábrázoláskor). De, hogy a VAL nem ezt adja vissza, az tényleg szinte biztos, szal igazad van...
[Szerkesztve] -
b14
senior tag
Hello
Valaki tud egy rovid megoldast egy file of record gyors sorbarendezése (abc név szerint)
Elore is koszi''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
Hello!
Nem hiszem, hogy bárkit is érdekelne, de felsorolnám az általam ajánlott könyveket.
Computerbooks: Programozzunk Turbo Pascal Nyelven.
Pirkó József: Turbo Pascal 5.5 (elég régi könyv)
Én ebből tudom, amit tudok.''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
khalox
őstag
Mivel nem fizetnek meg annyira, hogy felhúzzak X gépre Linux-ot, meg belőjek rájuk Kylix-et, ezért az érdekelne, hogy van-e a Delphinek oktatási célra használható (akár valamiféle limitált) verziója?
-
khalox
őstag
-
khalox
őstag
Mármint az én mondanivalómat?
Azt akartam elböfögni, hogy a TP helyett, ami leginkább DOS alatt megy normálisan és egy elég 'furcsa' kezelésű integrált szerkesztője van, szóval ahelyett érdemes áttérni FreePascal-ra, ami mindazt tudja, amit a TP, csak linux/windows alatt (vagy akármi alatt - ez benne a szép). Annak is van karakteres IDE-je, de helyette van egy csomó ingyenes grafikus keret is, pl. a Dev-Pas - így érdemes valamelyikre lecserélni.
Ezeken kívül az egyéb hibákról nem is beszélve - crt unit új processzorokon , grafika új videokártyákon, stb... ilyenekkel a FreePascalban nem találkozol.
A furcsa szerkesztő alatt azt értem, hogyha valaki megtanult kezelni egy egyszerű szövegkészítőt win alatt, akkor a turbo felülete elég hajtépés lesz neki (persze amikor azt írták, akkor még a win-é volt a furcsa...) -
khalox
őstag
-
bakaiadam
csendes tag
sziasztok,a következő problémám lenne
program egy;
var c:char,
var k:byte;
begin
randomize;
k:=random(20);
k:=k+97;
{és mivel az a asci kódja 97 és az angol ábécé kb 20 betüs,de nem ez alényeg,azt szeretném,hogy a c változóba legyen beírva karakterként,magyarul a c változót karakterekhez lehessen hasonlítani}
end
kérlek segítsetek és bocs a hülye fogalmazásért. -
bakaiadam
csendes tag
köszönöm a gyors segítséget,kár hogy nincs hjlongó smile
-
bakaiadam
csendes tag
sziasztok,még 2 kérdésem lenne:hogyan lehet a forrásban asm-re váltani,és a júniusi computer panorámához adott cd-n a virtual pascalban bekapcsolni a graph unitot,mert ez nem graph.pas-t keres hanem graph.vpi -t keres és ilyet nem találtam,lécci segítsetek
-
-
b14
senior tag
Hi!
Hogy lehetne megcsinálni azt turbo pascalban readln-nel, hogy bekerek egy adatot, de már legyen egy editálható sor is.
Ha valaki nam értené: Delphiben a textbox caption mezője.
Előre is kösz''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
KovacsUr
addikt
Na, csak találtam egyet
Delphi 6 Personal -> Bővebben: link
Delphi 6 Update 2 -> Bővebben: linkSo it goes… We stand alone by standing stones and turn them into circles.
-
b14
senior tag
egyaltalan hogy lehetne az egeszet?
Mi az a turbo vision? mar hallottam rola
mert a pascalban jartas vagyok alapszinten jo programocskakat irtam ar de nem tudom hogy folytassam!''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
Új hozzászólás Aktív témák
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Politika
- SSD kibeszélő
- Épített vízhűtés (nem kompakt) topic
- Borotva, szakállnyíró, szakállvágó topic
- Tőzsde és gazdaság
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- LED világítás a lakásban
- VR topik (Oculus Rift, stb.)
- TCL LCD és LED TV-k
- További aktív témák...
- i7 7700K////1070 TI///16GB
- ASUS ZENBOOK 13 UX333FA - 13,3"FHD IPS - i5-8265U - 8GB - 512GB SSD - Win11 - Magyar
- Playstation 5 Drive Edition 825GB (CFI-1216A), 2025.11.03-ig gyári garanciával, Bp-i üzletből eladó
- Lüm-tec m85 Svájci szerkezetű Amerikai microbrand
- Új! 64Gb DDR4 - Corsair 32GB KIT DDR4 4600MHz CL18 Vengeance RGB RT