Задание на сегодня! 1.Виды текстовых объектов

2.Типы текстовых объектов

3. Создание и редактирование текста​

1. С операцией возведения в степень

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var s:=x**3+x**5+x**n;
  Writeln(s)
end.

2. Со стандартной функцией возведения в степень

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var s:=Power(x,3)+Power(x,5)+Power(x,n);
  Writeln(s)
end.

Пример
n= 8
x= 2.3523
1022.47383513855

3. С собственной лямбда-функцией возведения в степень

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var Pow:(real,integer)->real:=(a,b)->Exp(b*Ln(a));
  var s:=Pow(x,3)+Pow(x,5)+Pow(x,n);
  Writeln(s)
end.

4. С собственной обычной функцией возведения в степень

function Pow(a:real; b:integer):=Exp(b*Ln(a));

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var s:=Pow(x,3)+Pow(x,5)+Pow(x,n);
  Writeln(s)
end.

5. На "древнешкольном", в стиле ТурбоПаскаль-1974 языке

function Pow(a:real; b:integer):real;
begin
  Pow:=Exp(b*Ln(a))
end;

var
  n:integer;
  x,s:real;

begin
  Write('n='); Read(n);
  Write('x='); Read(x);
  s:=Pow(x,3)+Pow(x,5)+Pow(x,n);
  Writeln(s)
end.

using System;

namespace kp9p_pr_10_zad_6

{

   class Program

   {

       delegate void Square(double a1, double b1, double alfa1);

       static void Main(string[] args)

       {

           double a, b; // переменные для сторон a и b  

           double alpha; // переменная для угла альфа  

           Console.WriteLine("Введите значения треугольника:\n ");

           Console.Write("a: ");

           a = double.Parse(Console.ReadLine());   // ввод стороны a  

           Console.Write("b: ");

           b = double.Parse(Console.ReadLine()); // ввод стороны b  

           Console.Write("Угол альфа: ");

           alpha = double.Parse(Console.ReadLine()); // ввод угла альфа  

           sq(a, b, alpha);  

           static void sq(double a1, double b1, double alpha1) // функция sq расчета и вывода площади  

           {

               Console.WriteLine("\nПлощадь: {0}", (a1 * b1 * Math.Sin(alpha1)) / 2); // вывод и расчет площади  

           }

       }

   }

}