const max=10;
var a: array[1..max,1..max] of integer;
k1,k2: array[1..max]of byte;
n,m,i,j,s1,s2: integer;
begin
repeat
write('количество строк до ',max,' n=');
readln(n);
until n in [1..max];
repeat
write('количество столбцов до ',max,' m=');
readln(m);
until m in [1..max];
writeln('исходная матрица: ');
for i: =1 to n do
begin
for j: =1 to m do
begin
a[i,j]: =-15+random(31);
write(a[i,j]: 4);
end;
writeln;
end;
s1: =0;
s2: =0;
for j: =1 to m do
begin
k1[j]: =0;
k2[j]: =0;
for i: =1 to n do
if abs(a[i,j])> 10 then
begin
a[i,j]: =10;
inc(s1);
inc(k1[j]);
end
else
begin
a[i,j]: =j;
inc(s2);
inc(k2[j]);
end;
end;
writeln('измененная матрица');
for i: =1 to n do
begin
for j: =1 to m do
write(a[i,j]: 4);
writeln;
end;
writeln(' количество замен');
writeln(' 1 вида 2 вида');
for i: =1 to m do
writeln('столбец ',i: 2,k1[i]: 5,k2[i]: 5);
writeln('всего ',s1: 5,s2: 5);
end.
Цель этого курса — научиться писать программы, решающие научные задачи. Язык программирования Python обладает ясным и понятным синтаксисом, и потому легко учится и хорошо подходит для введения в программирование. Это позволит нам не отвлекаться от решаемой задачи на особенности языка и их объяснение, позволит естественным образом последовательно вводить новые инструменты. Язык близок с MATLAB и хорош для программирования математических вычислений. К тому же Python умеет работать с такими языками как Fortran, C и С++, которые уже широко используются в научных расчетах. Кроме всего прочего, большинство продуктов и модулей, написанных на Python, распространяются бесплатно, в том числе и все те инструменты, которыми мы будем пользоваться в ходе наших уроков.
Поделитесь своими знаниями, ответьте на вопрос:
Для чего группы клавиш продублированы