S=7.310096
P=19
Programa:
CLSa = 2: b = 8: c = 9r = (a + b + c) / 2p = a + b + cs = SQR(r * (r - a) * (r - b) * (r - c))PRINT "S="; sPRINT "P="; p
1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
Периметр прямоугольника: P=2(a+b). Площадь: S=ab
Косинусы углов в треугольнике:
cosA=(b²+c²-a²)/(2bc); cosB=(a²+c²-b²)/(2ac); cosC=(a²+b²-c²)/(2ab)
var
a,b:real;
begin
Write('Введите a,b: ');
Read(a,b);
Write('P=',2*(a+b),', S=',a*b)
end.
Тестовое решение
Введите a,b: 12.2 8
P=40.4, S=97.6
var
a,b,c,cosA,cosB,cosC:real;
begin
Write('Введите a,b,c: ');
Read(a,b,c);
cosA:=(b*b+c*c-a*a)/(2*b*c);
cosB:=(a*a+c*c-b*b)/(2*a*c);
cosC:=(a*a+b*b-c*c)/(2*a*b);
Write('cosA=',cosA,', cosB=',cosB,', cosC=',cosC)
end.
Тестовое решение
Введите a,b,c: 15.3 8 14.2
cosA=0.138864436619718, cosB=0.855495719414526, cosC=0.393995098039216
Задание 1.
В ромбе всегда прописывается условие.
Задание 2.
ЕСЛИ Х ЕСЛИ Х ИНАЧЕ M := Z \\ставится условие(я), если оно не соблюдается, то число М = числу Z\\
ВСЕ \\конец\\
ИНАЧЕ \\в другом случае (ставится другое условие:)\\
ЕСЛИ Y < Z TO M := Y \\если Y < Z , то число M = Y\\
ИНАЧЕ М := Z \\в другом случае M = Z\\
ВСЕ \\конец\\
<span>ВСЕ \\конец\\
Вывод: данный фрагмент алгоритма определяет чему равно число M при определенных условиях.
Задание 3.
Не могу приложить фото с блок-схемой.
</span>
Var
a,b,i,s:integer;
begin
writeln('Введите A:');
readln(a);
writeln('Введите B:');
readln(b);
for i:=a to b do
s:=s+sqr(i);
writeln('сумму всех кводратов целых чисел от A до B включительно:', s);
end.
