На сайте в режиме реального времени публикуются решения контестных задач сервиса Codeforces.
Загружайте свои решения( здесь ) прямо на сайте. Подробнее. Жду ваших решений
 

По разделам

 

Задача File 51


Даны три файла вещественных чисел с именами S1, S2 и S3, элементы которых упорядочены по убыванию. Объединить эти файлы в новый файл с именем S4 так, чтобы его элементы также оказались упорядоченными по убыванию.

Код (Pascal)

program File51;
var
 S1,S2,S3,S4: String;
 F1,F2,F3,F4: File of Real;
 El1,El2,El3:Real;
 File1end,File2end,File3end:boolean;
Function comparison(A,B,C:Real; Ba,Bb,Bc:Boolean): Boolean;
begin
 if not(Ba) and not(Bb) and not(Bc) then
  if (A>=B) and (A>=C) then comparison:=true
  else comparison:=false
 else
  if not(Ba) and not(Bb) and Bc then
   if (A>=B) then comparison:=true
   else comparison:=false
  else
   if not(Ba) and Bb and not(Bc) then
    if (A>=C) then comparison:=true
    else comparison:=false
   else
    if not(Ba) and Bb and Bc then comparison:=true
    else comparison:=false;
end;
begin
  Write('S1: ');
  Readln(S1);
  Write('S2: ');
  Readln(S2);
  Write('S3: ');
  Readln(S3);
  Write('S4: ');
  Readln(S4);
  Assign(F1,S1);
  Assign(F2,S2);
  Assign(F3,S3);
  Assign(F4,S4);
  Reset(F1);
  Reset(F2);
  Reset(F3);
  ReWrite(F4);
  Read(F1,El1);
  Read(F2,El2);
  Read(F3,El3);
  File1end:=false;
  File2end:=false;
  File3end:=false;
  while (not (File1end) or not(File2end) or not(File3end)) do
   begin
    if comparison(El1,El2,El3,File1end,File2end,File3end) then
     begin
      Write(F4,El1);
      if not(eof(F1)) then Read(F1,El1)
      else File1end:=true;
     end
    else
     if comparison(El2,El1,El3,File2end,File1end,File3end) then
      begin
       Write(F4,El2);
       if not(eof(F2)) then Read(F2,El2)
       else File2end:=true;
      end
     else
      if comparison(El3,El1,El2,File3end,File1end,File2end) then
       begin
        Write(F4,El3);
        if not(eof(F3)) then Read(F3,El3)
        else File3end:=true;
       end;
   end;
  Close(F1);
  Close(F2);
  Close(F3);
  Close(F4);
  Readln;
end.
									




File. Абрамян
File 1 Просмотров: 23
File 2 Просмотров: 18
File 3 Просмотров: 22
File 4 Просмотров: 18
File 5 Просмотров: 23
File 6 Просмотров: 13
File 7 Просмотров: 29
File 8 Просмотров: 11
File 9 Просмотров: 22
File 10 Просмотров: 18
File 11 Просмотров: 21
File 12 Просмотров: 28
File 13 Просмотров: 23
File 14 Просмотров: 15
File 15 Просмотров: 14
File 16 Просмотров: 21
File 17 Просмотров: 14
File 18 Просмотров: 17
File 19 Просмотров: 12
File 20 Просмотров: 17
File 21 Просмотров: 14
File 22 Просмотров: 12
File 23 Просмотров: 12
File 24 Просмотров: 13
File 25 Просмотров: 20
File 26 Просмотров: 16
File 27 Просмотров: 20
File 28 Просмотров: 21
File 29 Просмотров: 15
File 30 Просмотров: 17
File 31 Просмотров: 13
File 32 Просмотров: 14
File 33 Просмотров: 28
File 34 Просмотров: 21
File 35 Просмотров: 15
File 36 Просмотров: 13
File 37 Просмотров: 17
File 38 Просмотров: 22
File 39 Просмотров: 15
File 40 Просмотров: 16
File 41 Просмотров: 28
File 42 Просмотров: 19
File 43 Просмотров: 11
File 44 Просмотров: 22
File 45 Просмотров: 15
File 46 Просмотров: 12
File 47 Просмотров: 16
File 48 Просмотров: 15
File 49 Просмотров: 16
File 50 Просмотров: 17
File 51 Просмотров: 21
File 52 Просмотров: 13
File 53 Просмотров: 12
File 54 Просмотров: 13
File 55 Просмотров: 21
File 56 Просмотров: 14
File 57 Просмотров: 14
File 58 Просмотров: 20
File 59 Просмотров: 13
File 60 Просмотров: 16

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться