Компьютерная эргономика – это наука, которая занимается изучением взаимоотношений человека и компьютера. Она определяет, чем может навредить человеку компьютер и как свести это к нулю. Основной закон эргономики: «Вам всегда должно быть удобно!» Рассмотрим эргономические формулы при работе с компьютером.
Var f: text; i, j, n, n1: integer; matrix: array[,] of real; begin assign(f, 'informat8.txt'); reset(f); //найдём количество строк в матрице while not eof(f) do begin readln(f); inc(n); end; writeln('исходная матрица размерности ', n, 'x', n); //инициализируем массив (размерность узнали выше) matrix := new real[n, n]; reset(f); // далее работаем с матрицей размерности [0..n-1] (инициализация происходит, начиная с 0) for i := 0 to n - 1 do begin for j := 0 to n - 1 do begin read(f, matrix[i, j]); write(matrix[i, j]:8:2); end; readln(f); writeln; end; writeln; n1 := 0; for i := 0 to n - 1 do for j := 0 to n - 1 do if matrix[i, j] < 0 then inc(n1); if n1 > round(n * n / 2) then begin writeln('Отрицательных элементов больше половины'); //удваиваем элементы в чётных строках for i := 0 to n - 1 do begin if odd(i) then begin for j := 0 to n - 1 do matrix[i, j] := matrix[i, j] * 2; end; end; end else begin writeln('Отрицательных элементов меньше половины или ровно половина'); //удваиваем элементы последнего столбца for i := 0 to n - 1 do matrix[i, n - 1] := matrix[i, n - 1] * 2; end; writeln('результирующая матрица'); for i := 0 to n - 1 do begin for j := 0 to n - 1 do write(matrix[i, j]:8:2); writeln; end; end.
A)Pascal Var a,b,c,d, average: real; Begin Writeln('Введите 4 числа, каждый ввод закончить нажатием кнопки Enter'); readln(a,b,c,d); Average:=(a+b+c+d)/4; Writeln('Среднее Арифметическое 4-х чисел = ',Average); end.
b) var Age,High:integer; Ves:real; begin Writeln('Введите Возраст'); readln(age); Writeln('Введите Рост); readln(high); Writeln('Введите вес); readln(ves); Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves); end.
C) var n:integer; begin Writeln('Введите Число N'); readln(n); n:=n*n; Writeln('Квадратный корень равен= ',n); end.
