Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву

@Мария123 · Регистрация: 23.01.2013

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

Помоги девчушке-блондинке с задачками! Ну никак не понимаю(((( Буду весьма благодарна,если откликнитесь!

2.Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву.

Я уверена, вас много , кому это расплюнуть!ну а мне стыдпозор(

@CodeR · 23.01.2013, 07:49

Pascal

Const mn=[' ',',','.','!','?'];
Var s,smin,s1:string;
    i:byte;
    ch:char;
Begin
    write('Введите строку: ');readln(s);
    write('Введите букву: ');readln(ch);
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if s[i] in mn then break;
    smin:=Copy(s,1,i-1);
    Delete(s,1,i);
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if Length(s1)<Length(smin) then smin:=s1;
       s1:='';
     End;
    writeln('Min слово "',smin,'"');
    writeln('Содержит оно букву "',ch,'" = ',Pos(ch,smin)>0);
    readln;
End.

@orange_rush · 23.01.2013, 09:01

на входе: programma ,,gavno
символ: g

на выходе: min слово ""
g = FALSE

@CodeR · 23.01.2013, 09:03

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

на входе: programma ,,gavno
символ: g
на выходе: min слово ""
g = FALSE

Да я зыбыл просто выставить s1<>''

Pascal

Const mn=[' ',',','.','!','?'];
Var s,smin,s1:string;
    i:byte;
    ch:char;
Begin
    write('Введите строку: ');readln(s);
    write('Введите букву: ');readln(ch);
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if s[i] in mn then break;
    smin:=Copy(s,1,i-1);
    Delete(s,1,i);
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if (Length(s1)<Length(smin))and(s1<>'') then smin:=s1;
       s1:='';
     End;
    writeln('Min слово "',smin,'"');
    writeln('Содержит оно букву "',ch,'" = ',Pos(ch,smin)>0);
    readln;
End.

@Мария123 0 / 0 / 0 Регистрация: 23.01.2013 Сообщений: 5
		1
	Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву 23.01.2013, 00:12. Показов 1017. Ответов 3 Метки нет (Все метки) Помоги девчушке-блондинке с задачками! Ну никак не понимаю(((( Буду весьма благодарна,если откликнитесь! 2.Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву. Я уверена, вас много , кому это расплюнуть!ну а мне стыдпозор( 0

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	23.01.2013, 09:01	3
	на входе: programma ,,gavno символ: g на выходе: min слово "" g = FALSE 0

	23.01.2013, 09:03