Файлы (Си)

[Credo4444]

Нужно сегодня к вечеру или ночи написать 2 программы на языке Си. есть готовое на паскале. 6wmz все что есть.
1.Число компонент файла f, компонентами которого являются целые числа, кратно 10. Переписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы в начале шли числа, делящиеся на 3, затем числа, дающие при делении на 3 остаток 1, затем числа, дающие при делений 3 остаток 2. Порядок самих десяток должен быть сохранен.
2.Дан файл, содержащий сведение о студентах, включающие в себя его фамилию имя, год рождение, номер группы и оценки, по каким либо трем предметам.
Составить программу, которая выводит:
-Данные отличников;
-Данные студентов, получивыших по какому либо предмету оценку-2;
-Списко студентов, фамилий которых начинаются с буквы “A”;
-Упорядочить список по году рождению

[Credo4444]

icq 387-915-570

[Loveb]

Файл какого расширения?
хотелось бы поподробнее глянуть
vano_loveb@mail.ru

[Пепел Феникса]

phoenixcorp13@gmail.com
скиньте ваши паскалевские программы, переведу на С.
так же под какой компилятор нужно.

[Credo4444]

помогите срочно они пропали так и не свзяался

[pproger]

на си чет меня ломаааает. на плюсах хочешь бесплатно?

[Пепел Феникса]

от ТС на почту ничего не получал.
хотя в общем то теперь, я уже занят.

[Credo4444]

pproger буду благодарен сделайте на плюсах тогда
Пепел Феникса я вам на аську и в google talk писал((

[pproger]

2Credo4444
вечером после работы сделаю вторую. приведи пример файла (его структуру), который надо прочитать и проанализировать

[Credo4444]

Число компонент файла f, компонентами которого являются целые числа, кратно 10. Переписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы в начале шли числа, делящиеся на 3, затем числа, дающие при делении на 3 остаток 1, затем числа, дающие при делений 3 остаток 2. Порядок самих десяток должен быть сохранен.

uses crt;
var f,g:file of integer;
n,i,j,a,k,p:integer;
begin
clrscr;
randomize;
assign(f,'filef');{создаем файлы}
rewrite(f);
assign(g,'fileg');
rewrite(g);
write('Сколько десятков чисел записать в файл? n=');
readln(n);
for i:=1 to n do
for j:=1 to 10 do
begin
a:=random(50)+1;
write(f,a);{заполняем первый}
end;
reset(f);{открываем для чтения}
writeln('Файл F:');
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);{прочитали, закрываем}
writeln;
writeln;
reset(f);
for i:=1 to n do{по количеству десятков}
begin
p:=(i-1)*10;{встаем в начало десятки, индексы идут с 0
1 - от 0 до 9, 2 - от 10 до 19....}
for j:=0 to 2 do{3 раза проходим}
for k:=p to p+9 do{10 чисел}
begin
seek(f,k);{встаем}
read(f,a);{читаем}
if a mod 3=j then write(g,a);{выбираем с остатком 0,1,2}
end;
end;
close(f);
reset(g);
writeln('Файл G:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);
readln
end.