Keresés Kategóriák Kedvencek

FlamingClaw profilja

FlamingClaw Regisztráció: 2009. június 15.
Megtekintett videók: 538 db
Saját tippek: 115 db
adam887 - 7 éve, 2 hónapja

/*Ezt nem közvetlenül neked írtam hanem egy válasz az egyik kommentre*/

adam887 - 7 éve, 2 hónapja

Két probléma lehet 1. Nem real típuső változót deklaráltál.
2. Nem jó változókat deklaráltál az eredményhez.

Az osztás mivel nem mindig egész szám ezért kell real típust használni.

FlamingClaw - 7 éve, 4 hónapja

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.

nem egy veszett dolog...

adam887 - 7 éve, 4 hónapja

A szóköz karaktereket hogy kellene megszámolni pascalban?

adam887 - 7 éve, 4 hónapja

Köszönöm a segítséget. {Ez itt még egy szöveg a harminc karakterhez}

FlamingClaw - 7 éve, 4 hónapja

program tegla_visszafele;
uses crt, dos;

const
  szo = 'tegla';
  
  
 procedure SzoVisszaFele(const szoveg: string);
 var i: byte;
 begin
   for i:= Length(szoveg) downto 1 do Write(szoveg[i]);
   WriteLn;
 end;

begin
  WriteLn('A ', szo, ' szoveg visszafele kiirva: ');
  SzoVisszaFele(szo);
  ReadLn;
end.

Valahogy így.

adam887 - 7 éve, 4 hónapja

Szia FlamingClaw!

Lehet olyat csinálni pascalban, hogy a Tégla szóból algét legyen és ha igen akkor hogyan?

Válaszod előre is köszönöm

adam887 - 7 éve, 6 hónapja

Ha gondolod feliratkozhatsz rám és így kapni fogod a híreket mihelyt új vidi kerül ki.

FlamingClaw - 7 éve, 6 hónapja

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.

adam887 - 7 éve, 6 hónapja

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.