Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
x_Grim
4 / 4 / 0
Регистрация: 27.04.2010
Сообщений: 12
1

Строки. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'.

03.05.2010, 21:19. Просмотров 1991. Ответов 7
Метки нет (Все метки)

1. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'.
2. Составить программу для определения стоимости телеграммы по её тексту (запросить стоимость одного слова в телеграмме и комиссионный сбор за телеграмму)
3.Строка содержит только цифры. Удалить все стоящие впереди нули. Исходная строка:000102001089, результат: 102001089.
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2010, 21:19
Ответы с готовыми решениями:

Заменить все вхождения подстроки Str1 на подстроку Str2 (подстроки вводятся с клавиатуры)
Заменить все вхождения подстроки Str l на подстроку Str2 (подстроки вводятся с...

Для заданной строки s заменить все вхождения строки substr1 на подстроку substr2
Разработать программу, которая для заданной строки s заменяет все вхождения от...

В заданной строке A заменить выделенную подстроку на подстроку B
Помогите с задачей !!! В заданной строке A заменить выделенную подстроку на...

Вывести все 4-х символьные сочетания, состоящие из символов заданной строки
Помогите с задачей пожалуйста. Не знаю как сделать:( Вывести все 4-х...

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

7
r4c0r3
8 / 8 / 1
Регистрация: 22.02.2010
Сообщений: 37
03.05.2010, 21:36 2
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от x_Grim Посмотреть сообщение
2. Составить программу для определения стоимости телеграммы по её тексту (запросить стоимость одного слова в телеграмме и комиссионный сбор за телеграмму)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  s: string;
  n, k, i, i2, sum: integer;
 
begin
  writeln('Комиссионный сбор:');
  readln(sum);
  writeln('Введите цену одного слова: ');
  read(k);
  writeln('Содержание письма:');
  repeat
    readln(s);
  until(length (s) > 0);
  s := s + ' ';
  for i2 := 1 to length(s) do
    if s[i2] = ' ' then
      sum := sum + k;
  writeln('Стоимость телешраммы: ', sum);
end.
3
yanyk1n
4332 / 1464 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
03.05.2010, 21:58 3
r4c0r3, а если я введу
Bash
1
" привет     всем!   "?
1
r4c0r3
8 / 8 / 1
Регистрация: 22.02.2010
Сообщений: 37
03.05.2010, 22:01 4
Цитата Сообщение от k1ry4 Посмотреть сообщение
r4c0r3, а если я введу
Bash
1
" привет     всем!   "?
мда... не подумал... помогите исправить тогда плз)

Добавлено через 48 секунд
Цитата Сообщение от x_Grim Посмотреть сообщение
3.Строка содержит только цифры. Удалить все стоящие впереди нули. Исходная строка:000102001089, результат: 102001089.
Pascal
1
2
3
4
5
6
7
8
var
  s: string;
 
begin
  write('Введите исходное число: '); read(s);
  while s[1] = '0' do delete(s, 1, 1);
  writeln('Результат: ', s);
end.
2
yanyk1n
4332 / 1464 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
03.05.2010, 22:03 5
Лучший ответ Сообщение было отмечено как решение

Решение

2)
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
uses crt;
var st, buf:string;
i,k:integer;
s,c:real;
f:boolean;
 
begin
    k:=0;
    write('Стоимость слова -> ');
    readln(c);
    write('Текст -> ');
    readln(st);
    buf:=''; 
    for i:=1 to length(st) do
    begin
        if st[i]<>' ' then
        begin
            buf := buf + st[i];
            f:=true;
        end else begin
            if f then
            begin
                inc(k);
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
        inc(k);
        buf:='';
    end;
    s := c * k;
    writeln('Стоимость телеграммы = ',s:0:2);
    readln;
end.
3
x_Grim
4 / 4 / 0
Регистрация: 27.04.2010
Сообщений: 12
03.05.2010, 22:21  [ТС] 6
Цитата Сообщение от x_Grim Посмотреть сообщение
1. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'.
Помогите пожалуйста...
0
yanyk1n
4332 / 1464 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
03.05.2010, 22:31 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var st,sub,sub2:string;
i:integer;
 
begin 
    clrscr;
    write('-> ');
    readln(st);
    sub:='на';
    sub2:='над';
    i := 1;
    while i <= length(st) - length(sub) + 1 do
    begin
        if copy(st,i,length(sub))=sub then
        begin
            delete(st,i,length(sub));
            insert(sub2,st,i);
            i := i + length(sub2);
        end else inc(i);
    end;
    writeln(st);
    readln;
end.
0
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
04.05.2010, 00:16 8
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s: string; i: byte;
begin
clrscr;
s:='0000001103';
writeln('исходная строка: ');
i:=1;
if s[1]='0' then
begin
while s[i]='0' do
delete(s,pos(s[i]),1);
writeln('результат: ',s);
end
else writeln('строка не начинается с нуля');
end.
0
04.05.2010, 00:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2010, 00:16

Процедура: заменить в символьной строке все вхождения одной подстроки на другую
Дано задание: &quot;Напишите программу, которая заменяет в символьной строке все...

В каждой строке массива заменить все вхождения подстроки «cat» на «dog»
Дан массив, состоящий из n элементов строкового типа. В каждой строке заменить...

Удалить из строки все вхождения заданной подстроки
Даны подстрока и строка. Удалить из строки все вхождения заданной подстроки ...


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

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

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