С вещественными числами можно производить операции умножения, сложения, вычитания, а также операцию деления. Причем операция деления отличается от операции Div. Деление вещественных чисел - это обычное математическое деление, в результате которого ...
Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...
Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом ...
Для матрицы A (4 строк, 5 столбцов) вычислить выражение y=(1-P[5])2+(2-P[4])2+...+(5-P[1])2 ), где P[k] - произведение отрицательных элементов в k-том столбце матрицы А. Для вычисления произведения отрицательных элементов в произвольном столбце матрицы использовать процедуру.
program L313;
uses crt;
const n=3;m=4;
type
ma=array[1..n,1..m] of real;
pa=array[1..m] of real;
var
a:ma;p:pa;
j,k:integer;
y,q:real;
procedure go;
var
j,k:integer;
pr:real;
begin
for j:=1 to m do
begin
pr:=1;
for k:=1 to n do
if a[k,j]<0 then
pr:=pr*a[k,j];
p[j]:=pr;
writeln (p[j]:5:3);
end;
end;
Begin
clrscr;
textcolor(yellow);
y:=0;
q:=0;
for j:=1 to n do
for k:=1 to m do
begin
writeln('Введите A[',j,',',k,']:');readln(a[j,k]);
end;
go;
for k:=m downto 1 do
begin
q:=q+1;
y:=y+(sqr(q-p[k]));
writeln(y:4:3)
end;
writeln('Y:',y:5:3);
readln;
end.
ГлавнаяПаскальПримеры программ.Для матрицы A (4 строк, 5 столбцов) вычислить выражение y=(1-P[5])^2+(2-P[4])^2+...+(5-P[1])^2 , где P[k] - произведение отрицательных элементов в k-том столбце матрицы А.
Комментарии
Uses CRT;
var ans:char;
a:real;
y:byte;
begin
ClrScr;
write ('a=');
readln (a);
write ('y=');
readln (y);
a:=ord(chr(2));
y:=succ(1);
end.
writeln ('a=' ,a:5:3 'y=' ,y:5:3);
repeat until keypressed
END