Вывод вещественных переменных

@КОП · Регистрация: 15.08.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте.
1. Как вывести вещественные переменные в нормальном виде? Если написать :6:2 например, то если у меня получается 2.1225 - результат не будет точным, а хочется и точно и красиво.
Вот написал небольшую прогу, хочется сделать функцию, но не знаю как. А процедура - не очень удобно(мне так кажется)

Pascal

Var
   w, e   :Byte;
   x       :Real;
   z, x1  :LongInt;
Begin
   ReadLn (x);
   z:=1; w:=0;
   While (x/z) > 1 do begin
                        z:=z*10;
                        w:=w+1;
                      end;
   e:=10; z:=1;
   x1:=Round(1000000000*(frac(x)));
   If x1<>0 then While (x1 mod z) = 0 do begin
                                            z:=z*10;
                                            e:=e-1
                                         end;
   If z=1 then e:=0;
   w:=e+w;
   WriteLn (x:w:e);
   ReadLn
End.

2. Возможно ли из среды турбо паскаля вставлять сюда код проги или обязательно заново писать?

@Puporev · 15.08.2010, 11:33

Сообщение от КОП

2. Возможно ли из среды турбо паскаля вставлять сюда код проги или обязательно заново писать?

Открываете файл .pas в любом блокноте, копируете и вставляете в сообщение.

Добавлено через 2 минуты

Сообщение от КОП

Если написать :6:2 например, то если у меня получается 2.1225 - результат не будет точным, а хочется и точно и красиво.

Во первых, если написать :6:2, то выведет типа х= 2.12
Во вторых нужно самому определять точность, если нужно 10 знаков после запятой, то напишите

Pascal

1	writeln('x=',x:14:10);

Добавлено через 2 минуты

Сообщение от КОП

Вот написал небольшую прогу, хочется сделать функцию,

Так напишите что должна делать программа в целом и функция в частности.

@КОП · 15.08.2010, 11:44 **[ТС]**

Сама прога например вычисляет что-нибудь.
функция должна обеспечивать правильный вывод вещественных переменных, т.е. если это 1.123456 то и пишет 1. 123456, а если это 1.123, то 1.123000 пишет без нулей.
Желательно, что бы это выглядело так: WriteLn ('x=', <имя функции>(x))

@Puporev · 15.08.2010, 11:53

КОП, Не бывает вещественных чисел таких как вы написали, количество знаков после запятой определяете вы при форматировании вывода, в памяти компьютера числа типа real имеют вид типа
2.123456251444444Е+0001
Например напишите такой код

Pascal

var a:real;
begin
a:=23.56;
write(a);
readln
end.

и посмотрите.

@КОП · 15.08.2010, 12:03 **[ТС]**

дело в том, что я не знаю, сколько получится знаков после запятой. Я ,конечно, могу написать WriteLn (x:14:10), но при х=1.5 я получу на экране 1.5000000000, этого я и хочу избежать.

@Puporev · 15.08.2010, 12:06

Сообщение от КОП

что я не знаю, сколько получится знаков после запятой.

А кто знает? Это же ваша программа, вам и определять точность вывода числа, а программа всегда считает 15-16 для типа real и до 19-20 для более точных типов

@Rockedit · 15.08.2010, 12:09

Сообщение от КОП

дело в том, что я не знаю, сколько получится знаков после запятой. Я ,конечно, могу написать WriteLn (x:14:10), но при х=1.5 я получу на экране 1.5000000000, этого я и хочу избежать.

Тогда единственно что приходит в голову. это анализировать числа после запятой. А это тоже задача не простая.

@КОП · 15.08.2010, 12:13 **[ТС]**

Допустим моя программа выполняет деление. Я ввожу 2 числа и она выдаёт частное. И количество знаков после запятой зависит от данных, которые я введу и будет различным, мне же нужно, что бы если после запятой мало знаков, то не было бы нулей, т.е. мне просто нужно красиво вывести результат.

