Удалить из нее все слова, начинающиеся с буквы «а». - 29 Мая 2012 - Блог - Сайт заготовки для Дельфи&Pascal

Меню сайта

Поиск по сайту

Контакты

как написать программу заказ работы на Pascal Заказ работы на Delphi пишите вопросы по Delphi / Pascal ICQ 368-254-335

on-line Консультация Pascal/Delphi

Вконтакте

МТС Уфа +7 917 74 25 326 мой сайт //netsoftware.ucoz.ru

Наш опрос

Добавить

Календарь

Архив

Полезные ссылки

История интернета

Интересные факты

Переводчик от google

Официальный блог

Сообщество uCoz

FAQ по системе

Инструкции для uCoz

Теги

Автор динамически создаваемые Примеры работ публикатор Alpha. draw Обрисовка n-угольника рисуем квадрат рисуем треугольник рисуем шестиугольник Dlina Ugol векторное изображение Угол наклона Pascal ABC PascalABC. Firebird sql программа выполнения скриптов по ра delphi пересечение Одномерный массив Формирование массива в заданных диа Целочисленные массивы Элементы кратные числу Горячие клавиши в Delphi получаем IP адрес Получение слова из строки Процедура выравнивания регистров Спискок знаков препинания Преобразовать строку пример работы со строками cosh sinh tanh delphi заготовки delphi примеры работ Proxy прокси Combobox myInputbox Pascal Mod pascal mod операторы pascalб стандартные опера CSV CSV файл StringGrid TStringGrid задачи матрицы

Статистика

Архив записей

Число on-line

Поддержка сайта

Хотите помочь сайту (работой) пишите в аську или контакт

50 руб.

yandex 410011013695809
qiwi 9177425326
R132677785853

Главная » 2012 » Май » 29 » Удалить из нее все слова, начинающиеся с буквы «а».

08:17

Удалить из нее все слова, начинающиеся с буквы «а».


Дана строка символов до точки. Удалить из нее все слова, начинающиеся с буквы «а».




uses crt;
var s,sub:string;
 i,n:integer;
 a:array[1..100] of string;
 ch:char;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
 inc(n);
 a[n]:=sub;
 sub:='';
 end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
writeln('Input char');
readln(ch);
for i:=1 to n do
 if a[i][1]<>ch then write(a[i],' ');
end.


автор KaLLIaK 
http://programmersforum.ru/member.php?u=208004
с сайта 
http://programmersforum.ru/showthread.php?t=202877

1
2
3
4
5

Просмотров: 5427 | Добавил: NetSoftWare | Рейтинг: 0.0/0

Всего комментариев: 1

Порядок вывода комментариев:

1 Eugenecot (23.04.2024 10:59)

0

Hello dear friend, I would like to offer placement of your link (or links) on different platforms of the internet such as: forums, blogs, comments and much more. . .

Increase your Visibility Boost Your Seo Rank - Get Organic Traffic From Google. Ranking in Google isn’t hard. All you need is a healthy number of backlinks from referring domains that have authority and trust in Google’s eyes.

This Backlinks Service Benefits:

1. Easily get Google rankings

2. Get a lot of traffic from Google

3. You can earn from the website in different ways

4. Increase Domain Authority (DA)

Quality guaranteed !

PRICE - 20$

WebSite - https://goo.su/CHM5cJW