如何在ID号中添加破折号？

问题描述

初学者问题！。我想请用户写下他/她的生日（例如：19980231），然后像这样打印出来：1998-02-31。在Ada中的数字之间添加破折号看起来很简单，但我不知道。有什么建议？这就是我已经走了多远了

with Ada.Text_IO;                    use Ada.Text_IO;
with Ada.Integer_Text_IO;            use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;              use Ada.Float_Text_IO;

  procedure Dugga is
  N,M,Z,Y,X:Integer;
begin
Put("Write ur date of birth: ");
Get(X);
Y:= X/10000;
Put(Y); Put("-");
Z:= X - (Y*10000);
M:= Z/100;
if 9 < M then
Put(M,width=>0); Put("-");
elsif 9 >= M then
Put("0"); Put(M,width=>0);  Put("-");
end if;
Put(M,width=>0); Put("-");
N:= Z - (M*100);
Put(N,width=>0);
end Dugga;

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）