Определить является ли введенный текст записью целого числа или записью вещественного числа

@treverd · Регистрация: 01.10.2018

Author24 — интернет-сервис помощи студентам

Определить является ли введенный текст записью целого числа или записью вещественного числа. НА ПАСКАЛЬ

@xtro · 11.10.2018, 13:38

Pascal

var
  a:string;
  c:integer;
  r:real;
begin
  write('S=');readln(a);
  Val(a,r,c);
  if c<>0 then writeln('Not a number') else
      if (pos('.',a)=0) and (pos(',',a)=0) then writeln('integer number')
        else writeln('real number');
        readln;
end.

@Cyborg Drone · 11.10.2018, 23:06

xtro, неверное решение.

Протокол работы Вашей программыS=1E-5
integer number

Получается, что, по мнению Вашей программы, 0.00001 - это целое число.

Немножко подправить надо... Так, например:

Pascal

var
  s: string;
  err, i: integer;
  r: real;
 
begin
  write('S = ');
  readln(s);
  val(s, i, err);
  if err = 0
    then write('Integer number')
    else begin
      val(s, r, err);
      if err = 0
        then write('Real number')
        else write('Not a number')
    end;
  readln
end.

Не по теме:

Форматировани кода Вас несколько нелогичное... Такое впечатление, что последний readln; каким-то боком к else относится...

@treverd 0 / 0 / 0 Регистрация: 01.10.2018 Сообщений: 15
		1
	Определить является ли введенный текст записью целого числа или записью вещественного числа 11.10.2018, 07:59. Показов 2194. Ответов 2 Метки pascalabc (Все метки) Определить является ли введенный текст записью целого числа или записью вещественного числа. НА ПАСКАЛЬ 0

	11.10.2018, 23:06