Где купить сувенирные колллекционные куклы детские большие @ Политические
хаха)надеюсь следущем году этот придурок не 1ю смену художке будет...
Дан файл вещественных чисел.Создать новый файл так,чтобы элементы были переставлены таким образом: было:х1 х2 х3 х4 х5 х6 х7 х8.хn xn+1 xn+2 xn+3.Стало: xn xn+1xn+2 xn+3.х5 х6 х7 х8 х1 х2 х3 х4.Если количество эле-ментов файле не кратно 4, то последние элементы но-вый файл не писать.Помогите пожаллуйста).
Ок.Вопрос какой максимальный размер массива?(реализация на турбопаскале или на фрипаскале).
Идея алгоритма...{... открыли филе на чтение-запись...}{...считали входной файл массив майка супермена женская А, число считанных элементов}g:=n div 4; // число полных тетрадfor i:=g downto 1for j:=1 to 4write(outputfile,a[(i-1)*4+j]);{...завершение...}.
Евгений Брызгалов, пожалйуста напишите задачу полностью) на турбо паскале буду очень багодарен.
var f:file of real;i,j,n:integer;a:array [1..1000] of real;beginassign(f,'input.dat');reset(f);n:=0;while not eof(f1) do begin n:=n+1; read(f1,a[n]) end;close(f);assign(f,'output.dat');rewrite(f);for i:=n div downto dofor j:=1 to dowrite(f,a[(i-1)*4+j]);close(f)end.Как уж вы подготовите входной файл это другой вопрос.
Почему бы не перечитать не обсудить этого замечательного писателя...
Дан файл вещественных чисел.Создать новый файл так,чтобы элементы были переставлены таким образом: было:х1 х2 х3 х4 х5 х6 х7 х8.хn xn+1 xn+2 xn+3.Стало: xn xn+1xn+2 xn+3.х5 х6 х7 х8 х1 х2 х3 х4.Если количество эле-ментов файле не кратно 4, то последние элементы но-вый файл не писать.Помогите пожаллуйста).
Ок.Вопрос какой максимальный размер массива?(реализация на турбопаскале или на фрипаскале).
Идея алгоритма...{... открыли филе на чтение-запись...}{...считали входной файл массив майка супермена женская А, число считанных элементов}g:=n div 4; // число полных тетрадfor i:=g downto 1for j:=1 to 4write(outputfile,a[(i-1)*4+j]);{...завершение...}.
Евгений Брызгалов, пожалйуста напишите задачу полностью) на турбо паскале буду очень багодарен.
var f:file of real;i,j,n:integer;a:array [1..1000] of real;beginassign(f,'input.dat');reset(f);n:=0;while not eof(f1) do begin n:=n+1; read(f1,a[n]) end;close(f);assign(f,'output.dat');rewrite(f);for i:=n div downto dofor j:=1 to dowrite(f,a[(i-1)*4+j]);close(f)end.Как уж вы подготовите входной файл это другой вопрос.
Почему бы не перечитать не обсудить этого замечательного писателя...