Что за кракозябры при выводе?

@Nadzor · Регистрация: 14.08.2014

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

Что за кракозябры при выводе?

P.S. Программы должна выводить заданные числа в обратном порядке

Pascal

Program anc;
Var a:array of real;
input, output:text;
n,i,x:integer;
Begin
 
 
assign(input,'input.txt');
reset(input);
readln(input,n);
 
 
SetLength(a,n);
 
for i:=0 to n-1 do read(input,a[i]);
close(input);
 
 
assign(output,'output.txt');
rewrite(output);
 
for i:=n-1 downto 0 do write(output,a[i]:2);
close(output);
end.

input.txt5
1 2 3 4 500000

output.txt5.00000000000000E+0054.00000000000000E+0003.00000000000000E+0002.00000000000000E +0001.00000000000000E+000

И где же я сделал ошибку?

@Arik100 · 17.11.2017, 10:41

Pascal

22	for i:=n-1 downto 0 do write(output,a[i]:2:0);

@Puporev · 17.11.2017, 11:52

Если в файле целые числа, нафига массив вещественный?

@Cyborg Drone · 17.11.2017, 12:08

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

Что за кракозябры

Это представление вещественных чисел в подавляющем большинстве языков программирования высокого уровня, выведенные без пробелов между числами. Как пример,

5.00000000000000E+005 = 5.00000000000000∙10⁰⁰⁵ = 5∙10⁵ = 500000
4.00000000000000E+000 = 4∙10⁰ = 4

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

где же я сделал ошибку

Ошибку Вы сделали в магазине, когда не купили себе какую-нибудь книжку по паскалю. В общем-то, программа написана без ошибки. Если, конечно, числа в файле вещественные. Если целые - то незачем применять вещественный массив, достаточно целочисленного. Можно, конечно, оставить вещественный массив и применить форматированный вывод, но тогда уж лучше

Pascal

22	for i:=n-1 downto 0 do write(output,' ',a[i]:0:0);

Для целочисленного массива

Pascal

22	for i:=n-1 downto 0 do write(output,' ',a[i]);

@Nadzor · 17.11.2017, 15:47 **[ТС]**

Сообщение от Cyborg Drone

Если целые - то незачем применять вещественный массив, достаточно целочисленного

А как расширить диапазон числа? Real же велик)

@Puporev · 17.11.2017, 15:51

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

А как расширить диапазон числа?

Pascal

1	var x:Int64;

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.11.2017, 11:52	3
	Если в файле целые числа, нафига массив вещественный? 1

@Nadzor 7 / 7 / 1 Регистрация: 14.08.2014 Сообщений: 167
	17.11.2017, 15:47 [ТС]	5
	Сообщение от Cyborg Drone Если целые - то незачем применять вещественный массив, достаточно целочисленного А как расширить диапазон числа? Real же велик) 0

	17.11.2017, 15:51

Что за кракозябры при выводе?

Решение