IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> помогите с блок схемой, я не знаю как делать
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


вот файл.
буду очень признателен за помощь

Сообщение отредактировано: eddisco -


Прикрепленные файлы
Прикрепленный файл  SPISKI.PAS ( 1.88 килобайт ) Кол-во скачиваний: 143
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Посмотри, пожалуйста, п.1 и п.2 правил, которые расположены на верху страницы. И исправь!

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


Все тексты программ должны помещаться в теги
 ... 
.
а как это сделать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


Цитата(eddisco @ 13.05.2007 9:56) *

uses Crt; {см. Описание выше}
const{см. Описание выше}
MaxNum=30; {количество элементов списка}
type{см. Описание выше}
pEl= ^Element; {создаём тип pEl – указатель на запись Element, т.е. наш список}
Element= record
i. Data:integer; {поле записи, содержит данные об элементе}
ii. Next:pEl; {указатель на сл. эл. списка}
iii. Prev:pEl {указатель на пред. эл. списка}
b. end; {конец записи}
var{см. Описание выше}
PX, PY : pEl; {элементы списка}
firstElem, curElem: pEl; {элементы списка}
i:integer; {циклическая переменная}
f:TEXT; {файловая переменная(!файл текстовый!)}
{***************************}
procedure AddElem(var CurElem:pEl; val:integer); {процедура добавляет в список новый элемент. CurElem – указатель на текущий элемент списка, val – значение нового элемента}
var{см. Описание выше}
tmpElem:pEl; {см. Описание выше}
begin{начало процедуры}
New(tmpElem); {создаём элемент списка}
tmpElem^.Data := val; {изменяем ему данные}
tmpElem^.Next := nil; {след. элемента нет}
tmpElem^.Prev := CurElem; {определяем предыдущий элемент}
CurElem^.Next := tmpElem; {говорим, что за текущим Эл. Списка идёт новый элемент}
CurElem := tmpElem; {говороим, что текущий эл. – это наш новосозданный элемент}
end; {конец процедуры}
{***************************}
procedure ChangePos(var firstElem,secondElem:pEl); {процедура смены позиции элементов}
var{см. Описание выше}
tmpElem:pEl; {см. Описание выше}
begin{начало процедуры}
New(tmpElem); {см. Описание выше}
{Далее меняю позицию, но не данные}
tmpElem^.Prev := secondElem^.Prev;
tmpElem^.Next := secondElem^.Next;

secondElem^.Prev := firstElem^.Prev;
secondElem^.Next := firstElem^.Next;

firstElem^.Prev := tmpElem^.Prev;
firstElem^.Next := tmpElem^.Next;
end; {конец процедуры}
{***************************}
begin{начало программы}
clrscr; {см. Описание выше}
Randomize; {подключаем генератор случайных чисел}
New(firstElem); {см. Описание выше}
New(curElem); {см. Описание выше}
firstElem^.Next := nil; {инициализация элемента списка}
firstElem^.Prev := nil; {инициализация элемента списка}
firstElem^.Data := random(100); {генерируем случайное число из диапазона от 0 до 100 }

curElem := firstElem; {текущий элемент – это первый элемент}
for i:=1 to MaxNum do{цикл от 1 до кол-ва элементов списка}
begin{начало цикла}
AddElem(curElem,random(100)); {добавляем новый элемент со случайным значением от 0 до 100}
if i = 1 then firstElem^.Next := curElem; {привязываем 2-й элемент к первому}
if i = 13 then{предполагаем, что элемент PY на позиции 13(хотя можем указать как хотим) }
begin
New(PY); {создаём элемент}
{далее делаем его текущим}
PY^.Prev := curElem^.Prev;
PY^.Next := curElem^.Next;
PY^.Data := curElem^.Data;
end;
if i = 20 then{предполагаем, что элемент PX на позиции 20(хотя можем указать как хотим) }
begin
New(PX); {создаём элемент}
{далее делаем его текущим}
PX^.Prev := curElem^.Prev;
PX^.Next := curElem^.Next;
PX^.Data := curElem^.Data;
end;
end; {конец цикла}

ChangePos(PX,PY); {меняем позиции элементов списка}
assign(f,'double_linked_list_8.txt'); {привязываем путь файла к переменной}
rewrite(f); {создаём файл или перезаписываем существующий}
writeln('FirstElement = ',firstElem^.Data); {выводим первый элемент}
curElem := firstElem; {делаем текущий элемент первым}
while (curElem <> nil) do{проход по списку}
begin{начало цикла}
writeln(f, curElem^.Data); {запись в файл элементов списка}
curElem := curElem^.Next; {двигаемся по списку}
end; {конец цикла}
close(f); {закрываем файл}
writeln('Press Enter'); {вывод сообщения}
readln; {ожидаем нажатия клавиши}
.
вот так получилось

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Способов 2:
1. Поищи по форуму, выкладывали ссылку на программку, которая по коду сама рисует блок-схемы.
2. Начинаешь аккуратненько (хоть пооператорно) рисовать для каждой подпрограммы. Не знаешь, какой блок что значит?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


я в паскале ваще 0.скачивал прогу-она только для процедур-фунцкий рисует.дайте ссылку на ту,которая на всю прогу сделает
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


так и надо по отдельности рисовать...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






мож кто за деньги построит?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
мож кто за деньги построит?


Перенести тему в "Задачи на заказ" ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






перенесите
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


сделано ... назначай цену и сроки.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


учитывая что мемть программы которые строят схемы то 2 дня и 50р на счёт мобильного телефона или через мобильный кошелёк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.09.2020 19:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name