|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
20.05.2008, 00:31 | #1 |
Пользователь
Регистрация: 09.02.2008
Сообщений: 38
|
проблема с блок-схемами
Народ, не могли бы вы помочь сделать отдельные блок-схемы к каждой из нескольких процедур?
вот их код: {___*****PROCEDURE OF READ*****____} Procedure Chtenie(var Fname:text; var str:Tstr); Begin Assign(fname, labText); Reset(Fname); i:=0; while not eof(fname) do begin i:=i+1; Readln(Fname, str[i]); Writeln ('string ',i,' : ', str[i]); end; writeln; close(fname); end; {____*****FIRST PROCEDURE*****____} Procedure Otlichie(Str:Tstr; N:integer; K:integer); var i,j:integer; b:boolean; begin write('Absent symbols: '); for i:=1 to N do begin j:=1; b:=false; while (not b) and (j<=K) do begin if str[1][i]=str[2][j] then begin b:=true; end; inc(j); end; if not b then write(str[1][i], ' '); end; end; {____*****SECOND PROCEDURE*****____} Procedure New_String(Var NewSTR:string; Str:Tstr); Var i:integer; begin if n<=k then begin NewSTR:=''; for i:=1 to 2*N do if odd(i) then begin NewSTR:=NewSTR+Str[1][i div 2+1]; end else begin NewSTR:=NewSTR+Str[2][i div 2]; end; NewSTR:=NewSTR+copy(str[2],n+1,k-n); end else begin NewSTR:=''; for i:=1 to 2*k do if odd(i) then begin NewSTR:=NewSTR+Str[1][i div 2+1]; end else begin NewSTR:=NewSTR+Str[2][i div 2]; end; NewSTR:=NewSTR+copy(str[1],k+1,n-k); end; Writeln('New String: ', NewSTR); end; Заранее спасибо!) |
20.05.2008, 08:39 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Тут недавно советовали прогу рисующую блок-схемы для Паскалей, называется BS 1.0, порули поиском, найди ту страничку где ссылка на качку и пользуйся.
I'm learning to live...
|
20.05.2008, 23:54 | #3 |
Пользователь
Регистрация: 09.02.2008
Сообщений: 38
|
|
21.05.2008, 08:31 | #4 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
|
21.05.2008, 22:10 | #5 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Всё гениальное - просто!
|
11.10.2015, 08:55 | #6 |
Новичок
Джуниор
Регистрация: 11.10.2015
Сообщений: 1
|
Блок схемы
Помогите пожалуйста,завтра надо здать
Составить Блок схемы Задача на условие. Дано действительное число x≤800. Если x≤100, то получить его дробную часть. Если 100<x≤800, то округлить x до ближайшего целого и в полученном результате переставить цифры в обратном порядке. Задача на циклы Для вводного целого положительного числа определите его двоичный эквивалент, используя алгоритм перевода числа в другую систему счисления путем деления числа на основание системы счисления. Создай свою тему. Нечего некропостить. Модератор Последний раз редактировалось Аватар; 11.10.2015 в 09:00. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с блок-схемами Pascal. | Дима82 | Помощь студентам | 7 | 12.05.2008 21:39 |
Помогите с блок схемами пожалуйста | Cyberbest | Помощь студентам | 3 | 20.04.2008 21:51 |
помогите с блок-схемами пожалуйста | kardan | Помощь студентам | 1 | 18.04.2008 09:09 |
Proxy Блок | Рустам | Работа с сетью в Delphi | 0 | 15.11.2007 21:42 |