а то меня мать убьёт Запитання 1) Який програмний блок запускає програму? 2) Як називається програмний блок, який дозволяє рухатися воротарю (Goalie) вздовж ворİт? 3) Протягом скількох секунд Goalie рухається вздовж воріт в кожному напрямку? 4) Чому дорівнює значення змінної «ЧАС» одразу після запуску програми? 5) За якої умови спрайт Soccer Ball відтворює звук «basketball bounce»? 6) За яких умов значення змінної «Рахунок» збільшується на 1? 7)^ * Який програмний блок зупине всю гру (виконання програми) та за якої умови? 8)^ * Чому в таймері змінної «ЧАС» ми чекаємо 1 секунду? 9)** Навіщо умови (чи торкається М'яч Goalie?) вкладається у постійний цикл "Завжди"? - за фотографією Soccer Ball N^ 2.png розгалуження з перевіркою
class FindVowelWords{ vector<string> input; // тут будут лежать слова для обработки vector<string> output; // тут будут лежать обработанные слова vector<char> vowels; // а тут глассные буквы
public: // ... FindVowelWords(const string& inputStr){ vowels = {'a', 'A', 'o', 'O', 'i', 'I', 'u', 'U', 'e', 'E'}; // определяем вектор с гласнымы boost::split(input, inputStr, [](char c){return c == ' ';}); // разбиваем воходную строку на слова }
// поиск слов, которые начинаются с гласных void handle(){ for(auto const& word : input){ // проходимся по всем словам for(auto const& vowel : vowels){ // проходимся по всем гласным if(word.at(0) == vowel){ output.push_back(word); // если первая буква слова - гласная, то заносим слово в результирующий вектор } } } }
int main(){ string test = "Don't be arfraid, just try to understand this code and you'll be a good programmer!"; FindVowelWords findIt(test); cout << "You have entered this string: " << endl; findIt.printInput(); cout << endl << endl;
findIt.handle(); cout << "Words that begin with a vowel: " << endl; findIt.printOutput(); cout << endl; cout << "number of words have been found: " << findIt.getOutputSize() << endl; return 0; }
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
function Sed(n:integer):integer; // Возвращает сумму четных цифр в числе begin (n,Result):=(Abs(n),0); while n>0 do begin var d:=n mod 10; if d.IsEven then Result+=d; n:=n div 10 end end;
begin var (a,b):=ReadInteger2('Введите два целых числа через пробел:'); var (s1,s2):=(Sed(a),Sed(b)); if s1>s2 then Writeln(a) else Writeln(b) end.
Пример Введите два целых числа через пробел: 6213 5841 5841
begin var r:=Abs(ReadReal('Введите действительное число:')); if Trunc(r).IsEven then Writeln('YES') else Writeln('NO') end.
Примеры Введите действительное число: -435.234 NO
Введите действительное число: 20608.6536 YES
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку