Решение задачи №1 из главы 16

Primary tabs

gani84's picture
Submitted by gani84 on Wed, 11/04/2020 - 19:42

Forums:

Решение задачи №1 из главы 16

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.

Вывод консоли 
vvedite proizvolnuy stroku:
kolokol
Otvet: v vashey stroke simvol "k" vstrechaetsya 2 raz.

var s: string;
    i, n: integer;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);

  n := 0; // значение по умолчанию (инициализация переменной)

  for i:=1 to length(s) do // обходим символы строки
  begin
    if (s[i] = 'k') then // сравниваем очередной символ строки с литералом
       n := n + 1;
  end;

  writeln('Otvet: v vashey stroke simvol "k" vstrechaetsya ',
    n, ' raz.');
  readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 4378 reads
vedro-compota's picture

vedro-compota

Sun, 11/08/2020 - 16:38

алгоритмически верно, НО:
считайте значение k из консоли (объявив как переменную)

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Thu, 11/19/2020 - 19:58 

Вывод консоли 
vvedite proizvolnuy stroku:
kolokol
Otvet: v vashey stroke simvol "k" vstrechaetsya 2 raz.
var s: string;
    i, n: integer;
    a:char;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  a:='k';
  n := 0; // значение по умолчанию (инициализация переменной)
  for i:=1 to length(s) do // обходим символы строки
  begin
    if (s[i] = a) then // сравниваем очередной символ строки с литералом
       n := n + 1;
  end;

  writeln('Otvet: v vashey stroke simvol "k" vstrechaetsya ',
    n, ' raz.');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 11/22/2020 - 16:59

считайте значение k из консоли (объявив как переменную)

-- это так и не выполнено.

решите задачу 2 отсюда: http://fkn.ktu10.com/?q=node/8537

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Mon, 11/23/2020 - 14:19 

var s: string;
    i, n: integer;
    k:char;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  writeln('vvedite simvol k:');
  readln(k);
  n := 0; // значение по умолчанию (инициализация переменной)
  for i:=1 to length(s) do // обходим символы строки
  begin
    if (s[i] = k) then // сравниваем очередной символ строки с литералом
       n := n + 1;
  end;

  writeln('Otvet: v vashey stroke simvol "k" vstrechaetsya ',
    n, ' raz.');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 11/29/2020 - 16:48

решение засчитано

_____________
матфак вгу и остальная классика =)