Új hozzászólás Aktív témák
-
thyeby
őstag
válasz
bucsupeti #2660 üzenetére
Oopsz!
Épp az imént reflektáltam ugyanerre a felvetésre egy másik topicban.
Arról nem tudtam, hogy a Free Pascal esetén nem jelenik meg az órajel probléma - ki sem próbáltam, csak gyanítottam, hogy pont úgy, mint a TP7-alatt. Mostmár illene feltennem a gépre egy Free Pascal példányt, hogy a végére járjak. Ha időm engedi, biztosan meg is fogom tenni, mert mostmár kezd ez engem komolyan érdekelni.
Azonban szerencsémre nem jelent pillanatnyilag ez sürgető dolgot számomra, ugyanis a TP7-et DosBox-ból elindítva kifogástalanul működik az - már kipróbáltam. Picit bosszantó, hogy csak ablakban tudok így működni, de teljesen rendben lehet majd akár így is haladni a fiammal. Ha igaz, amit írtál, akkor FP alatt a teljes képernyőt birtokolhatjuk, ha sort kerítek annak is a tesztjére. Gyakorlatilag bőven elég az alapokhoz a TP3 is. Azért nem Delphivel akarok kezdeni, mert a fiú még csak hét esztendős, és így is túl sok információval kell megbírkóznia. Ha mindezt azzal kezdem, hogy első körben nyissunk meg egy ablakot, tegyünk bele ilyen-olyan mezőket, boxokat, bottom-okat, eltéved. Azonban ha megírja az első komolyabb programját TP-ben, ugorhatunk nagyot, és feltelepíthetem a Delphi-t. Akkor már időszerű is lesz, hogy negyedik generációs nyelvben fejlessze magát. Remélem, hamar eljön az ideje - amiket eddig csináltunk, az felvillanyozta. Jelenleg a változó fogalmával, típusaival a program felépítésével, szintaktikával, szemantikával készülünk bírkózni. Megítélésem szerint ez előrevalóbb, mint az ablaktechnika, meg az öröklés fogalma. -
bucsupeti
senior tag
válasz
bucsupeti #2504 üzenetére
Program karakterszamolo;
uses crt;
var
c: char;
csillag: integer;
szokoz: integer;
kerdojel: integer;
db: integer;
begin
csillag:=0;
kerdojel:=0;
szokoz:=0;
db:=0;
writeln('Karakterek olvasása = jelig');
repeat
c:=readkey;
write(c);
db:=db+1;
if c='*' then csillag:=csillag+1;
if c=' ' then szokoz:=szokoz+1;
if c='?' then kerdojel:=kerdojel+1;
until c = '=';
writeln('Csillagok száma: ',csillag);
writeln('Szóközök száma: ', szokoz);
writeln('Kérdőjelek száma: ', kerdojel);
writeln('Összes leütött karakter: ',db);
end.
Új hozzászólás Aktív témák
Hirdetés
- Lenovo Legion gamer laptop szép állapotban (RTX 3060, Ryzen 5 5600H)
- Asus Tuf Gamer Laptop i7, GTX 1660 Ti, 24GB RAM!
- HP EliteBook 850 G3, 15,6" FHD, I7-6600 CPU, 16GB DDR4, 256GB SSD, AMD VGA, WIN 11, ( olvasd végig )
- Dell Latitude 5580, 15,6" FHD IPS , I5-6300UCPU, 8GB DDR4, 256GB SSD, WIN 11, ( olvasd végig )
- Dell Latitude 5480, 14" FHD , I5-6300U CPU, 8GB DDR4, 256GB SSD, WIN 11, ( olvasd végig )
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! ASUS TUF GAMING X670E-PLUS WiFi alaplap garanciával hibátlan működéssel
- Telefon szerviz helyben - Gyors javítás, akár 30 perc alatt!
- Samsung Galaxy S21 Ultra 256GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Dell Inspiron 7400 - i7-1165G7 I 8GB I 512SSD I 14,5" 2K I HDMI I Cam I W11 I Garancia!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest