Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
vadim_9525
0 / 0 / 0
Регистрация: 02.12.2014
Сообщений: 11
1

Определить длину строки и количество букв «а» в ней

22.12.2014, 13:37. Просмотров 891. Ответов 1
Метки нет (Все метки)

Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и количество букв «а» в ней.
1)вывести самое короткое слово в столбик.

помогите пожалуйста)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2014, 13:37
Ответы с готовыми решениями:

Определить длину введенной строки и количество букв "а" в ней
Ввести фамилию, имя и отчество как одно данное строкового типа.Определить длину...

Определить длину строки и количество букв "а" в ней
10.1) Ввести фамилию, имя и отчество(Потапова Ирина Сергеевна) как одно данное...

Определить длину строки и количество букв "а" в ней
Ввести ФИО как одно данное строкового типа. Определить длину строки и...

Для каждой строки исходного файла определить номер строки и количество срок в ней
Для каждой строки исходного файла определить номер строки и количество срок в...

Определить длину введенной строки и количество букв "а" в нём
нужно написать такую вот задачку, она состоит из двух частей : (1)Введите...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3881 / 2863 / 3639
Регистрация: 05.06.2014
Сообщений: 14,066
23.12.2014, 12:56 2
Лучший ответ Сообщение было отмечено vadim_9525 как решение

Решение

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
41
42
43
44
45
uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}
var
  t:string;
  i,k:integer;
 
function TheShortestWord(s:string):string;
{ (C) Inadequate }
var
  temp,min:string;
  i:integer;
begin
  temp:='';
  min:=s;
  {пробегаем всю строку посимвольно}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if Length(temp)<Length(min) then
          min:=temp;
        temp:='';
      end;
  end;
  TheShortestWord:=min;
end;
 
begin
  clrscr;
  k:=0; 
  writeln('Введите строку...');
  readln(t);
  writeln('Длина строки: ',Length(t));
  for i:=1 to length(t) do
    if t[i]='а' then
      inc(k);
  writeln('Количество букв "а": ',k);
  writeln('Самое короткое слово: ',theshortestword(t));
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2014, 12:56

Нужно найти длину всей строки и количество букв а в строке
В одной строке вводится фамилия, имя, очество. Нужно найти длину всей строки и...

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

Строки. В тексте найти, какая из букв первого слова встречается чаще и определить количество ее повторений.
Вводится текст. Конец ввода F1. В тексте найти, какая из букв первого слова...


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

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

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