Выведите в выходной файл округленное до n знаков после десятичной точки число E

@PetrovOLEG · Регистрация: 22.01.2017

Выведите в выходной файл округленное до n знаков после десятичной точки число E. В данной задаче будем считать, что число Е в точности равно 2.7182818284590452353602875.

Как это можно решить на Паскале????
помогите, пожалуйста!

@Cyborg Drone · 24.01.2017, 19:02

Если строго по заданию, то так:

Pascal

const e = '2.7182818284590452353602875';
var f: text;
    n: integer;
begin
  repeat
    write('n = ');
    readln(n)
  until n >= 0;
  n := n + 2;
  if n > length(e)
    then n := length(e)
    else if n = 2
      then n := 1;
  assign(f, 'e.txt');
  rewrite(f);
  write(f, copy(e, 1, n));
  close(f)
end.

Если всё-таки число e требуется использовать в виде числа, а не строки, тогда без длинной арифметики не вывести более 16 знаков после десятичной точки. Но программа будет проще:

Pascal

const e: extended = exp(1);
var f: text;
    n: integer;
begin
  repeat
    write('n = ');
    readln(n)
  until n >= 0;
  if n > 16 then n := 16;
  assign(f, 'e.txt');
  rewrite(f);
  write(f, e:0:n);
  close(f)
end.

@PetrovOLEG 0 / 0 / 0 Регистрация: 22.01.2017 Сообщений: 1
		1
	Выведите в выходной файл округленное до n знаков после десятичной точки число E 22.01.2017, 07:41. Просмотров 2959. Ответов 1 Метки нет (Все метки) Выведите в выходной файл округленное до n знаков после десятичной точки число E. В данной задаче будем считать, что число Е в точности равно 2.7182818284590452353602875. Как это можно решить на Паскале???? помогите, пожалуйста! 0

Опции темы

Выведите в выходной файл округленное до n знаков после десятичной точки число E

Решение