Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

блок-схеми

Последователи

Нова тема
Отговор в тази тема

25 ноември 200916 г.

Хора помогнете малко за една блок -схема , аз съм я направил , ама май не е по този начин , по който трябва а , аз не съм наясно с нещата , не ги разбирам чак до там ,затова ако някой има време нека да погледне и да помогне ако може , благоря :wub:

program Masiv;

var

m,i,j:integer;

pr:real;

A,B:array[1..20] of real;

Begin

while((m<1)or(m>20))

do begin

write('Vavedene broi na elementite na masiva m <1-20>: ');

read(m);

end;

writeln('Vavedete elementi na masiva:');

for i:=1 to m do begin

write('Element[',i,']: ');

read(A);

end;

for i:=1 to m do

begin

if(A>=0) then begin

B:=A*i;

end

else begin

B:=i*i;

end;

pr:=1;

for i:=1 to m do begin

if((B>-5)and(B<7))then begin

j:=j+1;pr:=pr*B;

end;

writeln('Masivite predi i sled promianata:');

writeln(' Predi Sled');

for i:=1 to m do begin

writeln('Element[',i,']: ',A:4:3,' ',B:4:3,' ')

end;

writeln('Broia na elementite v intervala <-5,7>: ',j,'');

writeln('Poizvedenieto na tezi elementi: ',pr:4:3,'');

write('Natisnete ENTER');

readln;

End.

това е решението на задачата, а долу е блок-схемата :doh:

Doc1.doc

Цитирай

Добавете отговор

Можете да публикувате отговор сега и да се регистрирате по-късно. Ако имате регистрация, влезте в профила си за да публикувате от него.

Публикацията ви съдържа термини, които не допускаме! Моля, редактирайте съдържанието си и премахнете подчертаните думи по-долу. Ако замените букви от думата със звездички или друго, за да заобиколите това предупреждение, профилът ви ще бъде блокиран и наказан!

Напишете отговор в тази тема...