Дан одномерный массив A состоящий из 50 элементов. Сформировать массив B по правилу: B[i]:=ai^2/i+a Или вот во вложении посмотрите седьмое задание. Это Паскаль.Заранее спасибо.
Как я понимаю аi - элемент из массива A, что такое а -это либо какая -то константа либо формула дожна принять вид
В[i]:=(ai*ai)/(i+ai)
program MassivB;
Uses Crt;
type mas= array[1..50] of real;
var a,b:mas;
i:integer;
v:real;
procedure Auto;
var i:integer;
begin
randomize;
for i:=1 to 50 do a[i]:=25+random(21);
end;
procedure PrintMas(m:mas);
var j:integer;begin for j:=1 to 50 do write(mas[j]:5:2);
for i:=1 to 50 do
v:=a[i]
b[i]:= (v*v) /(i+v)
clrscr;
write ('Массив А:');
printmas(a)
writeln;
write ('Массив B:');
printmas(b)
readkey;
end.
constN = 50;
vara:array[1..N] of integer;b:array[1..N] of real;i:integer;
begin randomize; for i := 1 to N do begin a[i]:=100-random(201); b[i]:=sqr(a[i])/(i+a[i]); writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3); end;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Как я понимаю аi - элемент из массива A, что такое а -это либо какая -то константа либо формула дожна принять вид
В[i]:=(ai*ai)/(i+ai)
program MassivB;
Uses Crt;
type mas= array[1..50] of real;
var a,b:mas;
i:integer;
v:real;
procedure Auto;
var i:integer;
begin
randomize;
for i:=1 to 50 do a[i]:=25+random(21);
end;
procedure PrintMas(m:mas);
var j:integer;
begin
for j:=1 to 50 do
write(mas[j]:5:2);
end;
begin
for i:=1 to 50 do
begin
v:=a[i]
b[i]:= (v*v) /(i+v)
end;
clrscr;
write ('Массив А:');
printmas(a)
writeln;
writeln;
write ('Массив B:');
printmas(b)
readkey;
end.
const
N = 50;
var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;
begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;
end.