Question

СРОЧНО ЗАДАНИЕ НА ПАСКАЛЕ ТИПА STRING НА ПАСКАЛЕ Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».

Answer 1

Ответ:

uses PT4;

var k,p:integer;

begin

 Task('String19');

 var s:= ReadString;

 var f:=1;

 for p:=1 to s.Length do begin

   if(s[p] = '-') and (p <> 1) then begin f:=0; break; end;

   if(s[p] = '.') then begin f:=2; inc(k); end;

   if(k > 1) then begin f:=0; break; end;

   if(s[p].IsDigit = false) and (s[p] <> '.') and (s[p] <> '-') then begin f:=0; break; end;

 end;

 print(f);

end.

Answer 2

Вот пример решения вашей задачи на языке программирования Pascal:

pascalCopy code
program CheckStringType;

var
  inputString: string;
  isInteger, isReal: boolean;
  number: real;

begin
  writeln('Введите строку: ');
  readln(inputString);

  // Попробуем преобразовать строку в целое число
  val(inputString, number, isInteger);

  if isInteger then
    writeln('1')
  else
  begin
    // Попробуем преобразовать строку в вещественное число
    val(inputString, number, isReal);

    if isReal then
      writeln('2')
    else
      writeln('0');
  end;
end.

Этот код сначала считывает введенную строку, а затем использует процедуру val для попытки преобразовать строку в число. Она возвращает true, если преобразование прошло успешно, и false в противном случае. В зависимости от результата преобразования выводится соответствующая информация: "1" для целых чисел, "2" для вещественных чисел и "0" в случае невозможности преобразования строки в число.