Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Генчик
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 8
#1

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

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

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

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

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

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

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

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

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

5
I2um1
Злой няш
1405 / 1103 / 142
Регистрация: 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 / 57
Регистрация: 11.08.2011
Сообщений: 2,295
Записей в блоге: 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
Злой няш
1405 / 1103 / 142
Регистрация: 05.04.2010
Сообщений: 1,949
10.10.2011, 18:43 #4
Dani, переменная p для красоты?
0
Dani
1393 / 637 / 57
Регистрация: 11.08.2011
Сообщений: 2,295
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

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

Строковые процедуры и функции: заменить в произвольном тексте все цифры на символ '*' - Turbo Pascal
Напишите программу, заменяющую в произвольном тексте все цифры на символ '*'. Помогите,пожалуйста.У меня заменяется только 1. var ...

Строковый типа данных. Во введённом слове заменить первый и последний символ на символ “*” - Turbo Pascal
2. Задание - Применение строковых процедур и функций Во введённом слове заменить первый и последний символ на символ “*”.


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

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

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