Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Строки

Автор: Crazy_Girl 12.3.2007, 21:33

Ребят завтра лабу сдавать а я даже не подозреваю как делать. Помогите пожалуйста.

Дан текст, как последовательность символов, сохраните его в числовой переменной, если текст представляет собой число, или выведите номер символа, который нельзя преобразовать в числовой формат.

Автор: Strannik 13.3.2007, 22:10

хи..

Код


readln(s);
val(s,num,er);
if er=0 then
 writeln(num)
else writeln(er);

Так?
А если препод злой, то так:

Код


readln(s);
sum:=0;
for i:=1 to length(s) do
 begin 
  if s[i] in ['0'..'9'] then
   sum:=(sum+ord(s[i])-48)*10
 else begin writeln(i); exit; end; 
end;
writeln(sum);

Это по схеме Горнера, если не ошибаюь.

Автор: Crazy_Girl 14.3.2007, 01:27

Спасибо тебе большое*))) Хоть один добрый человек.