Решаем задачи Абрамян на Паскале. String19

String19. Дана строка. Если она представляет собой запись целого числа, то вывести $$1$$, если вещественного (с дробной частью) — вывести $$2$$; если строку нельзя преобразовать в число, то вывести $$0$$. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».

Решение:

program String19;
var
  i,error:integer;
  r:Real;
  S:string;

begin
 Write('S:');
 Readln (S);

 val(S,i,error);
 if error =0 then writeln('1')
  else
   begin
    val(S,r,error);
    if error =0 then writeln('2')
     else writeln('0');
   end;
end.

program String19;

var

i,error:integer;

r:Real;

S:string;

begin

Write('S:');

Readln (S);

val(S,i,error);

if error =0 then writeln('1')

else

begin

val(S,r,error);

if error =0 then writeln('2')

else writeln('0');

end;

end.

Решение от Newton:

program String19;

var
   Line     : string;
   Counter  : integer;
   Output   : byte;

begin
   writeln('Enter a line of characters: ');
   readln(Line);
   Output := 1;
   for Counter := 1 to Length(Line) do
      if (Line[Counter] < '0') or (Line[Counter] > '9') then
         if (Output = 1) and (Line[Counter] = '.') then
            Output := 2
         else
            Output := 0;
   writeln(Output);
   readln
end.

program String19;

var

Line : string;

Counter : integer;

Output : byte;

begin

writeln('Enter a line of characters: ');

readln(Line);

Output := 1;

for Counter := 1 to Length(Line) do

if (Line[Counter] < '0') or (Line[Counter] > '9') then

if (Output = 1) and (Line[Counter] = '.') then

Output := 2

else

Output := 0;

writeln(Output);

readln

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 6

Без использования процедуры (заменил знаки неравенства на LT/GT):

program String19;

var
   Line     : string;
   Counter  : integer;
   Output   : byte;
   
begin
   writeln('Enter a line of characters: ');
   readln(Line);
   Output := 1;
   for Counter := 1 to Length(Line) do
      if (Line[Counter] .LT. '0') or (Line[Counter] .GT. '9') then
         if (Output = 1) and (Line[Counter] = '.') then
            Output := 2
         else
            Output := 0;
   writeln(Output);
end.

program String19;

var

Line : string;

Counter : integer;

Output : byte;

begin

writeln('Enter a line of characters: ');

readln(Line);

Output := 1;

for Counter := 1 to Length(Line) do

if (Line[Counter] .LT. '0') or (Line[Counter] .GT. '9') then

if (Output = 1) and (Line[Counter] = '.') then

Output := 2

else

Output := 0;

writeln(Output);

end.

Ответить

Anton

05.12.2016 в 07:57

Да, весело… у меня какой то внутренний барьер применять знаки больше или меньше к текстовым переменным. 🙂
Я бы наверно использовал множество, например как то так:

if not (Line[Counter] in ['0'..'9']) then

1

if not (Line[Counter] in ['0'..'9']) then

Добавил ваш пример в шапку.

Ответить

На Python:

def analysis_str(msg):
    input_line = input(msg)
    counter_dot = 0
    for counter_char in range(0, len(input_line)):
        if input_line[counter_char].isdigit() and counter_dot == 0:
            res = 1
        elif input_line[counter_char] == "." and 0 < counter_char < len(input_line) - 1 and counter_dot < 1:
            res = 2
            counter_dot += 1
        elif input_line[counter_char].isdigit() is not True:
            return 0
        counter_char += 1
    return res

line_for_analysis = analysis_str("line:")
print(line_for_analysis)

def analysis_str(msg):

input_line = input(msg)

counter_dot = 0

for counter_char in range(0, len(input_line)):

if input_line[counter_char].isdigit() and counter_dot == 0:

res = 1

elif input_line[counter_char] == "." and 0 < counter_char < len(input_line) - 1 and counter_dot < 1:

res = 2

counter_dot += 1

elif input_line[counter_char].isdigit() is not True:

return 0

counter_char += 1

return res

line_for_analysis = analysis_str("line:")

print(line_for_analysis)

Ответить

вижу у ньютона оператор .LT. и еще один .GT. , лезу в гугол, гугол кажет шишь, ыы =)

program string_19; //PascalABC.NET

begin
  var s := '01234.56789';
  var count, num: byte;
  count := 0;
  
  for var i := 1 to s.Length do
    if s[i].IsDigit then continue
    else if s[i] = '.' then
      if count > 1 then break
      else count += 1
    else begin
      count := 2;
      break;
    end;
  
  num := count > 1 ? 0 : count = 0 ? 1 : 2;
  Print(num);
end.

program string_19; //PascalABC.NET

begin

var s := '01234.56789';

var count, num: byte;

count := 0;

for var i := 1 to s.Length do

if s[i].IsDigit then continue

else if s[i] = '.' then

if count > 1 then break

else count += 1

else begin

count := 2;

break;

end;

num := count > 1 ? 0 : count = 0 ? 1 : 2;

Print(num);

end.

с процедурой val понравилось

Ответить

Bronislav

23.06.2018 в 17:02

ошибся я в коде, в 13 строке вместо else break нужно так

else begin count := 2; break; end;

1
2
3
4

else begin
count := 2;
break;
end;

Ответить
- Anton
  
  26.06.2018 в 08:36
  
  Поправил ваш предыдущий комментарий.
  
  Ответить

Решаем задачи Абрамян на Паскале. String19

Комментарии:

Комментарии 6

Добавить комментарий Отменить ответ