Перевести на пайтон: program gre;
uses math;
var x,x0,f:real; N,k:integer;
begin
writeln('Введите значения x');
readln(x);
x0:=-3.5;
N:=trunc((6-x0)/(0.7));
for k:=0 to n do
begin
x:=x0+0.7*k;
f:=sqrt(abs(power(3,x)*(cos(sqr(x))+sin(x;
if f>abs(k*sin(x))
then write ('F(', X:2:2, ') = ',f:2:2, '- превышает')
else write ('F(', X:2:2, ') = ',f:2:2, ' - не превышает');
writeln();
end;
end.
Установить раствор циркуля равный заданному радиусу.
Установить ножку циркуля в точку А, провести окружность.
Установить ножку циркуля в точку В, провести окружность.
Есть ли точки пересечения?
Нет - искомой окружности не существует.
Да - Устанавливаем ножку циркуля в точку пересечения, проводим окружность.
(Точек пересечения может быть две, тогда можно построить две окружности. Или окружности могут соприкасаться в одной точке, тогда искомая окружность будет одна.)
class example{
public static void main (String[] args){
int k = 0, j = 0;
for (int i = 0; i < 10; i++){
k = k + 5;
j = j + k;
if (i == 9)
System.out.print(k);
else
System.out.print(k + " + ");
}
System.out.print(" = " + j);
}
}
б) на Pascal
var a,b,c:integer;
begin
for a:=1 to 10 do
begin
b:=b+5;
c:=c+b;
if (a = 10) then write(b)
else write(b, ' + ')
end;
write(' = ', c);
end.
2) а) на Java
class example{
public static void main(String args[]){
for (int x = 50; x >= 40; x--){
double y = (5 * x) + (Math.pow(x, 2));
int i = (int) y;
System.out.println(i);
}
}
}
б) на Pascal
var y:real;
x:integer;
begin
for x:=50 downto 40 do
begin
y:=(5*x)+sqr(x);
writeln(y:0:0);
end;
end.