Определение порядкового номера

@Alex.92 · Регистрация: 25.02.2012

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

есть файл с каким то кол-вом чисел, программа должна считать и записать числа с определенными порядковыми номерами в новый файл. например числа с четными номерами или только 5ое и 7 число. помогите решить на паскаль абс, и поподробнее опишите действия с порядковым номером, очень непонятная для меня ф-ия.

@chealbert · 26.03.2012, 19:12

Файл текстовый или типизированный? А то подход разный.

@Alex.92 · 26.03.2012, 19:17 **[ТС]**

текстовый наверное, типотизированый еще не объясняли

@chealbert · 26.03.2012, 19:55

Pascal

Program n1;
Var f1,f2:text;
    x,k,i:integer;
    a:array[1..100]of integer;
begin
 assign(f1,'file1.txt');
 writeln('V file file1.txt');
 reset(f1);
 i:=1;{НАЧАЛО ОТСЧЁТА ЧИСЕЛ И УКАЗАНИЕ НА ПЕРВУЮ ЯЧЕЙКУ МАСИВА}
 while not eof(f1) do
  begin
   while not eoln(f1) do
    begin
     read(f1,a[i]);{СЧИТАЛИ ИЗ ФАЙЛА ЧИСЛО В i-Ю ЯЧЕЙКУ МАСИВА, і - ПОРЯДКОВЫЙ НОМЕР}
     write(a[i],' ');{ВЫВЕЛИ НА ЭКРАН}
     i:=i+1;{ПЕРЕШЛИ К СЛЕДУЮЩЕЙ ЯЧЕЙКЕ МАСИВА} 
    end;
   readln(f1);
   writeln;
  end;
 close(f1);
 k:=i-1;
 writeln('Schitano ',k,' chisel');
 assign(f2,'file2.txt');
 rewrite(f2);
 for i:=1 to k do
  if i mod 2=0  then write(f2,a[i],' ');{ЗАПИСЫВАЕМ ТОЛЬКО ЧИСЛА С ПАРНЫМИ НОМЕРАМИ}
 close(f2);
 writeln('Zapisano file2.txt');
End.

Здесь отбираются и записываются только числа с парными номерами. Если нужно 5-число то условие i=5 (в 27 строке) ну и т.д.

@Alex.92 0 / 0 / 0 Регистрация: 25.02.2012 Сообщений: 6
		1
	Определение порядкового номера 26.03.2012, 19:05. Показов 1235. Ответов 3 Метки нет (Все метки) есть файл с каким то кол-вом чисел, программа должна считать и записать числа с определенными порядковыми номерами в новый файл. например числа с четными номерами или только 5ое и 7 число. помогите решить на паскаль абс, и поподробнее опишите действия с порядковым номером, очень непонятная для меня ф-ия. 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	26.03.2012, 19:12	2
	Файл текстовый или типизированный? А то подход разный. 0

@Alex.92 0 / 0 / 0 Регистрация: 25.02.2012 Сообщений: 6
	26.03.2012, 19:17 [ТС]	3
	текстовый наверное, типотизированый еще не объясняли 0

	26.03.2012, 19:55