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

Обработка строковых данных

31.03.2017, 20:27. Показов 464. Ответов 4
Метки нет (Все метки)

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
var
ss:string[9];
s:array[1..5] of string;
a:array[1..17] of char;
y:char;
i,j,k:integer;
begin
ss:='структурированные типы данных';
s[i]:=copy(ss,6.3)+ss[14]+copy(s,9.2);
s[i]:=ss;delete(s[2],1.2);delete(s[2],4.4);
s[i]:=copy(ss,1.17);s[3][9]:='a';
s[i]:=copy(s[3],5.2);inser('o',s[4],2);
s[i]:=concat(copy(ss,12.4),ss[13]);
for i:=1 to 5 do write(s[i],' ');writeln;
for i:=1 to 4 do
for j:=i+1 to 5 do
if s[i]>s[j] then
begin
st:=s[i];
s[i]:=s[j];
s[j]:=st;
end;
for i:=1 to 5 do write(s[i,' ']); writeln;
k:=pos(' ',ss);
for i:=1 to k-1 do
begin
if a[i]='р' then begin a[i]:='п'; k:=k+1; end;
if a[i]='у' then a[i]:='ю';
write(a[i]); end;
writeln(k);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2017, 20:27
Ответы с готовыми решениями:

Обработка строковых данных
Составить программу, выполняющую следующее задание: дана строка символов, нужно, определить...

Обработка строковых данных
нужно задать текст.Слова в нем разделены пробелом,в конце-точка.Вывести строку в обратном виде при...

обработка строковых величин
1. Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо. 2....

Обработка строковых величин
В тексте убрать лишние пробелы между словами, вставить по одному.

4
1753 / 1345 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
31.03.2017, 20:34 2
Огласите задание

Добавлено через 31 секунду
Цитата Сообщение от vanya2199 Посмотреть сообщение
можете исправить
выглядит, как одобрение спасибо
0
0 / 0 / 0
Регистрация: 31.03.2017
Сообщений: 2
31.03.2017, 20:43  [ТС] 3
мне дали бумажку вот код, и сказали что должно появиться на экране
0
1753 / 1345 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
31.03.2017, 20:50 4
Код тут есть, пол дела сделано. Осталось сказать, что должно появиться на экране
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
31.03.2017, 21:12 5
Исправил ошибки.
Получилось вот что:

ванна o
o ванна
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
var
  st, ss: string[128];
  s: array[1..10] of string[128];
  a: array[1..17] of char;
  y: char;
  i, j, k: integer;
 
begin
  i := 1;
  ss := 'структурированные типы данных';
  s[i] := copy(ss, 6, 3) + ss[14] + copy(ss, 9, 2);
  s[i] := ss;
  delete(s[2], 1, 2);
  delete(s[2], 4, 4);
  s[i] := copy(ss, 1, 17);
  s[3][9] := 'a';
  s[i] := copy(s[3], 5, 2);
  insert('o', s[4], 2);
  s[i] := concat(copy(ss, 12, 4), ss[13]);
  for i := 1 to 5 do write(s[i], ' ');writeln;
  for i := 1 to 4 do
    for j := i + 1 to 5 do
      if s[i] > s[j] then
      begin
        st := s[i];
        s[i] := s[j];
        s[j] := st;
      end;
  for i := 1 to 5 do 
    write(s[i], ' ');
  writeln;
  k := pos(' ', ss);
  for i := 1 to k - 1 do
  begin
    if a[i] = 'р' then 
    begin
      a[i] := 'п';
      k := k + 1;
    end;
    if a[i] = 'у' then 
      a[i] := 'ю';
    write(a[i]); 
  end;
  writeln(k);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2017, 21:12
Помогаю со студенческими работами здесь

обработка строковых величин
1.Составьте программу, позволяющую выяснить, есть ли в слове Х хотя бы одна из букв "о" или "а".

Обработка строковых данных
Прошу помощи Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10...

Обработка строковых данных в языке программирования Pascal
Программа должна предложить ввести строку и подстроку, и вывести номер символа для второго...

Обработка строковых данных в языке программирования Pascal
Ваша программа должна в заданном тексте удвоить каждый символ, стоящий на нечетном месте.

Обработка строковых данных. В тексте удалить все слова заданной длины
В заданном тексте удалить все слова заданной длины. Вывести полученный текст. Спасибо.

Обработка строковых данных. В заданном тексте удалить все слова заданной длины
Доброго времени суток!!!помогите пожалусто с задачей.Вот условия: В заданном тексте удалить все...


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

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

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