Программа:
def f(x):
print("Вес на Луне:")
for i in range(1,16):
y=x+i*0.250
print('n = %d вес = %f кг' % (i, y*0.165))
print('Вес на Земле через 15 лет = %.3f кг' % y)
v = int(input("Начальный вес: "))
f(v)
Пример:
Начальный вес: 25
Вес на Луне:
n = 1 вес = 4.166250 кг
n = 2 вес = 4.207500 кг
n = 3 вес = 4.248750 кг
n = 4 вес = 4.290000 кг
n = 5 вес = 4.331250 кг
n = 6 вес = 4.372500 кг
n = 7 вес = 4.413750 кг
n = 8 вес = 4.455000 кг
n = 9 вес = 4.496250 кг
n = 10 вес = 4.537500 кг
n = 11 вес = 4.578750 кг
n = 12 вес = 4.620000 кг
n = 13 вес = 4.661250 кг
n = 14 вес = 4.702500 кг
n = 15 вес = 4.743750 кг
Вес на Земле через 15 лет = 28.750 кг
program ExampleN;
uses ...; // здесь укажите где в вашей версии Паскаля
var
x, y, z, r, s: Real;
begin
Write ('Введете x, y: ');
ReadLn (x, y);
z := Sqr (Cos (x));
if z = 0.0 then
r := 0.0
else if z > 0.0 then
r := Exp (Ln (z) / 3)
else
r := - Exp (Ln (-z) / 3);
s := 8 * r - y;
WriteLn (s);
ReadLn;
end.
Объяснение:
в паскале нет стандартной функции извлечения корня, поэтому приходится использовать такой алгоритм:
if z = 0.0 then
r := 0.0
else if z > 0.0 then
r := Exp (Ln (z) / 3)
else
r := - Exp (Ln (-z) / 3);
інформаційні центри(в)!!!