Skolni ukol... – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Skolni ukol... – Pascal – Fórum – Programujte.comSkolni ukol... – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Lad?nka0
Duch
3. 12. 2006   #1
-
0
-

Ahojte,
mam udelat program do skoly, ale absolutne si s tim nevim rady.
Ten program ma delat asi toto:
Uzivatel ho spusti a napise libovolny text. Program mu nasladne vypise kolik je tam jakych pismenek
Napr. kolikrat je tam A, B, C, D apod. Nerozlisuje mala a velka pismena a uzivatel pise text bez hacku a carek a cisel.
Program se ma vytvorit podle typu pole jednodimenzionalniho.

Poradite nekdo jak by to melo vypadat prosim? Jsem zoufala :(

Nahlásit jako SPAM
IP: ...–
Laděnka
Reklama
Reklama
Jura_0
Stálý člen
3. 12. 2006   #2
-
0
-



program Ladenka;

uses
SysUtils;
type TPismena = array ['A'..'Z'] of Integer;
var pismena: TPismena;
veta:String;
i:Integer;
c:char;
begin
for c:='A' to 'Z' do pismena[c] := 0; {vynuluje pole}
Write('Zadej vetu: '); Readln(veta); {Nacte vetu}
for i:=1 to Length(veta) do begin
c := UpCase(veta[i]); {Prevede na velke}
if(c in ['A'..'Z']) then {pokud je to pismeno, jen at se nepohybujeme mimo rozsah pole}
Pismena[c] := Pismena[c]+1; {zvysi pocet vyskytu pismana}
end;

writeln('Pismeno',#9,'Pocet'); {#9 - znak tabulatoru}
writeln('-------------------');

for c := 'A' to 'Z' do
if(Pismena[c] <> 0)then
writeln(c + #9, Pismena[c]); {Zameyi tisku ynaku , ktere v textu vubec nebyly}
readln; {ceka na enter}
{ TODO -oUser -cConsole Main : Insert code here }
end.

Nahlásit jako SPAM
IP: ...–
Laaca
~ Anonymní uživatel
225 příspěvků
3. 12. 2006   #3
-
0
-

Až na třídění to je jednoduché...



var s:string;
p:array[0..255] of byte; {kolik kterych znaku jsme nasli}
a:integer;
c:char;
b:byte;

i:integer;
d:char;

begin
writeln('Zadej text:');
readln(s);

for a:=1 to Length(s) do {abychom vyhoveli pozadavku, ze se nerozlisuji}
s[a]:=UpCase(s[a]); {mala a velka pismena, tak vse prevedeme na velka}



{Ted vynuluju pole pro pocet znaku}
for a:=0 to 255 do p[a]:=0;

for a:=1 to Length(s) do {pismeno po pismenu projed cely retezec}
begin
c:=s[a]; {A-ty znak dame do C}
b:=byte(c); {Takto ziskam ciselny kod znaku C}
p:=p+1; {pripoctu pocet nalezenych znaku s kodem B}
end;

{Ted zname cetnost jednotlivych znaku}

{Napred je vypisu nesetridene...}
for a:=1 to 255 do
if p[a]>0 then
writeln('Znak "',char(a),'" byl ',p[a],' krat.');
readln;

{Pohodlnejsi by ale bylo vypis setridit...}
repeat
i:=0;
for b:=0 to 255 do
if p>i then
begin
i:=p;
d:=char(b);
end;
b:=byte(d);
p:=0;

if i>0 then writeln('Znak "',d,'" byl ',i,' krat.');
until i=0;
readln;
end.

Nahlásit jako SPAM
IP: ...–
Lad?nka0
Duch
3. 12. 2006   #4
-
0
-

Dekuju moc kluci :)

Mejte se fajne

Nahlásit jako SPAM
IP: ...–
Laděnka
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 15 hostů

Podobná vlákna

Školní projekt v C — založil sputnikone

Školní projekt — založil Asimka

Školní práce v C — založil Marek

školní práce — založil Jan Malý

Moderátoři diskuze

 

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý