program w Pascalu [najczesciej wystepujacy znak]

Odpowiedz Nowy wątek
2006-12-14 18:51
kasiam
0

hej :)
mam problem musze napisac program w Pascalu ale nie mam pojęcia jak to zrobić :/
oto treść zadania "Wskaż najcześciej występujący znak w tekscie wczytanym z klawiatury oraz podaj ilość jego wystąpień"
proszę o pomoc!!!!!!
dzięki tym którzy sie odezwą i napiszą :)

Pozostało 580 znaków

2006-12-14 19:05
0
var Znak:array[0..255] of integer;
i:integer;
Zdanie:string;
max,maxi:integer;
begin
WriteLn('Podaj tekst: ');
ReadLn(zdanie);
//mamy zdanie, pora policzyc znaki

for i:=low(znak) to high(znak) do znak[i]:=0;
for i:=1 to length(zdanie) do inc(znak[ord(znak[i])]);

max:=0;
maxi:=0;
for i:=low(znak) to high(znak) do if znak[i]>max then begin max:=znak[i]; maxi:=i; end;

writeln('Najwiecej znakow :',chr(znak[maxi]),' (',znak[maxi],')');
end;

Jesli chcesz liste pokolei uzywanych slow to musisz posortowac Znak.

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0