[Dream32]

Delphi программы

[Vladimr]

А нельзя было написать текст задания, а отправлять картинкой?
Тебе уже готовый вариант ответов нужен или путь решения по которому сам сделаешь?

По решению задачи 1. Ищи количество символов конца предложения (".", ",", "!", "?", "...") и что бы за ними шёл пробел как начало нового предложения.

По решению задачи 2. Опят таки ищи пробелы в предложении, и что бы за ним не шли знаки конца предложения и не было пробела. Как найдёшь количество пробелов, так и узнаешь количество слов.

По решению задачи 3. Просматриваешь все символы и сравниваешь с искомым.

По решению задачи 4. Ищешь количество знаков восклицания. Это и будет искомое количество.

По решению задачи 5. Просматриваешь все символы текста и сравниваешь их с множеством цифр. Или пытаешься преобразовать символ в цифру и если получается, то этот символ является цифрой.

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

[Dream32]

Если бы я смогла нормально пользоваться Delphi 7 и она у меня нормально бы скачалась, я бы не задавала вопрос, много лишнего мне нужен ответ

[Vladimr]

решение задачи 1.

Код:

var s:string; //текст с предложениями
a:integer; //кол-во предложений
i:integer; //для цикла
begin
//любым способом передаём ваш текст в переменную s
s:=s+' '; //для того что бы считало последнее предложение
a:=0; //первоначальное значение кол-ва предложений
for I := 1 to length(s) do if ((s[i]='!')or(s[i]='?')or(s[i]='.'))and(s[i+1]=' ') then a:=a+1;
//если текущий символ является концом предложения и после него стоит пробел то считаем
writeln('кол-во предложений в тексте: '+inttostr(a));
end;

[Vladimr]

Решение задачи 2.

Код:

var s:string; //текст с предложением
a:integer; //кол-во слов
i:integer; //для цикла
begin
//любым способом передаём выше предложение в переменную s
a:=1; //первоначальное значение кол-ва слов
for I := 1 to length(s) do if (s[i]=' ')and(s[i+1]<>' ') then a:=a+1;
//считаем кол-во разделителей слов (т.е. пробелов)

writeln('кол-во слов в предложении: '+inttostr(a));
end;

[Vladimr]

Решение задачи 3.

Код:

var s:string; //текст с предложением
a:integer; //кол-во символов
i:integer; //для цикла
begin
//любым способом передаём выше предложение в переменную s
a:=0; //первоначальное значение кол-ва букв
for I := 1 to length(s) do if (s[i]='а') then a:=a+1; //поиск количества букв "а"

writeln('кол-во букв "а" в предложении: '+inttostr(a));
end;

[Ruslan1973]

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

А нельзя было написать текст задания, а отправлять картинкой?
Тебе уже готовый вариант ответов нужен или путь решения по которому сам сделаешь?

По решению задачи 1. Ищи количество символов конца предложения (".", ",", "!", "?", "...") и что бы за ними шёл пробел как начало нового предложения.

По решению задачи 2. Опят таки ищи пробелы в предложении, и что бы за ним не шли знаки конца предложения и не было пробела. Как найдёшь количество пробелов, так и узнаешь количество слов.

По решению задачи 3. Просматриваешь все символы и сравниваешь с искомым.

По решению задачи 4. Ищешь количество знаков восклицания. Это и будет искомое количество.

По решению задачи 5. Просматриваешь все символы текста и сравниваешь их с множеством цифр. Или пытаешься преобразовать символ в цифру и если получается, то этот символ является цифрой.

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

интересно, в итоге все было решено за автора...

[kapipo]

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

интересно, в итоге все было решено за автора...

Согласен с тобой, странно даже

[flowertears]

Спасибо за наглядный разбор с объяснением, а то я уже под вечер сам сообразить не могу, а задания надо выполнять. Потому что весь день играл в онлайн казино Super Slots https://superslots.today/ на реальные деньги в игровые автоматы. Теперь могу позволить себе не устраиваться на работу, а играть в слоты на супер слотс, получать удовольствие от игры и зарабатывать хорошие деньги, ведь процент отдачи на некоторых слотах в казино супер слотс очень-очень высокий.