Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
nick.kungurtsev
1

Четыре лабораторных, построчно разобрать каждый код

22.05.2012, 15:45. Показов 431. Ответов 0
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
объясните пожалуйста построчно что делают эти программы, нужно защитить в универе, я понять не могу что какая строчка делает, пытался читать учебник, вникнуть, но как до сложного доходит сразу непонятно становится

лабораторная 1
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

Program perevod_SS_lab1;
uses crt, math, SysUtils;
const
  N = '0123456789ABCDEFGHIJKLMNO';
  S=18;
  P=10;
  Q=14;
  R=24;
var
  sp,i: longint;
  a,b: integer;
 
  pr, pq, chislo:string ;
 
 
function from18to10(p:string):longint;
var
  chisloin10,i:longint;
begin
  chisloin10:=0;
  for i:=1 to length(p) do
   chisloin10:=chisloin10+(pos(p[i],N)-1)*trunc(power(S,length(p)-i));
  from18to10:=chisloin10;
end;
 
function from10to14(d:longint):string;
var
  chisloin14:string;
  sp1:longint;
begin
  sp1:=d;
  chisloin14:='';
  while sp1>=Q do
   begin
     chisloin14:=N[sp1 mod Q+1]+chisloin14;
     sp1:= sp1 div Q;
   end;
  chisloin14:=N[sp1 mod Q+1]+chisloin14;
  from10to14:=chisloin14;
end;
 
 
function from10to24(d:longint):string;
var
  chisloin24:string;
  sp1:longint;
begin
  sp1:=d;
  chisloin24:='';
  while sp1>=R do
   begin
     chisloin24:=N[sp1 mod R+1]+chisloin24;
     sp1:= sp1 div R;
   end;
  chisloin24:=N[sp1 mod R+1]+chisloin24;
  from10to24:=chisloin24;
end;
 
 
begin
  writeln('vedite chislo v 18 ss ');
  readln(chislo);
  for i:=1 to length(chislo) do
   if not (chislo[i] in ['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H']) then
     begin
       writeln ('obnarujeni nedopustimie simvoli');
       readln;
       exit;
     end;
  writeln('Vvedite nachalo i konec otscheta: ');
  readln(a,b);
  write('Vvedite shag ');
  readln(c);
  while (a<=b)
  begin
        sp:=from18to10(chislo);
        pq:=from10to14(sp);
        pr:=from10to24(sp);
        writeln('chislo 10 ss : ', sp);
        writeln('chislo 14 ss : ', pq);
        writeln('chislo 24 ss : ', pr);
        a=a+c;
  end;
  readln;
  clrscr;
end.
лабораторная 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

Program perevod_SS_lab1;
uses crt, math, SysUtils;
const
  N = '0123456789ABCDEFGHIJKLMNO';
  S=18;
  P=10;
  Q=14;
  R=24;
var
  sp,i: longint;
  pr, pq, chislo:string ;
 
 
function from18to10(p:string):longint;
var
  chisloin10,i:longint;
begin
  chisloin10:=0;
  for i:=1 to length(p) do
   chisloin10:=chisloin10+(pos(p[i],N)-1)*trunc(power(S,length(p)-i));
  from18to10:=chisloin10;
end;
 
function from10to14(d:longint):string;
var
  chisloin14:string;
  sp1:longint;
begin
  sp1:=d;
  chisloin14:='';
  while sp1>=Q do
   begin
     chisloin14:=N[sp1 mod Q+1]+chisloin14;
     sp1:= sp1 div Q;
   end;
  chisloin14:=N[sp1 mod Q+1]+chisloin14;
  from10to14:=chisloin14;
end;
 
 
function from10to24(d:longint):string;
var
  chisloin24:string;
  sp1:longint;
begin
  sp1:=d;
  chisloin24:='';
  while sp1>=R do
   begin
     chisloin24:=N[sp1 mod R+1]+chisloin24;
     sp1:= sp1 div R;
   end;
  chisloin24:=N[sp1 mod R+1]+chisloin24;
  from10to24:=chisloin24;
