Организация программ с использованием процедур и функций.

@Katrina extezy · Регистрация: 14.05.2009

Author24 — интернет-сервис помощи студентам

Построить таблицу функции y=cx^2+d при x, меняющемся от 0 до 1 с шагом 0.1, где c - след матрицы A(3,3), d - след матрицы B(4,4). Следом матрицы называется сумма элементов главной диагонали. Вычисление следа матрицы оформить в виде процедуры.

@Puporev · 17.05.2009, 12:29

Pascal

uses crt;
const
na=3;
nb=4;
type matr=array[1..nb,1..nb] of real;
procedure Sled(m:matr;x:byte;var s:real);{вычисление следа}
var i:byte;
begin
s:=0;
for i:=1 to x do
s:=s+m[i,i];
end;
var a,b:matr;
    i,j:byte;
    c,d,x,y:real;
begin
clrscr;
randomize;
writeln('Matrica A:');
for i:=1 to na do
 begin
  for j:=1 to na do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
Sled(a,na,c);
writeln('Sled matricy A=',c:0:2);
writeln('Matrica B:');
for i:=1 to nb do
 begin
  for j:=1 to nb do
   begin
    b[i,j]:=10*random;
    write(b[i,j]:5:2);
   end;
  writeln;
 end;
Sled(b,nb,d);
writeln('Sled matricy B=',d:0:2);
x:=-0.1;{начнем не с 0, а на 1 шаг раньше, 
иначе за счет "неправильного" округления не попадаем в 1.0}
while x<=1 do
 begin
  x:=x+0.1;
  y:=c*x*x+d;
  writeln('x=',x:0:1,'   y=',y:4:2);
 end;
readln
end.

@Katrina extezy 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 17
		1
	Организация программ с использованием процедур и функций. 16.05.2009, 20:37. Показов 1202. Ответов 1 Метки нет (Все метки) Построить таблицу функции y=cx^2+d при x, меняющемся от 0 до 1 с шагом 0.1, где c - след матрицы A(3,3), d - след матрицы B(4,4). Следом матрицы называется сумма элементов главной диагонали. Вычисление следа матрицы оформить в виде процедуры. 0

	17.05.2009, 12:29

Организация программ с использованием процедур и функций.

Решение