Идеи как да реализирам следното задание:
"Да се състави алгоритъм, който да определя честотата на появяването на буквите в произволно въведен текст."

Реализацията трябва да е на Паскал, но и Делфи ме устройва!
Благодаря предварително за всякакви идеи!

Ако под честота се разбира колко пъти се среща една буква в даден текст, решението е едноредово:

var F : array [0..255] of integer=[0,0,0 ...]; { 256 нули }
i: integer;
Txt: string;

// тука слагаш въвеждането на F
for i:=1 to length (Txt) do Inc (F [ord (Txt [ i ])]);
// тука изплюваш резултата

И накрая, "Благодаря" не пием!

чети и дишай по-леко

Редактирано от Pechenia на 10.02.03 11:32.

Я да сядаш да си учиш уроците

Аман, от теам мениджъри без пари

Ако искаш да ставаш мениджър, трябва да се научиш да плащаш

Иначе, сядай да учиш

Редактирано от NDeu на 10.02.03 09:57.

Mnogo ti se e spqlo kato si otgowarql:
Ако под честота се разбира колко пъти се среща една буква в даден текст, решението е едноредово:

var F : array [0..255] of integer;
i: integer;
Txt: string;

fillchar (f,255*sizeof(integer),#0)
// тука слагаш въвеждането на Txt
for i:=1 to length (Txt) do Inc (F [ord (Txt )]);
// тука изплюваш резултата

И накрая, "Благодаря",цветя и бонбони не пием!

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Абселютно си прав... Писах по спомени и фантазия... Благодаря за корекциите...

чети и дишай по-леко

Явно не му се спи само на него:

FillChar(F, 256*SizeOf(Integer), #0);

Редактирано от Mandor на 10.02.03 12:05.

а fillchar какво точно прави? Не ми е познато... не че много познавам де!

По-леко го давайте щото мистър Minavasht повече няма да мине оттука... Толкова пиене дължи... При това на дебелопери... ;-)))

чети и дишай по-леко

kakuv ti manager, tova si e zadacha za student purvi kurs :-)

by Waz Gaa

Съдържаниет е скрито
Влезте за да го видите

Hehehe, tipi4no po programistki :)) za 5 reda kod ima 3 bug-a :)))), koito se oravqt ot oshte 2-ma programisti:). qko a :)