7. Выделите подсистемы в следующих объектах, рассматриваемых в ка- честве систем:
а) автомобиль;
б) компьютер;
в) школа;
г) армия;
д) государство.
Удаление каких элементов из систем, рассмотренных в задании 7, при-
ведет к потере системного эффекта, т. е. К невозможности выполнения основ-
ного назначения систем?
надо сдать Уже завтра :(
a = input("Введите текущую координату фигуры(вертикаль): ")
b = input("Введите текущую координату фигуры(горизонталь): ")
c = input("Введите координату для хода(вертикаль): ")
d = input("Введите координату для хода(горизонталь): ")
# Условие
if (a==c) and (b==c):
#Конец условия
print("Фигура может сделать ход")
else:
print("Фигура НЕ может сделать ход")
Условия:
а) if (a==c) and (b==c): #ладья
б) if abs(a-c) == abs(b-d): #слон
в) if abs(a-c)==1 or abs(b-d)==1: #король
г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь
ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5)
or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь
a: array[1..255] of integer;
i: integer;
begin
write('строка: '); readln(s);
for i:=1 to 255 do a[i]:=0;
for i:=1 to length(s) do inc(a[ord(s[i])]);
st:='';
for i:=1 to length(s) do
if ((a[ord(s[i])]>=2) and
(s[i] in ['а'..'я'])) then continue
else st:=st+s[i];
writeln('новая строка: ',st);
end.
строка: Это строка для проверки.
новая строка: Э са для пвеи.
Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:
var s: string;
a: array[1..255] of integer;
i,j: integer;
begin
write('строка: '); readln(s);
for i:=1 to 255 do a[i]:=0;
for i:=1 to length(s) do
if ord(s[i])>32 then
begin
inc(a[ord(s[i])]);
if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))])
else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]);
end;
j:=0;
for i:=1 to length(s) do
if (a[ord(s[i])]>=2) then continue
else
begin
inc(j);
s[j]:=s[i];
end;
delete(s,j+1,length(s)-j);
writeln('новая строка: ',s);
end.