0 / 0 / 0
Регистрация: 17.01.2010
Сообщений: 47
1

Описать программу (комментарии ко всей программе)

18.10.2010, 18:29. Показов 437. Ответов 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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
Program sp_cikl;
Uses crt;
     Type pInt = ^TElement;
     TElement = record
     inf: integer;
     next: pInt;
     end;
  Var
  ptrHead: pInt;
  ptrCurrent: pInt;
  i:integer;
procedure paste (i:integer; var ptrHead,ptrCurrent:pInt);
Var ptrAddition:pInt;
Begin
New(ptrAddition);
ptrAddition^. inf:=i;
 if ptrHead = nil
  then
    begin
    ptrAddition^.next := ptrAddition;
    ptrHead := ptrAddition
    end
else
 begin
   ptrAddition^.next := ptrCurrent^.next;
   ptrCurrent^.next := ptrAddition;
 end;
ptrCurrent:=ptrAddition;
   end;
procedure prosmotr (ptrHead:pInt);
Var ptrAddition:pInt;
   begin
   if ptrHead <> nil
    then
     begin
   ptrAddition:=ptrHead;
   repeat
 writeln(ptrAddition^.inf);
   ptrAddition:=ptrAddition^.next;
  until ptrAddition=ptrHead;
   end;
    end;
function poisk (var ptrHead,ptrCurrent:pInt;i:integer):boolean;
Var ptrAddition:pInt;
Begin
 if ptrHead <> nil
  then
   begin
    ptrAddition:=ptrHead;
   repeat
    ptrAddition:=ptrAddition^.next;
   until (ptrAddition=ptrHead) or (ptrAddition^.inf=i);
       if ptrAddition^.inf=i
        then
         begin
          poisk:=true;
      ptrCurrent:=ptrAddition;
        end
   else
    begin
     poisk:=false;
   end;
    end
     else
      begin
     poisk:=false;
      end;
       end;
procedure delete (var ptrcurrent,ptrhead:pInt);
Var  ptrAddition:pInt;
Begin
     if ptrCurrent <> nil
      then
       begin
   if ptrHead^.next<>ptrHead
    then
     begin
      ptrAddition:=ptrHead;
           while ptrAddition^.next <> ptrCurrent
            do
             ptrAddition := ptrAddition^.next;
             ptrAddition^.next:=ptrCurrent^.next;
        if ptrHead=ptrCurrent
         then
          ptrHead:=ptrCurrent^.next;
          dispose(ptrCurrent);
          ptrCurrent:=ptrAddition^.next;
           end
            else
             begin
              ptrHead:=nil;
              dispose(ptrCurrent);
              ptrCurrent:=nil;
             end;
          end;
        end;
Var op:char;
    data,error,error1,error2,error3:integer;
    n:string;
Begin
  clrscr;
  Repeat
  clrscr;
         Writeln ('1 - VSTAVKA');
         Writeln ('2 - PROSMOTR');
         Writeln ('3 - POISK');
         Writeln ('4 - UDALENIE');
         Writeln ('0 - VYHOD');
         Writeln;
         Readln(op);
Case op of
'1' :begin
          Writeln ('Vvod: ');
          Readln (n);
          Val (n,data,error);
          If error <> 0 then
          begin
          Writeln ('Nekorrektnyy vvod');
          Readln;
          end else
          paste(data,ptrHead,ptrCurrent);
          end;
'2': begin
          clrscr;
          prosmotr(ptrHead);
          Writeln ('najmite lyubuyu klavishu');
          Readkey;
          Readln;
          end;
'3': begin
          Writeln ('Vvod: ');
          Readln (n);
          Val (n,data,error2);
          If error2 <> 0 then
          begin
          Writeln ('Nekkorektnyy vvod');
          Readln;
          end else
          writeln (poisk(ptrHead,ptrCurrent,data));
          Readln;
          end;
'4': begin
          Writeln ('Vvod: ');
          Readln (n);
          Val (n,data,error3);
          If error3 <> 0 then begin
          Writeln ('Nekkorektnyy vvod');
          Readln;
          end else
          delete(ptrCurrent,ptrHead);
          Readln;
          end;
'0': begin
          exit;
          end;
          end;
Until op='0';
          End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2010, 18:29
Ответы с готовыми решениями:

#c++ Написал программу, qt выдает ошибки напротив cout по всей программе. Подскажите почему
#include &lt;QCoreApplication&gt; #include &lt;iostream&gt; #include &lt;iomanip&gt; #include &lt;ctime&gt; #include...

Разработайте программу работы с односвязным кольцом (комментарии к программе)
Народ! напишите пожалуйста комментарии к проге program L_14_6; {Разработайте программу работы с...

Поиск во всей программе
Здравствуйте! Я бы хотел сделать поиск, чтобы было такое:У меня 10 форм, в каждой форме...

Формат даты во всей программе!
Работаю с mysql. Там формат даты yyyy-mm-dd Как сделать формат даты такой же во всей программе...

2
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
18.10.2010, 19:26 2
если хорошо посмотреть, то найдете комментарии к каждой строке своей программы...
https://www.cyberforum.ru/pascal/thread77419.html
1
0 / 0 / 0
Регистрация: 17.01.2010
Сообщений: 47
18.10.2010, 19:54  [ТС] 3
Цитата Сообщение от Snoopy Посмотреть сообщение
если хорошо посмотреть, то найдете комментарии к каждой строке своей программы...
https://www.cyberforum.ru/pascal/thread77419.html

thnx, Snoopy
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2010, 19:54

юнит из uses во всей программе(глобальный)
здраствуйте.вопрос не критичный но интересно. у меня в программе несколько форм. я использую...

Комментарии к программе
#include &lt;stdlib.h&gt; #include &lt;stdio.h&gt; #include &lt;string.h&gt; /* оболочка strcmp(const char*,...

Комментарии к программе
Напишите комментарии к каждой строчки программы пожалуйста namespace ConsoleApplication14 { ...

Комментарии к программе
Есть готовая программа к задаче, необходимо написать комментарии к каждому действию этой задачи....

комментарии к программе
помогите как правильно оформить задачу комментариями для сдачи.. program text; var s:string;...

Комментарии к программе!
Ребят помогите пожалуйста написать комментарии к коду вот этой программы Очень надо!!!


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

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

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