Файлы и записи (record)

[Oksana7]

Вывести фамилии и группу тех студентов, которые не получили ни одной тройки за сессию (в сессии 4 экзамена).
Указание: При решении задачи, использовать тип данных Записи (record). Исходные данные должны содержаться в текстовом файле. Количество записей в файле не меньше 20 и заранее неизвестно, сколько их. Результат работы программы записать в файл с другим именем.

[Poma][a]

Я вижу 2 варианта :
1) Вы 1.1) просите о помощи, а не заходите кидаете задание, и ждете ответа
1.2) предоставляете наработки, черновики, хоть что-то
1.3) задаете вопросы, что не понятно
Тогда, возможно, Вы будет Вам счастье.
2) Вы идете с деньгой во фриланс.

[Oksana7]

Очень нужна ваша помощь, дорогие программисты! Помогите , пожалуйста, написать код программы в Pascal!

[Serge_Bliznykov]

воспользуйтесь поиском по форуму. подобные задачи здесь уже решались..

[JIeIIIa]

Сообщение от Poma][a

2) Вы идете с деньгой во фриланс.

Надумаете пойти по этому пути - пишите stealth(собака)bigmir.net помогу.
Только (собака) замените на @

[Oksana7]

Что-то я не нашла ничего похожего....

[domovou]

Вроде бы так:

type

    ek=record
             fam,gr:string;
             ses:array [1..4] of 1..5;
             end;
    t=text;
var
   f1,f2:t;
   i,kol,o,w:integer;
   a:ek;

procedure soz(var f1:t);
begin
writeln('Kol-vo zapisi');
readln(kol);
assign(f1,'f111.txt');
rewrite(f1);
for i:=1 to kol do
    begin

    writeln('Fam');
    readln(a.fam);
    writeln('Frupa');
    readln(a.gr);
    writeln('Ocenki');
    for o:=1 to 4 do
        begin
        writeln(o,' ekzamen paven ');
        readln(a.ses[o]);

        end;
    writeln(f1,a.fam);
    writeln(f1,a.gr);
    for o:=1 to 4 do writeln(f1,a.ses[o]);
    end;
close(f1);
end;

procedure prosm(var f1,f2:t);
begin
assign(f1,'f111.txt');
reset(f1);
assign(f2,'f22222.txt');
rewrite(f2);
while not eof(f1) do
      begin
      readln(f1,a.fam);
      readln(f1,a.gr);
      for o:=1 to 4 do readln(f1,a.ses[o]);
      writeln(' ',a.fam,'  ',a.gr,' ',a.ses[1],' ',a.ses[2],' ',a.ses[3],' ',a.ses[4]);
      if (a.ses[1]>3) and (a.ses[2]>3) and (a.ses[3]>3)  and (a.ses[4]>3) then
         begin
         writeln(f2,a.fam);
         writeln(f2,a.gr);
         for o:=1 to 4 do writeln(f2,a.ses[o]);

         end;
      end;
close(f1);
close(f2);
readln;
end;

procedure prosm2(var f2:t);
begin
assign(f2,'f22222.txt');
reset(f2);
writeln('Fail 2 ----------');
while not eof(f2) do
      begin
      readln(f2,a.fam);
      readln(f2,a.gr);
      for o:=1 to 4 do readln(f2,a.ses[o]);
      writeln(' ',a.fam,'  ',a.gr,' ',a.ses[1],' ',a.ses[2],' ',a.ses[3],' ',a.ses[4]);
        end;


close(f2);
readln;
end;

BEGIN
w:=30;
while w<>0 do
      begin
      writeln('soz-1');
      writeln('prosm-2');
      writeln('prosm2-3');
      readln(w);
      case w of
           1:soz(f1);
           2:prosm(f1,f2);
           3:prosm2(f2);
           end;
      end;
readln;
END.

[Serge_Bliznykov]

domovou, очень хороший пример.

только, я бы не вводил дополнительный тип T (зачем, если он и так у вас равен Text)
и ещё, нет смысла передавать в любую процедуру переменную, которая в ней нужна лишь ВРЕМЕННО (и, главное, ничего в ней не возвращается!).
Уж тогда лучше имена файлов туда передавать!
и ещё очень не рекомендую использовать глобальные переменные (тем более в качестве временных локальных переменных)!

поясню. вместо:

procedure soz(var f1:t);
begin
writeln('Kol-vo zapisi');
readln(kol);
assign(f1,'f111.txt');

написать так:

procedure soz(const sFileName : string);
var f1 : Text;
     i,kol,o:integer;
     a:ek;
begin
  writeln('Kol-vo zapisi');
  readln(kol);
  assign(f1, sFileName);
....
  close(f1);
end;

.....


     readln(w);
     case w of
         1:soz('f111.txt');

и то же самое нужно сделать в процедурах prosm и prosm2

[Oksana7]

Спасибо большое! выручили!

[domovou]

Serge_Bliznykov, спасибо за комментарии! В следующий раз учту.