Вводится текст. Конец ввода <F2>. Найти количество букв "е"

[лина 555]

Вводится текст. Конец ввода <F 2>. Найти количество букв "е" помогите написать блок схему и программу к задаче. очень нужно. спасибо!

[unbanned]

uses
  crt;

const
  F2 = 113;

var
  charsLt: set of char;
  charsK: set of char;
  numbers: set of char;
  s: string;
  c: char;
  i, count: integer;

begin
  charsLt := ['А'..'я'];
  numbers := ['0'..'9'];
  charsK := ['A'..'z'];
  s := '';
  while ord(c) <> F2  do 
  begin
    write(s);
    c := readkey;
    if (c in charsLt) or (c in charsk) or (c in numbers) then s := s + c;
    if c = #8 then delete(s, length(s), 1);
    if c = #46 then delete(s, 1, 1);
    clrscr;
  end;
  for i := 1 to length(s) do
    if s[i] = 'e' then inc(count);
  writeln(count, ' раз');
end.

возможно как-то так) не проверял... мб и не сработает)

[Serge_Bliznykov]

unbanned, во-первых, переменную c перед использованием надо иницилизировать.
во-вторых, Вы не учитываете, что некоторые клавиши (и F2 в т.ч.) возращают расширенный код (сначала ноль, потом собственно код)
проверить (и посмотреть код очень легко):

uses crt;
var ch : char;
begin
  repeat
    ch := readkey;
    WriteLn('#',ord(ch)) 
  until ch=#27;
end.

в третьих, я бы не делал редактирование строки (в задании об этом ничего не сказано) и написал примерно так:

uses crt;
var ch : char;
  flagF2 : boolean;
  cnt : integer;
begin
  flagF2 := false;
  cnt := 0;

  WriteLn;
  Write('введите текст: ');

  repeat
    ch := readkey;
    if ch=#0 then begin
      ch := readkey;
      flagF2 := (ch = #60); {если нажали F2 - flagF2 станет true }
    end
    else begin
      Write(ch);
      if ch='e' then Inc(cnt);
    end;
  until flagF2;
  WriteLn;
  WriteLn('Буква "e" встретилась ', cnt, ' раз.');
  WriteLn; WriteLn('Press any kay to exit...');
  ch := Readkey;
  if ch=#0 then ch := Readkey;
end.

p.s. хотя, конечно, и это решение может быть подвергнуто справедливой критике, оно явно не идеально.. Ну, какое задание, такое и решение!

[unbanned]

Serge_Bliznykov, спасибо, приму к сведению

[лина 555]

я нажимаю F2 на клавиатуре и у меня не считает количество букв, в чем проблема может быть?

[unbanned]

если у вас ноутбук, то проблема может быть в следующем... у меня по умолчанию при нажатии на клавиши F1-F12 регулируется подсветка экрана, переключаются треки в проигрывателе и т.д. и т.п.
и есть клавиша, написанно на ней "fn". вообщем нужно нажать fn + F2

[лина 555]

я нажимаю с кнопкой fn и все равно тоже самое, текст вводится, а f2 ввожу, счетчик не считает, помогите пожалуйста. может дело в программе, она неверна