Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Округление вещественного числа с заданной точностью.
program aro;
uses crt; //* Подключение модуля работы с экраном */
var
a,n:real;
BEGIN
clrscr; //* Очистка экрана */
write(' Введите значение числа n = ');
readln(n); //* Ввод числа */
write(' Введите точность округления а = ');
readln(a); //* Ввод точности */
n:=n/а; //* Вычисление количества "единиц точности"*/
n:=round(n); //* Округление количества "единиц точности" */
n:=n*а; //* Вычисление результата */
writeln(' Результат округления ',n:5:10);
readln;
END.
Web программирование Pascal&Delphi Бeйсик
|
|
|