Логические операции And, Or, Not, Xor в Pascal.

Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : Andлогическое умножение, Orлогическое сложение, Notлогическое отрицание, Xor ...

GotoXY в Pascal.

Процедура GotoXY используется в Pascal для перевода курсора в нужную позицию на экране. Для этой процедуры указываются координаты. После указания процедуры GotoXY в коде программы сообщение будет выводиться на экран в тех координатах, которые мы ...

Перевод числа из десятичной системы счисления в шестнадцатеричную.

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

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

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

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

Описание процедур.

Процедуры являются основой модульного программирования (МП). Модульное программирование – это процесс построения программы, разделенной на логические части, называемые модулями, и последовательное ...

Для матрицы 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 размером KxM. Получить транспонированную матрицу A* и произведение AxA*.