Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов

@Quiet_22 · Регистрация: 03.12.2009

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

Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов: а0а1,а1а2,а2а3,а3а4,а4а0.

ИСХОДНЫЕ ДАННЫЕ:
1 2 3 4 2
5 6 7 8 1
9 10 11 12 1
3 3 2 2 2

@Puporev · 04.01.2010, 19:56

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

а0а1,а1а2,а2а3,а3а4,а4а0

Это как читать? а0*а1,а1*а2,а2*а3,а3*а4,а4*а0 так что ли?

@Quiet_22 · 04.01.2010, 19:59 **[ТС]**

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

Это как читать? а0*а1,а1*а2,а2*а3,а3*а4,а4*а0 так что ли?

Видимо да..

@Puporev · 04.01.2010, 20:05

Исходный файл тоже типизированный, или текстовый? Или тоже фиг его знает?

@Quiet_22 · 04.01.2010, 20:07 **[ТС]**

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

Исходный файл тоже типизированный, или текстовый? Или тоже фиг его знает?

По идее тоже

@Puporev · 04.01.2010, 21:47

Pascal

uses crt;
const n=4;
type mas=array[0..n] of byte;
     fail=file of mas;
const a:mas=(1,2,3,4,2);
      b:mas=(5,6,7,8,1);
      c:mas=(9,10,11,12,1);
      d:mas=(3,3,2,2,2);
var f,g:fail;
    x:mas;
    i,p,q:byte;
begin
clrscr;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
write(f,a,b,c,d);
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,x);
  for i:=0 to n do
  write(x[i]:4);
  writeln;
  p:=x[0];
  for i:=0 to n-1 do
   begin
    q:=x[i+1];
    x[i]:=x[i]*q;
   end;
  x[n]:=x[n]*p;
  write(g,x);
 end;
close(f);
writeln('Содержание полученного файла:');
reset(g);
while not eof(g) do
 begin
  read(g,x);
  for i:=0 to n do
  write(x[i]:4);
  writeln;
 end;
close(g);
readln
end.

@Quiet_22 0 / 0 / 0 Регистрация: 03.12.2009 Сообщений: 20
		1
	Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов 04.01.2010, 19:36. Показов 951. Ответов 5 Метки нет (Все метки) Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов: а0а1,а1а2,а2а3,а3а4,а4а0. ИСХОДНЫЕ ДАННЫЕ: 1 2 3 4 2 5 6 7 8 1 9 10 11 12 1 3 3 2 2 2 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	04.01.2010, 19:56	2
	Сообщение от Quiet_22 а0а1,а1а2,а2а3,а3а4,а4а0 Это как читать? а0а1,а1а2,а2а3,а3а4,а4*а0 так что ли? 0

@Quiet_22 0 / 0 / 0 Регистрация: 03.12.2009 Сообщений: 20
	04.01.2010, 19:59 [ТС]	3
	Сообщение от Puporev Это как читать? а0а1,а1а2,а2а3,а3а4,а4*а0 так что ли? Видимо да.. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	04.01.2010, 20:05	4
	Исходный файл тоже типизированный, или текстовый? Или тоже фиг его знает? 0

@Quiet_22 0 / 0 / 0 Регистрация: 03.12.2009 Сообщений: 20
	04.01.2010, 20:07 [ТС]	5
	Сообщение от Puporev Исходный файл тоже типизированный, или текстовый? Или тоже фиг его знает? По идее тоже 0

	04.01.2010, 21:47

Опции темы