Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Логические операции с целыми числами.

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

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

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

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

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

Использование массивов и функций в качестве формального параметра.

Формальным параметром функции может быть не только переменная скалярного типа, но и идентификатор переменной структурированного типа данных.

Для матрицы 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
Юрий, а что должна программа делать?
Ответить
 
 
0 # Иван 15.06.2017 17:32
Global Solutions
: http://global-it-solutions.eu/outsourcing
http://global-it-solutions.eu/
Ответить
 

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

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

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