Проверить блок-схему

@evgenique · Регистрация: 05.05.2011

Author24 — интернет-сервис помощи студентам

Правильная ли блок-схема к программе? И что в нём (блок-схеме) не хватает?

Pascal

Program massiv;
Uses crt;
const n=25;
var z:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin clrscr;
randomize;
writeln('исходный массив:');
for i:=1 to n do
 begin
  z[i]:=random(51)-14;
  write(z[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i] >= 0 then
  begin
    k:=k+1;
    x:=z[i];
    for j:=i downto k+1 do
    z[j]:=z[j-1];
    z[k]:=x;
  end;
writeln('выходной массив:');
for i:=1 to n do
write(z[i]:4);
readkey
end.

@evgenique · 11.05.2011, 08:54 **[ТС]**

Блин, с ошибкой написала. Исправляюсь:

Pascal

Program massiv;
Uses crt;
const n=[B]14[/B];
var z:array[1..n] of integer;
i,j,k:byte;
x:integer;
begin clrscr;
randomize;
writeln('исходный массив:');
for i:=1 to n do
begin
z[i]:=random(51)-14;
write(z[i]:4);
end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i] >= 0 then
begin
k:=k+1;
x:=z[i];
for j:=i downto k+1 do
z[j]:=z[j-1];
z[k]:=x;
end;
writeln('выходной массив:');
for i:=1 to n do
write(z[i]:4);
readkey
end.

@Viskas2011 · 11.05.2011, 12:11

На твою ошибку пофиг. т.к блок схема начинает рисоватся со слова begin

И вроде вывод в цикле не рисуется.
и номера блоков добавь.

@diam · 12.05.2011, 08:51

Вот блок-схема с нумерацией

да, а не хватает в ней блока в самом начале программы для этого действия
const n=14;

@4izhik · 12.05.2011, 09:22

А где в блок-схеме изменения параметра j?

@diam · 12.05.2011, 09:37

Сообщение от 4izhik

А где в блок-схеме изменения параметра j?

Приведите тут кусок кода, где происходит изменение параметра j.

@4izhik · 12.05.2011, 09:56

Сообщение от diam

Приведите тут кусок кода, где происходит изменение параметра j.

А в условиях цикла изменение параметра не предполагается??

p.s. в вашей блок-схеме это есть, в начальной не было=)

@diam · 12.05.2011, 10:10

к счастью, начальная блок-схема не моя. ХОтя и похожа по оформлению на сделанную мной

@4izhik · 12.05.2011, 10:34

я в курсе, что не ваша))
просто вашу до этого не посмотрела

@evgenique · 12.05.2011, 16:20 **[ТС]**

diam, спасибо большое!!!

Добавлено через 2 часа 14 минут

Сообщение от diam

к счастью, начальная блок-схема не моя. ХОтя и похожа по оформлению на сделанную мной

хаха)) да, я знаю, что я -лох в паскале)))

@Viskas2011 0 / 0 / 1 Регистрация: 24.12.2010 Сообщений: 20
	11.05.2011, 12:11	3
	На твою ошибку пофиг. т.к блок схема начинает рисоватся со слова begin И вроде вывод в цикле не рисуется. и номера блоков добавь. 0

@4izhik 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15
	12.05.2011, 09:22	5
	А где в блок-схеме изменения параметра j? 0

@diam 740 / 84 / 7 Регистрация: 06.12.2009 Сообщений: 342
	12.05.2011, 09:37	6
	Сообщение от 4izhik А где в блок-схеме изменения параметра j? Приведите тут кусок кода, где происходит изменение параметра j. 0

@4izhik 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15
	12.05.2011, 09:56	7
	Сообщение от diam Приведите тут кусок кода, где происходит изменение параметра j. А в условиях цикла изменение параметра не предполагается?? p.s. в вашей блок-схеме это есть, в начальной не было=) 0

@diam 740 / 84 / 7 Регистрация: 06.12.2009 Сообщений: 342
	12.05.2011, 10:10	8
	к счастью, начальная блок-схема не моя. ХОтя и похожа по оформлению на сделанную мной 0

@4izhik 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15
	12.05.2011, 10:34	9
	я в курсе, что не ваша)) просто вашу до этого не посмотрела 0

@evgenique 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 6
	12.05.2011, 16:20 [ТС]	10
	diam, спасибо большое!!! Добавлено через 2 часа 14 минут Сообщение от diam к счастью, начальная блок-схема не моя. ХОтя и похожа по оформлению на сделанную мной хаха)) да, я знаю, что я -лох в паскале))) 0

Опции темы