1.Всатать с кровати 2.сделать зарядку 3.одеться 4.поесть 5.пойти в школу 6.прийти с школы 7.пообедать 8.выучить уроки 9.помыться 10.лечь в кровать 11.заснуть
int main() { int N; char c; printf("Исходное направление робота (n,w,s,e): "); scanf("%c",&c); printf("Команда (0,1,-1,2,-2): "); scanf("%d",&N); while (N != 0){ switch (N) { case 1 : break; case -1: switch (c) { case 'n' : c = 's'; break; case 'w' : c = 'e'; break; case 's' : c = 'n'; break; case 'e' : c = 'w'; break; }; break; case 2 : switch (c) { case 'n' : c = 'e'; break; case 'w' : c = 'n'; break; case 's' : c = 'w'; break; case 'e' : c = 's'; break; }; break; case -2: switch (c) { case 'n' : c = 'w'; break; case 'w' : c = 's'; break; case 's' : c = 'e'; break; case 'e' : c = 'n'; break; }; break; } printf("c = %c\n", c); printf("Команда (0,1,-1,2,-2): "); scanf("%d",&N); } return 0; }
Пример: Исходное направление робота (n,w,s,e): n Команда (0,1,-1,2,-2): 2 c = e Команда (0,1,-1,2,-2): 1 c = e Команда (0,1,-1,2,-2): -2 c = n Команда (0,1,-1,2,-2): -1 c = s Команда (0,1,-1,2,-2): 0
Var s,s1,s2,st1,st2:string; i:integer; mn:set of char; b:boolean; begin writeln('Введите текст:'); readln(s); s:=s+' '; st1:=''; st2:=''; s1:=''; s2:=''; mn:=[]; b:=false; while pos(' ',s)>0 do delete(s,pos(' ',s),1); for i:=1 to length(s) do if s[i]<>' ' then begin s1:=s[i]+s1; s2:=s2+s[i]; if s[i] in mn then b:=true; mn:=mn+[s[i]]; end else begin if s1=s2 then st1:=st1+s1+' '; if not b then st2:=st2+s2+' '; s1:=''; s2:=''; mn:=[]; b:=false; end; if st1<>'' then writeln('Слова-перевёртыши: ',st1) else writeln('Слов-перевёртышей нет'); if st2<>'' then writeln('Слова без повторяющихся букв: ',st2) else writeln('Слов без повторяющихся букв нет'); end.
Пример: Введите текст: заказ слово комок пробел след пример огонь текст Слова-перевёртыши: заказ комок Слова без повторяющихся букв: пробел след
2.сделать зарядку
3.одеться
4.поесть
5.пойти в школу
6.прийти с школы
7.пообедать
8.выучить уроки
9.помыться
10.лечь в кровать
11.заснуть