Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат

@CyberNUB · Регистрация: 04.11.2012

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

Ввести файл F . Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат (индексом считать позицию элемента, увеличенную на единицу). Файл вывести до и после преобразования. Данные должны вводиться вручную.

Kodzaev · 25.11.2012, 21:24

Pascal

Uses crt;
Var
  f,buf: File of Integer;
  i,n,x: Integer;
BEGIN
Clrscr;
Assign(f,'fail.dat');
Rewrite(f);
Write('Vvedite kol-vo komponentov: '); Readln(n);
For i:=1 to n do
begin
  Readln(x);
  Write(f,x);
end;
Reset(f);
Writeln('Fail do preobrazovaniya:');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  Write(x,' ');
end;
Assign(buf,'buf.dat');
Rewrite(buf);
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x div (i+1)>2 Then
  x:=Sqr(x);
  Write(buf,x);
end;
Close(f);
Erase(f);
Close(buf);
Reset(buf);
Writeln;
Writeln('Fail posle preobrazovaniya:');
For i:=0 to Filesize(buf)-1 do
begin
  Seek(buf,i);
  Read(buf,x);
  Write(x,' ');
end;
Close(buf);
Rename(buf,'fail.dat');
Readln
END.

@CyberNUB 1 / 1 / 0 Регистрация: 04.11.2012 Сообщений: 91
		1
	Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат 25.11.2012, 15:48. Показов 1347. Ответов 1 Метки нет (Все метки) Ввести файл F . Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат (индексом считать позицию элемента, увеличенную на единицу). Файл вывести до и после преобразования. Данные должны вводиться вручную. 0

Опции темы

Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат

Решение