Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;
begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.
Трёхсимвольные слова имеют вид '...', где на каждом месте вместо точки может стоять 'C' или 'D'
количество таких слов = 2³=8
Алгоритм примерно такой (max - максимальный элемент):
1) max:=a[1];
2) пускаем цикл от двух до n (n - третий, например)
for i:=2 to n do
if max<a[i] then max:=a[i];
Получается, что если наш максимальный элемент, который изначально равен первому элементу массива, меньше какого-либо из последующих, то мы нашему max присваиваем этот элемент
В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>
Окно,ок, но не знаю, я ваш вопрос не очень хорошо поняла
