Uses GraphABC;
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;
A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);
A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);
A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);
Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.
Значения с символами $ остается
<em>E4=$C$2*D4</em>
*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
--------------
Из всего этого спокойно выражаются углы.
------------------------
var s,a,b,c,ua,ub,uc,otn:real;
//-----------------
function arcsin(x:real):real;
begin
arcsin:=arctan(x/Sqrt(1-sqr(x)));
end;
//---------------------
function deg(x: real):real;
begin
deg:=round(1000*x*180/pi)/1000;
end;
//-------------
begin
readln(s,a,c);
ub:=arcsin(2*s/c/a);
b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));
otn:=b/sin(ub);
uc:=arcsin(c/otn);
ua:=arcsin(a/otn);
writeln('альфа= ',deg(ua),'°');
writeln('бета= ',deg(ub),'°');
writeln('гамма= ',deg(uc),'°');
end.
1 увімкнути системний блок
2 натиснути на павер
3 увімкнути монітор