Составить программу для робота! 15

использовать Робот

алг

нач

нц пока сверху стена

влево

кц

вверх

вправо

нц пока снизу стена

закрасить

вправо

кц

вниз

нц пока слева стена

закрасить

вниз

кц

кон

Program pryam;

Var y1, y2, y3, x1, x2 : real;

Begin

  writeln ('Введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('Введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('Введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('Введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('Введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3<=y1) and (y3>=y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

End.

#include <iostream>
#include <cstring>

int main() {

char* text1 = "Слово";
char* text = "Как то текст с гласными на конце кок";

char* newText = new char[strlen(text)];

int lastStop = 0, lastIter = 0;
for (int i = 0; text[i] != '\0'; i++) {
bool copyIt = false;

if (text[i] == ' ') lastStop = i;


if (text[i + 1] == ' ' || text[i + 1] == '\0') {
for (int j = 0; text1[j] != '\0'; j++) {
if (text[i] == text1[j]) {
copyIt = false; break;
}
copyIt = true;
}

}

if (copyIt == true) {
for (int j = lastStop; j <= i; j++, lastIter++)
newText[lastIter] = text[j];
}
}

for (int i = 0; i < lastIter; i++)
std::cout << newText[i];

std::cout << "\n";

return 0;
}