Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.10;
Скачать: CL | DM;

Вниз

Неправильный вывод числа   Найти похожие ветки 

 
..::KraN::..   (2008-01-19 12:06) [0]

Как добиться того. чтобы в выходном файле не было числа вида 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.


 
engine ©   (2008-01-19 12:10) [1]

FormatFloat + F1


 
..::KraN::..   (2008-01-19 12:12) [2]

Забыл написать...((( У мня не Дельфи, а Турбо Паскаль. извините. если вопрос не по адресу...


 
Palladin ©   (2008-01-19 12:33) [3]

можно ограничить количество знаков после запятой
write(output,exp(n*ln(a)):1:2)


 
..::KraN::..   (2008-01-19 12:40) [4]

Спасибо, мы уже сделали)))...



Страницы: 1 вся ветка

Текущий архив: 2008.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
6-1179287240
-=Germe$=-
2007-05-16 07:47
2008.02.10
HTTP запрос средствами WinSock


2-1200905130
Max.66RUS
2008-01-21 11:45
2008.02.10
Очень срочно!!! Заплачу WMZ!!! Нужна помошь!!!


9-1166878569
maxProg
2006-12-23 15:56
2008.02.10
Direct3D - Освещение


2-1200855531
aha
2008-01-20 21:58
2008.02.10
Где можно прочитать про формат IEEE , дело в том , что дивайс


15-1198933079
Tirael
2007-12-29 15:57
2008.02.10
ктонить юзал БП со 120мм вентилятором?