Вопрос по информатике:
Помогите написать 2 программы, срочно!!
1.Описать функцию, которая возвращает количество слов, в которых содержится хотя бы одна заданная буква.
2.Описать процедуру, которая печатает все буквы, входящие в строку менее К раз, с указанием количества вхождений.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.03.2016 20:27
- Информатика
- remove_red_eye 6930
- thumb_up 22
Ответы и объяснения 2
1)function Counter(s:string;c:char):integer;
var sub:string;
i,k:integer;
begin;
k:=0;
while pos(' ',s)0 do
begin;
for i:=1 to pos(' ',s)-1 do
sub:=sub+s[i];
if pos(c,sub)0 then inc(k);
delete(s,1,pos(' ',s));
delete(sub,1,length(sub));
end;
if pos(c,s)0 then inc(k);
Counter:=k;
end;
2)procedure StrangeSeq(s:string;k:integer);
var i,cou:integer;
sub:string;
ar:array of integer;
arc:array of char;
begin;
setlength(ar,length(s)+1);
setlength(arc,length(s)+1);
cou:=length(s);
while cou0 do
begin;
inc(i);
arc[i]:=s[1];
sub:=s[1];
while pos(sub,s)0 do
begin;
inc(ar[i]);
delete(s,pos(sub,s),1);
end;
cou:=length(s);
if (ar[i]>k) and (arc[i]' ') then
writeln('Sign:',arc[i],' count:',ar[i]);
end;
end;
- 20.03.2016 07:45
- thumb_up 41
Вот ещё варианты решения задач (покороче, без вложенных циклов):
1.
function kw(s:string; c:char):integer;
var sl:string; n,k,i:integer;
begin
n:=0; k:=0;
s:=s+'.';
for i:=1 to length(s) do
if s[i] in [' ',',',';','.']
then begin if k>0 then inc(n); k:=0; end
else if s[i]=c then inc(k);
kw:=n;
end;
var st:string; c:char;
begin
st:='program, begin, procedure, var, div, array.';
c:='r';
writeln('m=',kw(st,c));
end.
2. Здесь анализируются только строчные английские буквы. При желании можно добавить заглавные англ. и русские. Всё будет аналогично.
procedure pk(s:string;k:integer);
var a:array['a'..'z'] of integer; i:integer; c:char;
begin
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then inc(a[s[i]]);
for c:='a' to 'z' do if a[c]
var st:string; k:integer;
begin
st:='program, begin, procedure, var, div, array.';
k:=2;
pk(st,k);
end.
- 21.03.2016 09:23
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.