LINUX.ORG.RU
решено Форум — Development  

[Ada] horizontal tab not allowed in string

 


0

0 
with Gnat.Io; use Gnat.IO;

procedure MAIN is

r1,r2	: FLOAT digits 6;
s	: FLOAT digits 6;

begin
Put_Line ("Этот пример объявляет переменные для вычисления площади кольца");
Put_Line ("r1,r2 : FLOAT -внешний радиус и радиус отверстия");
Put_Line ("s[здесь_тот_самый_TAB]	: FLOAT -площадь кольца");
end MAIN;

Кто нибудь сталкивался с таким? Это только в GNAT такое бывает?

★★★★★

Зачем GNAT.IO? Есть же Ada.Text_IO. Табы внутри строк надо вставлять так: 

Put_Line("s" & ASCII.HT & ": FLOAT - площадь кольца");
Но пакет ASCII считается устаревшим, поэтому лучше даже как-то так: 
with Ada.Characters.Latin_1;

procedure Main is
   package L1 renames Ada.Characters.Latin_1;
begin
   Put_Line("s" & L1.HT & ": FLOAT - площадь кольца");
end Main;

undet ★
()
Ответ на: комментарий от splinter

Это, наверное, из-за включённых проверок стиля (опции -gnatyxx). Их можно и отключить, но лучше почитать «Ada 95 Quality and Style Guide» и настроить их как надо. Стандартный отступ в Ada — это три пробела.

undet ★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development