Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
16 / 19 / 0
Регистрация: 10.02.2011
Сообщений: 157
1

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

14.04.2011, 11:23. Показов 1046. Ответов 5
Метки нет (Все метки)

Добрый день форумчане!!! Можете помочь с задачкой?!

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

Заранее огромное спасибо!
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.04.2011, 11:23
Ответы с готовыми решениями:

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

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

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

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

__________________
5
52 / 52 / 12
Регистрация: 08.04.2010
Сообщений: 261
14.04.2011, 15:54 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i_put,o_put:string;
    i:integer;
Begin
readln(i_put);
for i:=1 to length(i_put) do
 begin
  if pos(i_put[i],o_put)=0
   then begin
         if pos(i_put[i],copy(i_put,i+1,length(i_put)))<>0
          then o_put:=o_put+copy(i_put,i,1);
        end;
 end;
writeln(o_put);
readkey;
End.
Как то так)))
1
16 / 19 / 0
Регистрация: 10.02.2011
Сообщений: 157
14.04.2011, 19:01  [ТС] 3
можешь подправить немного код... программа слитно буквы выдает... сделай плз что нить
1
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
14.04.2011, 20:23 4
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
37
38
39
40
program Project1;
 
var
  S : String;
  Arr : array['a'..'z'] of Integer;
  Ch : Char;
  i, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Обнуляем элементы массива.
    for Ch := 'a' to 'z' do Arr[Ch] := 0;
 
    //Анализируем строку.
    Len := Length(S);
    for i := 1 to Len do Inc(Arr[S[i]]);
 
    //Формируем строку результата.
    S := '';
    for Ch := 'a' to 'z' do begin
      if Arr[Ch] >= 2 then begin
        if S <> '' then S := S + ', ';
        S := S + Ch;
      end;
    end;
 
    //Ответ.
    if S <> '' then begin
      Writeln('Список строчных латинских букв, которые встречаются в тексте не менее двух раз:');
      Writeln(S);
    end else begin
      Writeln('Нет ни одной строчной латинской буквы, которая встречалась бы в тексте не менее двух раз.');
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
1
16 / 19 / 0
Регистрация: 10.02.2011
Сообщений: 157
14.04.2011, 20:40  [ТС] 5
спасибо большое... все просто идеально...

---
Mawrat: Пожалуйста.
0
Nike31
12.12.2011, 21:52 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program lab8;
var c: char;
    s,sd:set of char;
    begin
    s:=[];
    sd:=[];
    repeat
      read(c);
      if c in s 
        then sd:=sd+[c]
        else
           s:=s+[c];
     until c='.';
     s:=sd-['.'];
     for c:=#33 to #255 do
      if (c in s) then write(c:3)
 end.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2011, 21:52

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Множества. Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз
Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст...

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

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

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

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


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

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

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