Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 03.09.2015
Сообщений: 48
1

Дан текст. Замена латинских букв на "!", замена гласных русских букв на "-", подсчёт цифр в тексте

11.09.2015, 16:10. Показов 1578. Ответов 1
Метки нет (Все метки)

Условие. Написать программу на языке Паскаль (можно и в среде Delphi 7.0), реализующую решение задачи с использованием структурированного типа данных: множества (обязательно!) согласно варианту. Программу просчитать для различных исходных данных.

Разработать программу, которая во введенном тексте заменяет все латинские буквы на символ “!”, все гласные русские буквы на знак “–“ и подсчитать количество цифр. На печать выдавать исходный текст, количество цифр и преобразованный текст.

Мне кажется что мой код не совсем соответствует условию. Всё ли верно сделано?

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
25
26
27
28
29
30
31
32
33
34
35
36
const
  n=['0'..'9'];
  Letters=['A'..'Z', 'a'..'z'];
  Letters2=['А','У','О','Ы','И','Э','Я','Ю','Ё','Е','а','у','о','ы','и','э','я','ю','ё','е'];
var
  s,s2: String;
  i,k: Integer;
begin
Writeln('Исходный текст: ');
Readln(s);
 
//заменяем латинские буквы на "!"
s2:=' ';
for i:=1 to length(s) do
 begin
 If s[i] in Letters then
  s[i]:='!';
s2:=s2+s[i];
end;
 
//заменяем гласные русские буквы на "-"
s2:=' ';
for i:=1 to length(s) do
 begin
 If s[i] in Letters2 then
  s[i]:='-';
s2:=s2+s[i];
end;
 
//считаем количество цифр
For i:=1 to Length(s) do
If s[i] in n Then Inc(k);
 
writeln('Общее количество цифр = ',k);
writeln('Преобразованный текст: ',s2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2015, 16:10
Ответы с готовыми решениями:

Строки.Замена букв "а" и "я" на сочетание "йа".
Смысл здачи заключается в замене определенных симлов на другие.Я написал програмку для удаления...

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун"
Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и...

Замена букв "а" на "б" и наоборот
сделал программу которая заменяет буквы "б" на "а" теперь еще как сделать, чтобы если в тексте были...

Напишите программу подсчета суммарного числа бука "а" и "б" в заданном тексте. Вывести на экран сообщение, каких букв больше
Напишите программу подсчета суммарного числа бука "а" и "б" в заданном тексте. Вывести на экран...

1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
11.09.2015, 16:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  n=['0'..'9'];
  Letters=['A'..'Z', 'a'..'z'];
  Letters2=['А','У','О','Ы','И','Э','Я','Ю','Ё','Е','а','у','о','ы','и','э','я','ю','ё','е'];
var
  s: String;
  i,k: Integer;
begin
Writeln('Исходный текст: ');
Readln(s);
//заменяем латинские буквы на "!"
//заменяем гласные русские буквы на "-"
//считаем количество цифр
k:=0;
For i:=1 to Length(s) do
if s[i] in Letters then s[i]:='!'
else if s[i] in Letters2 then s[i]:='-'
else if s[i] in n then inc(k);
writeln('Общее количество цифр = ',k);
writeln('Преобразованный текст: ',s);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.09.2015, 16:26

Заменить букву "А" на "КО" и подсчитать общее количество букв "Ф" и "В"
Заменить букву "А" на "КО" и подсчитать общее кол-во букв "Ф" и "В" . и Последнее...

Сформировать вектор: если в строке матрицы букв больше цифр, то элемент вектора -"истина", иначе "ложь"
Случайным образом заполнить матрицу символов 6х6.сформировать вектор в строке матрицы строчных...

Составить программу замены в слове X всех букв "а" и "я" на слог "ба"
Доброго времени суток! Помогите, пожалуйста, с задачей. Нужно составить программу замены в слове X...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru