Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Lab4;
- {$APPTYPE CONSOLE}
- Uses Windows;
- {$R *.res}
- const
- n = 10;
- var
- i, m, count: integer;
- a: array [1 .. n] of integer;
- b: array [1 .. n] of integer;
- dat, res: TextFile;
- begin
- AssignFile(dat, paramstr(1));
- Reset(dat);
- AssignFile(res, paramstr(2));
- Rewrite(res);
- count := 0;
- writeln(res, 'Лаб №4');
- writeln(res, 'Входные данные');
- writeln(res, ' ');
- readln(dat, m);
- if m = 0 then
- begin
- writeln(res, ' ');
- writeln(res, 'Массивы пусты');
- exit;
- end
- else if m < 0 then
- begin
- writeln(res, ' ');
- writeln(res, 'Отрицательное количество элементов');
- exit;
- end
- else if m > 8 then
- begin
- writeln(res, ' ');
- writeln(res, 'Количество элементов массивов слишком велико');
- exit;
- end;
- writeln(res, ' ');
- for i := 1 to m do
- readln(dat, a[i], b[i]);
- writeln(res, ' ');
- writeln(res, 'Выходные данные');
- writeln(res, ' ');
- writeln(res, 'Количество элементов=', m);
- for i := 1 to m do
- begin
- write(res, 'X', i, '=', a[i], ' ');
- end;
- writeln(res, ' ');
- writeln(res, ' '); // Тут зачем-то писал в консоль
- for i := 1 to m do
- begin
- write(res, 'Y', i, '=', b[i], ' ');
- end;
- writeln(res, ' ');
- for i := 1 to m do
- if a[i] >= b[i] then
- b[i] := a[i] - b[i]
- else
- b[i] := b[i] - a[i];
- for i := 1 to m do
- if b[i] = 0 then
- count := count + 1;
- writeln(res, ' ');
- writeln(res, 'Результаты');
- writeln(res, ' '); // Тут зачем-то писал в консоль
- for i := 1 to m do
- begin
- write(res, 'Y', i, '=', b[i], ' ');
- end;
- writeln(res, ' '); // Тут зачем-то писал в консоль
- if count = m then
- writeln(res, 'Элементы массивов попарно совпадают ', count)
- else if count = 0 then
- writeln(res, 'В массивах нет пар,в которых элементы совпадают')
- else
- write(res, 'Количество пар с одинаковыми элементами ', count);
- closefile(dat);
- closefile(res);
- writeln('Press ENTER...');
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement