Программирование. Pascal Нужен код программы
Нужен код программы, сам затрудняюсь написать.
Задача с учебника Мальцева и Поликарпова, если кто знает, где найти готовые задачи по этому учебнику - буду благодарен.
Заранее спасибо!
По дате
По рейтингу
type ab = array [1..100] of integer;
var i, n: integer;
a: ab;
{функция начинается здесь}
function sum(k: integer; b: ab): real;
var j: integer;
s: real;
begin
s:=0;
for j:=1 to k do
s:=s+sqr(b[j]);
result:=sqrt(s);
writeln;
end;
{функция заканчивается здесь}
begin
n:=3;
for i:=1 to n do
begin
a[i]:= random (10);
write (a[i]:5);
end;
writeln ('ответ = ', sum (n, a):5:3);
end.
type
T3Dvector = array[1..3] of real;
function Molule(v: T3Dvector): real;
var s: real;
i:integer;
begin
s:=sqr(v[1]);
for i:=2 to 3 do
s:=s+sqr(v[i]);
Molule:=sqrt(s);
end;
Видео по теме