Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Генчик
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 8
1

Все цифры, содержащиеся в самом длинном слове этого массива, заменить на символ «*»

10.10.2011, 15:21. Просмотров 828. Ответов 5
Метки нет (Все метки)

Дан массив из n слов произвольной длины (длина слова не превышает 80 символом). Элементами слов могут быть любые графические символы. Все цифры, содержащиеся в самом длинном слове этого массива, заменить на символ «*».
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2011, 15:21
Ответы с готовыми решениями:

Найти и вывести в самом длинном слове все символы, отличные от заглавных латинских букв
Решить задачу с помощью паскаль

Вывести все четные цифры, содержащиеся в слове наибольшей длины
1.Как сделать так, чтобы при выводе информации о количестве повторений каждого...

Вывести все четные цифры, содержащиеся в слове наибольшей длины
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов)....

Переставить буквы в алфавитном порядке в самом длинном слове
Помогите, пожалуйста. Дана последовательность слов длиной N. Слова состоят...

Множество. Найти количество гласных букв в самом длинном слове
Заданная последовательность слов разделенных пробелами. Найти количество...

5
I2um1
Злой няш
1408 / 1106 / 374
Регистрация: 05.04.2010
Сообщений: 1,949
10.10.2011, 18:20 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var word : array[1..100] of string; i, n, max : integer;
begin
   repeat write('n = '); readln(n)
   until n > 0;
   max := 1;
   for i := 1 to n do begin
      write('word[', i, '] = '); readln(word[i]);
      if length(word[i]) > length(word[max]) then max := i
   end;
   for i := 1 to length(word[max]) do begin
      if (ord(word[max][i]) >= ord('0')) and (ord(word[max][i]) <= ord('9'))
      then begin
         delete(word[max], i, 1);
         insert('*', word[max], i)
      end
   end;
   writeln('Результат: ', word[max])
end.
0
Dani
1393 / 637 / 134
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
Завершенные тесты: 1
10.10.2011, 18:24 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var word: array[1..100] of string;
    n,i,p: longint;
    s: string;
begin
readln (n);  p:= -1;
for i:= 1 to n do
begin
readln (word[i]);
if length(word[i])>length(s) then  s:= word[i];
end;
for i:= 1 to length(s) do if s[i] in ['0'..'9'] then s[i]:= '*';
writeln (s);
end.
Так проще
0
I2um1
Злой няш
1408 / 1106 / 374
Регистрация: 05.04.2010
Сообщений: 1,949
10.10.2011, 18:43 4
Dani, переменная p для красоты?
0
Dani
1393 / 637 / 134
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
Завершенные тесты: 1
10.10.2011, 18:44 5
Цитата Сообщение от Blood-Angel Посмотреть сообщение
Dani, переменная p для красоты?
Осталась с beta-версии =))
0
Генчик
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 8
10.10.2011, 18:46  [ТС] 6
спасибо ребят)
0
10.10.2011, 18:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2011, 18:46

В самом коротком слове все согласные буквы заменить буквой А
Создать программу заданной обработки массива слов.В процессе обработки...

В самом коротком слове все согласные буквы заменить на букву «A».
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов)....

Заменить в строке все цифры на символ буквы А
Задана строка в длину 15, заменить в строке все цифры на символ буквы А


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

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

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