AlexandrRGUNG
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
По поводу своей программы
A={Аij }, {i=1, 2, .., n; j = 1, 2, .., m}.
Aij={sqr(0.84+i)-sqr(abs(i-j)) если i>j
{sqrt(38+sqr(j)-i) в остальных случаях. n=m
Определить в главной диагонали матрицы A число элементов, значение которых превышает значение выражения c*i+b, где i – номер строки. c и b задаются по вводу. Напечатать число элементов и номера строк, которым они принадлежат.
Посмотрите пожалуйста, это похоже на правду?
Program fff;
uses crt;
Type matr=array[1..5,1..5] of real;
var A:matr;
c,b,s:real;
i,j,k:integer;
begin;
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
if i>j then
a[i,j]:=sqr(0.84+i)-sqr(abs(i-j));
if i<=j then
a[i,j]:=sqrt(38+sqr(j)-i);
Writeln('Pechat ishodnoi matcrici');
For i:=1 to 5 do
begin
for j:=1 to 5 do
Write (a[i,j]:3, ' ');
Writeln;
end;
Writeln('Vvedite C');
read(c);
Writeln('Vvedite B');
read(b);
S:=c*i+b;
k:=0;
For i:=1 to 5 do
begin
if A[i,i] > S then
begin
Writeln ('Stroka:',i:1) ;
Write('Element', A[i,i]:3);
k:=k+1;
end;
end;
end.
|
Всего записей: 10 | Зарегистр. 30-11-2007 | Отправлено: 23:46 03-12-2007 | Исправлено: AlexandrRGUNG, 08:27 04-12-2007 |
|
DD