В паскале или где? А то сделаю не там где надо
Письменность - это важная часть всей нашей жизни. Мы пользуемся таким методом, чтобы записать некую информацию. Это дает огромный толчок науке прежде всего потому, что без письменности большая часть знаний не сохранилась бы. Разные формулы, исторические записи - за все это мы должны благодарить письменность. Если рассуждать надобность письменности с точки культуры, то следует отметить, что тут письменность оставила огромную отметку. Литературные шедевры, которые стали знаменитыми во всем мире, песни, стихи - все сохранилось благодаря письменности. Задумайтесь, что бы было, если бы письменности не существовало?
P.S. Это набросок на сочинение или доклад, его можно обогатить разными выражениями и цитатами, поискать еще некоторые факты об возникновении и истории письменности
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088
var
x1,x2,y1,y2,r1,r2:real;
begin
Write('Введите координаты первой точки: '); Read(x1,y1);
Write('Введите координаты второй точки: '); Read(x2,y2);
r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
if r1>r2 then Writeln('Ближе вторая точка')
else
if r1<r2 then Writeln('Ближе первая точка')
else Writeln('Точки равноудалены')
end.
<em><u>Тестовое решение:</u></em>Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
//Я так понял, что нужно объеденить 2 массива в 1 большой. Если же нужно, чтобы каждый элемент третьего массива состоял из суммы элементов с такии же индексом двух предыдущих массивов, то нужен другой код
Program Test;
const Size = 5; x = 1; y = 10;
Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;
Begin
Randomize;
j := 0;
for i := 1 to Size do
begin
Arr1[i] := Random(x, y);
Arr2[i] := Random(x, y);
end;
for i := 1 to Size * 2 do
begin
if (i <= Size) then
Arr3[i] := Arr1[i]
else
begin
j := j + 1;
Arr3[i] := Arr2[j];
end;
end;
Write('Показать 1 массив? Если да, то введи 1: ');
Readln(Entered);
if (Entered = 1) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr1[i]);
end;
Writeln();
Entered := 0;
Write('Показать 2 массив? Если да, то введи 2: ');
Readln(Entered);
if (Entered = 2) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr2[i]);
end;
Writeln();
Writeln('Суммарный массив:');
Writeln();
for i := 1 to Size * 2 do
Writeln('Элемент ', i, ' = ', Arr3[i]);
End.
Если 11, то минимальное основание 2, а если 99, то 10