Как передать число, найденное в головной программе, в процедуру?

@lol322 · Регистрация: 28.09.2015

Студворк — интернет-сервис помощи студентам

Ребят, у меня небольшой вопрос, надеюсь вы сможете мне помочь с ним . Как можно занести число найденное в головной программе, в процедуру? Т.е. у меня есть счетчик, который посчитал в программе некоторое число и это самое число мне нужно занести в процедуру.

@APALoff · 09.12.2015, 17:48

Передай по параметру.

@lol322 · 09.12.2015, 17:57 **[ТС]**

Можешь описать, для примера? С описанием как раз таки, видимо, проблема

@vint-81 · 09.12.2015, 18:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var i:integer;
procedure inci(j:integer);
begin
 j:=j+1;
 write(j)
end;
procedure inci1(var j:integer);
begin
 j:=j+1;
 write(j)
end;
begin
 i:=1;
 inci(i);
 writeln('<>',i);
 inci1(i);
 writeln('=',i);
end.

@lol322 · 09.12.2015, 19:12 **[ТС]**

Ты меня немножко не правильно понял.

Pascal
1
2
3
4
5
6
7
8
var n:integer;
procedure ();
begin
end;
begin
n:=0;
n:=n+1;
end.

Так вот, как добавить "n" в процедуру, при том что "n" для нас будет не известна.

Добавлено через 17 минут
Т.е. я переменную "n" хочу использовать в самой процедуре, но не знаю как добавить в процедуру.

@APALoff · 09.12.2015, 19:23

Т.к. она описана выше процедуры - можешь обращаться к ней в обычном порядке.
А пример передачи значения переменной по параметру процедуры тебе уже показали.

@lol322 · 09.12.2015, 20:23 **[ТС]**

Посмотрите пожалуйста тогда в чем ошибка, именно в процедуре:

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
159
160
161
162
uses crt;
Type
A=record
fam:string;
im9:string;
Ot4es:string;
year:integer;
nomer:integer;
mat:integer;
fiz:integer;
proga:integer;
forma:string;
end;
type Z=array of A;m1=integer;
var
aa:array[1..3] of A;
i,j,n,n2:integer;
aa1:array[1..3] of A;
ch:char;
s:integer;
code:integer;
s1:string;
 
function kolvo(m1:integer):integer;         
   var n1:integer;
          begin
           n1:=n1+1;
           kolvo:=n1;
          end;
 
PROCEDURE sort(Var mas:Z;Var m1:integer);
var i,j:integer;
x:A;
begin
for i:=1 to m1-1 do  
for j:=i+1 to m1 do
           if mas[i].year>mas[j].year then
           begin
           x:=mas[i];
           mas[i]:=mas[j];
           mas[i]:=x;
           end;
end;
           
