строковое выражение числа должно быть переведено в вещественный тип

[Wi1D]

Кто знает помогите
Вот задание:
Составить процедуру по корректному посимвольному вводу вещественных чисел (общая длина числа ограничена некоторым значением Lmax). Введенное строковое выражение числа должно быть переведено в вещественный тип. Допускается использовать следующие клавиши:
цифры, точка, знак минус,
Esc (отказ от ввода),
Enter (ввод числа – перевод его в вещественный тип),
BackSpace (или ← - “забой” предыдущей цифры)
Вот я написал процедуру ввода строки...

Program chuCJla;
 uses CRT;
 const
	Lmax=10;
 var
	znak:char;
	s:string;
	lp,j,i:byte;
	c,t:integer;
	r:real;
 procedure BBoD(var s:string;var lp:byte;var znak:char);
	var
	l:byte;
	ch:char;
	 begin
	 s:='';
	 l:=1;
	 Writeln('Max CuMBoJloB= ',lmax);
	 Writeln('BBoDuTe BMeCTe Co 3HAKOM');
	 Writeln('BBeduTe KoJlu4eCTBo CuMBoJloB.3Hak u Pa3DeJluTeJl - TO}l{e c4uTaTb');
	 readln(lp);
		if lp>lmax then Writeln('CJluLLlKoM DJluHHoe 4uCJlo')
		else
			begin
			 Writeln('BBeDuTe ',l,' CuMBoJl 4uCJlA,T.E 3HAK');
			 readln(znak);
			 insert(znak,s,length(s)+1);
			for l:=2 to lp do
			 begin
				Writeln('BBeDuTe ',l,' CuMBoJl 4uCJlA');
				readln(ch);
				insert(ch,s,length(s)+1);
			 end;
			end;
		end;
Begin
 ClrScr;
 BBoD(s,lp,znak);
{ЧТО ДАЛЬШЕ ДЕЛАТЬ?????}
 Val(s,c,t);
 readln;
End.

А вот что дольше делать со строкой не понимаю...
ПРобывал через десятки...идея показалась слишком обширной...
кто подскажет?

[pomoshnic]

Через процедуру val

[Arigato]

Находим в строке "." (или какой там разделитель дроби), всё, что слева - целая часть, её получаем через Val. Правая часть - дробная. Её получить можно так: посимвольно просматриваем строку с конца, аккумулятор делим на 10, прибавляем к нему цифру, делённую на 10. Затем дробную часть прибавляем к целой. Готово.

[Wi1D]

Через вал не получаеться найти целую часть...он выдает 0!
или может тип не тот у этой переменной что выдает число...какой должен быть?

КАК МНЕ ПРЕОБРАТОВАТЬ СИМВОЛ В ЧИСЛО? как использовать ord и str

[pomoshnic]

А как ты написал через вал?

[Wi1D]

rogram chuCJla;
 uses CRT;
 const
	Lmax=10;
 var
	s:string;
	lp,drob:byte;
	t,c,i,j,j2:integer;
	acc:real;
	z:shortint;
 procedure BBoD(var s:string;var lp:byte;var z:shortint);
	var
	l:byte;
	ch,znak:char;
	 begin
	 s:='';
	 l:=1;
	 Writeln('MaKCuMaJlbHoE KoJlu4eCTBo CuMBoJloB= ',lmax);
	 Writeln('BBeduTe KoJlu4eCTBo CuMBoJloB He C4uTa9 3Hak.Pa3DeJluTeJlb - c4uTaTb');
	 readln(lp);
		if lp>lmax then Writeln('CJluLLlKoM DJluHHoe 4uCJlo')
		else
			begin
			 Writeln('BBeDuTe 3Hak');
			 readln(znak);
				if znak='-' then z:=-1;
				if znak='+' then z:=1;
			for l:=1 to lp do
			 begin
				Writeln('BBeDuTe ',l,' CuMBoJl 4uCJlA');
				readln(ch);
				insert(ch,s,length(s)+1);
			 end;
			end;
		end;
Begin
 ClrScr;
 BBoD(s,lp,z);
	val(s,c,t);
	drob:=lp-t;
	acc:=0;
	 for i:=lp downto t+1 do begin
	 Val(s[i],j,t);
	 acc:=acc+j*(1/exp(ln(10)*drob));
	 dec(drob);
	 writeln(acc);
	end;
	readln;
End.

Почему он не считает нормально acc???

[puporev]

Находим в строке "." (или какой там разделитель дроби), всё, что слева - целая часть, её получаем через Val. Правая часть - дробная. Её получить можно так: посимвольно просматриваем строку с конца, аккумулятор делим на 10, прибавляем к нему цифру, делённую на 10. Затем дробную часть прибавляем к целой. Готово.

Непонятно, к чему такие сложности. Вот выкопировка из Хэлпа Паскаля:

Объявление:
Procedure Val(S; Var V; Var Code : Integer);

Где:
S - переменная со строковым типом. Должна представлять
последовательность символов, формирующих знаковое целое число.
V - переменная типа Real или Integer
Code - переменная типа Integer

Режим:
Windows, Real, Protected

Для неверующих вот пример.

uses crt;
var s:string;
    v:extended;
    c:integer;
begin
clrscr;
write('s=');readln(s);
val(s,v,c);
write('v=',v:0:10);
readln
end.

P.S. Наверное так не очень понятно как вывести точное количество знаков после запятой. Думаю их просто нужно посчитать при вводе числа или вычислить, их количество
k:=length(s)-pos(',',s);
Тогда вывод числа write('v=',v:0:k);

[Wi1D]

puporev спасибо!
Все работает!Вот листинг:

Program chuCJla;
 uses CRT;
 const
	Lmax=10;
 var
	s:string;
	r:extended;
	c,k:integer;
 procedure BBoD(var s:string);
	var
	l,lp:byte;
	ch:char;
	 begin
	 s:='';
	 l:=1;
	 Writeln('MaKCuMaJlbHoE KoJlu4eCTBo CuMBoJloB= ',lmax);
	 Writeln('BBeduTe KoJlu4eCTBo CuMBoJloB');
	 readln(lp);
	 Writeln('4uCJlo PA3DeJl9Tb CuMBoJloM "."');
		if lp>lmax then Writeln('CJluLLlKoM DJluHHoe 4uCJlo')
		else
			begin
			for l:=1 to lp do
			 begin
				Writeln('BBeDuTe ',l,' CuMBoJl 4uCJlA');
				readln(ch);
				insert(ch,s,length(s)+1);
			 end;
			end;
		end;
Begin
 ClrScr;
 BBoD(s);
 k:=length(s)-pos('.',s);
 val(s,r,c);
 write('ETo 4uCJlo PaBHO= ',r:0:k);
	readln;
End.

[Arigato]

puporev, согласен, ступил. Я Turbo Pascal много лет уже не использую, глянул в хелп невнимательно, и ...

Procedure Val(S; Var V; Var Code : Integer);

Показалось что и V, и Code типа Integer.