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

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 11/05/2020 - 19:36

Forums:

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

Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

Вывод консоли (не совсем то)
vvedite proizvolnuy stroku:
iiiiiiiiiii
Ochibka
Ochibka
Ochibka
Ochibka
Piatii simvol 5
Piatii simvol 10

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

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

  for i:=1 to length(s) do // обходим символы строки
  begin
    n := n + 1;
    if ((i mod 5)=0) then
        writeln('Piatii simvol ', i)
     else
       begin
         if (i < 5) then
            writeln('Ochibka');
       end;
   end;
   readln();
end.

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

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

vedro-compota

Sun, 11/08/2020 - 16:28

чтобы определить что произошла ошибка, не нужно запускать цикл.

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

gani84's picture

gani84

Sun, 11/22/2020 - 11:20 

Вывод консоли
vvedite proizvolnuy stroku:
qwerty
Piatii simvol t

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

vedro-compota

Sun, 11/22/2020 - 16:42

, если строка состоит менее чем из 5 символов.

-- начните с этой проверки. 

length(s) >= 5

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

gani84's picture

gani84

Mon, 11/30/2020 - 21:14 

Вывод консоли
vvedite proizvolnuy stroku:
qwertyuiopasdfghjkl
Piatii simvol: t
Piatii simvol: p
Piatii simvol: g

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

vedro-compota

Sun, 12/06/2020 - 16:38 

for i:=1 to length(s) do // обходим символы строки
          begin
           n := n + 1;
           if ((n mod 5)=0) then
              writeln('Piatii simvol: ', s[i]);
          end;
         end;

-- тут есть лишняя переменная

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

gani84's picture

gani84

Sun, 12/13/2020 - 11:39

Вывод консоли

vvedite proizvolnuy stroku:
qwertyuiopasdfghjkl
Piatii simvol: t
Piatii simvol: p
Piatii simvol: g
var s: string;
    i: integer;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  if (length(s)<=5) then
       writeln('Ochibka')
  else
    begin
     if  (length(s)>5) then
       begin
        for i:=1 to length(s) do // обходим символы строки
          begin
           if ((i mod 5)=0) then
              writeln('Piatii simvol: ', s[i]);
          end;
         end;
      end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 12/13/2020 - 16:07

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

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