0 / 0 / 0
Регистрация: 25.11.2019
Сообщений: 4
1

Дана строка, состоящая из символов. Удалить из этой строки все цифры, записав в другую строку

25.11.2019, 22:28. Показов 1674. Ответов 1
Метки нет (Все метки)

Проблема в том, что я не знаю как в строке a := ord('0') div 10; сделать перечисление от 0 до 9 чтобы присваивались разные элементы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program lab7;
 
var s:string;
str:string;
 
function strok (var s:string):string;
var a,b:longint;i:word;
      begin
        readln(s);
        str := '';
        for i:=1 to length(s) do 
          if s[i] in (['0'..'9']) then begin
            
            a := ord('0') div 10;
           
            b := ord('0') mod 10;
 
      
                str := str+char(ord('0')+a);
            
 
                str := str+char(ord('0')+b);
 
                 end
          else 
            str := str+s[i];
          writeln(str);
     
      end;
  begin
    strok(s);
  end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2019, 22:28
Ответы с готовыми решениями:

Дана строка символов, состоящая из букв и цифр. Удалить из строки все цифры
Нужна прога... Дана строка символов, состоящая из букв и цифр. Удалить из строки все цифры. Буду...

Дана строка символов. Удалить из строки все цифры
помогите решить пожалуйста вот такую задачу. Дана строка символов. Удалить из строки все цифры.

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

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
Строка берется из ListBox. Вывести числа надо в Label. AnsiString. Помогите пожалуйста. ...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.11.2019, 07:28 2
Цитата Сообщение от dakwol Посмотреть сообщение
Удалить из этой строки все цифры, записав в другую строку
Pascal
1
2
3
4
5
6
7
8
9
10
var s1,s2:string;
      i:integer;
...................................
s2:='';
for i:=length(s1) downto 1 do
if s1[i] in ['0'..'9'] then
 begin
  s2:=s1[i]+s2;
  delete(s1,i,1);
 end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2019, 07:28
Помогаю со студенческими работами здесь

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

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

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки- не работает
#include <vcl.h> #pragma hdrstop #include <conio.h> #include <iostream.h> #include <string.h> ...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru