Facebook bejelentkezés
Üdvözlünk az oldalon!
Lépj be, vagy regisztrálj

FlamingClaw profilja

Videótippek figyelése

FlamingClaw

Regisztráció napja:
2009. június 15.

Megtekintett videók:
538 db

Saját videótippek:
115 db

Klubtagságok

FlamingClaw a következő klubokba csatlakozott már:

GM-Tutorials, Pascal Fan Club

FlamingClaw legújabb videótippje

FlamingClaw videótippjei

/ 15
1. oldal 2 3 4 Következő oldal

Programozás Pascalban: Külső fájl indítása Pascalon keresztül

11:10 Hozzáadva: 12 éve, 3 hónapja
Megtekintve: 2600

Fájl feldarabolása és egyesítése Total Commander használatával

03:04 Hozzáadva: 12 éve, 3 hónapja
Megtekintve: 8979

Nem szabályos szerkezetű fájl manipulálása

12:31 Hozzáadva: 12 éve, 3 hónapja
Megtekintve: 1858

Programozás Pascalban: Kimeneti inaktív ablak bezárása

03:20 Hozzáadva: 12 éve, 5 hónapja
Megtekintve: 2195

Programozás Pascalban: Típus nélküli fájlok használata - Alapismeretek

06:52 Hozzáadva: 12 éve, 8 hónapja
Megtekintve: 2651

Start gomb átnevezése Windows XP alatt

06:01 Hozzáadva: 12 éve, 9 hónapja
Megtekintve: 8328

Programozás Pascalban: Turbo Pascal Error 200 hiba javítása

07:52 Hozzáadva: 12 éve, 9 hónapja
Megtekintve: 6291

Tízujjas gépelés: Sebességteszt az interneten

02:23 Hozzáadva: 12 éve, 10 hónapja
Megtekintve: 10762
/ 15
1. oldal 2 3 4 Következő oldal

FlamingClaw kedvencei

/ 2
1. oldal 2 Következő oldal

Programozás Pascalban: Külső fájl indítása Pascalon keresztül

11:10 Hozzáadva: 12 éve, 3 hónapja
Megtekintve: 2600
Készítette: FlamingClaw

Start gomb átnevezése Windows XP alatt

06:01 Hozzáadva: 12 éve, 9 hónapja
Megtekintve: 8328
Készítette: FlamingClaw

Programozás Pascalban: Turbo Pascal Error 200 hiba javítása

07:52 Hozzáadva: 12 éve, 9 hónapja
Megtekintve: 6291
Készítette: FlamingClaw

Programozás Pascalban: Lazarus fejlesztői környezet

09:46 Hozzáadva: 13 éve, 2 hónapja
Megtekintve: 4798
Készítette: FlamingClaw

Windows 7 operációs rendszer telepítése pendrive-ról

09:07 Hozzáadva: 13 éve, 3 hónapja
Megtekintve: 122360
Készítette: FlamingClaw

Turbo Pascal 7 szintaxis kiemelő ConTEXT-re

07:54 Hozzáadva: 13 éve, 7 hónapja
Megtekintve: 3662
Készítette: FlamingClaw

Programozás Pascalban: Turbo Pascal Windowsra

06:16 Hozzáadva: 13 éve, 9 hónapja
Megtekintve: 4956
Készítette: FlamingClaw

Programozás Pascalban: Eljárások használata - 1. rész, Paraméter nélküli eljárások

14:54 Hozzáadva: 13 éve, 11 hónapja
Megtekintve: 3543
Készítette: FlamingClaw
/ 2
1. oldal 2 Következő oldal

Hozzászólások, kérdések

Hozzászóláshoz jelentkezz be, vagy regisztrálj!

1. oldal 2 3 Következő oldal

adam887 (10 éve, 1 hónapja)
2014. február 7., 18:38:39 , kommentjeim száma: 78 db

/*Ezt nem közvetlenül neked írtam hanem egy válasz az egyik kommentre*/
adam887 (10 éve, 1 hónapja)
2014. február 7., 18:37:38 , kommentjeim száma: 78 db

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 (10 éve, 3 hónapja)
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.

nem egy veszett dolog...
adam887 (10 éve, 3 hónapja)
2013. november 29., 07:08:34 , kommentjeim száma: 78 db

A szóköz karaktereket hogy kellene megszámolni pascalban?
adam887 (10 éve, 3 hónapja)
2013. november 24., 07:06:34 , kommentjeim száma: 78 db

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

FlamingClaw (10 éve, 3 hónapja)
2013. november 23., 23:26:23 , kommentjeim száma: 241 db

...válasz adam887 266. kommentjére:
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 (10 éve, 3 hónapja)
2013. november 23., 21:53:29 , kommentjeim száma: 78 db

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 (10 éve, 5 hónapja)
2013. október 18., 15:46:17 , kommentjeim száma: 78 db

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

FlamingClaw (10 éve, 5 hónapja)
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.
adam887 (10 éve, 5 hónapja)
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.

1. oldal 2 3 Következő oldal



Ugrás a megadott kommenthez: