Подпрограммы, процедуры

@Ingiborg · Регистрация: 04.01.2010

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

Здраствуйте! Вопрос - как найти по коду что выведет программа? Как это работает? Почему выводит именно это? Внизу примеры!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze1;
const num=10;
var i, j, k: integer;
procedure TestProc(  a:integer; b: integer) ;
var c : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i,j);
writeln('After proc', i:3, j:3, k:3);
end.

Code
1
2
 In proc       2 1
   After proc    1 2 10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze2;
const num=10;
var i, j, k: integer;
procedure TestProc( var a:integer; b: integer) ;
var c : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i,j);
writeln('After proc', i:3, j:3, k:3);
end.

Code
1
2
In proc       2 1
   After proc    2 2 10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze3;
const num=10;
var i, j, k: integer;
procedure TestProc( var a:integer; b: integer) ;
var c, k : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i,j);
writeln('After proc', i:3, j:3, k:3);
end.

Code
1
2
In proc       2 1
   After proc    2 2 3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze4;
const num=10;
var i, j, k: integer;
procedure TestProc( var a:integer; b: integer) ;
var c, k : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i, k);
writeln('After proc', i:3, j:3, k:3);
end

Code
1
2
In proc       3 1
   After proc    3 2 3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze5;
const num=10;
var i, j, k: integer;
procedure TestProc( var a:integer; b: integer) ;
var c : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i, k);
writeln('After proc', i:3, j:3, k:3);
end.

Code
1
2
  In proc       3 1
 After proc    3 2 10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze6;
const num=10;
var i, j, k: integer;
procedure TestProc( var a:integer; var b: integer) ;
var c : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i, k);
writeln('After proc', i:3, j:3, k:3);
end.

Code
1
2
In proc       10 1
After proc    10 2 1

@кот Бегемот · 04.01.2010, 18:58

чтобы понять, что именно выведет данный код, надо либо понять алгоритм, и вычислить итоговое значение, либо тупо, по шагам пройти его, записывая полученные результаты на каждом шаге в таблицу

@Ingiborg · 04.01.2010, 19:00 **[ТС]**

А что делает процедура TestProc?

@Snoopy · 04.01.2010, 19:01

Ingiborg, вы предыдущий пост читали?

@Ingiborg · 04.01.2010, 19:04 **[ТС]**

Какую таблицу? Дан код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze1;
const num=10;
var i, j, k: integer;
procedure TestProc(  a:integer; b: integer) ;
var c : integer;
begin
k:=num; c:=a; a:=b; b:=c;
writeln('In proc', a:3, b:3);
end;
begin
i:=1; j:=2; k:=3;
TestProc(i,j);
writeln('After proc', i:3, j:3, k:3);
end.

Задание - что выведет эта программа. Вот и всё

Добавлено через 1 минуту
Предыдущий пост читал! В этом то и вопрос как всё это дело посчитать по шагам?

@Snoopy · 04.01.2010, 19:08

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

@CFYZ · 04.01.2010, 19:10

А что означает :3?

Pascal
1
writeln('After proc', i:3, j:3, k:3);

@Ingiborg · 04.01.2010, 19:10 **[ТС]**

Это не у меня. Это даны примеры преподавателем. Поэтому и возник вопрос.

Вот пример ещё один:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze;
const num=10;
var  i, j, k: integer;
procedure TestProc( var a:integer;b: integer) ;
var c: integer;
begin
i:=num div 2; a:=b; b:=a+1; c:=a;
writeln('In proc', a, b,c);
end;
begin
i:=1; j:=2; k:=3;
TestProc(j,k);
writeln('After proc', i, j, k);
end.

С вопросом, что выведет программа.
Ответ: In proc343
After proc533
Как считать задания такого типа?

@Puporev · 04.01.2010, 19:12

Эта программа выведет 2 1 10, она поменяет значения переменных i и j и выведет значение константы.

@CFYZ · 04.01.2010, 19:15

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

Это не у меня. Это даны примеры преподавателем. Поэтому и возник вопрос.

Та мне просто интересно что это значит. Т.к. встречается во многих программах.

@Ingiborg · 04.01.2010, 19:16 **[ТС]**

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

Эта программа выведет 2 1 10, она поменяет значения переменных i и j и выведет значение константы.

Какая эта программа?

@кот Бегемот · 04.01.2010, 19:16

С вопросом, что выведет программа.
Ответ: In proc343
After proc533
Как считать задания такого типа?

ну, она вам и вывела: а=3 b=4 c=3
i=5 j=3 k=3
надо было разделить пробелами вывод

@Ingiborg · 04.01.2010, 19:18 **[ТС]**

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

ну, она вам и вывела: а=3 b=4 c=3
i=5 j=3 k=3
надо было разделить пробелами вывод

Это по коду надо посчитать! Ну вот как вы посчитали что она выведет именно это? Вот в чём вопрос

@кот Бегемот · 04.01.2010, 19:19

пример

Pascal
1
2
3
4
5
6
for i:=1 to 5 do
begin
k:=sqr(i);
sum:=sum+k;
end;
writeln(sum);

i k sum
1 1 1
2 4 5
3 9 14
4 16 30
5 25 55
вот вам и таблица. в неё пишем все переменные и их изменение на каждом шаге, в итоге sum=55

@Ingiborg · 04.01.2010, 19:27 **[ТС]**

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

пример

Pascal
1
2
3
4
5
6
for i:=1 to 5 do
begin
k:=sqr(i);
sum:=sum+k;
end;
writeln(sum);

i k sum
1 1 1
2 4 5
3 9 14
4 16 30
5 25 55
вот вам и таблица. в неё пишем все переменные и их изменение на каждом шаге, в итоге sum=55

Я ещё больше запутался...

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
procedure TestProc( var a:integer;b: integer) ;
var c: integer;
begin
i:=num div 2; a:=b; b:=a+1; c:=a;
writeln('In proc', a, b,c);
end;

Ладно вот тут почему программа нам вывела 3 4 3 ???? Как это посчитать?

Добавлено через 1 минуту
Потому что процедура TestProc берёт а и б как 3? изи этого а=3 б=3+1 с=3 ???

@кот Бегемот · 04.01.2010, 19:29

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

Я ещё больше запутался...

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
procedure TestProc( var a:integer;b: integer) ;
var c: integer;
begin
i:=num div 2; a:=b; b:=a+1; c:=a;
writeln('In proc', a, b,c);
end;

Ладно вот тут почему программа нам вывела 3 4 3 ???? Как это посчитать?

Добавлено через 1 минуту
Потому что процедура TestProc берёт а и б как 3? изи этого а=3 б=3+1 с=3 ???

b было=3, a:=b, то есть а стало=3, b:=a+1, то есть b стало 3+1=4, c:=a, то есть=3

@Ingiborg · 04.01.2010, 19:33 **[ТС]**

а Откуда б было 3 ?

@кот Бегемот · 04.01.2010, 19:42

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

@Ingiborg · 04.01.2010, 19:53 **[ТС]**

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

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

А где я её возьму? Дано всё что написал и в задании написано что надо найти что выведет программа! Это пример из экзаменационного билета.

Добавлено через 3 минуты
Я поэтому и не понимаю что с этим делать! Дан пример задания:

Что Выведет эта программа?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Analyze;
const num=10;
var  i, j, k: integer;
procedure TestProc( var a:integer;b: integer) ;
var c: integer;
begin
i:=num div 2; a:=b; b:=a+1; c:=a;
writeln('In proc', a, b,c);
end;
begin
i:=1; j:=2; k:=3;
TestProc(j,k);
writeln('After proc', i, j, k);
end.

И дан ответ на это задание! А как найти и что дано ничего не сказано. А это приер того что будет в экзамене! Если в экзамене такое попадётся как это решать?

Добавлено через 2 минуты
Вводить число любое и считать?

@кот Бегемот · 04.01.2010, 20:19

нет, почему, у вас всё задано, всё считается, просто подставляйте свои числа i,j,k в процедуру

Pascal
1
i:=1; j:=2; k:=3;

вместо a и b

Pascal
1
i:=num div 2; a:=b; b:=a+1; c:=a;

и получите тот ответ, который у вас дан

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	04.01.2010, 18:58
	чтобы понять, что именно выведет данный код, надо либо понять алгоритм, и вычислить итоговое значение, либо тупо, по шагам пройти его, записывая полученные результаты на каждом шаге в таблицу 0

@Ingiborg 0 / 0 / 0 Регистрация: 04.01.2010 Сообщений: 23
	04.01.2010, 19:00 [ТС]
	А что делает процедура TestProc? 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	04.01.2010, 19:01
	Ingiborg, вы предыдущий пост читали? 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	04.01.2010, 19:08
	Ingiborg, а как у вас могут получаться разные результаты, если не требуется ничего вводить, т.е значения не меняются 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	04.01.2010, 19:12
	Эта программа выведет 2 1 10, она поменяет значения переменных i и j и выведет значение константы. 0

@Ingiborg 0 / 0 / 0 Регистрация: 04.01.2010 Сообщений: 23
	04.01.2010, 19:33 [ТС]
	а Откуда б было 3 ? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	04.01.2010, 19:42
	откуда я знаю, если у вас не программа, а только процедура от неё. значит задали или вычислили. надо всю прогу смотреть 0