Uses crt;
type
Massiv = array [1..100] of real;
var
a: ^Massiv;
n, i: integer;
t: file of real;
name: string;
b: real;
begin
clrscr;
write('Vvedite nazvanie: ');
readln(name);
assign(t, name);
rewrite(t);
write('Vvedite razmernost:');
readln(n);
writeln('Vvedite 4isla: ');
for i:=1 to n do begin
readln(b);
write(t, b);
end;
close(t);
reset(t);
for i:=1 to n do begin
read(t, b);
writeln(b:0:2,' ');
end;
close(t);
{max:=a[1];
index:=1;
for i:=1 to n do
if a>max then
begin
max:=a;
index:=i;
end;
q:=a[1];
a[1]:=max;
a[index]:=q;
writeln;}
{for i:=1 to n do begin
write(a:0:2,' ');
end;}
readln;
end.
Динамический массив
Доброго времени суток.
Задание
Создать типизированный файл с n вещественных чисел. Переписать содержимое файла в массив, разместив его в динамической памяти.( сделал частично, а именно создал и забил в файл ). Поменять местами максимальный элемент и первый.( реализовал, но пока забил в комментарий ).
Собственно нужна помощь. Важен вот такой момент, как правильно будет из файла записать в массив( уже динамический ) , ну и потом соответственно проделать всё остальное.
Заранее благодарен.
Код привел ниже.
Задание
Создать типизированный файл с n вещественных чисел. Переписать содержимое файла в массив, разместив его в динамической памяти.( сделал частично, а именно создал и забил в файл ). Поменять местами максимальный элемент и первый.( реализовал, но пока забил в комментарий ).
Собственно нужна помощь. Важен вот такой момент, как правильно будет из файла записать в массив( уже динамический ) , ну и потом соответственно проделать всё остальное.
Заранее благодарен.
Код привел ниже.
Код:
нужно узнать сколько в файле элементов, подготовить память, считать (поэлементно или скопом зависит от организации данных в файле)