01.06.2011, 15:09 | #1 (permalink) |
Новичок
Регистрация: 01.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачи на строки
задача n7: Дана непустая строка. Вывести коды ее первого и последнего символа. Задача n39: Дана строка, содержащая по крайней мере один символ пробела. Вывести подстроку, расположенную между первым и вторым пробелом исходной строки. Если строка содержит только один пробел, то вывести пустую строку. |
01.06.2011, 15:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на схожие темы - это должно вам помочь Строки в С Строки |
01.06.2011, 15:12 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну вот - и еще один член общества ТЯП - "Тайна Языка Программирования". Что-то в последние дни там изрядное пополнение...
|
01.06.2011, 15:48 | #4 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
VAR S:String; BEGIN Writeln('Enter the string:'); Readln(S); Writeln(Ord(S[1]),' ',Ord(S[Length(S)])); Readln END. Цитата:
Код:
VAR S,S1:String; i,i1,i2:Byte; BEGIN Writeln('Enter the string:'); Readln(S); i1:=0; i2:=0; For i:=1 to Length(S) do begin If (i1=0) and (S[i]=' ') then i1:=i; If (i1>0) and (i>i1) and (i2=0) and (S[i]=' ') then i2:=i; end; If i2=0 then S1:='' else S1:=Copy(S,i1+1, i2-i1-1); Writeln(S1); Readln END. |
|||
01.06.2011, 16:00 | #5 (permalink) |
Новичок
Регистрация: 01.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S, большое спасибо!!
Vladimir_S, а можно попросить у вас сделать еще несколько задачек? Просто завал у меня с ними... Вешаюсь, препод принципиальный и толком ничего не объясняет... =( |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
01.06.2011, 16:09 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
1. Ясельными упражнениями типа "Дан массив. Найти наибольший (наименьший) элемент" не занимаюсь из принципа. 2. В динамических структурах (стеки, списки, бинарные деревья и т.п.) - не силен. 3. Базами данных на основе массивов записей тоже заниматься не буду - просто за последние дни их прет такая лавина, что надоело. 4. Возможно, просто не компетентен. Например, здесь: Методы сортировки помочь не смогу. Ну не знаю я этих методов сортировки, а разбираться - с какой стати? Если не напужал - выкладывайте, посмотрим . |
|
03.06.2011, 15:33 | #7 (permalink) |
Новичок
Регистрация: 01.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
задача 22: дана строка изображающая целое положительное число. Вывести сумму цифр этого числа.
Задача 38: даны строки s, s1, s2. Заменить в строке s все вхождения строки s1 на строку s2. |
03.06.2011, 16:10 | #8 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Легко:
Цитата:
Код:
VAR S:String; i,n:Byte; Sum,Code:Word; BEGIN Writeln('Enter the string:'); Readln(S); Sum:=0; For i:=1 to Length(S) do begin Val(S[i],n,Code); Inc(Sum,n); end; Writeln('Sum= ',Sum); Readln END. Цитата:
Код:
VAR S,S1,S2:String; p:Byte; BEGIN Writeln('Enter the string S:'); Readln(S); Writeln('Enter the string S1:'); Readln(S1); Writeln('Enter the string S2:'); Readln(S2); Repeat p:=Pos(S1,S); If p>0 then begin Delete(S,p,Length(S1)); Insert(S2,S,p); end; Until p=0; Writeln(S); Readln END. |
||
09.06.2011, 04:16 | #10 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
1) вводим строку
2) заводим цикл для обращения к каждому символу по его номеру 2.1) считываем символ 2.2) преобразовываем символ в число 2.3) сумму увеличиваем на полученное число 3) выводим полученную сумму Надеюсь, так понятнее?
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|