ФГОУ ВПО «Чувашский государственный университет им. И. Н. Ульянова»
Кафедра АЭТУС
Отчёт по практике
за первый курс
Выполнил: Ильин Д. В.
Проверил: Михадаров Д. Г.
Чебоксары 2009.
Содержание:
Задача №343…………………………………………………………………………………
Задача №390b………………………………………………………………………………..
Задача №483…………………………………………………………………………………
Задача №866a………………………………………………………………………………..
Задача №954…………………………………………………………………………………
Задача №446…………………………………………………………………………………
Список литературы…………………………………………………………………………
Matlab:
-
Графический интерфейс пользователя и простейшие вычисления………...........
-
Визуализация результатов вычислений………………………...............................
-
Вычисления с действительными и комплексными массивами чисел…………...
Отчёт по экскурсии………………………………………………………………………….
Задача №343.
Даны действительные числа а1,…а17. Найти сумму значений |xi-xj| (1≤ i ≤ j ≤ 17).
Clrscr;
Clrscr;
Sum:=sum+abs(x[i]-x[j])
readlin;
program n343;
Uses Crt;
var x:array [1..17] of integer;
i,j,sum:integer;
begin
Clrscr;
writeln('vvedite celye chisla');
for i:=1 to 17 do begin
read (x[i]);
end;
writeln;
for i:=1 to 16 do begin
for j:=i+1 to 17 do begin
sum:=sum+abs(x[i]-x[j]);
end;
end;
writeln('suma=',sum);
readln;
end.
Пример:
vvedite celye chisla : 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7
suma=424
|
Переменная |
Тип |
Назначение |
|
x |
Массив целых чисел |
Массив целых чисел |
|
i |
Целое |
Счетчик |
|
j |
Целое |
Счетчик |
|
sum |
Целое |
Сумма всех |xi-xj| |
Задача №390b.
Дана действительная матрица размера n×m. Получить последовательность b1…,bn, где bk- это сумма наибольшего и наименьшего из значений элементов k-й строки.
Clrscr;
Randomize;
b[i;j]=random(100)
Writeln;
max:=
b[i,1] min:=b[i,1]
max:=b[i,j]
min:=b[i,j]
Sum[i]=min+max
Readln;
да
да
program n390b;
Uses Crt;
var b:array[1..100,1..100] of integer;
i,j,n,m,max,min:integer;
sum:array[1..100] of integer;
begin
Clrscr;
Randomize;
writeln('vvedite razmer matricu');
writeln('n=');
readln(n);
writeln('m=');
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
b[i,j]:=random(100);
write(b[i,j]:3,' ');
end;
writeln;
end;
writeln;
for i:=1 to n do begin
max:=b[i,1];
min:=b[i,1];
for j:=1 to m do begin
if max<b[i,j] then max:=b[i,j];
if min>b[i,j] then min:=b[i,j];
end;
sum[i]:=(min+max);
end;
for i:=1 to n do
writeln('sum=',sum[i]);
readln;
end.
Пример:
vvedite razmer matricu
n=3
m=3
73 4 41
96 71 3
89 70 95
sum=77
sum=99
sum=165
|
переменная |
тип |
назначение |
|
b |
Массив 100×100 целых чисел |
Матрица чисел |
|
i;j |
Целые |
Счетчики в циклах for |
|
n |
Целый |
Высота матрицы b |
|
m |
Целый |
Ширина матрицы b |
|
min,max |
Целые |
Мин. и макс. элемент в строке матрицы b |
|
sum |
Массив целых чисел |
Столбец значений(min+max) строк матрицы b |
Задача №483.
Вычислить по схеме Горнера значение многочлена с рациональными коэффициентами для данного рационального значения переменной. Считать, что числители и знаменатели коэффициентов записаны в файле f: вначале числитель и знаменатель старшего коэффициента и т. д., в последнюю очередь числитель и знаменатель свободного члена*).
Clrscr;
x:=0; coef:=0;
Assign(ft,
gorner.txt);
Reset(ft);
Read(ft,
coef1); coef2:=coef2*x+coef1[2];
Close(ft);
Readkey;
да
да
program n483;
Uses Crt;
Type bi=array[1..2] of integer;
var ft: file of bi;
coef1:bi;
x,coef2:Real;
begin
Clrscr;
x:=0;
coef2:=0;
assign(ft,'gorner.txt');
{$i-}
reset(ft);
{$i+}
if ioresult< >0 then writeln('oshibka, fail net')
else begin
writeln('vvedite x=');
read(x);
repeat
read(ft,coef1);
coef2:=coef2*x+(coef1[1]/coef1[2]);
Until Eof(ft);
Close(ft);
writeln('otvet ',coef2);
Readkey;
end;
end.
|
Переменная |
Тип |
Назначение |
|
ft |
файловый |
Для привязки файла |
|
coef1 |
массив целых чисел |
Для записи и хранения числителя и знаменателя коэффициента многочлена из файла ft |
|
coef2 |
вещественный |
Коэф. многочлена |
|
x |
вещественный |
Переменная многочлена |