Даны действительное число a, натуральное число n. вычислить: p=a(a-n)(a-2n)**(a-n^2 решить на языке turbo pascal.

var  a, result: real;   n, i: integer; begin  write('a = ');   readln(a);   write('n = ');   readln(n);   result : = a;     for i : = 1 to n do      result : = result * (a - i * n);   writeln('result = ', result);   readln; end.

program p1;

 

uses crt; {можно и не использовать, без оной clrscr -   видаст ошибку, что нет такого}

 

var a,p: real;     n,i: integer;

 

begin    clrscr; {просто чтобы очистить экран можно и не использовать}    write('type a: '); read(a);     write('type n: '); read(n);     for i: =1 to n do    begin        p: =p+(a*(a-i*n)*(a-n*n));         {не совсем понятны три точки в условии}    end;     writeln('p=', p: 3: 3); {количество знаков после запятой и общее}    readkey; {или можно использовать readln; }end.

Uses crt; var a,b,c,mn,mx: integer; begin clrscr; writeln('вводите по 3 целых числа, окончание ввода все числа равны'); repeat write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if(a< > b) then   begin   if a> b then mx: =a else mx: =b;   if c> mx then mx: =c;   if a< b then mn: =a else mn: =b;   if c< mn then mn: =c;   writeln('мин=',mn,' макс=',mx);   end; until(a=b)and(a=c); write('нажмите любую клавишу'); readkey end.

Это на наименьшее(наибольшее) значение функции.принцип решения: а) ввести х                   б) остальные неизвестные величины выразить через х                   в) составить формулу функции, минимальное( максимальное ) значение которой   в имеется.                     г) исследовaть её на min (max) пусть разговор идёт про точку м. её координаты буду х   и   (6 - х) расстoяние от начала координат =|ом|. именно ом должно быть минимальным. ом является функцией от х. надо ом найти. будем искать по т.пифагора.   ом² = х² + (6 - х)²  ⇒ ом =  √(х² + 36 -12х +х²) =  √(2х² -12х + 36) значит, у =  √(2х² -12х + 36) проведём исследование этой функции на min производная = 1/2√(2х² -12х + 36)   · ( 4х - 12) приравниваем её к нулю. ищем критические точки   1/2√(2х² -12х + 36)   · ( 4х - 12) = 0⇒ 4х - 12 = 0⇒ 4х = 12⇒х = 3 (2х² -12х + 36≠0) -∞         -         3         +         +∞       смотрим знаки производной слева от 3 и справа производная меняет свой знак с " -  "   на " +  "  ⇒ х = 3 - это точка минимума. ответ: точка м имеет координаты (3; 3), ом =  √(9 + 9) =  √18 = 3√2