Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Создать файл из одномерных целочисленных массивов a1,a2,. ,a10, заполненных числами от –50 до 50. Переписать в другой…

Создать файл из одномерных целочисленных массивов a1,a2,. ,a10, заполненных числами от –50 до 50. Переписать в другой…

Оцените материал
(0 голосов)

Создать файл из одномерных целочисленных массивов a1,a2,. ,a10, заполненных числами от –50 до 50. Переписать в другой…

Задача:

Создать файл из одномерных целочисленных массивов a1,a2,. ,a10, заполненных числами от –50 до

50. Переписать в другой типизированный файл те массивы, у которых сумма элементов больше 0.

Uses crt;
type TA=array[1..10] of integer;
var
i,j,k,S: integer;
a, Sum: TA;
F1,F2: file of TA;
begin
 clrscr;
 writeln('    Sozdanie faila file1.txt');
 assign(F2,'file2.txt');
 assign(F1,'file1.txt');
 rewrite(F1);
 {rewrite(F2);}
 randomize;
 for j:=1 to 10 do
    begin
     for i:=1 to 10 do a[i]:=random(101)-50;
     write(F1,a);
     for i:=1 to 10 do
     write(a[i]:3,' ');
     writeln;
    end;
 readln;
 close(F1);
 reset(F1);
 {2 aya 4ast programmy}
 writeln('Perepisyvanie massivov v fail file2.txt');
 rewrite(F2);
 for i:=1 to 10 do
    begin
     read(F1,a);
      begin
       S:=0;
       for j:=2 to 10 do S:=S+a[j];
       if S>0 then
        begin
         {write('Summa=',S,'; ');}
         for k:=1 to 10 do
           write(a[k]:3, ' ');
           writeln;
        end  else
         if S<0 then
          begin
           for j:=1 to 10 do a[j]:=0;
 
          end
      end
    end;
     for j:=1 to 10 do
      if (j<>S) and (j<>a[j]) then
         write(F2,a);
 close(F2);
 close(F1);
 readln;
end.
Прочитано 6961 раз

Авторизация



Счетчики