Модератор: Модераторы
Deepthroat писал(а):Вопрос: где ошибка?
Код: Выделить всё
a := x + yDeepthroat писал(а)://a lot of code here
Deepthroat писал(а):И как здесь компилятор мне поможет определить типы всех переменных?
Складываешь целое и действительное.
А вот за это (подпрограмма больше экрана) программиста принято бить. Причем ногами
Он сделает это за тебя - выведет автоматически.
Код: Выделить всё
procedure Swap(a, b); [inline;]
begin
t:type(a) := a;
a := b;
b := t;
end;Код: Выделить всё
некий код
begin
t:type(a) := a;
a := b;
b := t;
end;
здесь t уже не виднаКод: Выделить всё
некая процедура
var
a:integer;
b:real;
begin
t:type(a) := a;
что-то делаем с t-она integer
b := t; // автопреобразование типов
t:type(b) := b;
что-то делаем с t-она real
a := t; // ошибка при компиляции - несоответствие типов
end;
.
Код: Выделить всё
...
var
i, j, k: integer;
tmp1: string;
tmp2: char;
...
begin
...
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
for k := 1 to 10 do
begin
tmp1 := arr[i, j, k] + func1('some_arg');
tmp2 := func2(tmp1);
func3(tmp1 + tmp2);
end;
end;
end;
...
for i := 4 to 8 do
begin
for j := 2 to 5 do
begin
for k := 8 to 15 do
begin
tmp1 := func5(arr[i, j], 'some_other_arg');
tmp2 := tmp1 + func6(k, tmp1);
func7(tmp1 + tmp2, j, k);
end;
end;
end;
...
Код: Выделить всё
...
for var i: integer := 1 to 10 do
begin
for var j: integer := 1 to 10 do
begin
for var k: integer := 1 to 10 do
begin
var readable_name_1: string := arr[i, j, k] + func1('some_arg');
var readable_name_2: char := func2(readable_name_1);
func3(readable_name_1 + readable_name_2);
end;
end;
end;
...
for var i: integer := 4 to 8 do
begin
for var j: integer := 2 to 5 do
begin
for var k: integer := 8 to 15 do
begin
var readable_name_1: string := func5(arr[i, j], 'some_other_arg');
var readable_name_2: char := readable_name_1 + func6(k, readable_name_1);
func7(readable_name_1 + readable_name_2, j, k);
end;
end;
end;
...
Код: Выделить всё
procedure Swap(a, b:type(a)); // проверка типов при компиляции
begin
t:type(a) := a;
a := b;
b := t;
end;Код: Выделить всё
procedure Foo(a: type(b); b: type(a));Код: Выделить всё
a: type(b)Код: Выделить всё
var t:type(a) := a;