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.

Utolsó bejelentkezés:
2 éve, 2 hónapja

Megtekintett videók:
538 db

Életkor:
39 év

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: 5 éve, 4 hónapja
Megtekintve: 2390

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

03:04 Hozzáadva: 5 éve, 4 hónapja
Megtekintve: 8194

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

12:31 Hozzáadva: 5 éve, 5 hónapja
Megtekintve: 1740

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

03:20 Hozzáadva: 5 éve, 7 hónapja
Megtekintve: 2042

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

06:52 Hozzáadva: 5 éve, 10 hónapja
Megtekintve: 2394

Start gomb átnevezése Windows XP alatt

06:01 Hozzáadva: 5 éve, 10 hónapja
Megtekintve: 7885

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

07:52 Hozzáadva: 5 éve, 11 hónapja
Megtekintve: 5840

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

02:23 Hozzáadva: 5 éve, 12 hónapja
Megtekintve: 10233
/ 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: 5 éve, 4 hónapja
Megtekintve: 2390
Készítette: FlamingClaw

Start gomb átnevezése Windows XP alatt

06:01 Hozzáadva: 5 éve, 10 hónapja
Megtekintve: 7885
Készítette: FlamingClaw

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

07:52 Hozzáadva: 5 éve, 11 hónapja
Megtekintve: 5840
Készítette: FlamingClaw

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

09:46 Hozzáadva: 6 éve, 3 hónapja
Megtekintve: 4558
Készítette: FlamingClaw

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

09:07 Hozzáadva: 6 éve, 5 hónapja
Megtekintve: 120797
Készítette: FlamingClaw

Turbo Pascal 7 szintaxis kiemelő ConTEXT-re

07:54 Hozzáadva: 6 éve, 8 hónapja
Megtekintve: 3446
Készítette: FlamingClaw

Programozás Pascalban: Turbo Pascal Windowsra

06:16 Hozzáadva: 6 éve, 11 hónapja
Megtekintve: 4709
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 (3 éve, 2 hónapja)
2014. február 7., 18:38:39 , kommentjeim száma: 77 db

0  +1  -1 

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

0  +1  -1 

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 (3 éve, 5 hónapja)
2013. november 29., 18:57:28 , kommentjeim száma: 241 db

0  +1  -1 

...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 (3 éve, 5 hónapja)
2013. november 29., 07:08:34 , kommentjeim száma: 77 db

-1  +1  -1 

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

0  +1  -1 

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

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

0  +1  -1 

...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 (3 éve, 5 hónapja)
2013. november 23., 21:53:29 , kommentjeim száma: 77 db

0  +1  -1 

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

0  +1  -1 

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

FlamingClaw (3 éve, 6 hónapja)
2013. október 11., 21:54:29 , kommentjeim száma: 241 db

0  +1  -1 

...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 (3 éve, 6 hónapja)
2013. október 11., 20:07:26 , kommentjeim száma: 77 db

0  +1  -1 

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: