program aip; var fltA,fltB,fltB2:real; code:integer; function ip(A:real):real; var A1:string; begin write('Введите значение А= ');
// repeat readln(A1); val(A1,A,code); if (code<>0) then writeln('no'); until (A>0); // ip:=A; end; begin fltA:=ip(fltA); if abs(1+sin(2*fltA)) < 0.000001 then begin writeln('Delenie na nol v pervoy formule'); end else begin fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA))); writeln('Первая формула ',fltB:5:5); end; if abs(1+tan(fltA)) < 0.000001 then begin writeln('Delenie na nol vo vtoroy formulte'); end else begin fltB2:= ((1-tan(fltA))/(1+tan(fltA))); writeln('Вторая формула ',fltB2:5:5); end; end.
var a: array[1..n] of integer; i, k, min, max: integer;
begin randomize; min := 100; max := -100; Writeln('исходный массив'); for i := 1 to n do begin k := random(40) - 20; a[i] := n; if max < k then max := k else if min > k then min := k; Write(k, ' ') end; Writeln; Writeln('min=', min, ', max=', max) end.
begin randomize; s := 0; Writeln('исходный массив'); for i := 1 to n do begin k := random(40) - 20; a[i] := n; s := s + k; Write(k, ' ') end; Writeln; Writeln('Среднее арифметическое равно ', s / k) end.
begin
var a,b:integer;
write('Введите значения a,b: '); readln(a,b);
write('Квадратный корень из a^b: ',Power(a,b).Sqrt);
end.
Объяснение:
.Sqrt - возвращает квадратный корень числа