@Puporev · 15.08.2010, 12:35

КОП, А если в результате будет периодическая дробь, например 1/3?

@КОП · 15.08.2010, 12:47 **[ТС]**

Сообщение от Rockedit

Тогда единственно что приходит в голову. это анализировать числа после запятой. А это тоже задача не простая.

Вот моя прога это и делает (до 9 цифр после запятой)
Мне лишь нужно оформить её под функцию и использовать внутри оператора Write, если это возможно.
Если нет, то я сделаю процедуру c параметром, которую буду запускать перед Write и она определит количество цифр после запятой. Пример:

x:=1.123;
Proced(x); {w станет равным 4, е=3}
WriteLN ('x=', x:w:e);

Проблема в том, что если мне надо вывести 2 разные переменные (х1, х2), придётся сначала выполнить процедуру для ч1, написать одну половину Write с х1, потом запускать процедуру для х2 и дописывать строку.

Добавлено через 3 минуты

Сообщение от Puporev

КОП, А если в результате будет периодическая дробь, например 1/3?

то выведет 1.333333333 (округлённо)
мне достаточно точности в 9 цифр после запятой

@Puporev · 15.08.2010, 13:30

Тогда можно преобразовывать число в строку, брать первые 9 символов и отбросить все ведомые ноли.

Добавлено через 18 минут
Вот пример для 9 цифр после запятой с отбрасыванием нолей.

Pascal

uses crt;
var a,b,c:real;
    s,s1:string;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
c:=a/b;
str(c:0:9,s);
s1:=copy(s,1,pos('.',s)-1);
s:=copy(s,pos('.',s)+1,9);
if s[length(s)]='0'then
while s[length(s)]='0'do
delete(s,length(s),1);
if length(s)>0 then s1:=s1+'.'+s;
writeln('c=',s1);
readln
end.

@КОП · 15.08.2010, 15:03 **[ТС]**

Pupurev спасибо

Я сам ещё посидел и вот написал процедуру для 2х чисел.

Pascal

VAR
   w, e, w2, e2  :Byte;
   p, p2         :Real;
 
PROCEDURE RealWrite (x, x2 :Real);
  Var
    z, x1     :LongInt;
  Begin
   z:=1; w:=0;
   While (x/z) > 1 do begin
                        z:=z*10;
                        w:=w+1;
                      end;
   e:=10; z:=1;
   x1:=Round(1000000000*(frac(x)));
   If x1<>0 then begin
                   While (x1 mod z) = 0 do begin
                                             z:=z*10;
                                             e:=e-1;
                                           end;
                 end;
   If z = 1 then e:=0;
   w:=e+w;
   z:=1; w2:=0;
   While (x2/z) > 1 do begin
                        z:=z*10;
                        w2:=w2+1;
                      end;
   e2:=10; z:=1;
   x1:=Round(1000000000*(frac(x2)));
   If x1<>0 then begin
                   While (x1 mod z) = 0 do begin
                                             z:=z*10;
                                             e2:=e2-1;
                                           end;
                 end;
   If z = 1 then e2:=0;
   w2:=e2+w2;
  end;
 
BEGIN
  ReadLn (p, p2);
  RealWrite (p, p2);
  WriteLn (p:w:e, ' ', p2:w2:e2);
  ReadLn
END.

Но ещё есть главный вопрос: возможно ли сделать из этого функцию, что бы писать например

Pascal

1
2
3

...
WriteLn ('x1=', RealWrite(x1), ' x2=', RealWrite(x2));
...

@Puporev · 15.08.2010, 15:24

Сообщение от КОП

возможно ли сделать из этого функцию,

Конечно, только ее результатом будет не число, а строка, как у меня.

Pascal

1	function Rez(x,y:real):string;

Добавлено через 6 минут
Например так.

Pascal

uses crt;
function Rez(x,y:real):string;
var s,s1:string;
    z:real;