end;
 
 
begin
  writeln('vedite chislo v 18 ss ');
  readln(chislo);
  for i:=1 to length(chislo) do
   if not (chislo[i] in ['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H']) then
     begin
       writeln ('obnarujeni nedopustimie simvoli');
       readln;
       exit;
     end;
  sp:=from18to10(chislo);
  pq:=from10to14(sp);
  pr:=from10to24(sp);
  writeln('chislo 10 ss : ', sp);
  writeln('chislo 14 ss : ', pq);
  writeln('chislo 24 ss : ', pr);
  readln;
  clrscr;
end.
лабораторная 3
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

Program logika;
 
Uses Crt, Graph;
 
Var
gd,gm,C,X1,X2,X3,X4,F:integer;
V1,V2,V3,V4,V5:boolean;
S,STR1,STR2,STR3,STR4:string;
 
Begin
Clrscr;
Gd := detect;
InitGraph (gd,gm,'');
setcolor(green);
OuttextXY(40,20,'X1');
OuttextXY(65,20,'X2');
OuttextXY(90,20,'X3');
OuttextXY(115,20,'X4');
OuttextXY(140,20,'F');
 
setcolor(white);
C:=40;
For X1:=0 to 1 do
 begin
  For X2:=0 to 1 do
   begin
    For X3:=0 to 1 do
     begin
      For X4:=0 to 1 do
        begin
          V1:=(X4=1) and (X3=1);
          V2:=not (X3=1) or not (X4=1);
          V3:=(V2 and not (X1=1)) or (not V2 and (x1=1));
          V4:=(X4=1) or (X2=1);
          V5:=V1 or not V3 or V4;
          /// V5:= ((x4=1) and (x3=1))or(not((not((x3=1) and (x4=1))and(not (x1=1)))and(not (x1=1))or((((x3=1) and (x4=1)) and (x1=1))))or(((x4=1) and not (x2=1)) or (not (x4=1) and (x2=1))));
          If (V5 = true) then
           F:=1
          else
           F:=0;
          str(F,S);
          str(X1,STR1);
          str(X2,STR2);
          str(X3,STR3);
          str(X4,STR4);
          OuttextXY(40,C,STR1);
          OuttextXY(65,C,STR2);
          OuttextXY(90,C,STR3);
          OuttextXY(115,C,STR4);
          OuttextXY(140,C,S);
          C:=C+15;
        end;
     end;
  end;
end;
 
readln;
end.
лабораторная 4

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

Program logika;
 
Uses Crt, Graph;
 
Var
M,T,N,I,c,gd,gm,K,X1,X2,X3,X4,F:integer;
J1,J2,J3,J4,J5:boolean;
S,M1,M2,M3,M4:string;
p:Char;
Begin
 
Clrscr;
Gd := detect;
InitGraph (gd,gm,'');
If graphresult<>GroK then Halt;
//M:=700;
//N:=725;
//SetBkColor(Blue);
//Cleardevice;
///аЁб㥬 в*Ў«Ёжг
 
for i:=1 to 5 do
begin
Rectangle(M,25,N,50);
 
Rectangle(M,50,N,75);
Rectangle(M,75,N,100);
Rectangle(M,100,N,125);
Rectangle(M,125,N,150);
Rectangle(M,150,N,175);
Rectangle(M,175,N,200);
Rectangle(M,200,N,225);
Rectangle(M,225,N,250);
Rectangle(M,250,N,275);
Rectangle(M,275,N,300);
Rectangle(M,300,N,325);
Rectangle(M,325,N,350);
Rectangle(M,350,N,375);
Rectangle(M,375,N,400);
Rectangle(M,400,N,425);
Rectangle(M,425,N,450);
M:=M+25;
N:=N+25;
end;
 
   /// аЁб㥬 и*ЇЄг
 
OuttextXY(40,40,'X1');
OuttextXY(65,40,'X2');
OuttextXY(90,40,'X3');
OuttextXY(115,40,'X4');
OuttextXY(140,40,'F');
 
 
 
 ///а*ббзҐвл
