Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.04.2021, 08:20
Dream32 Dream32 вне форума
Прохожий
 
Регистрация: 01.04.2021
Сообщения: 9
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Delphi создать программы

Delphi программы
Изображения
Тип файла: png р13.png (25.1 Кбайт, 9 просмотров)
Ответить с цитированием
  #2  
Старый 01.04.2021, 13:48
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

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

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

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

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

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

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

А так покажи свои наработки по решению этих задач. Ты же не хочешь что бы тебе уже готовое решение предоставили, при этом ничего сам не делая?
Ответить с цитированием
  #3  
Старый 01.04.2021, 15:51
Dream32 Dream32 вне форума
Прохожий
 
Регистрация: 01.04.2021
Сообщения: 9
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Если бы я смогла нормально пользоваться Delphi 7 и она у меня нормально бы скачалась, я бы не задавала вопрос, много лишнего мне нужен ответ
Ответить с цитированием
  #4  
Старый 01.04.2021, 16:45
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

решение задачи 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 за это полезное сообщение:
Dream32 (01.04.2021)
  #5  
Старый 01.04.2021, 16:48
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Решение задачи 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 за это полезное сообщение:
Dream32 (01.04.2021)
  #6  
Старый 01.04.2021, 16:50
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Решение задачи 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;
Ответить с цитированием
Этот пользователь сказал Спасибо Vladimr за это полезное сообщение:
Dream32 (01.04.2021)
  #7  
Старый 01.04.2021, 16:52
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

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

Код:
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;
Ответить с цитированием
Этот пользователь сказал Спасибо Vladimr за это полезное сообщение:
Dream32 (01.04.2021)
  #8  
Старый 01.04.2021, 16:57
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

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

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

writeln('кол-во цифр в предложении: '+inttostr(a));
end;
Ответить с цитированием
Этот пользователь сказал Спасибо Vladimr за это полезное сообщение:
Dream32 (01.04.2021)
  #9  
Старый 01.04.2021, 16:59
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Задачи с 1 по 4 однотипные в которых ищем определённые символы в строке. Задача 5 на преобразование строки в число.

Текст ответов на ваши задачи написаны в блокноте без использования Delphi.
Ответить с цитированием
Этот пользователь сказал Спасибо Vladimr за это полезное сообщение:
Dream32 (01.04.2021)
  #10  
Старый 17.09.2021, 14:20
Rosenkrantz Rosenkrantz вне форума
Активный
 
Регистрация: 04.12.2007
Адрес: Москва
Сообщения: 234
Версия Delphi: Delphi 7
Репутация: 40
По умолчанию

Полгода не заходил сюда. Ничего не меняется.
Ответить с цитированием
  #11  
Старый 15.10.2021, 15:20
Аватар для Ruslan1973
Ruslan1973 Ruslan1973 вне форума
Прохожий
 
Регистрация: 15.10.2021
Адрес: г. Шацк Рязанская обл.
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

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

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

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

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

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

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

А так покажи свои наработки по решению этих задач. Ты же не хочешь что бы тебе уже готовое решение предоставили, при этом ничего сам не делая?
интересно, в итоге все было решено за автора...
Ответить с цитированием
  #12  
Старый 08.12.2021, 15:44
kapipo kapipo вне форума
Прохожий
 
Регистрация: 08.12.2021
Сообщения: 1
Версия Delphi: Delphi 8
Репутация: 10
По умолчанию

Цитата:
Сообщение от Ruslan1973
интересно, в итоге все было решено за автора...
Согласен с тобой, странно даже
__________________
Работаю на крипто бирже, и для меня важно следить за курсом биткоина к доллару http://nv.kz/last-news/2021/11/26/gd...ina-k-dollaru/. Постоянные перепады курса биткоина к доллару позволяют отлично на этом заработать!
Ответить с цитированием
  #13  
Старый 08.02.2022, 21:00
flowertears flowertears вне форума
Прохожий
 
Регистрация: 08.02.2022
Сообщения: 1
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter