Урок 14.2 Задача 2
Primary tabs
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
var a: integer; procedure chislo (var x: integer); // процедура принимает значение по ссылке begin write ('Введите число, кроме 0: '); // просим ввести значение readln (x); // перезаписываем значение, принятое по ссылке end; begin // тело программы chislo(a); // вызываем процедуру, передаем значение переменной writeln(a); // после вызова процедуры выводим на экран значение этой же переменной readln (); end.
Вывод в консоли:
Введите число, кроме 0: 57
57
- Log in to post comments
- 535 reads