Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дано натуральное число m. Найти такое натуральное n, что двоичная запись n получается из двоичной записи m изменением порядка цифр на обратный https://www.cyberforum.ru/ turbo-pascal/ thread598473.html
помогите с задачей по паскалю Дано натуральное число m. Найти такое натуральное n, что двоичная запись n получается из двоичной записи m изменением порядка цифр на обратный (m задано в десятичной...
Упорядочить название населенных пунктов района по возрастанию их расстояний до райцентра Turbo Pascal
Помогите написать программу. Упорядочить название населенных пунктов района по возрастанию их расстояний до райцентра. В ней должно вводится с клавиатуры количество населенных пунктов, названия их...
Двумерные массивы. Создать третий массив, каждый элемент которого равен 1, если соответствующие элементы массивов имеют одинаковый знак Turbo Pascal
Даны два двумерных массива одинаковой размерности.Создать третий массив той-же размерности,каждый элемент которого равен 1,если соответствующие элементы массивов имеют одинаковый знак,иначе элемент...
Turbo Pascal Процедуры и функции. Составить подпрограммы. Преобразовать строку, оставив в ней только первые два слова Составить подпрограммы для решения следующих задач: 2. Задана строка символов. состоящая из отдельных слов, разделенных пробелами. Преобразовать ее, оставив в ней только первые два слова. ... https://www.cyberforum.ru/ turbo-pascal/ thread598435.html
Turbo Pascal Матрица. Поменять местами элементы строк сектора https://www.cyberforum.ru/ turbo-pascal/ thread598424.html
Вводится квадратная матрица размером 15 х 15. Если максимальный элемент сектора является центральным в том же секторе, зеркально поменять местами элементы строк сектора. В противном случае перенести...
Turbo Pascal Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 — на 4
Прошу помощи, ребята ! 2. Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 — на 4. Заранее спасибо !
Найти количество различных цифр данного натурального числа Turbo Pascal
Прошу помощи, ребята ! 3. Найти количество различных цифр данного натурального числа. Заранее спасибо !
Turbo Pascal С помощью этих функций, а также функции Pop из задания Dynamic12, извлечь из исходного стека пять элементов и вывести их значения помогите кто может и у кого есть эта програ))) Dynamic13. Дан указатель P1 на вершину стека. Используя тип TStack (см. задание Dynamic11), описать функции StackIsEmpty(S) логического типа... https://www.cyberforum.ru/ turbo-pascal/ thread598411.html
Turbo Pascal В массиве все элементы, стоящие выше максимального элемента, заменить на максимальный элемент первого столбца https://www.cyberforum.ru/ turbo-pascal/ thread598410.html
Сос с программой, чрезвычайно быстрая необходимость, завтра нужно отчитываться В массиве все элементы, стоящие выше максимального элемента, заменить на максимальный элемент первого столбца.(нужно...
Turbo Pascal Подсчитать сумму отрицательных элементов выше побочной диагонали матрицы Двухмерный массив задан последовательностью случайных чисел от 0 до M.Размерность массива определяет пользователь.Подсчитать сумму отрицательных элементов выше побочной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread598405.html
5 / 5 / 6
Регистрация: 26.05.2009
Сообщений: 37
06.06.2012, 22:22 0

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

06.06.2012, 22:22. Просмотров 469. Ответов 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2012, 22:22

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

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

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

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

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

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