9. Вложенные циклы в матричных задачах.
Задача №9.
program 379;
uses CRT;
var
a: array[1..100,1..100] of real;
i,k,m,n: integer;
b: array[1..100] of real;
begin
clrscr;
write('Введите кол-во строк : '); readln(m);
write('Введите кол-во столбцов : '); readln(n);
for i:=1 to m do
begin
writeln('Введите ',i,'-ую строку матрицы');
for k:=1 to n do
read(a[i,k]);
end;
for i:=1 to m do
begin
for k:=1 to n do
b[i]:=b[i]+a[i,k];
writeln('Сумма ',i,'-ой строки = ',b[i]);
end;
end.
10. Вложенные циклы в матричных задачах.
Задача №10.
program 394;
uses CRT;
var
i,j,n: integer;
a: array[1..100,1..100] of integer;
b: boolean;
begin
clrscr;
write('Введите порядок матрицы : ');readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-ую строку матрицы');
for j:=1 to n do
read(a[i,j]);
end;
write('Номера строк с нулевыми элементами: ');
for i:=1 to n do
begin
b:=true;
for j:=1 to n do
if a[i,j] <> 0 then b:=false;
if b=true then write(i,' ');
end;
end.
11. Преобразование и построение матриц.
Задача №11.
program _687;
uses CRT;
var
x: real;
i,j: integer;
a: array[1..10,1..10] of real;
begin
clrscr;
write('Введите число x : '); readln(x);
for i:=1 to 10 do
begin
a[i,1]:=exp(ln(x)*(i-1));
a[1,i]:=exp(ln(x)*(i-1));
a[10,11-i]:=exp(ln(x)*(i-1));
a[11-i,10]:=exp(ln(x)*(i-1));
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j],' ');
writeln;
end;
end.
12. Графика.
Задача №12.
program _852;
uses crt,graphABC;
var
k,x0,xv,yv,y0,n,i:integer;
r,alf,hr,half:real;
begin
write('Введите радиус спирали : ');readln(r);
write('Введите кол-во витков : '); readln(k);
write('Введите координаты центра : '); readln(x0,y0);
clrscr;
circle(y0,x0,round(r));
Half:=Pi/180/2;
n:=Round(k*2*Pi/Half);
Hr:=r/n;
Alf:=0;
r:=0;
For i:=1 to n do
begin
xv:=Round(r*sin(Alf));
yv:=Round(r*cos(Alf));
Putpixel(xv+x0,yv+y0,3);
Alf:=Alf+Half;
r:=r+Hr;
end;
Alf:=0;
r:=0;
For i:=1 to n do
begin
xv:=Round(r*sin(Alf+Pi));
yv:=Round(r*cos(Alf+Pi));
Putpixel(xv+x0,yv+y0,3);
Alf:=Alf+Half;
r:=r+Hr;
end;
Alf:=0;
r:=0;
For i:=1 to n do
begin
xv:=Round(r*sin(Alf+3*Pi/2));
yv:=Round(r*cos(Alf+3*Pi/2));
Putpixel(xv+x0,yv+y0,3);
Alf:=Alf+Half;
r:=r+Hr;
end;
Alf:=0;
r:=0;
For i:=1 to n do
begin
xv:=Round(r*sin(Alf+Pi/2));
yv:=Round(r*cos(Alf+Pi/2));
Putpixel(xv+x0,yv+y0,3);
Alf:=Alf+Half;
r:=r+Hr;
end;
end.
Заключение.
За время прохождения учебно-ознакомительной практики в Евразийском Национальном Университете им.Л. Н. Гумилева я применил все знания, полученные на практических и лекционных часах в течение года обучения, приобрел практический навык в решениях задач на разных языках программирования.
Выполнил основные задачи практики, а именно:
Получил опыт использования математических методов для решения научных и производственных задач;
Ознакомился с возможностями языков программирования;
Программная реализация математических моделей практических задач на указанных языках (компьютерное моделирование).