Использование program, begin…end, write, readln, Uses Crt, Clrscr.

В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны ...

Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

Логические и символьные константы.

В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...

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

Программирование вычислительных процессов.

Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.

Массивы. Регулярные типы.

В простых типах данных каждое данное имеет свое название (идентификатор). В этом разделе вводится структурная взаимосвязь между данными, хранимыми в оперативной памяти путем организации массива, ...

Для матрицы 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
Юрий, а что должна программа делать?
Ответить

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальПримеры программ.