kashamovasha

29.05.2023 07:29

Информатика

Есть ответ 👍

Впрограмме описан одномерный целочисленный массив с индексами от 1 до 5. в фрагменте программы массив сначала заполняется, а потом изменяется. чему будут равны элементы этого массива? в ответе перечислите их через запятую.

for i: =5 downto 1 do a[i]: =4+i;
for i: =2 to 6 do begin
k: = a[i-1];
a[6-i]: =2*k;
end;

120

449

Посмотреть ответы 2

Ответы на вопрос:

razor200711

Информатика

4,8(46 оценок)

program we;

const

е=0.01;

ro=0.57;

ty=280;

tz=320;

py=180;

p_kr=4.695;

t_kr=190.55;

n=8;

m=21;

type sm=array [1..8] of real;

const x_i: sm=(0.841,0.023,0.069,0.009,0.019,0.014,0.013,0.012);

t_i: sm=(190.55,305.43,369.82,425.16,408.13,469.65,460.39,507.35);

p_i: sm=(46.95,49.76,44.33,38.71,37.19,34.35,34.48,30.72);

var sa,sb: real; i: integer;

a_sm, b_sm,ppkr,tpkr: sm;

p_2,p1,p_sr,p_pr,t_sr,t_pr,pz,dp,t_x,t_pl,g,dt,h,p2,pl,p_x,s,c_r,b,c,a,c_st,f_a,f_b,f_c,z_sr,z,x1,l,sppkr,stpkr: real;

function fz(x1: real): real;

begin

fz: =exp(ln(x1)*3)-sqr(x1)+x1*p_sr*(sqr(sb)*p_sr+sa-sb)-sa*sb*sqr(p_sr);

end;

begin

sa: =0;

sb: =0;

sppkr: =0;

stpkr: =0;

for i: =1 to 8 do

begin

a_sm[i]: =((0.0867*t_i[i])/(p_i[i]*t_sr))*x_i[i];

b_sm[i]: =((0.4278*sqr(t_i[i])*sqrt(/(p_i[i]*sqr(t_sr)*sqrt(*x_i[i];

ppkr[i]: =(p_i[i]*x_i[i]);

tpkr[i]: =(t_i[i]*x_i[i]);

sa: =sa+a_sm[i];

sb: =sb+b_sm[i];

sppkr: =sppkr+ppkr[i];

stpkr: =stpkr+tpkr[i];

end;

l: =0;

for i: =1 to m do

begin

p_2: = py;

t_sr: =(ty+tz)/2;

repeat;

p1: = p_2;

p_sr: =(p1+p_2)/2;

p_pr: =p1/sppkr;

t_pr: =t_sr/stpkr;

a: =0;

b: =1;

repeat

f_a: =fz(a);

f_b: =fz(b);

c: =(a+b)/2;

f_c: =fz(c);

if(f_c*f_a)< 0 then b: =c

else a: =c;

c_st: =(a+b)/2;

until (abs(c_st-c)) z_sr: =c;

s: =0.03415*(ro*l)/(z_sr*t_sr);

pz: =py*exp(s);

p_2: = pz*exp(s);

dp: =pz-p1;

p_2: =pz;

until dp l: =l+100;

writeln ('l=', l, ' p=', p_2, ' z=', z_sr );

end;

end.

Виола122006

Информатика

4,4(99 оценок)

var sum, i: integer;

begin

sum : = 5; i : = 1;

while (sum < 324) do

begin

sum : = sum + 4;

i : = i + 1;

end;

writeln ('слогаемых: ');

write (i);

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.