C:=60;
For X1:=0 to 1 do
For X2:=0 to 1 do
For X3:=0 to 1 do
For X4:=0 to 1 do
begin
str(F,s);
str(X1,M1);
str(X2,M2);
str(X3,M3);
str(X4,M4);
OuttextXY(710,C,M1);
OuttextXY(735,C,M2);
OuttextXY(760,C,M3);
OuttextXY(785,C,M4);
 
J1:=not((X4=1) and (X1=1));
J2:=(not(X3=1)and not(X1=1))or((X3=1)and(X1=1));
J5:=not((J2)or (X2=1));
J3:=(X3=1) or (X4=1);
J4:=J1 and J5 and J3;
If (J4 = true) then F:=1 else F:=0;
OuttextXY(810,C,s);
C:=C+25;
end;
 
/// ўлў®¤Ё¬ Ў«®Є-б奬г
 
//1
OuttextXY(5,100,'X2=');
OutTextXY(5,49,'X4=');
circle(100,80,5);
Line(100,85,100,125);
Line(100,75,100,35);
Line(100,35,60,35);
Line(100,125,60,125);
Line(60,125,60,35);
Line(60,55,40,55);
Line(60,105,40,105);
Line(105,80,185,80);
//2
 
OuttextXY(5,159,'X3=');
Line(40,165,60,165);
OuttextXY(5,210,'X1=');
LIne(40,215,60,215);
Line(60,235,60,145);
Line(60,235,100,235);
Line(60,145,100,145);
Line(100,235,100,145);
Line(100,190,120,190);
Line(160,265,160,210);
Line(160,145,160,200);
Line(120,265,120,145);
line(120,145,160,145);
Line(120,265,160,265);
OuttextXY(5,240,'X2=');
Line(120,245,40,245);
Circle(160,205,5);
Line(165,205,185,205);
 
//3
 
OuttextXY(5,299,'X3=');
Line(40,305,60,305);
OuttextXy(5,350,'X4=');
LIne(40,355,60,355);
Line(60,375,60,285);
Line(60,375,100,375);
Line(60,285,100,285);
Line(100,375,100,285);
Line(100,330,185,330);
 
 
 
//4
 
Line(185,35,185,375);
Line(185,35,285,35);
Line(185,375,285,375);
Line(285,35,285,200);
Line(285,375,285,210);
Circle(285,205,5);
Line(290,205,330,205);
 
readln;
P:=readkey;
if (p=#13) then outtextxy(100,100,'dfdfdf');
readln;
end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 22.05.2012, 15:45
Ответы с готовыми решениями:

Построчно разобрать код
Что это значит? for (i=0; i&lt;m; i++) { for (j=0; j&lt;n; j++) if ((i%2!=0) &amp;&amp; (i&lt;m-1)) A=A-A;...

Разобрать код построчно
Я новичок в Haskell и вот столкнулась со следующим кодом: countAdd a = countAdd a...

Построчно разобрать приведенный код
Ребята, расшифруйте мне пожалуйста каждую строчку и слова программного кода. Этот код передаёт...

Помогите построчно разобрать код
Помогите построчно разобрать код второй части. #include &lt;stdio.h&gt; #include &lt;conio.h&gt; void...

0
22.05.2012, 15:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 22.05.2012, 15:45
Помогаю со студенческими работами здесь

Разобрать построчно готовый код программы
class massif { static void Main() { int n; int count; int arr...

Может ли for построчно разобрать файл
Нашел вот такую информацию попробовал написать простой пример #!/usr/bin/env bash for...

Построчно найти любые четыре числа (ячейки) и записать в них нули
Дан массив - 3 строки, 9 столбцов. Нужно ПОСТРОЧНО найти любые четыре числа (ячейки) и записать в...

Сравнение 2х текстовых файлов построчно каждый символ
Всем привет. У меня вот такой вопрос, довольно сложный. Есть два текстовых файла. В них записан...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru