|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi создать программы
Delphi программы
|
#2
|
|||
|
|||
А нельзя было написать текст задания, а отправлять картинкой?
Тебе уже готовый вариант ответов нужен или путь решения по которому сам сделаешь? По решению задачи 1. Ищи количество символов конца предложения (".", ",", "!", "?", "...") и что бы за ними шёл пробел как начало нового предложения. По решению задачи 2. Опят таки ищи пробелы в предложении, и что бы за ним не шли знаки конца предложения и не было пробела. Как найдёшь количество пробелов, так и узнаешь количество слов. По решению задачи 3. Просматриваешь все символы и сравниваешь с искомым. По решению задачи 4. Ищешь количество знаков восклицания. Это и будет искомое количество. По решению задачи 5. Просматриваешь все символы текста и сравниваешь их с множеством цифр. Или пытаешься преобразовать символ в цифру и если получается, то этот символ является цифрой. А так покажи свои наработки по решению этих задач. Ты же не хочешь что бы тебе уже готовое решение предоставили, при этом ничего сам не делая? |
#3
|
|||
|
|||
Если бы я смогла нормально пользоваться Delphi 7 и она у меня нормально бы скачалась, я бы не задавала вопрос, много лишнего мне нужен ответ
|
#4
|
|||
|
|||
решение задачи 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
|
|||
|
|||
Решение задачи 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
|
|||
|
|||
Решение задачи 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
|
|||
|
|||
Решение задачи 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
|
|||
|
|||
Решение задачи 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
|
|||
|
|||
Задачи с 1 по 4 однотипные в которых ищем определённые символы в строке. Задача 5 на преобразование строки в число.
Текст ответов на ваши задачи написаны в блокноте без использования Delphi. |
Этот пользователь сказал Спасибо Vladimr за это полезное сообщение: | ||
Dream32 (01.04.2021)
|
#10
|
|||
|
|||
Полгода не заходил сюда. Ничего не меняется.
|
#11
|
||||
|
||||
Цитата:
|
#12
|
|||
|
|||
Цитата:
Работаю на крипто бирже, и для меня важно следить за курсом биткоина к доллару http://nv.kz/last-news/2021/11/26/gd...ina-k-dollaru/. Постоянные перепады курса биткоина к доллару позволяют отлично на этом заработать! |
#13
|
|||
|
|||
Спасибо за наглядный разбор с объяснением, а то я уже под вечер сам сообразить не могу, а задания надо выполнять. Потому что весь день играл в онлайн казино Super Slots https://superslots.today/ на реальные деньги в игровые автоматы. Теперь могу позволить себе не устраиваться на работу, а играть в слоты на супер слотс, получать удовольствие от игры и зарабатывать хорошие деньги, ведь процент отдачи на некоторых слотах в казино супер слотс очень-очень высокий.
|