Расставьте в правильном порядке основные этапы разработки проекта

1 Разработка словесного алгоритма
Анализ результатов решения задачи
Постановка задачи
Тестирование и отладка программы
Программирование

119

283

Посмотреть ответы 1

Ответы на вопрос:

zelenukanna2002

Информатика

4,7(37 оценок)

1)function counter(s: string; c: char): integer; var sub: string; i,k: integer; begin; k: =0; while pos(' ',s)< > 0 do begin; for i: =1 to pos(' ',s)-1 do sub: =sub+s[i]; if pos(c,sub)< > 0 then inc(k); delete(s,1,pos(' ',s)); delete(sub,1,length(sub)); end; if pos(c,s)< > 0 then inc(k); counter: =k; end; 2)procedure strangeseq(s: string; k: integer); var i,cou: integer; sub: string; ar: array of integer; arc: array of char; begin; setlength(ar,length(s)+1); setlength(arc,length(s)+1); cou: =length(s); while cou< > 0 do begin; inc(i); arc[i]: =s[1]; sub: =s[1]; while pos(sub,s)< > 0 do begin; inc(ar[i]); delete(s,pos(sub,s),1); end; cou: =length(s); if (ar[i]> k) and (arc[i]< > ' ') then writeln('sign: ',arc[i],' count: ',ar[i]); end; end;