Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 28.09.2014
Сообщений: 6
1

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

30.09.2014, 22:17. Показов 1639. Ответов 1
Метки нет (Все метки)

Даны натуральное число n, символы S1,...,Sn. Преобразовать последовательность S1,...,Sn , удалив все символы, не являющиеся буквами или цифрами
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2014, 22:17
Ответы с готовыми решениями:

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

Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами
есть задача: дана текстовая строка, состоящая из букв и цифр. Преобразовать строку, удалив все...

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

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

__________________
1
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,044
01.10.2014, 10:35 2
Лучший ответ Сообщение было отмечено Анеля как решение

Решение

Delphi
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
var  Form1: TForm1;
     s:array of char;
     n:integer;
implementation
 
{$R *.dfm}
//зададим некоторые параметры таблиц
procedure TForm1.FormCreate(Sender: TObject);
begin
with stringgrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  defaultcolwidth:=30;
 end;
with stringgrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  defaultcolwidth:=30;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var c:integer;
begin
//введем размер последовательноти с проверкой
val(Edit1.Text,n,c);
if (c<>0)or(n<1)then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
setlength(s,n);
StringGrid1.ColCount:=n;
StringGrid1.Rows[0].Clear;
ShowMessage('Заполните таблицу буквами, цифрами и другими символами');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
const ds=['0'..'9','A'..'Z','a'..'z','А'..'я','Ё','ё'];
var i,j,k:integer;
begin
for i:=0 to n-1 do
s[i]:=StringGrid1.Cells[i,0][1];
i:=0;
k:=0;
//удаляем ненужные
while i<n do
if not (s[i] in ds) then
 begin
  k:=1;
  for j:=i to n-2 do
  s[j]:=s[j+1];
  n:=n-1;
  setlength(s,n)
 end
else i:=i+1;
if n=0 then ShowMessage('Все символы удвлены')
else if k=0 then ShowMessage('Не удален ни 1 символ')
else
 begin
  StringGrid2.ColCount:=n;
  StringGrid2.Rows[0].Clear;
  for i:=0 to n-1 do
  StringGrid2.Cells[i,0]:=s[i];
 end;
end;
0
Вложения
Тип файла: rar Массив символов.rar (193.6 Кб, 3 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2014, 10:35

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

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

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

Преобразовать последовательность, удалив из неё символы, не являющиеся буквами
Здравствуйте! Помогите пожалуйста решить задачу. То есть вводим текст с цифрами, знаками...

Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами
доброе время суток,Уважаемые знатоки...собственно вопрос вот в чем:Дана строка символов....


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

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

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