Максимальный и минимальный символы в строке

@GeneralMotors · Регистрация: 03.11.2009

Студворк — интернет-сервис помощи студентам

Ввести строку символов. Определить максимальный и минимальный символы в строке. Вывести на экран максимальный и минимальный символы и номера их позиций.

p.s. С меня +

@Snoopy · 23.11.2009, 00:22

а как определить максимальный символ?

@GeneralMotors · 23.11.2009, 00:24 **[ТС]**

так я это и спрашиваю

@Snoopy · 23.11.2009, 00:26

ну а пример привести можешь, что-то я не слабо представляю найти минимальный символ!

@GeneralMotors · 23.11.2009, 00:37 **[ТС]**

Pascal
1
2
3
4
5
6
7
st:string;
readln(st);
max:=st(2);
for i:=1 to length(st) do
begin
if st[i]>max then max:=st[i]
end;

Думаю так ищут

@John_Pa9JIbHuK · 23.11.2009, 00:50

поидее у строковых типов сравнивают их длины а тут 1 символ как их можно сравнить???по коду чтоли?

Добавлено через 2 минуты

Сообщение от GeneralMotors

st:string;
readln(st);
max:=st(2);
for i:=1 to length(st) do
begin
if st[i]>max then max:=st[i]
end;
Думаю так ищут

даже если ты прав ты почти сам все написал зачем тода просишь себе помочь?

@GeneralMotors · 23.11.2009, 00:53 **[ТС]**

хотел спросить у профессионалов как искать max и min символы. Вдруг я не прав

@кот Бегемот · 23.11.2009, 01:09

Если так, как написано в примере программы, то определится символ с мин и макс кодом.

Pascal
1
2
3
4
5
6
7
st:string;
readln(st);
max:=st(2);
for i:=1 to length(st) do
begin
if st[i]>max then max:=st[i]
end;

А почему

Pascal
1
max:=st[2]

а не

Pascal
1
max:=st[1]

@GeneralMotors · 23.11.2009, 01:31 **[ТС]**

почему-то в некоторых циклах при поиске min или max и при задании переменной первого значения массива (возможно и строки) цикл не меняет значение пременной. Так, например, max=St(1) так и остается равным st(1).

@Inadequate · 23.11.2009, 02:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  max,min:char;
  s:string;
  i:integer;
begin
  readln(s);
  max:=s[1];
  min:=max;
  for i:=2 to length(s) do
    if ord(s[i]) in [192..255,65..90,97..121] then
    begin
      if ord(s[i])>ord(max) then
        max:=s[i];
      if ord(s[i])<ord(min) then
        min:=s[i]
    end;
  writeln('Максимальный: ',max,'. Минимальный: ',min)
end.

(!) но тут надо помнить что верхний регистр идет по коду раньше чем нижний...

@GeneralMotors · 30.11.2009, 13:20 **[ТС]**

Сообщение от Inadequate

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  max,min:char;
  s:string;
  i:integer;
begin
  readln(s);
  max:=s[1];
  min:=max;
  for i:=2 to length(s) do
    if ord(s[i]) in [192..255,65..90,97..121] then
    begin
      if ord(s[i])>ord(max) then
        max:=s[i];
      if ord(s[i])<ord(min) then
        min:=s[i]
    end;
  writeln('Максимальный: ',max,'. Минимальный: ',min)
end.

(!) но тут надо помнить что верхний регистр идет по коду раньше чем нижний...

if ord(s[i]) in [192..255,65..90,97..121] then
зачем эта строка?

@TAVulator · 30.11.2009, 13:23

Сообщение от GeneralMotors

if ord(s[i]) in [192..255,65..90,97..121] then

это проверка - входит ли текущий символ в область "нормальных" (читабельных) букв.

@Inadequate · 30.11.2009, 13:25

GeneralMotors, это можно заменить на ['A'..'Z','a'..'z','А'..'Я','а'..'я']. Т.е. данная строка для того чтобы не рассмотривать "лишние" символы. Только буквы. А вообще Puporev решил Вам эту задачу, лучше чем у меня. Потому как у него насколько я помню, еще и позицию запоминала прога, а у меня нет.

@GeneralMotors · 01.12.2009, 13:45 **[ТС]**

спасибо всем. теперь понял

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@GeneralMotors 0 / 0 / 0 Регистрация: 03.11.2009 Сообщений: 25

	Максимальный и минимальный символы в строке 23.11.2009, 00:21. Показов 4010. Ответов 13 Метки нет (Все метки) Ввести строку символов. Определить максимальный и минимальный символы в строке. Вывести на экран максимальный и минимальный символы и номера их позиций. p.s. С меня + 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	23.11.2009, 00:22
	а как определить максимальный символ? 0

@GeneralMotors 0 / 0 / 0 Регистрация: 03.11.2009 Сообщений: 25
	23.11.2009, 00:24 [ТС]
	так я это и спрашиваю 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	23.11.2009, 00:26
	ну а пример привести можешь, что-то я не слабо представляю найти минимальный символ! 0

@GeneralMotors 0 / 0 / 0 Регистрация: 03.11.2009 Сообщений: 25
	23.11.2009, 00:53 [ТС]
	хотел спросить у профессионалов как искать max и min символы. Вдруг я не прав 0

@GeneralMotors 0 / 0 / 0 Регистрация: 03.11.2009 Сообщений: 25
	23.11.2009, 01:31 [ТС]
	почему-то в некоторых циклах при поиске min или max и при задании переменной первого значения массива (возможно и строки) цикл не меняет значение пременной. Так, например, max=St(1) так и остается равным st(1). 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	30.11.2009, 13:25
	GeneralMotors, это можно заменить на ['A'..'Z','a'..'z','А'..'Я','а'..'я']. Т.е. данная строка для того чтобы не рассмотривать "лишние" символы. Только буквы. А вообще Puporev решил Вам эту задачу, лучше чем у меня. Потому как у него насколько я помню, еще и позицию запоминала прога, а у меня нет. 0

@GeneralMotors 0 / 0 / 0 Регистрация: 03.11.2009 Сообщений: 25
	01.12.2009, 13:45 [ТС]
	спасибо всем. теперь понял 0