Есть задача:
Создать файл,содержащий массив целых чисел. Определить количество элементов массива.
Переменной L присвоить значение True ,если в массиве нечетное число элементов и значение
False в противном случае.
Нарисовал всё это так:
uses crt;
const n=13;
var f:text; i,kol:integer; s:real; l:boolean;
mas: array [1..n] of integer;
begin clrscr; randomize;
for i:=1 to n do begin
mas[i]:=random(25)-5; write(mas[i],' '); end;
for i:=1 to n do
kol:=kol+1; writeln;
writeln('chislo_elementov= ',kol);
if (kol mod 2)=0 then l:=false else l:=true;
writeln('L: ',l);
assign(f,'massiv1.txt'); rewrite(f);
for i:=1 to n do
write(f,mas[i],' '); writeln(f);
writeln(f,'chislo_elementov= ',kol);
writeln(f,'L: ',l); close(f);
readkey; end.
var
f: FILE of integer; { <--- Исправлено !!! }
...
begin
randomize;
count := random(20) + 20;
assign(f, 'array.dat'); rewrite(f);
for i := 1 to count do begin
elem := random(25) - 5; write(f, elem);
end;
close(f);
{
ну вот, файл создан, теперь открывай его и считай,
сколько элементов в нем хранится
}
...
end.
Надо чтото в скобке после слова array написать в задании переменной- ошибку выдаёт
Ты где-то в моем коде видишь слово Array (в смысле, описание типа)? Я - не вижу... Показывай, что ты намудрил...
Update:
исправлено, там должен был быть File of integer... Остальные переменные доопредели сам...
Получилось вот что:
uses crt;
var i,kol,count,elem:integer; l:boolean;
f: file of integer;
begin clrscr; randomize;
count:=random(20)+10;
assign(f,'massiv1.txt'); rewrite(f);
for i:=1 to count do begin
elem:=random(25)-5; write(f,elem); write(elem,' '); end; close(f);
assign(f,'massiv1.txt'); reset(f);
for i:=1 to count do
kol:=kol+1; writeln;
writeln('chislo_elementov= ',kol);
if (kol mod 2)=0 then l:=false else l:=true;
writeln('L: ',l);
readkey; end.
for i:=1 to count do
kol:=kol+1;
Чуть не забыл,volvo - благодарю!!!)))
Айра, исправлю,но это всё мелочи , у меня нет задачи оптимизировать код)))
Здесь дело не в оптимизации.. Задача то на файлы, скорее всего в задании подразумевались запись в файл и чтение из него.. 1-е у тебя есть, а вместо второго ты схитрил))
Но вообще кто его знает.. я же не твой преподаватель и настаивать не буду))