program lab16;
var a,b,x:real;
begin
a:=0.42;
b:=0.87;
x:=sqr(a)+b;
write('x=',x:8:6);
end

y:=1/cos(3*x)+sin(pi+x);
write('y= ',y:8:6);

program lab16;
var a,b,x,y:real;
begin
a:=0.42;
b:=0.87;
x:=sqr(a)+b;
write('x=',x:8:6);
begin
const pi:=3.14;
y:=1/cos(3*x)+sin(pi+x);
write('y=',y:8:6);
end.

program lab16;
var a,b,x,y:real;
begin
a:=0.42;
b:=0.87;
x:=sqr(a)+b;
write('x=',x:8:6);
y:=1/cos(3*x)+sin(pi+x);
write('y=',y:8:6);
end.

uses crt;

function Scalar(a,b: array [1..3] of real): real;
var
   i: integer;
   tmp: real;
begin
  tmp:=0;
  for i:=1 to 3 do
     tmp:=tmp+a[i]*b[i];
  Scalar:=tmp;
end;

var
   x, y, z, p: array [1..3] of real;
   s1, s2: real;
   a, i: integer;

begin
   for i:=1 to 3 do
   begin
      write('x[',i,']= ');
      readln(x[i]);
      write('y[',i,']= ');
      readln(y[i]);
      write('y[',i,']= ');
      readln(y[i]);
      write('z[',i,']= ');
      readln(z[i]);
      write('p[',i,']= ');
      readln(p[i]);
   end;

   s1:=Scalar(x,y);
   s2:=Scalar(z,p);
   if s1>s2 then a:=1
  else if s1=s2 then a:=0
  else a:=-1;
 
  writeln('s1 = ',s1);
  writeln('s2 = ',s2);
  writeln('a = ',a);
end.

type seria = file of integer;
var f:seria;
function max(f:seria):integer;

function max(f:seria):integer;

function max(var f:seria):integer;

function max(var f:seria):integer;

USES CRT,Graph;
Var d,m,x,v,a,s1,h1:integer;
Var t,s,h:real;
Begin
clrscr;
D:=0;
M:=0;
directvideo:=false;
initgraph(d,m,'c:/tp71/bgi');
{gorizont}
line(0,350,800,350);
{pus}
circle(20,340,10);
line(7,340,40,330);
{pir}
line(300,350,350,300);
line(350,300,400,350);
{thel}
randomize;
x:=random(100)+410;
rectangle(x,350,x+20,330);
{vistre}
write('Введите скорость снаряда и угол наклона ствола: ');
readln(v,a);
repeat
T:=t+1;
s:=s+1;
h:=h+1;
S:=abs(v*t*cos(a));
H:=abs(350-(v*t*sin(a)-10*t*t/2);
s1:=round(s);
h1:=round(h);
setcolor(white);
putpixel(s1,h1,white);
delay(15000);
setcolor(black);
putpixel(s1,h1,white);
until h1>350;
setcolor(white);
putpixel(s1,h1,white);
readln;
end.

uses crt;
var
  A : array [1..100,1..100] of integer;
  i, j, l, k, n, m : integer;
  MinFlag, MaxFlag : boolean;
begin
  clrscr;

  write('n = ');
  readln(n);
  write('n = ');
  readln(m);

  for i:=1 to n do
    for j:=1 to m do
    begin
      write('A[',i,',',j,'] = ');
      readln(A[i,j]);
    end;

     { A[i,j] := random(10);}

  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
     { A[i,j] := random(10);}
      write(A[i,j],'  ');
    end;
    writeln;
  end;

  k := 0;

  for i:=1 to n do
    for j:=2 to m-1 do
    begin
      MinFlag := false;
      MaxFlag := false;
      for l:=1 to m do
      begin
        if l<j then
          if A[i,l]<A[i,j] then MinFlag := true
          else begin MinFlag := false; break; end;
        if l>j then
          if A[i,l]>A[i,j] then MaxFlag := true
          else begin MaxFlag := false; break; end;
      end;

      if MinFlag and MaxFlag then inc(k);

    end;

  writeln;
  write('k = ',k);

  readln;
end.

uses crt;
var
  length, i, tmp, k : integer;
  A: array [1..100] of integer;
  flag : boolean;
begin
  clrscr;
  write('Array length = ');
  readln(length);
  for i:=1 to length do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
  end;

  for i:=1 to length do
  begin
    write(A[i]);
  end;

  i:=1;
  k:=0;
  flag := false;
  repeat
    if (A[i] = 0) and (A[i+1] <> 0) then
    begin
      tmp := A[i];
      A[i] := A[i+1];
      A[i+1] := tmp;
      inc(k);
    end;
    inc(i);
    if i >= (length-1) then
    begin
      i:=1;
      if k=0 then flag := true;
      k := 0;
    end;
  until flag;

  writeln;
  writeln('result : ');

  for i:=1 to length do
  begin
    write(A[i]);
  end;

  readln;
end.

sin(a)

sin(a*pi/180)

write('Введите скорость снаряда и угол наклона ствола: ');
readln(v,a);
repeat
T:=t+1;
s:=s+1;
h:=h+1;
v:=v-1;
S:=v*t*cos(a);
H:=abs(350-(v*t*sin(a*pi/180)-10*t*t/2));
s1:=round(s);
h1:=round(h);
setcolor(white);
putpixel(s1,h1,white);
delay(15000);
setcolor(black);
putpixel(s1,h1,white);
until h1>350;

if keypressed then
   key:=readkey;

delay(20000);