Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...
В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...
Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...
Индексы имеют еще одно свойство — чем больше объем массива, тем менее эффективна с ним работа, поэтому часто используют массивы массивов, то есть с двумя, тремя и более индексами для идентификации ...
Для матрицы 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.
Комментарии
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