--------------
Из всего этого спокойно выражаются углы.
------------------------
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.
Первое задание:
var d: array [1..30] of integer;
i,s:integer;
begin
for i:=1 to 30 do
readln d[i];
s:=1;
for i:=2 to 29 do
s:=s*d[i];
writeln(s)
<span>end.</span>
Byte, Short, Integer, Long, Single, Double
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Program z1;
var x,y:real;
begin
writeln('введите координаты точки (x;y), при у неотрицательный');
readln(x,y);
if x>0 then
writeln('точка находится в I четверти');
if x<0 then
writeln('точка находится вo II четверти');
if x=0 then
writeln('точка находится на оси ОY');
if y=0 then
writeln('точка находится на оси ОХ');
if (x=0)and(y=0) then
writeln('точка находится в начале координат');
end.