Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 21.11.2015
Сообщений: 5
1

Вывести на экран порядковый номер слова минимальной длины в строке, и количество неповторяющихся символов

26.11.2015, 19:06. Показов 1781. Ответов 3
Метки нет (Все метки)

Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Выведите на экран порядковый номер слова минимальной длины и количество неповторяющихся символов в этом слове.

Данные вводить из текстового файла и выводить в новый текстовый файл.

код для ввода строки
Delphi
1
2
3
4
5
6
7
8
9
10
var s,s1,s2: String;
    k,i: Integer;
procedure vvodstr(var s:string);
var fin:TextFile;
begin
  AssignFile(fin,'File1.txt');
  Reset(fin);
  readln(fin,s);
  CloseFile(fin);
end;
Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2015, 19:06
Ответы с готовыми решениями:

Вывести на экран порядковый номер слова минимальной длины и количество неповторяющихся символов в слове
Помогите пожалуйста зарешать Дана строка символов, состоящая из произвольного текста, слова...

Вывести на экран порядковый номер слова минимальной длины и количество символов в этом слове
народ плиз помогите написать прогу в с++ Дана строка символов, состоящая из произвольного текста,...

Вывести на экран порядковый номер слова минимальной длины и количество символов в этом слове
Здравствуйте. Меня интересует вопрос по работе с компонентом TComboBox. У меня есть задание:...

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

3
0 / 0 / 0
Регистрация: 21.11.2015
Сообщений: 5
27.11.2015, 19:06  [ТС] 2
Вот код для вывода порядкового номера, дальше не знаю как сделать

Delphi
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 Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:string;
      i,j,k,z,l,d:integer;
 
begin
  k:=0;
  z:=0;
  l:=100;
  d:=0;
Readln(s);
 
for i:=1 to Length(S)+1 do
    begin
        if s[i] <> ' ' then
        begin
         Inc(k);
 
        end;
        if (s[i] = ' ') or (i = length(s)) then
        begin
          Inc(z);
          if k<l then
           begin
             d:=z;
             l:=k;
           end;
          k:=0;
 
     end;
     end;
 
Writeln('Poryadkoviy nomer: ',d);
Readln;
 
end.
0
0 / 0 / 0
Регистрация: 21.11.2015
Сообщений: 5
27.11.2015, 19:08  [ТС] 3
Условие: Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Выведите на экран порядковый номер слова минимальной длины и количество неповторяющихся символов в этом слове.

Код который написал:
Delphi
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 Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:string;
      i,j,k,z,l,d:integer;
 
begin
  k:=0;
  z:=0;
  l:=100;
  d:=0;
Readln(s);
 
for i:=1 to Length(S)+1 do
    begin
        if s[i] <> ' ' then
        begin
         Inc(k);
 
        end;
        if (s[i] = ' ') or (i = length(s)) then
        begin
          Inc(z);
          if k<l then
           begin
             d:=z;
             l:=k;
           end;
          k:=0;
 
     end;
     end;
 
Writeln('Poryadkoviy nomer: ',d);
Readln;
 
end.
Программа выводит порядковый номер самого короткого слова, мне нужно еще вывести само это слово, как это сделать. Еще все это надо с текстовыми файлами сделать. Помогите пожалуйста.
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.11.2015, 20:25 4
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Classes, //для создания списка TStringlist
  Windows; //для отображения русского текста
var t:TStringlist;
    s:string;
    i,k,min,nom:integer;
    mn:set of char;
begin
SetConsoleCP(1251);
SetConsoleOutPutCP(1251);
t:=TStringlist.Create;//создаем список
t.LoadFromFile('1.txt');//грузим в него файл в папке с программой
t.DelimitedText:=t.Text;//разделяем на слова
min:=maxint;
nom:=0;
for i:=0 to t.Count-1 do
if length(t[i])<min then  //находим самое короткое
 begin
  min:=length(t[i]);//длина короткого
  s:=t[i]; //слова
  nom:=i+1; //его номер
 end;
t.Free;
mn:=[];//считаем разные буквы
k:=0;
for i:=1 to length(s) do
if not(s[i] in mn) then
 begin
  mn:=mn+[s[i]];
  k:=k+1;
 end;
Writeln('Порядковый номер=',nom,'  слово=',s,'  разных букв=',k);
Readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2015, 20:25

Дана строка. Вывести на экран порядковый номер слова минимальной длины и количество символов в этом слове.
Помогите в решении, пожалуйста. Дана строка символов, состоящая из произвольного текста, слова...

Вывести порядковый номер слова минимальной длины и количество символов в этом слове
Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Вывести на...

Вывести на экран порядковый номер слова минимальной длины
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены...

Вывести на экран порядковый номер слова минимальной длины...
Доброго времени суток, помогите пожалуйста написать код Дана строка символов, состоящая из...


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

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

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