Pomoc s programem v Pascalu

Dobrý den, předem píšu, že se jedná o úkol do školy v programování v jazyku Pascal. Už jsem nad tím strávil opravdu hodně času (vůbec si nevím rady) a tak se obracím na vás. Letos s programováním začínáme. Zadání je asi takové:
Úkol typu Vyřešte problém

Přiklad funkce:

Uživatel zadá text: Vstupní testovací věta

Uživatel zadá písmeno: x

Písmeno x se ve větě Vstupní testovací věta nenachází

Chápu, že pro místní programátory to nebude nic složitého, ale pro mě to je opravdu těžký oříšek. Sám vím, že na toto stavěný nejsem a živit se tím opravdu nebudu.
Byl bych opravdu rád, kdyby mi s tím někdo pomohl.

Můj progres je asi takový:

program UkolText;

var veta,pismeno : string;
nachazi : boolean;

begin
writeln('Zadejte větu');
readln(veta);
writeln('Zadejte písmeno, které chcete vyhledat');
readln(pismeno);

end.

Díky

Předmět	Autor	Datum
Můžeš použít funkci Pos: https://www.trsek.com/pascal/Pos Wikan 23.01.2021 20:05	Wikan	23.01.2021 20:05
Přiklad funkce: Uživatel zadá text: Vstupní testovací věta Uživatel zadá písmeno: x Písmeno x se… host 23.01.2021 20:13	host	23.01.2021 20:13
Pokud nechces pouzit Pos() na zjisteni pismene, muzes v cyklu For projit nactenou vetu a kontrolovat… Jan Fiala 23.01.2021 20:16	Jan Fiala	23.01.2021 20:16
Jak už tady radí další; string (text. řetězec) je jednorozměrný pole znaků (na indexu 0 je tuším v P… Pavel 23.01.2021 21:10	Pavel	23.01.2021 21:10
Dotaz označen jako vyřešený - ale napsat výsledný kód nebo dokonce poděkovat, to ne. Až zas budeš n… host 25.01.2021 06:51	host	25.01.2021 06:51
https://forum.zive.cz/viewtopic.php?f=922&t=929499&all=1 :-D:beer: poslední Yarda 25.01.2021 09:47	Yarda	25.01.2021 09:47

Můžeš použít funkci Pos: https://www.trsek.com/pascal/Pos

Přiklad funkce:
Uživatel zadá text: Vstupní testovací věta
Uživatel zadá písmeno: x
Písmeno x se ve větě Vstupní testovací věta nenachází

Možná je myšleno, aby jsi k hledání existence písmena použil vlastní definovanou funkci.

Nějak takto:

function existuje_znak(znak: char): boolean;
  begin
     ...
     ...
  end;

Pokud nechces pouzit Pos() na zjisteni pismene, muzes v cyklu For projit nactenou vetu a kontrolovat pismena.

Pro kontrolu slouzi podminka IF

If Pos()...  Then
  Writeln('je tam') 
Else
  Writeln('neni tam');

Jak už tady radí další; string (text. řetězec) je jednorozměrný pole znaků (na indexu 0 je tuším v Pascalu délka řetězce v bytech); stačí teda cyklem for projít text. řetězec jako pole znaků a každej znak z toho pole porovnat s tím zadaným znakem.

Na zjištění délky řetězce je funkce strlen.

Jo a pro jistotu nepoužívej diakritiku (uživ. vstup).

Dotaz označen jako vyřešený - ale napsat výsledný kód nebo dokonce poděkovat, to ne.

Až zas budeš něco potřebovat, určitě přijď....

https://forum.zive.cz/viewtopic.php?f=922&t=929499&all=1

Zpět do poradny Odpovědět na původní otázku Nahoru