Как перенести значение из одной процедуры в другую? - PascalABC.NET

  1. Есть две процедуры и мне надо перенести значение из одной локальной переменной в другую. Как это можно сделать?


textual

Код к задаче: «Как перенести значение из одной процедуры в другую? - PascalABC.NET»

var
  gb: integer = 0;
procedure p1;
begin
  writeln(gb);
  gb := 12;
end;
procedure p2;
begin
  writeln(gb);
  gb := gb+1;
end;
 
begin
 
  gb:= 1;
  p1;
  
  p2;
  
  p1;
 
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.200 из 5



Похожие ответы
  1. Написать программу вычисляющию значение выражения (['0'..'4'] + ['7'..'9']) * (['a','3'] + ['E','5'..'8'])

  1. Задание: Написать программу и для вычесления суммы значений функиции, если переменная Х меняется в интервале [-2;2] с нагом 0,4. Выдает: Сумма = NaN. Как исправить?

  1. Написал программу для решения, но она оказалась нерабочей. Мне надо чтобы при введении x=3 и c=0 прога должна выдать нет решения а при x=9 и c=-1 ответ 2

  1. 1)Найти минимальное значение 2)Номер элемента с максимальным значением Помогите пожалуйста! Срочно! Pascal ABC.net

  1. Кто то может объяснить как работает DataGridView и как ее можно связать с textbox1. У меня допустим есть DataGridView1 в которой есть колонка name которая говорит сама за себя, а так же textbox1 в который нужно ввести имя после чего нажать на кнопку и имя должно записаться в колонку. Я попробовал пофантазировать и подумал что если сделать так:

  1. Добрый день. Помогите, пожалуйста, написать программу!! Дано натуральное четырехзначное число. Определить количество цифр с наименьшим значением в цифровой записи данного числа.

  1. мне нужно присвоить значение lg|x|. то что lg(x)=ln(x)/ln(10), я знаю. а вот модуль как впихнуть в это затрудняюсь, подскажите как правильно написать? мб lg(x)=abs(ln(x)/ln(10))?

  1. Вычислить значение функции Z при одном значении X: Z = Y2 + X2, где