begin
      for i:=1 to 3 do
      with aa[i] do
      begin
           write ('Фамилия: ');
           ch:=readkey;
           write(ch);
           while(ch=#59)=false do begin
           aa[i].fam:=aa[i].fam+ch;
           ch:=readkey;
           write(ch);
           end;
 
           write ('Имя: ');
           ch:=readkey;
           write(ch);
           while(ch=#59)=false do begin
           aa[i].im9:=aa[i].im9+ch;
           ch:=readkey;
           write(ch);
           end;
 
           write ('Отчество: ');
           ch:=readkey;
           write(ch);
           while(ch=#59)=false do begin
           aa[i].ot4es:=aa[i].ot4es+ch;
           ch:=readkey;
           write(ch);
           end;
           
           write ('Год: ');
           ch:=readkey;
           write(ch);
           while(ch=';')=false do begin
           s1:=s1+ch;
           ch:=readkey;
           write(ch);
           end;
           val(s1,s,code);
           aa[i].year:=s;
           s1:='';
           
           write ('Номер: ');
           ch:=readkey;
           write(ch);
           while(ch=';')=false do begin
           s1:=s1+ch;
           ch:=readkey;
           write(ch);
           end;
           val(s1,s,code);
           aa[i].nomer:=s;
           s1:='';
           
           write ('Математика: ');
           ch:=readkey;
           write(ch);
           while(ch=';')=false do begin
           s1:=s1+ch;
           ch:=readkey;
           write(ch);
           end;
           val(s1,s,code);
           aa[i].mat:=s;
           s1:='';
           //write(S)//
           
           write ('Физика: ');
           ch:=readkey;
           write(ch);
           while(ch=';')=false do begin
           s1:=s1+ch;
           ch:=readkey;
           write(ch);
           end;
           val(s1,s,code);
           aa[i].fiz:=s;
           s1:='';
           
           write ('Программирование: ');
           ch:=readkey;
           write(ch);
           while(ch=';')=false do begin
           s1:=s1+ch;
           ch:=readkey;
           write(ch);
           end;
           val(s1,s,code);
           aa[i].proga:=s;
           s1:='';
           
           write ('Форма обучения: ');
           ch:=readkey;
           write(ch);
           while(ch=#59)=false do begin
           aa[i].forma:=aa[i].forma+ch;
           ch:=readkey;
           write(ch);
           end;
           writeln;
           end;          
 
n:=0;           
writeln('Отсортированный по возрасту список студентов: ');
for j:=1 to 3 do begin           
if (aa[j].mat>aa[j].fiz) = true then
begin
n:=n+kolvo(n2);
aa1[n]:=aa[j];
end;
end;
sort(aa1,n);
           for i:=1 to n do begin
writeln('Фамилия: ',aa1[i].fam,'; Имя: ',aa1[i].im9,'; Отчество: ',aa1[i].Ot4es,'; Год: ',aa1[i].year,'; Номер группы: ',aa1[i].nomer,'; Оценка по математике: ',aa1[i].mat,'; Оценка по физике: ',aa1[i].fiz,'; Оценка по программированию: ',aa1[i].proga,'; Форма обучения: ',aa1[i].forma);
end;
writeln('Количество: ',n);
end.

@APALoff · 09.12.2015, 21:06

Program1.pas(157) : Неправильный тип параметров подпрограммы

По моему тут компилятор достаточно точно сообщает, что у Вас не в порядке. Разбирайтесь в типах параметров процедуры и переменных, которые Вы ей передаёте - типы должны совпадать.

@lol322 · 09.12.2015, 21:11 **[ТС]**

В этом и проблема, что типы совпадают, вроде бы

@APALoff · 09.12.2015, 21:27

Сообщение от lol322

вроде бы

Вы будете гадать или все таки сами проверите? Если бы там все было в порядке, то компилятор бы не обратил туда своё внимание, а я не стал бы Вам прописные истины рассказывать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@lol322 0 / 0 / 0 Регистрация: 28.09.2015 Сообщений: 8

	Как передать число, найденное в головной программе, в процедуру? 09.12.2015, 17:10. Показов 776. Ответов 9 Метки нет (Все метки) Ребят, у меня небольшой вопрос, надеюсь вы сможете мне помочь с ним . Как можно занести число найденное в головной программе, в процедуру? Т.е. у меня есть счетчик, который посчитал в программе некоторое число и это самое число мне нужно занести в процедуру. 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	09.12.2015, 17:48
	Передай по параметру. 0

@lol322 0 / 0 / 0 Регистрация: 28.09.2015 Сообщений: 8
	09.12.2015, 17:57 [ТС]
	Можешь описать, для примера? С описанием как раз таки, видимо, проблема 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	09.12.2015, 19:23
	Т.к. она описана выше процедуры - можешь обращаться к ней в обычном порядке. А пример передачи значения переменной по параметру процедуры тебе уже показали. 1

@lol322 0 / 0 / 0 Регистрация: 28.09.2015 Сообщений: 8
	09.12.2015, 21:11 [ТС]
	В этом и проблема, что типы совпадают, вроде бы 0