Народ не могу составить блок схемы к программам, помогите пожалуйста срочно нужно на завтрешную пересдачу.
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.
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.
М | Теги!! |
> срочно нужно на завтрешную пересдачу.
ВТОРОГОДНИК АРМИЯ ОЛОЛО
TarasBer, ты когда-то еще сапог выкладывал. Он, видимо, внушительнее.
РИАЛЬНЕ АРМЕЙСКИ САПОГИ!11111
ОДОБРЯЭ21111
TarasBer где я должен смеяться?
Мб перестаним остроумничать и поможем мне составить блок схемы?
> и поможем мне составить блок схемы?
Хорошо. Начинай. Спрашивай, что непонятно.
[offtop]
Maratik, не обижайся на подколки. Но имей в виду, что тебе начнут помогать только после того, как ты ХОТЬ ЧТО-ТО сделаешь сам. Пойми, твои проблемы никого не волнуют (скорее наоборот, никому не нужен программер-недоучка). Но если ты начнешь вникать - увидишь резкую перемену отношения.
[/offtop]
Все сдал, помог очень добрый человек. сори за то что долго не отвечал, вообщем тему убейте.