Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Дроздов Алексей
1

Прокомментировать код (работа с очередью)

06.06.2012, 21:59. Просмотров 464. Ответов 2
Метки нет (Все метки)

Эта рабочая программа. Просто мне нужны комментарии (желательно чем больше тем лучше). Просто сам не могу разобраться с каждой строкой, а на курсовой надо все объяснить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program zadachapyat;
Uses crt;
     type connect=^data;
          data=Record
          elem:integer;
          next:connect
          end;
     var sn,p,sk:connect;
         n,x,i:integer;
procedure init;
begin
new(p);
p^.next:=nil;
sn:=p;
sk:=p;
end;
procedure list;
begin
p:=sn^.next;
while p<>nil do
begin
write(p^.elem, ' ');
p:=p^.next;
end;
end;
procedure insert;
var p:connect;
begin
new(p);
p^.next:=nil;
p^.elem:=x;
sk^.next:=p;
sk:=p;
end;
function remove:integer;
begin
remove:=sn^.next^.elem;
sn:=sn^.next;
end;
begin
clrscr;
randomize;
init;
for i:=1 to 5 do
begin
     x:=-50+random(101);
     insert;
end;
list;
writeln;
writeln ('Введите число на которое нужно разделить элементы');
readln(n);
p:=sn^.next;
while p<>nil do
      begin
      if p^.elem mod n =0 then
      p^.elem:=remove;
      p:=p^.next;
      end;
list;
writeln;
readln;
end.
Помогите пожалуйста
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2012, 21:59
Ответы с готовыми решениями:

Прокомментировать код, работающий с очередью и стеком
Доброго времени суток. Есть код, работающий с очередью и стеком. Я не могу понять как он работает,...

Работа с очередью через пользовательское меню. Исправить код
помогите исправить код ,чтобы перемещаться по меню можно было только с помощью стрелок. program...

Работа со строками - прокомментировать код
На просторах интернета нарыл данную прогу : #include &quot;stdafx.h&quot; #include &lt;stdio.h&gt; #include...

Работа с указателями - прокомментировать код
у меня такая прозьба объясните пожалуста по подробние что означает каждая строчка этой программы:...

2
5 / 5 / 6
Регистрация: 26.05.2009
Сообщений: 37
06.06.2012, 22:22 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
program zadachapyat;
//подключение модуля для работы с текстовым режимом
Uses crt;
//объявление нового типа "[B]типа"[/B] указателя на запись
type connect=^data;
// указатель на запись
data=Record
//элементы записи
elem:integer;
next:connect
end;
var
//переменные типа [B]запись [/B]
sn,p,sk:connect;
n,x,i:integer;
// описание процедуры
procedure init;
begin
//описание [B]записи[/B]
new(p);
//указатель на запись
p^.next:=nil;
sn:=p;
sk:=p;
end;
//новая процедура
procedure list;
begin
//снова указатель на запись
p:=sn^.next;
// пока запись пустая
while p<>nil do
begin
//выводим на экран значение
write(p^.elem, ' ');
//переходим к следующему элементу записи
p:=p^.next;
end;
end;
procedure insert;
var p:connect;
begin
new(p);
//передача элементу пустого значения
p^.next:=nil;
p^.elem:=x;
sk^.next:=p;
sk:=p;
end;
// не могу объяснить
function remove:integer;
begin
remove:=sn^.next^.elem;
sn:=sn^.next;
end;
begin
//очистка экрана
clrscr;
//включение генератора случайных чисел
randomize;
//процедура init, описанная выше
init;
//цикл
for i:=1 to 5 do
begin
//присваивается случайное значение от 1 до 50
x:=-50+random(101);
//процедура, описанная выше
insert;
end;
//процедура, описанная выше
list;
writeln;
//выводим на экран
writeln ('Введите число на которое нужно разделить элементы');
//читаем с клавиатуры значение
readln(n);
//переходим к следующему элементу
p:=sn^.next;
//пока запись пустая
while p<>nil do
begin
//если элемент при делении на значение введенное с клавиатуры дает 0
if p^.elem mod n =0 then
//тогда возвращаем что-то(сорь...не могу разобраться)
p^.elem:=remove;
//переходим к следующему элементу
p:=p^.next;
end;
list;
writeln;
readln;
end.

http://citforum.ru/programming... g_08.shtml здесь хорошо описаны указатели, их использование и типы
0
Дроздов Алексей
06.06.2012, 23:22 3
Спасибо большое
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2012, 23:22

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

Работа с файлами. Прокомментировать код
Объясните кто-нибудь пожалуйста более подробно следующие строчки кода. Тема...

Работа с указателями - прокомментировать код
ваще нефига не понятно что означает каждая строка #include &lt;conio.h&gt; #include &lt;stdio.h&gt; #include...

Работа с очередью
Пишет: Ожидается &quot;.&quot; в 33 строке, где 2 end подряд Program Alex; uses crt; type...

Работа с очередью
Как сделать так, чтобы очередь выводила после нуля, 3 случайных числа. Написал программу но числа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.