begin
z:=x/y;
str(z:0:9,s);
s1:=copy(s,1,pos('.',s)-1);
s:=copy(s,pos('.',s)+1,9);
if s[length(s)]='0'then
while s[length(s)]='0'do
delete(s,length(s),1);
if length(s)>0 then s1:=s1+'.'+s;
Rez:=s1;
end;
var a,b:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
writeln('rez=',Rez(a,b));
readln
end.

@КОП · 15.08.2010, 15:30 **[ТС]**

Спасибо большое.

Как я сам не додумался

@КОП 1123 / 794 / 219 Регистрация: 15.08.2010 Сообщений: 2,185
	15.08.2010, 11:44 [ТС]	3
	Сама прога например вычисляет что-нибудь. функция должна обеспечивать правильный вывод вещественных переменных, т.е. если это 1.123456 то и пишет 1. 123456, а если это 1.123, то 1.123000 пишет без нулей. Желательно, что бы это выглядело так: WriteLn ('x=', <имя функции>(x)) 0

@КОП 1123 / 794 / 219 Регистрация: 15.08.2010 Сообщений: 2,185
	15.08.2010, 12:03 [ТС]	5
	дело в том, что я не знаю, сколько получится знаков после запятой. Я ,конечно, могу написать WriteLn (x:14:10), но при х=1.5 я получу на экране 1.5000000000, этого я и хочу избежать. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.08.2010, 12:06	6
	Сообщение от КОП что я не знаю, сколько получится знаков после запятой. А кто знает? Это же ваша программа, вам и определять точность вывода числа, а программа всегда считает 15-16 для типа real и до 19-20 для более точных типов 0

@Rockedit Автор FAQ 1802 / 614 / 37 Регистрация: 22.12.2009 Сообщений: 1,544
	15.08.2010, 12:09	7
	Сообщение от КОП дело в том, что я не знаю, сколько получится знаков после запятой. Я ,конечно, могу написать WriteLn (x:14:10), но при х=1.5 я получу на экране 1.5000000000, этого я и хочу избежать. Тогда единственно что приходит в голову. это анализировать числа после запятой. А это тоже задача не простая. 0

@КОП 1123 / 794 / 219 Регистрация: 15.08.2010 Сообщений: 2,185
	15.08.2010, 12:13 [ТС]	8
	Допустим моя программа выполняет деление. Я ввожу 2 числа и она выдаёт частное. И количество знаков после запятой зависит от данных, которые я введу и будет различным, мне же нужно, что бы если после запятой мало знаков, то не было бы нулей, т.е. мне просто нужно красиво вывести результат. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.08.2010, 12:35	9
	КОП, А если в результате будет периодическая дробь, например 1/3? 0

@КОП 1123 / 794 / 219 Регистрация: 15.08.2010 Сообщений: 2,185
	15.08.2010, 12:47 [ТС]	10
	Сообщение от Rockedit Тогда единственно что приходит в голову. это анализировать числа после запятой. А это тоже задача не простая. Вот моя прога это и делает (до 9 цифр после запятой) Мне лишь нужно оформить её под функцию и использовать внутри оператора Write, если это возможно. Если нет, то я сделаю процедуру c параметром, которую буду запускать перед Write и она определит количество цифр после запятой. Пример: x:=1.123; Proced(x); {w станет равным 4, е=3} WriteLN ('x=', x:w:e); Проблема в том, что если мне надо вывести 2 разные переменные (х1, х2), придётся сначала выполнить процедуру для ч1, написать одну половину Write с х1, потом запускать процедуру для х2 и дописывать строку. Добавлено через 3 минуты Сообщение от Puporev КОП, А если в результате будет периодическая дробь, например 1/3? то выведет 1.333333333 (округлённо) мне достаточно точности в 9 цифр после запятой 0

@КОП 1123 / 794 / 219 Регистрация: 15.08.2010 Сообщений: 2,185
	15.08.2010, 15:30 [ТС]	14
	Спасибо большое. Как я сам не додумался 0