Помогите найти ошибки в задачи на функцию |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Помогите найти ошибки в задачи на функцию |
spektr |
Сообщение
#1
|
Пилотус Группа: Пользователи Сообщений: 101 Пол: Женский Реальное имя: Настасья Репутация: 2 |
Помогите пожалуйста!Совсем ноль!!!
Описать функцию f(s, n, х), определяющую, какой символ реже других ( но не нуль раз ) встречается в строке s и сколько раз он в нее входит. Если таких символов несколько, то взять первый из них по алфавиту. Надеюсь на Вашу помощь!!! Сообщение отредактировано: spektr - |
spektr |
Сообщение
#2
|
Пилотус Группа: Пользователи Сообщений: 101 Пол: Женский Реальное имя: Настасья Репутация: 2 |
Вот готовая программа,но препод говорит,есть ошибки,какого-то условия не хватает... Помогите пожалуйста их найти неточности...
procedure Stat(source: string); var chars: array[0..255] of Word; n, k: Integer; begin for n:=0 to 255 do chars[n]:=0; for n:=1 to length(Source) do begin k:=ord(Source[n]); chars[k]:=chars[k] + 1 end; for n:=0 to 255 do if chars[n] > 0 then Write(chr(n),'' - '', chars[n]:3,'' ''); WriteLn; end; VAR S: String; BEGIN Write(''Type the string: ''); ReadLn(S); Stat(S); END. |
volvo |
Сообщение
#3
|
Гость |
Я бы вот так сделал:
procedure Stat(source: string); |
Текстовая версия | 29.03.2024 2:29 |