| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Неправильный вывод числа
..::KraN::.. © (2008-01-19 12:06:00)Как добиться того. чтобы в выходном файле не было числа вида 1.000E+01. а было так: 1???
program Z5;
var a,n:longint;
begin
Assign(input, 'input.txt');
reset(input);
Read(input,a,n);
close(input);
assign(output, 'output.txt');
rewrite(output);
If not ((a>=1) and (a<=9)) then
exit;
If not ((n>=1) and (n<=7000)) then
exit;
write(output,exp(n*ln(a)));
close(output);
end.
..::KraN::.. (2008-01-19 12:40:00) [1]Спасибо, мы уже сделали)))...
Palladin (2008-01-19 12:33:00) [2]можно ограничить количество знаков после запятой
write(output,exp(n*ln(a)):1:2)
..::KraN::.. (2008-01-19 12:12:00) [3]Забыл написать...((( У мня не Дельфи, а Турбо Паскаль. извините. если вопрос не по адресу...
engine (2008-01-19 12:10:00) [4]FormatFloat + F1
| |
