2013. november 29., 18:57:28
, kommentjeim száma: 241 db
...válasz adam887 269. kommentjére:
Szia, szerintem nagyon egyszerűen. A szóközöket meg kell számolni egy adott szövegben. Amit érdemes tudni, hogy a (tp/free) pascal a karaktereit az ASCII kódtáblából építi fel, így nekünk is ez kell, hogy legyen a kiindulási pont. A szóköz ASCII kódja a #32.
Készítettem egy kis alkalmazást, amelyben egy függvény visszatérési értéke szolgáltatja a paraméterként átadott string típusú változóban tárolt értékben található szóközök számát.
program koz;
uses crt, dos;
var
szoveg: string;
{
Fuggveny ami szolgaltatja a szokozok szamat
Parameterkent egy string tipusu valtozot var.
A szokoz ASCII kodja a #32, ezt kell keresni
a megadott szovegben....
}
function SzokozokSzama(var szo: string): byte;
var kozok_szama, i: byte;
begin
kozok_szama:= 0;
for i:= 1 to Length(szo) do begin
if (szo[i] = #32) then Inc(kozok_szama, 1);
end;
SzokozokSzama:= kozok_szama;
end;
{program_torzs...}
begin
ClrScr;
szoveg:= 'Alma a fa alatt, nyari piros alma.';
WriteLn('Szoveg tartalma: ', szoveg);
WriteLn('Szokozok szama : ', SzokozokSzama(szoveg), ' db.');
Write('Kilepes ');
ReadLn;
end.
2013. október 11., 21:54:29
, kommentjeim száma: 241 db
...válasz adam887 263. kommentjére:
Rendben, és előre is köszi. Én mostanság nem igazán érek rá videókat készíteni, talán, ha lesz időm újra neki vágok, hiszen annyi minden van még amit meg lehetne mutatni.
2013. október 11., 20:07:26
, kommentjeim száma: 78 db
Szia! Feltettem néhány régebbi pascalos tippet a klubba remélem tetszik majd mindenkinek. Amúgy saját eljárás készítést is gyártok meg a logikai műveletes sorozatomat is közzé fogom tenni a klubban.
adam887 (11 éve)
2014. február 7., 18:38:39
, kommentjeim száma: 78 db
(válasz)