Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Vlad220994
1 / 1 / 1
Регистрация: 18.05.2011
Сообщений: 72
1

Строки. Разбор

14.06.2013, 16:17. Просмотров 903. Ответов 1
Метки нет (Все метки)

Помогите разобраться в каждой строке

Удвоить каждую букву в слове, иные символы оставить без изменения.
Pascal
1
2
3
4
5
6
7
8
9
10
11
program z1;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
var s:string;
    i:byte;
begin
write('Введите слово: ');
read(s);
for i:=length(s) downto 1 do
if s[i] in bk then insert(s[i],s,i);
write(s)
end.
Определить количество слов в строке, оканчивающихся на заданный символ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program z2;
var
  s: string;
  i, j: integer;
  smb:char;
 
begin
writeln('Введите строку:');
readln(s);
writeln('Введите символ:');
readln(smb);
for i:=1 to length(s) do
if (s[i]=' ') and (s[i-1] = smb) then inc(j);
writeln('Количество найденных слов: ',j);
end.
заранее спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2013, 16:17
Ответы с готовыми решениями:

Разбор программы
Помогите пожалуйста, что делает оператор unuse:= и create(1,unuse,combinate)...

Разбор простой программы
Помогите разобраться с простой программой по подсчету букв "А" в строке.Нашел...

Олимпиадная задача. Разбор
Думаю всё понятно по вложениям. Если я что-то не так сделал - пожалуйста...

Разбор программы на записи
const x = 4; Type people = Record f,n:String; d,m,y:integer; End;...

Числовые значения. Разбор программы
Здравствуйте форумчане. Копался в интернете и наткнулся на учебник. Возникли...

1
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
14.06.2013, 16:30 2
1)Имя программы.
2)Описывает константу.
3)Описываем переменную s как строковый тип.
4)Описываем переменную i как положительное целое число в диапазоне [0..255].
5)Начало программы.
6)Выводим на экран текст.
7)Вводим текст с клавиатуры в переменную s.
8)Цикл от длинны текста до 1.
9)Если символ из строки s попадает в диапазон константы bk, тогда вставляем букву.
10)Выводим строку s на экран.
11)Конец программы.

Вторая аналогичная... (Ну почти)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2013, 16:30

Принесет ли пользу разбор чужих кодов?
Научусь ли я хорошо программировать (создавать программы) на турбо паскале если...

Разбор и решение школьных олимпиад, программы на Паскале
http://g6prog.narod.ru/

Задача на разбор числа на цифры не могу решить
Получить сумму двух натуральных чисел S = A + B. Число A вводится с клавиатуры...


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

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

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