Free Pascal задачи на строки

[andrey2]

может кто знает как решить
16) Вывести на экран букву, которая встречается чаще всего.
9) Вывести на экран кратчайшее слово в тексте.

[Sazary]

Первая:
Заводите массив из 255 элементов (integer, например). Индекс - код символа. Проходите по строке посимвольно, увеличивая значение элемента с индексом, равным коду текущего символа.
Потом ищете максимум в массиве и выводите символ с кодом, равным индексу максимума.
Это один из вариантов.

Вторая:
Есть 3 строки: исходная, буфер (куда будем считывать) и "слово с минимальной длиной" (wrd). Считываете очередное слово в буфер, сравниваете его длину с длиной wrd. Если длина меньше, то wrd становится равным слову из буфера.

[capta1n]

1)

program project;
var
 a : array ['A'..'Z'] of byte;
 s : string;
 c,x : char;
 i: byte;

begin
  write ('s: '); readln (s);
  for c:='A' to 'Z' do a[c]:=0;
  for i:=1 to length(s) do
   if s[i] in ['A'..'Z','a'..'z'] then
    for c:='A' to 'Z' do
     if upcase(s[i])=c then
     begin
       inc(a[c]);
       break
     end;
  x:='A';
  for c:='A' to 'Z' do
   if a[c]>a[x] then x:=c;

  if a[x]=0 then writeln ('Bukv net')
  else
  begin
    for c:='A' to 'Z' do
     if a[c]=a[x] then writeln(c)
  end;
  readln
end.

[andrey2]

помогите подправить 2 задачу
program a1;
var str:string;
slovo,slovomin:string;
i:integer;
begin
write('vvestu text: ');
readln(str);
for i:=1 to length(str) do
if str[i]<>' ' then
begin
slovo:='';
while (str[i]<>' ') do
begin
slovo:=slovo+str[i];
if (i=length(str)) then
break;
i:=i+1;
end;
if length(slovo)>length(slovomin) then
slovomin:=slovo;
end;
write('slovo min : ',slovomin);
readln;
end.

[Sazary]

В цикле for нельзя изменять значение счетчика, поэтому нужно использовать while.

if length(slovo)>length(slovomin) then

Раз мы ищем слово с минимальной длиной, то, все-таки, надо писать

if length(slovo)<length(slovomin) then

и добавить проверку на пустоту минимального слова (ведь изначально оно пустое)
А у вас переменная slovomin вообще не инициализирована.

Исправлено:

program a1;
uses crt;
var str:string;
slovo,slovomin:string;
i:integer;
begin
clrscr;
write('vvestu text: ');
readln(str);
i:=1;
slovomin:='';

while i<=length(str) do
 begin
 if str[i]<>' ' then
  begin
  slovo:='';
  while (str[i]<>' ') do
   begin
   slovo:=slovo+str[i];
   if (i=length(str)) then
     break;
   i:=i+1;
   end;
   if slovomin = '' then slovomin := slovo;
   if length(slovo)<length(slovomin) then
    slovomin:=slovo;
  end;
 inc(i);
 end;
write('slovo min : ',slovomin);
readln;
end.

[andrey2]

спасибо за помощь

[capta1n]

2)

program x1;
var
 s,s1 : string;
 min : byte;
 c : char;
begin
 s1:='';
 s:='';
 min:=255;
 writeln ('For exit press the button <Enter>');
 while true do
 begin
   read (c);
   if (c=#13) or (c=' ') then
   begin
     if length(s)<min then
     begin
       min:=length(s);
       s1:=s
     end;
     if c=#13 then
     begin
       readln;
       break
     end
     else
     begin
       s:='';
       continue
     end
   end
   else s:=s+c
 end;

 writeln (s1);
 readln
end.

[Дениска о_О]

помогите решить задачу.
тема у нас циклические алгоритмические конструкции.оператор цикла с параметром))
Вот задача:
вычислить среди чисел от 1 од 5 произведение всех чисел)

[Mad_Cat]

var i,p:integer;
begin
p:=1;
for i:=2 to 5 do
p:=p*i;
writeln(p);
end.

[Дениска о_О]

А полностью???