| marfarus | Дата: Воскресенье, 01.02.2015, 19:41 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| Постройте пожалуйста блок-схему по ГОСТ (правильные размеры блоков) , если не можете по ГОСТ, тогда просто постройте!)
Программа сделана на Паскале:
Program stroki;
const
c1='Не давши слово-крепись,';
c2='А давши - Держись';
cc='давши'; { искомый контекст }
function Kol(c,ci:string):integer;
{количество вхождений ci а c }
var
p,k,l,li:integer;
begin
k:=0;
li:=Length(ci);
l:=Length©;
repeat
p:=Pos(ci,c);
if p>0 then
begin
l:=Length©;
Inc(k);
if p+li<l then c:=Copy(c,p+li,l-(p+li-1))
end
until (p=0) or (p+li>=l);
Kol:=k
end;
begin
Writeln('Количество вхождений равно ',Kol(c1,cc)+Kol(c2,cc))
end.
Сообщение отредактировал marfarus - Воскресенье, 01.02.2015, 19:43 |
| |
| |
| diamFC | Дата: Воскресенье, 01.02.2015, 19:47 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Для исходников в которых до 30 строк кода, программа diamFC строит блок-схему бесплатно.
Сделайте её, пожалуйста, сами.
Ссылка для скачивания последней версии программы: http://diamfc.ucoz.ru/load/0-0-0-1-20
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
