Question

Анімації. Трансформації та моделювання руху. ИНФОРМАТИКА !!!!СРОЧНО!!!!!

Answer 1

PascalABC.NET

Задание 1:

• begin
• var f:integer->real:=x->x in 10..20?x.IsEven?Sqrt(Abs(x-10)):Tan(x/5)**2:x in 1..8?2*Sin(x/Pi):Exp(x+2);
• Print('y:',f(ReadInteger('x:')))
• end.

Задание 2:

• begin
• var f:integer->string:=n->(n mod 10 = 1)?'рік':(n mod 10 in 2..4)and(n div 10 mod 10<>1)?'роки':'років';
• var n := ReadInteger('Введіть вік:');
• Print('Вам',n,f(n))
• end.

Если нужны все значения в заданный диапазонах:

Задание 1:

• begin
• var f:integer->real:=x->x in 10..20?x.IsEven?Sqrt(Abs(x-10)):Tan(x/5)**2:x in 1..8?2*Sin(x/Pi):Exp(x+2);
• for var x := 0 to 30 do
• Write(x,'   ',f(x));
• end.

Задание 2:

• begin
• var f:integer->string:=n->(n mod 10 = 1)?'рік':(n mod 10 in 2..4)and(n div 10 mod 10<>1)?'роки':'років';
• for var n := 1 to 40 do
• Println('Вам',n,f(n))
• end.

Примеры работ: