Abs, Sqr в Pascal.

Abs - функция языка Паскаль, которая вычисляет модуль числа.
Sqr - функция языка Паcкаль, которая возводит число в квадрат.

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Циклы и массивы

Работа со строковыми данными.

Написание большинства программ не обходится без строковых данных. Строковые данные используются при организации диалога для ввода исходных значений переменных, задания условий выполнения ...

Вложенный арифметический цикл.

Под вложенным арифметическим циклом понимают такую алгоритмическую структуру, при которой в тело одного цикла с параметром включен другой цикл со своим параметром.

Для матрицы 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. 

Комментарии  

 
-5 # Rfnz 24.11.2012 05:12
вот вот, и не говори
 
 
0 # Юрий 09.06.2014 11:50
program mas;
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
 
 
0 # Юрий 09.06.2014 11:51
помогите исправить :sad:
 
 
0 # Keyn 10.06.2014 04:53
Юрий, а что должна программа делать?
 
   ГлавнаяПаскальПримеры программ.Для матрицы A (4 строк, 5 столбцов) вычислить выражение y=(1-P[5])^2+(2-P[4])^2+...+(5-P[1])^2 , где P[k] - произведение отрицательных элементов в k-том столбце матрицы А.