Дана строка 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.

Объяснение кода листинга программы

  1. Ввод строки S и числа N с клавиатуры.
  2. Проверка каждого символа строки S, начиная с третьего символа и до последнего, кроме последнего символа (проверка на точку).
  3. Если текущий символ является точкой и следующий символ является числом от 0 до 9, то добавляем этот символ к строке S1.
  4. Выводим результат на экран.

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы