u:=u+(a*sin(al)+(ua-u)*v/r)*dt;
if abs (u)<1 then
	u:=0;
v:=v+(a*cos(al)-sqr(ua/r)*ra+sqr(ua-u)/r)*dt;
if abc (v)<1 then
	v:=0;

Program classfigur;
Uses graphabc;
Var
  n: Byte;
 
procedure krug;
begin
Circle(500,200,100);
FLOODFILL(500,200,clred);
end;
 
procedure kvadr;
begin
line(200,1,440,1);
line(440,1,440,240);
line(440,240,200,240);
line(200,240,200,1);
FLOODFILL(240,200,clblue);
end;
 
procedure treug;
begin
line(300,100,500,300);
line(500,300,100,300);
line(100,300,300,100);
FLOODFILL(300,200,clgreen);
end;
 
begin
  repeat
  WriteLn('1-Круг');
  WriteLn('2-Квадрат');
  WriteLn('3-Треугольник');
  WriteLn('4-Выход');
  Write('5-Следующая фигура: ');
  ReadLn(n);
  Case n of
    1: krug;
    2: kvadr;
    3: treug;
  end;
  until n <> 0;
end.

uses GraphAbc;
var w:char;
    j:integer;
begin
  repeat
    ClearWindow;
    textout(1,10,'Выберите действие');
    textout(1,30,'1-нарисовать квадрат');
    textout(1,50,'2-нарисовать круг');
    textout(1,70,'другое выход');
    readln(w);
    case w of 
    '1':begin
        textout(1,90,'Сторона:');
        readln(j);
        ClearWindow;
        Rectangle(WindowWidth div 2-j div 2,WindowHeight div 2-j div 2,WindowWidth div 2+j div 2,WindowHeight div 2+ j div 2);
        textout(WindowWidth div 2-50,10,'Нажмите Enter');
        readln;
        end;
    '2':begin
        textout(1,90,'радиус:');
        readln(j);
        ClearWindow;
        Circle(WindowWidth div 2,WindowHeight div 2,j);
        textout(WindowWidth div 2-50,10,'Нажмите Enter');
        readln;
       end;
     else exit;
   end;  
  until not (w in ['1','2']);   
 end.

type
    Shape = auto class
        x, y: integer;
        color: GraphABC.Color;
    end;

    Square = class(Shape)        
        x1, y1: integer;
        
        constructor Create(x, y, x1, y1: integer; color: GraphABC.Color);
        begin
            self.x := x;
            self.x1 := x1;
            self.y := y;
            self.y1 := y1;
            self.color := color;
        end;
        
        procedure Draw();
        begin
            brush.Color := color;
            GraphABC.Rectangle(x, y, x1, y1);
            
            brush.Color := GraphABC.Color.Transparent;
        end;
    end;

uses crt;
var 
a,b,x1,x2,y1,y2,h,w,y,e:real;
n,k:integer;
 
 
function f(x:real):real;
begin
f:=Sqr(x)-(0.1*exp(x))-5;
end;
 
 begin
a:=-3;
b:=7;
h:=0.5;
  clrscr;
    k:=0; x1:=a; x2:=x1+h; y1:=f(x1); y2:=f(x2);
  while x2<b do
 
     begin y2:=f(x2);
       if y1*y2<0 then
                 begin inc (k);
            writeln(k,'-й корень[',x1:4:1,';',x2:4:1,']')
         end;
     x1:=x2; x2:=x1+h; y1:=y2;
   end;
   
 repeat until keypressed
 
 
end.

repeat
 writeLn('Введите точность в пределах от 0 до 1 eps=');
 readln(eps);
 until (eps >0) and (eps <1);
 clrscr;
 {n := 0;}
 repeat
   c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
   if f(a)*f© > 0 then a := c
   else b := c;
   {Inc(n)}
 until abs((f(b)*a-f(a)*b)/(f(b)-f(a))-c)<eps;
 x := c;
 writeLn('Корень уравнения x=', x:10:7);
 write('Для выхода нажмите Enter');
 {writeLn('Количество итераций =  ',n);}

Program KL8;
uses crt;
var s,t:string;
i:integer;
begin
clrscr;
readln(s);
while s[1]=' ' do delete(s,1,1);
while pos('  ',s)<>0 do  delete(s,pos('  ',s),1);
while s[length(s)]=' ' do delete(s,length(s),1);
s:=s+' ';
t:='';
for i:=1 to length(s) do
if (s[i]<>' ') and (s[i]<>',')  then t:=t+s[i]
else begin
write('(',t,')',s[i]);
t:='';
readln;
end;
end.

program spiski;

type

List = ^TList;
TList = record 
data: integer;  
next,    
prev: List;   
end;

var
nach,teck, ends: List;
  i, a: integer;

Procedure Del(var first:List);
 Var z,x,dx:List;
 Begin
 z:=first; 
 While z<>Nil do 
 if z^.data=0 then 
   if z=first then begin 
   first:=first^.next;
   Dispose(x); 
  
   end
   else begin
   if z <> nil then 
   begin 
   z:=z^.next; 
   dx^.next^.next:=z^.next;
   Dispose(x);
                  end
             else begin {удалить последний}
 writeln ('удалить последний');
                  end;
                  end;
          dx:=z; z:=z^.next;         
 End;
 
 
procedure Print(spis1: List);
begin
  if spis1 = nil then 
begin
writeln('Список пуст.');
exit;
end
  else begin 
while spis1 <>nil do
    begin
Write(spis1^.data, '  ');
      spis1 := spis1^.next
end;
end;
end;


begin
  for i := 1 to 11 do 
begin
a := random(8) - 5;
if nach = nil then 
begin
      new(nach); 
nach^.next := nil; 
nach^.prev := nil; 
      ends := nach; 
end
    else 
begin
      new(ends^.next); 
ends^.next^.prev := ends; 
ends := ends^.next;
ends^.next := nil; 
end;
    ends^.data := a;
end;
teck:=nil;
 teck:=nach;
  Print(nach);
  writeln;
  Del(teck);
Print(nach);
  writeln;
end.