Напечатать список класса с указанием для каждого ученика количество его однофамильцев

@bnR07 · Регистрация: 02.12.2011

1)В строковом массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список класса с указанием для каждого ученика количество его однофамильцев.
2) Дан файл а компоненты которого являются целыми числами. Записать в файл g четные числа файла f, а в файл h все нечетные . Порядок следования чисел сохраняется.
3) Известны запасы нефти, в каждом из шести месторождений, а также названия этих месторождений. Определить наиболее богатые и наиболее бедные месторождения, указав из запасы, а также процент запаса в этих двух группах месторождений по отношению к общему запасу

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@КонецСвета · 27.12.2011, 21:33

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

2) Дан файл а компоненты которого являются целыми числами. Записать в файл g четные числа файла f, а в файл h все нечетные . Порядок следования чисел сохраняется

Pascal

var
 f,g,h: file of integer;
 i,c: integer;
 begin                     //здесь заполняем первый файл случайными числами
 assign(f,'C:\1.dat');   //здесь свой путь к файлу
 assign(g,'C:\2.dat');   //здесь свой путь к файлу
 assign(h,'C:\3.dat');   //здесь свой путь к файлу
 rewrite(f);
 for i:=1 to 30 do
     begin
     c:=random(101)-50;
     write(f,c);
     end;
 close(f);
 assign(f,'C:\1.dat');   //здесь свой путь к файлу
 reset(f);
 rewrite(g);
 rewrite(h);
 while not eof(f) do
       begin
     read(f,c);
     if c mod 2=0 then write(g,c)
        else write(h,c);
       end;
 close(f);
 close(g);
 close(h);
              //проверяем, записаны ли файлы
 assign(g,'C:\2.dat');   //здесь свой путь к файлу
 assign(h,'C:\3.dat');   //здесь свой путь к файлу
 reset(g);
 reset(h);
writeln('G-chet');
 while not eof(g) do
     begin
     read(g,c);
     write(c,' ');
     end;
writeln('');
writeln('H-nechet');
 while not eof(h) do
     begin
     read(h,c);
     write(c,' ');
     end;
readln;
 end.

Опции темы

Напечатать список класса с указанием для каждого ученика количество его однофамильцев

Решение