Технический форум - Блок-схема по коду Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Блок-схема по коду Pascal (http://www.tehnari.ru/f41/t71849/)

Sergikы

12.04.2012 18:33

Блок-схема по коду Pascal

Привет всем!
Если кто может пожалуйста нарисуйте блок схему по моему коду

Код:

const nmax=100;

var a:array[1..nmax] of integer;

n,i,j:byte;

f,k:boolean;

begin

randomize;

repeat

write('Размер последовательности A до ',nmax,'n=');

readln(n);

until n in [1..nmax];

writeln('Последовательнось:');

for i:=1 to n do

 read(a[i]);

for i:=1 to n do

 write(a[i]:3);

readln;

writeln;

writeln;

writeln('Входят по одному разу:');

k:=false;

for i:=1 to n do

 begin

  f:=true;

  for j:=1 to n do

  if(a[i]=a[j])and(i<>j) then f:=false;

  if f then

   begin

    write(a[i]:3);

    k:=true;

   end;

  end;

if not k then write('Таких чисел нет');

readln;

end.

Буду очень благодарен.

Sergikы

13.04.2012 15:39

Вложений: 1

Вот что я смог сделать через программу.

Sergikы

13.04.2012 20:55

Добавлю условия задачи
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую
последовательность, содержащую только те числа, которые в исходную
последоватеьность входят по одному разу.
может поможет

Екатерина Only

11.12.2012 03:36

:tehnari_ru_837:помогите пожалуйста с блок-схемой
program xz;
const
x:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
y:array[1..15] of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
var
i:integer;
s1,s2:real;
BEGIN
s1:=0; s2:=0;
for i:=1 to 10 do s1:=s1+sqr(sin(x[i]));
for i:=1 to 15 do s2:=s2+sqr(ln(abs(y[i])));
writeln(s1*s2)
END.

Léon	11.12.2012 03:57

Вложений: 1

Цитата:

Сообщение от Екатерина Only (Сообщение 831889)

помогите пожалуйста с блок-схемой

Блок-схема:

Часовой пояс GMT +4, время: 17:59.