Строки и буквы Опции

[симав]

Извини, про inc не заметила.

[симав]

Большое спасибо, очень помогли! :D

[симав]

Код

var st:string;
i,k:integer;
begin
k := 0;
writeln('st');
readln(st);
for i := 1 to length(st) do
if st[i] in ['.', '?', '!'] then k:=k+1;
writeln('k=',k);
end.

Что здесь значит in?

симав, давайте все-таки пользоваться тегами...

Сообщение отредактировано: volvo - 5.04.2005 22:55

[klem4]

in - операция вхождения в множество, в твоем случае проверяет, является ли элемент строки st[i] одним из следующих символов : '.', '!','?'

[симав]

А можно как-нибудь без in обойтись? Ну, заменить чем-нибудь?

[klem4]

конечно можно. например так :

Код

if (st[i]='!')or(st[i]='.')or(st[i]='?') then begin ....

ЗЫ когда думать начнем ? ;)

Сообщение отредактировано: klem4 - 5.04.2005 22:47

[симав]

Извиняюсь!!!!!!!!!!!!!!!! Что-то я туплю!!! :D
Спасибки! :obm: :p9:

Сообщение отредактировано: симав - 5.04.2005 22:55

[симав]

Всем спасибо за помощь! Поставили 5! Дали еще три задачки, если сама не справлюсь, то обращусь.
:p1: :p4:

Сообщение отредактировано: симав - 6.04.2005 17:18

[симав]

И снова я! :D Три задачки:
1) Подсчитать количество слов в тексте, начинающихся на "k".
2) Составить программу перестановки левой и правой частей текста с четным количеством символов.
3) Преобразовать текст, удалив из него все "*", предшесвующих 1-ой точке, и заменить на "+" все "3", встречающихся после 1-ой точки.

Код

1)var s:string;
        i,n:integer;
begin
n:=0;
writeln('s='); readln(s);
for i:=1 to length(s) do
if s[i]='k' then n:=n+1;
writeln(s);
end.

здесь у меня почему-то считает все буквы "к".

Код

3)   var st:string;
i:integer;
begin
writeln('st');
readln(st);
i:=pos('.',s);
delete(s,pos('*',s),1);
for i := 1 to length(st) do
if st[i]='3' then s[i]:='+';
writeln(st);
end.

На "+" заменяет, а "*" не удаляет.
Что не так?

[Altair]

3.

var
 s:string;
 i:byte;
begin
 readln(s);
 if pos('.',s)<>0 then
 begin
   while (pos('*',s)<>0) and (pos('*',s)<pos('.',s)) do delete(s,pos('*',s),1);
   for i:=pos('.',s) to length(s) do if s[i]='3' then s[i]:='+'
 end  else writeln('Нет точки!');
 writeln(s);
 readln;
end.

[klem4]

2)

Код

var s:string;
   t:char;
   i:byte;
Begin
  readln(s);
  if odd(length(s)) then
    writeln( 'Строка не четная')
     else
      for i:=1 to length(s) div 2 do
       begin
           t:=s[i];
          s[i]:=s[length(s)-i+1];
          s[length(s)-i+1]:=t;
       end;
   writeln(s);
   readln;
end.

Сообщение отредактировано: klem4 - 7.04.2005 21:36

[симав]

А в 1-ой что ни так?

[Altair]

1.

var
 s:string;
r:set of char; i,k:byte;
begin
 r:=['.',' ',';'];
 readln(s);
 for i:=1 to length(s) do
 begin
  if i=1 then
  begin
   if s[1]='k' then inc(k);
  end else
  begin
   if (s[i]='k') and (s[i-1] in r) then inc(k);
  end
 end;
 writeln(k);
end.

r - множество разделителей. между словами.

[симав]

Что-то с 3-ей задачей намудрил...
А зачем в 1-ой разделитель?

А разделитель затем, что бы слова резделять!!!! Ты думаешь слова разделяются только пробелами??? А запятые, точки и прочие знаки препинания, это по твоему что????

Сообщение отредактировано: Oleg_Z - 7.04.2005 21:33

[Altair]

симав, может т ыхочешь сказать, что она не работает???
А если нет, а ты не понимаешь,что та мнаписанно,то бери книгу по Паскалю, и читай!

Вопросы по АЛГОРИТМУ еще будут???
Здесь именно на такиевопросы отвечают, а не на вопросы "а что такое byte или что такое integer" ....
еще раз - берем книгу и читаем!!!

[симав]

Извините, меня! В 9-ом классе этого не проходят!!!! :firwat:
Я знаю, что такое integer!

[симав]

:mol:

Модератор: Это не наезд... Мы помогаем в решении задач, но не решаем их полностью за кого-то...

Сообщение отредактировано: volvo - 7.04.2005 21:40