Грис черепаха дан следующий алгоритм: использовать черепаха алг звезда(цел x) нач нц 10 раз вправо(x) вперед(100) влево(40) кц кон какой должен быть введён x, чтобы черепаха нарисовала пятиконечную звезду?
При рисовании пятиконечной звезды Черепаха совершает два оборота это 720 градусов.Если разделить 720 на пять поворотов и дать поправку в 40 градусов, то x = 720/5 + 40 = 144 + 40 = 184.Второй вариант угла: 360-144 = 216 с поправкой на 40 градусов даст число 256.
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.
