Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Блок-схемы к программам

Автор: Maratik 18.09.2011 12:19

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


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

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

М
Теги!!


Автор: TarasBer 18.09.2011 15:00

> срочно нужно на завтрешную пересдачу.

ВТОРОГОДНИК АРМИЯ ОЛОЛО

Изображение

Автор: Maratik 18.09.2011 17:13

Цитата(TarasBer @ 18.09.2011 14:00) *

> срочно нужно на завтрешную пересдачу.

ВТОРОГОДНИК АРМИЯ ОЛОЛО

Изображение

Говори по делу, а не расказывай нам про свои фантазии

Автор: sheka 18.09.2011 21:32

TarasBer, ты когда-то еще сапог выкладывал. Он, видимо, внушительнее.

Автор: TarasBer 18.09.2011 21:34

РИАЛЬНЕ АРМЕЙСКИ САПОГИ!11111
Изображение
ОДОБРЯЭ21111

Автор: Maratik 18.09.2011 22:47

TarasBer где я должен смеяться?

Мб перестаним остроумничать и поможем мне составить блок схемы?

Автор: TarasBer 18.09.2011 23:23

> и поможем мне составить блок схемы?

Хорошо. Начинай. Спрашивай, что непонятно.

Автор: Lapp 19.09.2011 10:41

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

Автор: Maratik 19.09.2011 16:16

Цитата(Lapp @ 19.09.2011 9:41) *

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

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

Автор: Maratik 21.09.2011 20:30

Все сдал, помог очень добрый человек. сори за то что долго не отвечал, вообщем тему убейте.