2015-12-28 14:25:15 +03:00
|
|
|
|
// Простейшие новые возможности языка PascalABC.NET
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Инициализация переменной при описании
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var i: integer := 1;
|
|
|
|
|
|
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Автоопределение типа переменной при инициализации
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var r := 2.5;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Внутриблочные описания переменных
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var s: real := 1.0;
|
|
|
|
|
|
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Описание переменной в заголовке цикла (время жизни переменной - до конца тела цикла)
|
2015-05-14 22:35:07 +03:00
|
|
|
|
for j: integer := 1 to 10 do
|
2015-12-28 14:25:15 +03:00
|
|
|
|
s += j; // Операция += для чисел
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
var p := 1;
|
|
|
|
|
|
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Описание переменной в заголовке цикла с автоопределением типа
|
2015-05-14 22:35:07 +03:00
|
|
|
|
for var j := 1 to 10 do
|
2015-12-28 14:25:15 +03:00
|
|
|
|
p *= j; // Операция *=
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
var str := '';
|
|
|
|
|
|
for c: char := 'a' to 'z' do
|
2015-12-28 14:25:15 +03:00
|
|
|
|
str += c; // Операция += для строк
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
end.
|