Lazarus - ako na to

Ahojte som na gymnaziu a mame tam predmet cvicenia s informatiky ktoremu moc nechapem a programujeme v programe lazarus a chcela by som sa spytat ci by ste mi nepomohli s ulohou naozaj si neviem rady pozerala som si ucebnicu ktoru sme dostali aj scripta ale nic ,vobec mi to nejde tak vas chcem poprosit aby ste mi pomohli. mam vytvorit program ktory ked zadam slovo tak mi to vyhodi koľké je v tom súbore
za pomoc DAKUJEEEEM

presunute, upraveny nazov temy, nesluzi na vypracovanie domacej ulohy ale na poradenie ako pracovat v danom programe - brmbo

Este raz napis cele zadanie prikladu...

Preklad za ňu :
Ahojte. Som na gymnáziu a mame tam predmet cvičenia z informatiky, ktorému moc nechápem.
Programujeme tam v programe Lazarus a chcela by som sa opýtať, či by ste mi nevedeli pomôcť s úlohou.
Mám zadané vytvoriť program, v ktorom keď zadám slovo, tak mi vyhodí koľké je v tom danom súbore.

Naozaj si už neviem s tým rady... Pozerala som si učebnicu a skriptá, ktoré sme dostali ale aj tak tomu nerozumiem.
Za odpovede vám vopred ďakujem.

.
..
...
Tomu zadaniu nechápem ani ja

Mám zadané vytvoriť program, v ktorom keď zadám slovo, tak mi vyhodí koľké je v tom danom súbore.

Ale v akom subore? Ty mas daky vstupny subor ci co? Alebo len do suboru zapisujes slova a pri ich zapisovani ti napise poradove cislo zapisovaneho slova?

Ano presne tak

Keď potrebuješ pomôcť s kódom, je isté nepísané pravidlo, že by si ten kód mala ukázať. Bez toho ti ľudia nemajú ako pomôcť. Tak ako ti odpísal moderátor fóra, nikto ti to nebude 100% vypracúvať, môžeme ti maximálne tak poradiť, čo robíš zle.

Napis comu konkretne nerozumies. Nerozumies len tomuto prikladu alebo mas celkovo problemy s programovanim? Priklad to je jednoduchy.

Otvorila som v Lazaruse novú aplikáciu a k tomu som pridala okno text .
Do Form1 som vložila Label1 ,Edit1 a Button1.
Rozklikla som Button a napísala som doňho kod :
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'text.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
if s='prst' then
showmessage('nachadza sa');
end;
closefile(f);
end;

// Spojený príspevok Sob 13.06.15 12:20

Ako spracím aby mi to fungovalo?

// Spojený príspevok Sob 13.06.15 12:20

*spravím*

Daj si tam celociselnu premennu, ktora bude fungovat na zistenie kolkate slovo to je, tu zvis pri kazdom nacitani slova. Ked najdes to slovo co potrebujes tak aj vyskoc z toho cyklu, lebo to uz dalej citat nemusis.

Ale keby som vedela ako to spravim

Nejako takto, netestoval som to tak tam moze byt chyba

reDo, keď si odmyslím, že sa z toho slečna nič nenaučí, keď jej to dáš takto na tácke - aký formát by musel mať súbor, aby toto fungovalo? Presne tak, jeden riadok = jedno slovo. Akonáhle by išlo o text, kde máš na riadku viac slov, zlyhalo by to (čo je aj jeden z jej problémov).

natus444, potrebuješ prechádzať súbor po slovách, nie po riadkoch. K tomu potrebuješ nejakú premennú (číslo), kde si budeš ukladať aktuálnu pozíciu. Akonáhle narazíš na hľadané slovo, dáš hlášku s poradovým číslom a ukončíš cyklus. Podobne aj keby si dorazila na koniec súboru. Skús sa s tým trošku potrápiť, nie je to také ťažké a naučíš sa omnoho viac, ako keby si len skopírovala niekoho kód z fóra.
No a tiež by si nemala zadávať takto výrazy priamo do kódu, ale vstup by mal ísť predpokladám od užívateľa

Ako vravis, nie je to doriesene presne podla zadania, takze si tam musi doplnit to co potrebuje ona sama.

Ale ja vás preto prosím aby ste mi pomohli, lebo ja tomu absolutne nechápem ja som ten predmet mala pridelený, vôbec niesom počítačoví typ .
Tak ak sa tu ukáže niekto ochotný , kto mi to pomôže spraviť , budem mu vďačná.

Ktorej časti z toho, čo som napísal, nerozumieš? Keď nevieš, treba sa pýtať, inak sa to nenaučíš.
Mimochodom, nepleť si prosím ťa ochotu poradiť s ochotou vypracovať ti komplet zadanie. Ak chceš, aby ti to niekto urobil celé a ty nepohneš ani prstom, zadaj si ponuku práce v príslušnej sekcii, lebo ak to zbadá niektorý z adminov, nebude nadšený.

Neziadaj o vypracovanie domacej ulohy, temu mas na to aby sa ti vysvetlili zakladne principy prace v tomto programe, na to som ti temu presunul sem a upozornil ta aj cez sukromnu spravu, v pravidla fora je to tiez uvedene, ze domace ulohy tu nerobime, nic vzlom, neber to ako vycitku, proste ta tu chalani nutia dokopat sa do pozadovaneho vysledku aby si to zvladla sama

= vypracovali to komplet za teba, kedze vkuse omielas, ze z toho prd vies. Okej, mas 50eur? Dam sa do toho.


Preco to neriesis s danym vyucujucim? Ako mozu dakomu drbnut ucit sa daco co nechce a nik nevie ci dany clovek ma na to nejake predpoklady?
Tiez neriesim nejake ekonomicke veci, lebo som do toho debil a nemam na to vlohy. Keby mi toto dakto dakde na skole spravil, automaticky ho idem poslat do prdele, kedze budem mat z toho len problemy. A nemam problem to tahat az k riaditelovi/dekanovi/prezidentovi....

nikdo s tym nic nenarobi

// Spojený príspevok Ned 14.06.15 22:30

inak Dakujem reDO pomohol si mi veľmi ,doladila som si to a už to funguje ako má....
Takže Ďakujem!!!!!

Ahojte chcela by som sa spýtať ako zapísať do Lazarusu ,aby mi vypisal zadane slovo do Labelu v akom je poradí Dakujem zatial mam toto ale nefunguje mi to:
Form1: TForm1;
poradove_cislo : integer;
f:text;
s:string;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
poradove_cislo := 1;

assignfile(f,'text.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
if s='prst' then
begin
showmessage('nachadza sa v poradi cislo ' + inttostr(poradove_cislo));
break;
end;
poradove_cislo := poradove_cislo + 1;
end;
closefile(f);
end;
Som ochotna za funkcny program zaplatit

Ak to chces dat do labelu tak si tam pridaj niekde label komponent a potom v kode namiesto showmessage daj
, platit za takuto drobnost nemusis .

Vzdy davaj kod do tagu code!