Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 12
1

Распечатать последовательность, удалив из нее все цифры

22.04.2013, 20:41. Просмотров 788. Ответов 12
Метки нет (Все метки)

Дана последовательность символов. Распечатать эту последовательность вытерев с нее все цифры.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2013, 20:41
Ответы с готовыми решениями:

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

Преобразовать строку, удалив из нее все запятые, предшествующие первой точке, и заменив знаком "+" все цифры "5"
Дана строка символов, среди которых есть хотябы одна точка. Преобразовать строку, удалив из нее все...

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

Преобразовать последовательность S1,....Sn удалив из нее все запятые
1) Даны натур. числа n,символы S1,....Sn среди которых есть хотя бы одна точка. Преобразовать...

12
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
24.04.2013, 09:12 2
Pascal
1
2
3
4
5
6
7
8
var s: string;
    i: byte;
begin
 ReadLn(s);
  for i := 1 to Length(s) do
  if  (s[i]  in ['a'..'z', 'а'..'я'])  then 
 Write(s[i]);
end.
1
3018 / 1906 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
24.04.2013, 09:22 3
kayslu, а если ввести, например, такую последовательность:
!@#$%^&*()1234567
?
1
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
24.04.2013, 19:00 4
Pascal
1
2
3
4
5
6
7
8
var s: string;
    i: byte;
begin
 ReadLn(s);
  for i := 1 to Length(s) do
  if  (ord(s[i])  in [0..47, 58..255])  then 
 Write(s[i]);
end.
1
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 12
24.04.2013, 21:53  [ТС] 5
спасибо
0
25 / 25 / 28
Регистрация: 20.03.2011
Сообщений: 150
24.04.2013, 22:05 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var s:string;
    i,j:byte;
Begin
readln(s);
For i:=1 to length(s) do
 Begin
While (s[i] in ['0'..'9'])do
delete(s,i,1);
End;
write(s);
readln
End.
1
3018 / 1906 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
24.04.2013, 22:12 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

qwertyo, попробуй в своей программе ввести, например:
6666666
Как думаешь, что произойдет?

Добавлено через 3 минуты
В общем, вот мой вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
Var
  s: String;
  i: Byte;
BEGIN
Readln(s);
For i:=Length(s) downto 1 do
If s[i] in ['0'..'9'] Then
Delete(s,i,1);
Writeln(s);
END.
1
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 12
24.04.2013, 22:22  [ТС] 8
завтра покажу учителю и посмотрим кто правильно сделал ...
0
3018 / 1906 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
24.04.2013, 22:25 9
Push96, ну вот и с заданием немного непонятно. Это смотря, что имеется ввиду под "последовательностью символов". А может это и вовсе не строка, а массив... Уточнение задания было бы кстати.
1
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 12
24.04.2013, 22:30  [ТС] 10
1. задача
0
Миниатюры
Распечатать последовательность, удалив из нее все цифры  
3018 / 1906 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
24.04.2013, 22:38 11
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Push96, украинского я не знаю, но вот еще два варианта решения:
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  s: String;
  c: Char;
BEGIN
Writeln('Введите последовательность символов. Конец ввода - символ "точка"');
Repeat
 Readln(c);
 If not (c in ['0'..'9']) Then
 s:=s+c;
until c='.';
Writeln('Результат: ',s);
Readln
END.
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  x: Array [1..100] of Char;
  i,n: Integer;
BEGIN
Write('Сколько сиволов ввести? ');
Readln(n);
For i:=1 to n do
Readln(x[i]);
Writeln('Результат: ');
For i:=1 to n do
If not (x[i] in ['0'..'9']) Then
Write(x[i]);
Readln
END.
1
25 / 25 / 28
Регистрация: 20.03.2011
Сообщений: 150
24.04.2013, 22:50 12
Kodzaev, Да, Вы правы.
0
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 12
24.04.2013, 22:50  [ТС] 13
спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2013, 22:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Напечатайте строку, предварительно удалив из нее все вхождения th
Не работает, помогите найти ошибку! Известно, что в начале строки s находится не более 40...

Сжать некоторую строку, удалив из нее все пробелы
Ребят, помогите пожалуйста решить, сам не смогу, не достаточно знаний. Задание: Дан текст из...

Из заданной строки получить новую, удалив из нее все точки.
Из заданной строки получить новую, выбросив из нее все точки. Распечатать новую строку Uses crt;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.