Файлы

[Logan]

1.
type слово=packed array [1..20] of char;
список=array [1..100] of слово;
Описать процедуру зап(l,t), записывающую слова списка l как строки в текстовый файл t.

2.
type серия=file of real;
Описать функцию отриц(s) подсчитывающую сумму отрицательных элементов серии s.

[Rusl92]

Как понять PACKED array? Кто - нить объяснить, мне интересно

[Logan]

Самому интересно))

[Xardas]

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

Как понять PACKED array? Кто - нить объяснить, мне интересно

Это так называемые упакованные массивы. Они упаковываются с целью экономии памяти. В задаче используются упакованные массивы символов. Распакованный массив символов хранит по одному слову в машинном слове, а упакованный - по одному символу в байте. Кроме того упакованные массивы можно использовать при использовании многомерных массивов (естественно, не обязательно символов).

ЗЫ Поиск, кстати, работает...

[Небесный]

Logan, че-то ты понаписывал!!! Загрузить слова из списка, а потом сохранить их в новый файл? Или Сделать ввод слов, а потом список сохранить. Опиши более конкретно задачу, тогда может чем-то тебе сдесь и помогут.

[Небесный]

Logan, 2 пункт ты описал более понятливою.
Выгрузишь из файла в массив, и тогда по этой процедуре будешь работать с массивом. Короче принцип такой.

Procedure Vivod_otricatelnih;
var
 b:real;
 i:integer;
 begin
        b:=0;
	for i:=0 to *** do
	 begin
		if mas[i]<0 then
			begin
			 write(mas[i],' ');
                         b:=b+mas[i];
			end;
	 end;
	writeln('Сумма отрицательных чисел = ',b,'.');
 end;

[Stilet]

Наработки есть? Что именно не получается?
Всеж просто: в цикле пойдись от 1 до 100 по элементам списка, каждый элемент записывай в файл, побайтно или все скопом.

Вот хотя бы так:

type s=packed array[1..21] of char;
var a:s; f:file;i:integer;   
begin   
assign(f,'__.txt');rewrite(f,1);   
for i:=1 to 20 do a[i]:=chr(ord('a')+i);   
 a[21]:=#13;   
blockwrite(f,a,21);   
close(f);   
end.