Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.06.2016
Сообщений: 2
1

Множества.Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте

21.06.2016, 18:49. Показов 3037. Ответов 3
Метки нет (Все метки)

Переделать код,чтобы там были множества.Или написать новый код с множествами
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PROGRAM pr1;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then 
write('в тексте больше букв')
else write('в тексте больше чисел');
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2016, 18:49
Ответы с готовыми решениями:

Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте
привет помоги пожалуйста решить задачу по практике,буду очень благодарен(4. Дан текст из строчных...

Определить, каких элементов в массиве больше цифр или строчных латинских букв
Дан массив из символов, определить каких элементов в массиве больше цифр или строчных латинских...

Дан текст из цифр и строчных латинских и русских букв, за которым следует точка. Определить какие цифры не входят
Дан текст из цифр и строчных латинских и русских букв, за которым следует точка. Определить какие...

Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.
&quot;Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.&quot;...

3
Эксперт С++
1605 / 936 / 778
Регистрация: 06.02.2016
Сообщений: 2,425
Записей в блоге: 30
21.06.2016, 19:37 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
25
program pr;
const
  z: set of char = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
  bt: set of char = ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'w', 'x', 'y', 'z','l'];
  var
  s: string;
  i, coutz, coutb: integer;
begin
  coutz := 0;
  coutb := 0;
  writeln('Введите текст');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in z then
    begin
      coutz := coutz + 1;
    end
    else if s[i] in bt then
    begin
      coutb := coutb + 1;
    end;
    writeln;
  if coutz > coutb then writeln('Цифр в тексте больше') 
  else writeln('Букв в тексте больше');
end.
0
2509 / 1130 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
21.06.2016, 23:25 3
так не проще?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s: string;
  i, coutz, coutb: integer;
begin
  coutz := 0;
  coutb := 0;
  writeln('Введите текст');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then  coutz := coutz + 1
    else
      if s[i] in ['a'..'z'] then  coutb := coutb + 1;
 
  if coutz > coutb then writeln('Цифр в тексте больше') 
  else if coutb > coutz then writeln('Букв в тексте больше')
  else writeln('Букв и цифр  в тексте поровну');
  Readln
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6165 / 3693 / 2556
Регистрация: 22.11.2013
Сообщений: 10,530
Записей в блоге: 1
22.06.2016, 09:05 4
Или так
Pascal
9
10
11
12
  for i := 1 to length(s) do begin
    Inc(coutz,Ord(s[i] in ['0'..'9']));
    Inc(coutb,Ord(s[i] in ['a'..'z']));
  end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2016, 09:05

Дан файл, содержащий произвольный текст. Выяснить, чего в нём больше: гласных английских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нём больше: гласных английских букв или...

Определить каких элементов в массиве больше - цифр или латинских букв
Помогоите решить пожалуйста. задание: Дан массив. Определить каких элементов в массиве больше -...

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

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


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

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

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