Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 22.12.2016
Сообщений: 9
1

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

02.03.2017, 16:45. Показов 1134. Ответов 3
Метки нет (Все метки)

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

Добавлено через 33 минуты
Вот, что набросал, но нужно доработать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var 
  c: char;
  s, p: string;
  i, z, k: integer;
begin
  p := '';
  Writeln('Введите строку:');
  Readln(s);
  Writeln('Введите z:');
  Readln(z);
  for c := 'a' to 'z' do 
    begin
      k := 0;
      for i := 1 to length(s) do 
        if s[i] = c then k := k + 1;
      if k < z then p := p + c;
    end;
  if p = '' then writeln('Нет') 
            else writeln('Меньше z: ', p);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2017, 16:45
Ответы с готовыми решениями:

Описать процедуру, которая печатает все буквы, входящие в строку более К раз, с указанием количества вхождений
PascalABC.NET - Описать процедуру, которая печатает все буквы, входящие в строку более К раз, с...

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

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

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

3
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
02.03.2017, 19:38 2
Напечатать все буквы, входящие в текст не менее двух раз
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6188 / 3709 / 2563
Регистрация: 22.11.2013
Сообщений: 10,605
Записей в блоге: 1
02.03.2017, 22:00 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  n: array ['A'..'Z'] of Integer;
  c: Char;
  i, k: Integer;
  s: String;
begin
  Write('Строка: '); ReadLn(s);
  WriteLn('Вхождений: '); ReadLn(k);
  for i:=1 to Length(s) do begin
    c:=UpCase(s[i]);
    if c in ['A'..'Z'] then Inc(n[c]);
  end;
  WriteLn('Менее ',k,'раз:');
  for c:='A' to 'Z' do if n[c]<k then Write(' ',c); WriteLn;
end.
0
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
05.03.2017, 13:46 4
bormant
Цитата Сообщение от DimaTwanted Посмотреть сообщение
с указанием количества вхождений
Вы подсчёт сделали, но не указали при выводе. Вот:
Pascal
14
for c:='A' to 'Z' do if n[c]<k then Write(c,'(',n[c],') '); WriteLn;
Добавлено через 21 минуту
И ещё
Цитата Сообщение от DimaTwanted Посмотреть сообщение
Описать процедуру
Может вот так лучше?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure V(k:integer; s: String);
  var
   c: Char;
   i: Integer;
   n: array ['A'..'Z'] of Integer;
  begin
    for i:=1 to Length(s) do begin
      c:=UpCase(s[i]);
      if c in ['A'..'Z'] then Inc(n[c]);
    end;
    WriteLn('Менее ',k,'раз:');
    for c:='A' to 'Z' do if n[c]<k then Write(c,'(',n[c],') '); WriteLn;
  end;
  
var
  s:string;
  k:integer;
begin
  Write('Строка: '); ReadLn(s);
  WriteLn('Вхождений: '); ReadLn(k);
  V(k,s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2017, 13:46

Создать программу, которая выдает буквы, входящие в текст не менее двух раз
Помогите написать код, который при вводе текста в текстбокс1на английском языке, выдает все буквы в...

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

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

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


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

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

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