Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
artik
10 / 10 / 3
Регистрация: 08.02.2010
Сообщений: 62
#1

В заданном тексте удалить из текста пробелы - Turbo Pascal

08.02.2010, 22:27. Просмотров 555. Ответов 1
Метки нет (Все метки)

строки
1)Дана строка состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв во ведённом тексте.
2)2. В заданном тексте удалить из текста пробелы и подсчитать длину сформированного текста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2010, 22:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В заданном тексте удалить из текста пробелы (Turbo Pascal):

Заменить в заданном тексте буквосочетание «abc» на «klmn» и удалить лишние пробелы
Составить программу, которая заменяет в заданном тексте буквосочетание «abc» на...

В заданном тексте удалить из текста
решить в паскале . В заданном тексте удалить из текста пробелы и подсчитать...

Удалить в заданном тексте часть текста
Удалить в заданном тексте часть текста,заключенную в скобки(вместе со скобками)

В заданном тексте удалить часть текста заключённого в скобки
помогите! в заданном тексте удалить часть текста заключённого в скобки!!

Удалить лишние пробелы в тексте, оставляя их по одному
нужно удалить лишние пробелы в тексте оставляя их по одному . в моей проге...

Удалить пробелы из текста
Помогите соединить 2 программы Условие: Дан текст. Удалить в нем все лишние...

1
Tom_Sawyer
88 / 88 / 56
Регистрация: 05.12.2009
Сообщений: 134
08.02.2010, 22:39 #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
uses crt;
var
f,g:text;
s:string;
len:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
len:=0;
while not eof(f) do
 begin
  readln(f,s);{читаем строки}
  while pos(' ',s)>0 do delete(s,pos(' ',s),1);{удаляем пробелы}
  len:=len+length(s);{считаем общую длину}
  writeln(g,s);{переписываем в новый файл без пробелов}
 end;
close(f);
close(g);
writeln('Длина сформированного текста=',len);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2010, 22:39
Привет! Вот еще темы с решениями:

В заданном тексте удалить символ
В заданном тексте удалить символ <,> и подсчитать количество удаленных символов.

Удалить из текста все пробелы
1.Добавить новый элемент в упорядоченный по возрастанию массив, не нарушая его...

В заданном тексте удалить все пропуски
Вот несколько заданий, прошу выслать код 1.В заданном тексте удалить из текста...

Составить программу, которая заменяет в тексте, заданном с клавиатуры, буквы "k" на пробелы
Помогите пожалуйста с заданием по Паскалю. Заранее благодарю. Составить...


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

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

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