Advertisement
Guest User

Untitled

a guest
Oct 17th, 2019
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 2.30 KB | None | 0 0
  1. program Lab4;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses Windows;
  6. {$R *.res}
  7.  
  8. const
  9.   n = 10;
  10.  
  11. var
  12.   i, m, count: integer;
  13.   a: array [1 .. n] of integer;
  14.   b: array [1 .. n] of integer;
  15.   dat, res: TextFile;
  16.  
  17. begin
  18.   AssignFile(dat, paramstr(1));
  19.   Reset(dat);
  20.   AssignFile(res, paramstr(2));
  21.   Rewrite(res);
  22.  
  23.   count := 0;
  24.   writeln(res, 'Лаб №4');
  25.   writeln(res, 'Входные данные');
  26.   writeln(res, ' ');
  27.   readln(dat, m);
  28.   if m = 0 then
  29.   begin
  30.     writeln(res, ' ');
  31.     writeln(res, 'Массивы пусты');
  32.     exit;
  33.   end
  34.   else if m < 0 then
  35.   begin
  36.     writeln(res, ' ');
  37.     writeln(res, 'Отрицательное количество элементов');
  38.     exit;
  39.   end
  40.   else if m > 8 then
  41.   begin
  42.     writeln(res, ' ');
  43.     writeln(res, 'Количество элементов массивов слишком велико');
  44.     exit;
  45.   end;
  46.  
  47.   writeln(res, ' ');
  48.   for i := 1 to m do
  49.     readln(dat, a[i], b[i]);
  50.   writeln(res, ' ');
  51.   writeln(res, 'Выходные данные');
  52.   writeln(res, ' ');
  53.   writeln(res, 'Количество элементов=', m);
  54.   for i := 1 to m do
  55.   begin
  56.     write(res, 'X', i, '=', a[i], ' ');
  57.   end;
  58.   writeln(res, ' ');
  59.   writeln(res, ' '); // Тут зачем-то писал в консоль
  60.   for i := 1 to m do
  61.   begin
  62.     write(res, 'Y', i, '=', b[i], ' ');
  63.   end;
  64.   writeln(res, ' ');
  65.   for i := 1 to m do
  66.     if a[i] >= b[i] then
  67.       b[i] := a[i] - b[i]
  68.     else
  69.       b[i] := b[i] - a[i];
  70.   for i := 1 to m do
  71.     if b[i] = 0 then
  72.       count := count + 1;
  73.   writeln(res, ' ');
  74.   writeln(res, 'Результаты');
  75.   writeln(res, ' '); // Тут зачем-то писал в консоль
  76.   for i := 1 to m do
  77.   begin
  78.     write(res, 'Y', i, '=', b[i], ' ');
  79.   end;
  80.   writeln(res, ' '); // Тут зачем-то писал в консоль
  81.   if count = m then
  82.     writeln(res, 'Элементы массивов попарно совпадают ', count)
  83.   else if count = 0 then
  84.     writeln(res, 'В массивах нет пар,в которых элементы совпадают')
  85.   else
  86.     write(res, 'Количество пар с одинаковыми элементами ', count);
  87.  
  88.   closefile(dat);
  89.   closefile(res);
  90.  
  91.   writeln('Press ENTER...');
  92.   readln;
  93.  
  94. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement