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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.93
ВалерА!
1 / 1 / 0
Регистрация: 22.02.2012
Сообщений: 6
#1

В строке все буквы «а» заменить буквой «б» и наоборот,если они есть - Turbo Pascal

22.02.2012, 20:27. Просмотров 2076. Ответов 8
Метки нет (Все метки)

1.В строке все буквы «а» заменить буквой «б» и наоборот,если они есть
2. определить,является ли введенное слово палиндромом или нет,вывести об этом сообщение,при этом не производить обращение строки.
3. Во введенном целом числе найти сумму и произведение его цифр
4. задана текстовая строка,изъять из нее все символы,не являющееся цифрами. считать,что строка содержит хотя бы одну цифру.
5.дана строка. найти наибольшее количество идущих подряд цифр.
6. В предложении разделенным пробелами:
а)Найти количество слов
б)Найти самое длинное и самое маленькое слово и количество символов в нем
в)
если самых длинных и коротких слов несколько-найти их все.
7.Найти наибольший делитель трех введенных натуральных чисел
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2012, 20:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В строке все буквы «а» заменить буквой «б» и наоборот,если они есть (Turbo Pascal):

В строке все буквы "а" заменить буквой "б" и наоборот, если они есть - Turbo Pascal
В строке все буквы "а" заменить буквой "б" и наоборот, если они есть

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

Напечатать элементы матрицы, ее главной диагонали, если все они отличны от соответствующих элементов побочной диагонали и наоборот - Pascal
Пусть дана символьная квадратная матрица размерности n. Напечатайте элементы матрицы, лежащие на ее главной диагонали, если все они отличны...

Если в строке встречаются одинаковые буквы, то подсчитать их количество и заменить на (-) - Turbo Pascal
Здравствуйте.Пожалуйста помогите решить задачку!! Ввести строки состоящие из латинского алфавита: 1-я строка вводится с клавиатуры ...

Заменить в строке все буквы а на о - Turbo Pascal
помогите решить задачу: (язык программирования паскаль) Заменить в строке все буквы а на о

Заменить все буквы a на q в строке из 25 символов - Pascal
Срочно нужна помощь, не допускают до сессии!!! Нужно написать программу: 1. Заменить все буквы a на q в строке из 25 символов.

8
versa4e
trainspotting
1083 / 483 / 150
Регистрация: 11.11.2010
Сообщений: 773
22.02.2012, 22:22 #2
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s:string;
function PalWord(const str:string):boolean;
var
  i:byte;
begin
  i:=1;
  while (i<=length(str) div 2) and (str[i]=str[length(str)-i+1]) do 
    inc(i);
  if i>length(str) div 2 then PalWord:=true
  else PalWord:=false;
end;
begin
  write('Slovo->');
  readln(s);
  if PalWord(s) then writeln('Palindrom')
  else writeln('Ne palindrom');
end.
1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
22.02.2012, 22:31 #3
Цитата Сообщение от ВалерА! Посмотреть сообщение
4. задана текстовая строка,изъять из нее все символы,не являющееся цифрами. считать,что строка содержит хотя бы одну цифру.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  Str: string;
  
function ResStr(Str: string): string;
var
  Res: string;
  i: integer;
begin
  Res:='';
  for i:=1 to length(Str) do
    if Str[i] in ['0'..'9'] then Res:=Res+Str[i];
  ResStr:=Res;
end;
 
begin
  writeln('Введите строку: ');
  readln(Str);
  writeln('Резуьтат: ', ResStr(Str));
end.
Добавлено через 3 минуты
Цитата Сообщение от ВалерА! Посмотреть сообщение
3. Во введенном целом числе найти сумму и произведение его цифр
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  Chislo: integer;
 
procedure Operations(Chislo: integer);
var
  Summa, Pr, n: integer;
begin
  Summa:=0; Pr:=1;
  while Chislo > 0 do
  begin
    n:=Chislo mod 10;
    inc(Summa, n);
    Pr:=Pr*n;
    Chislo:=Chislo div 10;
  end;
  writeln('Сумма цифр числа: ', Summa, '; Произведение: ', Pr);
end;
 
begin
  writeln('Введите число: ');
  readln(Chislo);
  Operations(Chislo);
end.
1
ВалерА!
1 / 1 / 0
Регистрация: 22.02.2012
Сообщений: 6
29.02.2012, 23:35  [ТС] #4
Как объяснить if Str[i] in ['0'..'9'] then Res:=Res+Str[i];????
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
29.02.2012, 23:41 #5
Цитата Сообщение от ВалерА! Посмотреть сообщение
4. задана текстовая строка,изъять из нее все символы,не являющееся цифрами. считать,что строка содержит хотя бы одну цифру
да я и решил её неправильно..невнимательно прочел, нужно изъять символы, которые не являются цифрами, а я наоборот сделал
вот так правильно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  Str: string;
  
function ResStr(Str: string): string;
var
  Res: string;
  i: integer;
begin
  Res:='';
  for i:=1 to length(Str) do
    if not (Str[i] in ['0'..'9']) then Res:=Res+Str[i];
  ResStr:=Res;
end;
 
begin
  writeln('Введите строку: ');
  readln(Str);
  writeln('Резуьтат: ', ResStr(Str));
end.
1
ВалерА!
1 / 1 / 0
Регистрация: 22.02.2012
Сообщений: 6
29.02.2012, 23:43  [ТС] #6
Так могли бы вы объяснить мне что такое if not (Str[i] in ['0'..'9'])
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
29.02.2012, 23:43 #7
Цитата Сообщение от Ev[G
eN;2541459]
Pascal
1
if not (Str[i] in ['0'..'9']) then Res:=Res+Str[i];
если символы вводимой строки не являются цифрами(['0'..'9']), тогда записать такие символы в результирующую строку
1
ВалерА!
1 / 1 / 0
Регистрация: 22.02.2012
Сообщений: 6
01.03.2012, 00:11  [ТС] #8
Что значит ['0'..'9']??
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
01.03.2012, 00:18 #9
проверка символов входной строки на входимость в диапазон '0', '1', '2', '3', '4'..'9'
1
01.03.2012, 00:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2012, 00:18
Привет! Вот еще темы с ответами:

Матрица. Заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали - Pascal
Дана целочисленная квадратная матрица порядка n(n=4).заменить нулями все отрицательные элементы этой матрицы, если они не являются...

заменить в строке все строчные буквы заглавными - Pascal
Задача состоит в том, чтобы в строке все строчные буквы заменить заглавными (если известно что заглавные буквы находятся на 23 символа...

Заменить в строке все буквы Ch1 на Ch2 - Turbo Pascal
program task; uses crt; var ar:array of string; sl:string; a,i,j,s:integer; ch1,ch2:char; begin clrscr; writeln(''); ...

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


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

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

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