Program Project1;
const
eps = 1e-10;
var
a:array [1..3] of Real;
i: integer;
max: Real;
max_i: integer;
sqr_h: Real;
sqr_k: Real;
sp: Real;
begin
Write('Введите длину сторон треугольника: ');
Readln(a[1],a[2],a[3]);
max:=a[1];
max_i:=1;
for i := 2 to 3 do
if a[i]>max then
begin
max:=a[i];
max_i:=i;
end;
sqr_k := 0;
for i:=1 to 3 do
if i<>max_i then
sqr_k:=sqr_k+sqr(a[i]);
sqr_h:=Sqr(max);
if (Abs(sqr_k-sqr_h)<eps) then
begin
Writeln('Треугольник прямоугольный');
sp:=1;
for I := 1 to 3 do
if i<>max_i then
sp:=sp*a[i];
sp:=sp/2;
Writeln('Площадь треугольника = ',sp:0:5);
end
else
begin
Writeln('Треугольник не прямоугольный');
sp:=0;
for I := 1 to 3 do
sp:=sp+a[i];
Writeln('Периметр треугольника = ',sp:0:5);
end;
Readln;
end.
ШАЛТАЙ–БАЛТАЙ
Шалтай–Балтай
<span>Сидел на стене.</span>
var n: integer;
<span> k,s,m: int64;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=1; s:=0; m:=1;
</span><span> repeat
</span><span> m:=m*k;
</span><span> s:=s+m;
</span><span> k:=k+1;
</span><span> until k>n;
</span><span> writeln('сумма: ',s);
</span><span>end.
</span>n = 5
<span>сумма: 153
</span>
Учебные модели – используются при обучении;
Опытные – это уменьшенные или увеличенные копии проектируемого объекта. Используют для исследования и прогнозирования его будущих характеристик
Научно - технические - создаются для исследования процессов и явлений
Игровые – репетиция поведения объекта в различных условиях
<span>Имитационные – отражение реальности в той или иной степени (это метод проб и ошибок)</span>
<span>
</span>
<span>
</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(13, -25, 25);
a.Println;
var ai := a.IndexesOf(t -> Abs(2 * t) > 30).ToArray;
if ai.Count > 0 then
begin
Println('Отобрано элементов:', ai.Count);
foreach var t in ai do
$'a[{t+1}]={a[t]} '.Print;
Println
end
else Println('Нет искомых элементов')
end.
<h2>-1 -14 -19 6 -3 -24 13 17 25 -5 2 -18 -14</h2><h2>Отобрано элементов: 5 </h2><h2>a[3]=-19 a[6]=-24 a[8]=17 a[9]=25 a[12]=-18</h2>