Program n1; Uses CRT; Var r,s: real; begin ClrScr; writeln('Vvedite radius'); readln(r); s:=r*r*pi; Writeln('ploshad =',s:4:4); readln end.
2) по заданным сторонам:
Program n1; Uses CRT; Var a,b,s: real; begin ClrScr; writeln('Vvedite storoni'); readln(a,b); s:=a*b; Writeln('ploshad =',s:4:4); readln end.
3) по заданной стороне
Program n1; Uses CRT; Var a,s: real; begin ClrScr; writeln('Vvedite storony'); readln(a); s:=a*a; Writeln('ploshad =',s:4:4); readln end.
3) по одной стороне и высоте к ней:
Program n1; Uses CRT; Var a,b,s: real; begin ClrScr; writeln('Vvedite storony i vysoty k nei'); readln(a,b); s:=a*b; Writeln('ploshad =',s:4:4); readln end.
Программа: 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)): #конь
1) по заданному радиусу:
Program n1;
Uses CRT;
Var r,s: real;
begin
ClrScr;
writeln('Vvedite radius');
readln(r);
s:=r*r*pi;
Writeln('ploshad =',s:4:4);
readln
end.
2) по заданным сторонам:
Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storoni');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
readln
end.
3) по заданной стороне
Program n1;
Uses CRT;
Var a,s: real;
begin
ClrScr;
writeln('Vvedite storony');
readln(a);
s:=a*a;
Writeln('ploshad =',s:4:4);
readln
end.
3) по одной стороне и высоте к ней:
Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storony i vysoty k nei');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
readln
end.