Дана строка S, изображающая вещественное число... - Pascal
Формулировка задачи:
Ребят, помогите пожалуйста! Никак не смог разобраться с этим зверем!
Дана строка S, изображающая вещественное число в формате с плавающей точкой, и целое число N (> 0). Вывести набор символов, изображающих первые N цифр дробной части этого вещественного числа (без округления).
Решение задачи: «Дана строка S, изображающая вещественное число...»
textual
Листинг программы
program sam6; var s,s1:string; i,j,k,l,n:integer; begin write ('s:='); readln(s); write ('n:='); readln(n); for i:=2 to length(s)-1 do if (s[i]='.') and (s[i+1] in ['0'..'9']) then begin for j:=i+1 to n +1+1 do s1:=s1+s[j]; end; writeln ('resultat:=',s1); end.
Объяснение кода листинга программы
- Ввод строки S и числа N с клавиатуры.
- Проверка каждого символа строки S, начиная с третьего символа и до последнего, кроме последнего символа (проверка на точку).
- Если текущий символ является точкой и следующий символ является числом от 0 до 9, то добавляем этот символ к строке S1.
- Выводим результат на экран.