Блок-схемы к программам Опции

[Maratik]

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


1.

program Maratjkee4; 
   var s:string; 
   k,i,p:integer; 
   begin 
   k:=0; 
   writeln('vvedite slova'); 
   readln(s); 
   for i:=1 to length(s) do 
   begin 
   p:=pos(' ',s)+1; 
   if (copy(s,p,1))='b' then k:=k+1; 
   delete(s,1,pos(' ',s)+1); 
   end; 
   writeln('kol=',k); 
   end.

2.

program Maratjkee5;
var a:array[1..10] of real; i,n,m:integer;real;
begin
clrscr;
 writeln('vvedite n i m');
 readln(n,m);
 l:=m/2; randomize;
for i:= 1 to n do
a[i]:=random(10);
for i:=1 to n do
begin
write(a[i],'');
writeln;
end;
for i:= 1 to n do
a[i]:=a[i]/2;
for i:= 1 to n do
begin
write(a[i],'');
writeln;
end;
end.

 _________Microsoft_Word.doc ( 104.5 килобайт ) Кол-во скачиваний: 550
Образец к блок-схемам я выложил, делал через программу но моему преподователю не нравится эти блок схемы и заставила переделывать

ПОМОГИТЕ ПОЖАЛУЙСТА!

М

Теги!!

Сообщение отредактировано: Lapp - 18.09.2011 13:32