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

[симав]

Кто-нибудь, помогите! Училка задала программы, а тему даже не объяснила! Помогите сделать их.
1. Подсчитать, каких букв в тексте больше: "а" или "о". Текст взять любой.
2. Поменять местами первую и последнюю букву в заданном тексте. Текст любой.
3. Подсчитать кол-во предложений в тексте. Текст любой.
Заранее спасибо! :D

[klem4]

ДЕСЯТКИ аналогичных задач решены на форуме.. пользуйся поиском и посмотри FAQ.
http://forum.pascal.net.ru/index.php?showtopic=2361

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

[симав]

Я обыскала все! Нигде ничего похожего даже нет!

[volvo]

Я обыскала все! Нигде ничего похожего даже нет!

А что собственно неясно в заданиях? Для начала - читайте FAQ: Строки, и потом объясните, что конкретно в заданиях вызывает затруднения?

Как найти первый и последний символ текста? Подсчет количества букв? Это точно было в FAQ... Как определить где закончилось предложение? Тут Вам придется подумать...

[klem4]

1) Обнуляешь счетчики Na=0;No=0; просматриваешь текст, если очередная буква = а, то Na:=Na+1, если = О. то No=No + 1;
2) t=a[первое];
a[первое]=a[последнее];
a[последнее]=t;
3) Удаляещь лишние пробелы из текстаи, а потом считаешь, сколько у тебя в тексте знаков, оканчивающих предложение, например "." , "!" , "?" итд.

[Altair]

Удаляещь лишние пробелы из текстаи

Зачем? просто считаем число символов, которое конец предложение означают.

[klem4]

Ну так, для красоты ;)
PS да, действителнь, что-то я погорячился ...
Пробелы можно оставить в покое.

[симав]

:molitva: Спасибо огромное!!!!! :thanks:

[симав]

Вот написала, но не идет.
1)

Код

var
s,d,a,o:string;
Ko,Ka:integer;
begin
Ko:=0;
Ka:=0;
writeln('s');
readln(s);
if d=a then Ka:=Ka+1;
if d=o then Ko:=Ko+1;
writeln('Ka=',Ka);
writeln('Ko=',Ko);
readln;
end.

2)

Код

var
s,d,a:string;
begin
writeln('s');
readln(s);
d:=a(1-oe slovo);
a(1-oe slovo):=a(posled);
a(posled):=d;
writeln('s');
end.

Тегами пользуйтесь ...

[volvo]

Значит, так:
1. Не забудьте, что работаем - с символами

Код

var
s,d,a,o:string;
i, Ko,Ka:integer;
begin
Ko:=0; Ka:=0;
writeln('s');
readln(s);
for i := 1 to length(s) do begin
 if s[i]='a' then Ka:=Ka+1; { <--- 'a' не забываем апострофы}
 if s[i]='o' then Ko:=Ko+1; { <--- 'o' }
end;
writeln('Ka=',Ka);
writeln('Ko=',Ko);
readln;
end.

2.

Код

var
s:string; d: char;
begin
writeln('s');
readln(s);
d:=s[1]; s[1] := s[length(s)]; s[length(s)] :=d;
writeln('s = ', s);
end.

[FreeMan]

Молодец, ты всё сделала почти правильно.
замени

if d=a then Ka:=Ka+1;
if d=o then Ko:=Ko+1;

на более приличное

Код

For i:=1 to s[0] do begin
if s[i]='a' then inc(Ka);
if s[i]='o' then inc(Ko);
end;

добавь переменную i:byte;

На предыдущий пост посмотри

[volvo]

FreeMan, нехорошо... Это даже не скомпилится

For i:=1 to ord(s[0]) do begin...

[klem4]

Вот чтобы не задумываться лучше всегда так :

Код

for i:=1 to length(s) do begin ...

[FreeMan]

Это даже не скомпилится

А я и не собираюсь!!!! :D

[симав]

3)

Код

var
st:string;
k:integer;
begin
writeln('st');
readln(st);
k:length('.');
writeln('k=',k);
end.

так?

[volvo]

3. (Почти правильно)... ;)

Код

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

[симав]

У меня вопрос.
Что такое ink?
То есть всегда нужно писать цикл?

[klem4]

Код

inc(i)<=>i:=i+1;

Удаляем из первого задания лишние переменные ;)

Код

uses crt;
var s:string;
   i,ka,ko:byte;

Begin
  clrscr;
  write('s=');readln(s);
  ka:=0;ko:=0;
  for i:=1 to length(s) do
   begin
      if s[i]='a' then inc(ka);
      if s[i]='o' then inc(ko);
   end;
  writeln('ka=',ka);
  writeln('ko=',ko);
  readln;
end.

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

[симав]

Что такое inc ?
A bite-это integer?
А еще clrscr?

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

[klem4]

про инк я сказал, byte - целый тип, как integer, но занимает меньше памяти, одна переменная - 1б, clrscr - очистка экрана.

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