Пользователь вводит 10 чисел, из них формируется массив сначало четные затем нечетные

@Student9494 · Регистрация: 08.03.2016

Писал программу: пользователь вводит 10 чисел, из них формируется массив сначало четные затем нечетные.

Pascal

program Project1; 
 
{$APPTYPE CONSOLE} 
 
uses 
SysUtils; 
 
var x,i:integer; q:file of integer; 
a:array[0..9] of integer; 
begin 
assign(q,'ch.dat'); 
rewrite(q); 
for I := 0 to 9 do begin 
readln(x); 
write(q,x); 
end; 
reset(q); 
writeln('mas=' ); 
while not eof(q) do begin 
read(q,x); 
for I := 0 to 9 do begin 
if x mod 2 =0 then begin 
a[i]:=x ; 
write(a[i]); 
end; 
end; 
i:=i+1; 
end; 
close(q); 
readln; 
end.

В итоге печатает четные причем каждое по 10 раз а нечетные вообще не печатает. Помогите довести до ума...

@Puporev · 12.05.2016, 15:03

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

из них формируется массив

А нафига еще и типизированный файл?

@Student9494 · 12.05.2016, 15:05 **[ТС]**

забыл что в задании сказано хранить числа в файле

@Puporev · 12.05.2016, 15:08

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

забыл что в задании

Так напиши его полностью, а то фиг поймешь чего тебе нужно.

@Student9494 · 12.05.2016, 15:10 **[ТС]**

Хорошо оглашу задание: создать типизированный файл, содержащий целые числа. Из компонентов исходного файла сформировать массив, в котором вначале расположить четные, а затем нечетные числа.

@Puporev · 12.05.2016, 15:32

Delphi

var q:file of integer;
    a:array of integer;
    n,x,i,j:integer;
begin
randomize;
assignfile(q,'ch.dat');
rewrite(q);
write('n=');
readln(n);
for i:=1 to n do
 begin
  x:=random(50);
  write(q,x);
 end;
reset(q);
writeln('mas=' );
read(q,x);
n:=1;
setlength(a,n);
a[n-1]:=x;
while not eof(q) do
 begin
  read(q,x);
  n:=n+1;
  setlength(a,n);
  if odd(x)then a[n-1]:=x
  else
   begin
    for j:=n-1 downto 1 do
    a[j]:=a[j-1];
    a[0]:=x;
   end;
 end;
closefile(q);
for i:=0 to n-1 do
write(a[i]:4);
readln
end.

@Student9494 · 12.05.2016, 15:39 **[ТС]**

Спасибо, малость сложнее чем я ожидал но все равно работает отлично...

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	12.05.2016, 15:03	2
	Сообщение от Student9494 из них формируется массив А нафига еще и типизированный файл? 0

@Student9494 0 / 0 / 0 Регистрация: 08.03.2016 Сообщений: 20
	12.05.2016, 15:05 [ТС]	3
	забыл что в задании сказано хранить числа в файле 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	12.05.2016, 15:08	4
	Сообщение от Student9494 забыл что в задании Так напиши его полностью, а то фиг поймешь чего тебе нужно. 0

@Student9494 0 / 0 / 0 Регистрация: 08.03.2016 Сообщений: 20
	12.05.2016, 15:10 [ТС]	5
	Хорошо оглашу задание: создать типизированный файл, содержащий целые числа. Из компонентов исходного файла сформировать массив, в котором вначале расположить четные, а затем нечетные числа. 0

@Student9494 0 / 0 / 0 Регистрация: 08.03.2016 Сообщений: 20
	12.05.2016, 15:39 [ТС]	7
	Спасибо, малость сложнее чем я ожидал но все равно работает отлично... 0

Опции темы

Пользователь вводит 10 чисел, из них формируется массив сначало четные затем нечетные

Решение