1. Пусть дана вещественная матрица размером 7х7, все элементы которой различны. Найти скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом.
2. Пусть даны две вещественные матрицы порядка n. Получить новую следующим способом (для нахождения элементов использовать функции) - прибалением к элементам каждого столбца первой матрицы произведения элементов соответствующих строк сторой матрицы
3. Число из n символов называется числом Армстронга, если сумма его цифр в n-й степени равна самому числу. Получить все числа Армстронга из 2,3,4 цифр.
Код
var i,sum: integer;
begin
for i:=0 to 99 do if sqr(i mod 10)+sqr(i div 10) = i then writeln(i);
for i:=0 to 999 do begin
sum:=(i div 100)*(i div 100)*(i div 100) +
(i mod 100 div 10)*(i mod 100 div 10)*(i mod 100 div 10) +
(i mod 100 mod 10)*(i mod 100 mod 10)*(i mod 100 mod 10);
if i=sum then writeln(i);
end;
for i:=0 to 9999 do begin
sum:=sqr(sqr(i div 1000)) +
sqr(sqr(i mod 1000 div 100)) +
sqr(sqr(i mod 1000 mod 100 div 10)) +
sqr(sqr(i mod 1000 mod 100 mod 10));
if i=sum then writeln(i)
end;
readln;
end.
begin
for i:=0 to 99 do if sqr(i mod 10)+sqr(i div 10) = i then writeln(i);
for i:=0 to 999 do begin
sum:=(i div 100)*(i div 100)*(i div 100) +
(i mod 100 div 10)*(i mod 100 div 10)*(i mod 100 div 10) +
(i mod 100 mod 10)*(i mod 100 mod 10)*(i mod 100 mod 10);
if i=sum then writeln(i);
end;
for i:=0 to 9999 do begin
sum:=sqr(sqr(i div 1000)) +
sqr(sqr(i mod 1000 div 100)) +
sqr(sqr(i mod 1000 mod 100 div 10)) +
sqr(sqr(i mod 1000 mod 100 mod 10));
if i=sum then writeln(i)
end;
readln;
end.
4. Вычислить y=cos (x) + cos (x^2) ... + cos (x^30).
Код
var a,x,m:real;n:integer;
Function Power(x:real;n:integer):real;
begin
if n=1 then Power:=x
else begin
if odd(n) then Power:=Power(x,n-1)*x
else Power:=sqr(Power(x,n div 2))
end;
end;
begin
readln(x);
for n:=1 to 30 do m:=m+cos(power(x,n));
writeln(m);
readln;
end.
Function Power(x:real;n:integer):real;
begin
if n=1 then Power:=x
else begin
if odd(n) then Power:=Power(x,n-1)*x
else Power:=sqr(Power(x,n div 2))
end;
end;
begin
readln(x);
for n:=1 to 30 do m:=m+cos(power(x,n));
writeln(m);
readln;
end.
5. Дан массив целых чисел. Произвести для него следующие операции - определить сколько раз в массиве меняется знак.
Массив желательно 3-х мерный... Вводится вручную.
Код
var
i,j,n,chislo: integer;
a: array [1..10] of array [1..10] of real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to sqr(n)-1 do
if a[i div (n+1) + 1, i mod (n+1)]*
a[(i+1) div (n+1) + 1, (i+1) mod (n+1)]<0 then inc(chislo);
writeln(chislo); readln;
end.
i,j,n,chislo: integer;
a: array [1..10] of array [1..10] of real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to sqr(n)-1 do
if a[i div (n+1) + 1, i mod (n+1)]*
a[(i+1) div (n+1) + 1, (i+1) mod (n+1)]<0 then inc(chislo);
writeln(chislo); readln;
end.
Основное, что не могу сделать - в 1) и 2) - осуществить ввод и вывод матрицы. И не могу понять, что такое и как сделать "скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом.".
Добавлю - я просто учусь программировать в delphi, а знакомый попросил написать в чистом паскале, который я совсем не знаю. Заранее огромное спасибо.
