1 семестр / Лабораторная 1 / Lab1_2_var12

program Lab1_2_var12;
var
Str: string; {переменная строки}
V: real; {строка преобразованная в числовой вид}
err: integer; {переменная содержит индекс символа, который} {не получилось преобразовать в число}
begin
write('Введите строку: '); {ввод с клавиатуры строку}
readln(Str); {Присваиваем введенную строку переменной}
{удаляем пробелы в начале строки}
while (length(Str) > 0) and (Str[1] = ' ') do delete(Str, 1,1);
{удаляем пробелы в конце строки}
while (length(Str) > 0) and (Str[length(Str)] = ' ') do delete(Str, length(Str), 1);
{преобразование строкового значения в его числовое представление}
val(Str, V, err);
if
err > 0 then write('Эта строка не является правильной записью вещественного числа.')
{если есть символ который не смогли преобразовать в число,}
{то строка не является правильной записью}
else
write('Эта строка является правильной записью вещественного числа.');
{в противном случае строка не является правильной записью}
readln();
end.