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

[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 килобайт ) Кол-во скачиваний: 366
Образец к блок-схемам я выложил, делал через программу но моему преподователю не нравится эти блок схемы и заставила переделывать

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

М

Теги!!

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

[Lapp]

[offtop]
Maratik, не обижайся на подколки. Но имей в виду, что тебе начнут помогать только после того, как ты ХОТЬ ЧТО-ТО сделаешь сам. Пойми, твои проблемы никого не волнуют (скорее наоборот, никому не нужен программер-недоучка). Но если ты начнешь вникать - увидишь резкую перемену отношения.
[/offtop]

[Maratik]

[offtop]
Maratik, не обижайся на подколки. Но имей в виду, что тебе начнут помогать только после того, как ты ХОТЬ ЧТО-ТО сделаешь сам. Пойми, твои проблемы никого не волнуют (скорее наоборот, никому не нужен программер-недоучка). Но если ты начнешь вникать - увидишь резкую перемену отношения.
[/offtop]

Спасибо за честность. Уважаю таких людей как ты....... Ладно чуть позже выложу свои блок-схемы которые я сделал, а пока не дома нахожусь а в универе и времени нету их по новой набирать.

Сообщение отредактировано: Maratik - 19.09.2011 12:17