Задача 5 урок 16

Primary tabs

Submitted by boris68 on Thu, 08/26/2021 - 15:58

Forums:

Задача 5 урок 16

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы

необходимо считать данные числа в две строковые переменные s1 и s2.

var s, S1, S2: string;
            i: Integer;
begin
 writeln('Vvedite stroku');
 readln(s);
   for i:=1 to Length(s) do
     if (s[i]>='0')and(s[i]<='9') then
       if length(S1) < 2 then
         S1:=S1+s[i]
       else if length(S2) < 2 then
         S2:=S2+s[i];

 write('S1= ',S1,' '); // выводим строковые перемен.
 write('S2= ',S2);
 readln();
end.
  • Log in to post comments
  • 1959 reads
vedro-compota's picture

vedro-compota

Sun, 09/05/2021 - 12:19 

if length(S1) < 2 then

-- почему именно 2?

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

boris68

Mon, 09/06/2021 - 22:27 

var s, S1, S2: string;
            i: Integer;
         flag: boolean;
begin
 flag:=true;
 writeln('Vvedite stroku');
 readln(s);
   for i:=1 to Length(s) do
     if (s[i]>='0')and(s[i]<='9') then
       if flag then
         begin
           S1:=S1+s[i];
           if NOT((s[i+1]>='0')and(s[i+1]<='9')) then
             flag:=false;
         end
       else
         S2:=S2+s[i];

 write('S1= ',S1,' '); // выводим строковые перемен.
 writeln('S2= ',S2);
 readln();
end.
vedro-compota's picture

vedro-compota

Tue, 09/14/2021 - 22:25 

if NOT((s[i+1]>='0')and(s[i+1]<='9')) then
             flag:=false;
  • 1) проверить на выход за пределы строки
  • 2) добавить альтернативное решение без обращения к (i+1)-ому элементу (не смотре "вперед")

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

boris68

Wed, 09/15/2021 - 22:11 

var s, S1, S2: string;
            i: Integer;
         flag: boolean;
begin
 flag:=true;
 writeln('Vvedite stroku');
 readln(s);
   for i:=1 to Length(s) do
     if (s[i]>='0')and(s[i]<='9') then
       begin
         if (flag) then
           S1:=S1+s[i]
         else
           S2:=S2+s[i];
       end
     else if flag AND (S1<>'') then
       flag:=NOT flag;


 write('S1= ',S1,' '); // выводим строковые перемен.
 writeln('S2= ',S2);
 readln();
end.
vedro-compota's picture

vedro-compota

Sun, 09/19/2021 - 12:20

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

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