Не такое оно и сложное. Главная проблема - то, что между словами может быть несколько пробелов. Устраним её, написав функцию, которая оставляла бы между словами по 1 пробелу:
function RemoveSpaces(str : string) : string; begin //Тут цикл for, переписанный через while var iter := 1; //Проходим по строке while (iter < str.Length) do begin //Если видим 2 пробела подряд, удаляем 1 и откатывает итератор. if (str[iter] = ' ') and (str[iter + 1] = ' ') then begin str := str.Remove(iter, 1); iter -= 1; end; iter += 1; end; RemoveSpaces := str; end;
Теперь мы можем получить кол-во слов очень просто:
function CalcWords(str : string) : integer; begin CalcWords := RemoveSpaces(str).Split(' ').Count(); end;
Т.е. мы делим строку на массив через пробелы, и считаем кол-во элементов массива.
а) “Солнце есть спутник Земли”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность, и она = ложьб) “2+34”не логическое высказывание, ничего не утверждаетв) “сегодня отличная погода”;логическое высказывание, можно проверить задав критерий понятия "отличная погода"г) “в романе Л.Н. Толстого “Война и мир” 3 432 536 слов”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность например для текста на английском языкед) “Санкт-Петербург расположен на Неве”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинностье) “музыка Баха слишком сложна”;в принципе логическое высказывание, но сложно придумать пример как можно проверить его истинностьж) “первая космическая скорость равна 7.8 км/сек”;для каждой планеты своя космическая скорость, для земли будет истинна, для марса ложь - логическое высказываниез) “железо — металл”;констатация факта, не логическое утверждениеи) “если один угол в треугольнике прямой, то треугольник будет тупоугольным”;логическое утверждение, которое ложьк) “если сумма квадратов двух сторон треугольника равна квадрату третьей, то он прямоугольный”.логическое утверждение, его можно проверить.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку