1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
условие - Дан непустой текст из цифр, за которым следует точка. Напечатать цифру, наиболее часто встречающуюся в этом тексте (если таких цифр несколько, напечатать любую из них).
мысли такие..может кто-то поправит пожалуйста?))
program V_20; var a:array [1..100] of char; k,i,j,m,p,n:integer;
begin writeln ('vvedite text iz cifr. po oknchaniju vvoda nazmite tochku'); k:=0;
условие - Дан непустой текст из цифр, за которым следует точка. Напечатать цифру, наиболее часто встречающуюся в этом тексте (если таких цифр несколько, напечатать любую из них).
мысли такие..может кто-то поправит пожалуйста?))
program V_20; var a:array [1..100] of char; k,i,j,m,p,n:integer;
begin writeln ('vvedite text iz cifr. po oknchaniju vvoda nazmite tochku'); k:=0;
repeat readln (a[i]); k:=k+1; until a[i]<>'.'; ...
привет, ducky Ммм.. Немного многовато ошибок.. )) Но ничего, прорвемся.. Во-первых, почему у тебя массив из char? У тебя только она цифра на строку может быть? Во-вторых, у тебя неправильное условие окончания ввода, нужно
until a[i]='.';
В третьих.. зачем тебе вообще массив? Разбор и подсчет можно делать прямо при вводе. Вот, смотри, я сделал только ввод и подсчет, без нахождения максимально повторяющейся цмфры.
var s: string; i: integer; c: char;
const f: array ['0'..'9'] of integer = (0,0,0,0,0,0,0,0,0,0);
begin WriteLn('Type in text of digits, ending with a period'); repeat ReadLn(s); for i:=1 to Length(s) do if s[i] in ['0'..'9'] then Inc(f[s[i]]) until Pos('.',s)>0; for c:='0' to '9' do WriteLn(c,': ',f[c]); ReadLn end.
И вот результат работы:
Running "c:\...\f\fp101211_ducky\fp101211_ducky_lapp.exe " Type in text of digits, ending with a period 12345 23456 34567890 123 2345 3456 23. 0: 1 1: 2 2: 5 3: 7 4: 5 5: 5 6: 3 7: 1 8: 1 9: 1
Разбирайся и задавай вопросы. Когда разберешься - добавим поиск максимума )). Okay?
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
for c:='0' to '9' do WriteLn(c,': ',f[c]); этот рядочек подсчитывает количество всех цифр, которые мы ввели, да?)
Нет, Настя, этот только выводит результаты.
Подсчитывает вот этот:
if s[i] in ['0'..'9'] then Inc(f[s[i]])
А точнее, даже просто конец этой строки, то есть
Inc(f[s[i]])
Принцип такой.. Представь себе, что ты сидишь при входе на выставку. Твоя задача - подсчитать, сколько заходит мужчин, женщин, мальчиков и девочек (детей легко отличить, поскольку они проходят бесплатно). Перед тобой лежит лист бумаги, расчерченный на 4 графы: муж, жен, мал, дев. Когда заходит человек, ты добавляешь палочку в нужную графу. А потом ты подсчитаешь, сколько палочек в каждой графе..
В программе аналог этого листа - массив f, в котором как бы 10 граф - для каждой цифры по графе. Если текущая цифра на входе, например, 3, то ты должна "нарисовать палочку" в графе 3, если 0, то в графу 0, и так далее. Ты знаешь, что такое Inc(x)? Это простое увеличение x на 1, то есть эквивалентно x:=x+1. Поставить палочку в графу 3 - эквивалентно Inc(f['3']), в графу 0 - эквивалентно Inc(f['0']). Иначе говоря, мы всякий раз увеличиваем счетчик с индексом, равным самой цифре:
Inc(f[s[i]])
А задача условного оператора
if s[i] in ['0'..'9'] then
- просто не пустить в подсчет нецифровые символы (например, точку, или если случайно введут..).
Такой подсчет делается после ввода каждой строки (проходим по всей строке). Так что по окончании ввода у нас уже готов массив, представляющий собой количества вхождений каждой цифры. А то, что ты написала - это всего лишь вывод этого массива на печать. Этот вывод можно вообще убрать, поскольку условием задачи это не требуется. То есть это промежуточный вывод результатовв процессе написания и отладки программы.
Если тебе еще не совсем ясно, как это работает - спрашивай еще, не стесняйся. Даже если кажется, что вопрос глупый.
Когда разберешься с этим - сделаем поиск максимума. Хорошо? Успехов тебе.
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
хотя если серьезно, то не знаю как сформулировать. при подсчете оно должно каждой цифре присвоить 1..и если эта же цифра встречается еще раз, то еще плюс 1..и так пока всё не подсчитает..
Я, наверное, тоже.. Никак не могу понять, как ни вчитываюсь в твои слова, что же именно тебе неясно? Ты говори яснее! Смотри, у нас есть массив частот каждой буквы f. Тебе надо найти в нем максимум. Добавь еще одну переменную символьного типа:
m: char;
Потом добавь некий код в самом низу. Сначала предположим, что больше всего - нулей:
Цитата
m:= '0';
А потом пройдем по всем остальным и сравним:
for c:='1' to '9' do if f[c]>f[m] then m:=c;
После этого в переменной m будет лежать та цифра, которая встречается больше других..
writeln('naibolee chasto vstrechajushijsja element ',m)
;
Только в тексте не элементы - там буквы, цифры.. А то дойдет до того, что книгу будешь батареей называть )).
Цитата
юпииии! спасибо)
You DID it!!
Цитата
это будет сильной наглостью просить еще одну мою "халтуру" глянуть?
Задавая вопросы, ты поддерживаешь жизнь на -Мар..- тьфу, на Форуме! Спаси маленького зеленого форумчанина - создай новую тему! (они ими питаются)) Только с хорошим информативным названием.. (остальные для них ядовитые..)))
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой