1.надпись; 2.эллипс; 3.ластик; 4.по горизонтали:кривая, по вертикали:карандаш;
5.заливка; 6.распылитель; 7. линия; 8.кисть; 9.выделение; 10.масштаб.
Var x,y:byte;
begin
writeln('В каждом углу комнаты сидела по кошке.');
write('У каждой кошки по х котят. Введите x=');
readln(x);
writeln('Сколько всего ног?');
writeln();
writeln('В комнате 4 угла, следовательно 4 кошки');
writeln('4 кошки по ',x,' котят = всего ', 4*x ,' котят');
//4 кошки + котята
y:=4 + 4*x;
writeln('Всего кошек и котят = ', y);
writeln('следовательно ног у кошек и котят = ', 4*y );
end.
1) ОЗУ (оперативное запоминающее устройство)
2) Дискета
3) ПЗУ (постоянное запоминающее устройство)
4) CD, DVD, Blueray диски
5) Жёсткий диск
6) CD/DVD-привод
7) Жесткий диск/Винчестер
8) Внешний жесткий диск
9) CD
10) Винчестер, HDD, HMDD
Используется формула Гаусса (формула "шнурования").
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>- с функцией:</u>
function SPolygonGauss(a:array of real):real;
// Возвращает вычисленную по формуле Гаусса площадь многоугольника,
// координаты вершин которого заданы массивами х и у
begin
var (n,i):=(a.Length-4,0);
Result:=0.0;
while i<=n do begin
Result+=a[i]*a[i+3]-a[i+1]*a[i+2];
i+=2
end;
Result:=Abs(0.5*Result)
end;
begin
var x:=ReadArrReal('Введите координаты вершин 5-угольника:',10);
SetLength(x,12);
x[10]:=x[0];
x[11]:=x[1];
Writeln('Площадь равна ',SPolygonGauss(x))
end.
<u>Пример</u>
Введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5
Площадь равна 3.915
<u>- с процедурой:</u>
procedure SPolygonGauss(a:array of real; var s:real);
// Вычисляет по формуле Гаусса площадь многоугольника,
// координаты вершин которого заданы массивами х и у
begin
var (n,i):=(a.Length-4,0);
s:=0.0;
while i<=n do begin
s+=a[i]*a[i+3]-a[i+1]*a[i+2];
i+=2
end;
s:=Abs(0.5*s)
end;
begin
var x:=ReadArrReal('Введите координаты вершин 5-угольника:',10);
SetLength(x,12);
x[10]:=x[0];
x[11]:=x[1];
var s:real;
SPolygonGauss(x,s);
Writeln('Площадь равна ',s)
end.
