LINUX.ORG.RU

Помогите исправить программу на языке Ада

 ,


0

1

Здравствуйте.

Я написала программу на языке Паскаль test.pas:

program Test;
var
    a : real;
begin
    readln(a);
    writeln(a:10:8)
end.

Результаты работы программы:

1
1.00000000

Я написала программу на языке Ада test.adb:

with Ada.Float_Text_IO;
use Ada.Float_Text_IO;

procedure Test is
    a : Float;
begin
    Get (a);
    Put (a);
end;

Результаты работы программы:

1
 1.00000E+00

Помогите мне исправить программу на языке Ада, чтобы ее вывод был как у программы на языке Паскаль.

Кстати, а я правильно делаю отступы? Я видела, что на Аде пишут три пробела вместо табуляции, перед : не ставят пробел. Где прочитать о правильном оформлении программы?

Дата регистрации: 26.09.20 16:35:17 Последнее посещение: 26.09.20 16:35:47 Статус: анонимный

На кого рассчитан троллинг? Типо по форуму документацию прочитал, а по Аде не можешь?

anonymous ()

The procedure Put in Ada.Float_Text_IO has three optional format-controlling parameters Fore, Aft, Exp that control the output. The meaning of these parameters is as follows:

Fore denotes the number of digits (including the possible negative sign and leading zeros) before the dot;
Aft denotes the number of digits after the dot (including any trailing zeros);
Exp denotes the number of digits of the exponent (if necessary).
For a more thorough description and the default values of the format-controlling parameters see the Ada 95 Reference Manual, section A.10.9.

https://stackoverflow.com/a/4538134

xDShot ★★★★★ ()
Ответ на: комментарий от xDShot
with Ada.Float_Text_IO;
use Ada.Float_Text_IO;

procedure Test is
    a : Float;
begin
    Get (a);
    Put (a, Aft => 8, Exp => 0);
end;
xDShot ★★★★★ ()

Помогите исправить программу на языке Ада

написала программу на языке Паскаль

Я вам говорил, а вы мне не верили.

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

Для ЯП - вряд ли удачное. Это скорее для отладчика.

А так да, Malbolge.

Malbolge (/mælˈboʊldʒ/) is a public domain esoteric programming language invented by Ben Olmstead in 1998, named after the eighth circle of hell in Dante’s Inferno, the Malebolge.

anonymous ()

1.00000000

1.00000E+00

У тебя же и так одинаковый вывод.

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

Язык РАЯ уже был (злые языки говорят, что название языка академик Ершов выбрал именно в пику Аде, хотя официально это был Русский Алгоритмический Язык).

hobbit ★★★★★ ()

зачем исправлять красоту?

anonymous ()

Помогите исправить программу на языке Ада

шутка из 1964 года. но хорошо, что молодёжь потихоньку расширяет кругозор, не только же смузи хлебать, одобряю.

anonymous ()
Ответ на: комментарий от hobbit

Он к ней, правда, лишнее приписал, из-за чего комментарий попал в удалённые

Конечно на форуме должна оказываться помощь желающим научиться решать квадратные уравнения.
Но ИМХО ветка Development не для этих целей заведена.

Владимир

anonymous ()
Ограничение на отправку комментариев: только для зарегистрированных пользователей