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

Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки

26.05.2011, 19:56. Просмотров 741. Ответов 1
Метки нет (Все метки)

Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки. если в строке меньше двух точек, то вывести всю исходную строку.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2011, 19:56
Ответы с готовыми решениями:

Дана строка. Вывести подстроку размещенную между первой и последней точками изначальной строки
Дана строка. Вывести подстроку размещенную между первой и последней точками изначальной строки ...

Выделить подстроку между первой и второй точкой
Дана строка символов, содержащая среди прочих два символа ‘.’. Написать программу, которая выделяет...

Напечатать все символы между первой и второй точками
А как такое сделать? Даны натуральное число n и символы S1..Sn, среди которых есть точки....

Обмен между строками самого длинного слова первой строки на самое короткое слово второй строки
помогите чем сможете. Беда совсем. оформить в виде модуля подпрограммы, получающие в качестве...

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

1
Shelovek
65 / 65 / 33
Регистрация: 25.05.2010
Сообщений: 176
26.05.2011, 20:55 2
Лучший ответ Сообщение было отмечено diane как решение

Решение

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
uses
    crt;
var
   s:string;
   i,k:integer;
begin
     writeln('wvedite stroku');
     readln(s);
     for i:= 1 to length(s) do
         if s[i]='.' then
              k:=k+1;
     if k<2 then
        writeln('podstroka: ',s)
     else
         begin
              i:=1;
              k:=pos('.',s);
              writeln('podstoka  ');
              while s[k+1]<>'.' do
                    begin
                    write(s[k+1]);
                    if k<length(s) then
                    k:=k+1;
                    end;
         end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2011, 20:55

Вывести одну гласную латинскую букву из первой строки, две из второй, ... i гласных латинских букв из строки н
Разработать функцию MakeStr(S:string; N:integer):string, возвращающую строку из N первых гласных...

Дана строка-предложение. Определить сколько слов строки содержат одинаковые второй и четвертый символы
Появилась ещё одна задача, помогите и с ней пожалуйста. Дана строка-предложение. Определить...

дана целочисленная матрица размера 5Х10. вывести её номер первой строки, содержашее разное колличество положительных и отрицательных элементов
помогите ришить пожалуйста по паскалю дана целочисленная матрица размера 5Х10. вывести её номер...


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

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

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