11. e n n.
, , . eij= 1, i = j, eij= 0.
(. 12) : n; ; .
:
program matr1;
uses crt;
const
size = 10;
var
i,j,n: integer;
e: array [1..size,1..size] of integer;
begin
write( );
readln(n);
for i:= 1 to n do
for j:= 1 to n do
if i = j then e[i,j]:= 1
else e[i,j]:= 0;
clrscr;
gotoxy(3,3);
write(
, n, , n);
for i:= 1 to n do
for j:= 1 to n do
begin gotoxy(3*i,5 + j);
write(e[i,j])
end
end.
i j , , gotoxy(3*i,5+j).
12. .
, . , : cij= aij+ bij. : ; b; .
:
program clgmatr;
uses crt;
const line = 20; column = 30;
type
t = array[1..column] of real;
var
i,j,n,m: integer;
a,b,c: array [1..line] of t;
begin
clrscr;
write( ( 21)); readln(n);
write( ( 31)); readln(m);
clrscr; { }
for i:=1 to n do
for j:=1 to m do
begin
write(a[,i,,,j,]); readln(a[i,j])
end;
clrscr; { b}
for i:=1 to n do
for j:=1 to m do
begin
write(b[,i,,,j,]); readln(b[i,j])
end;
clrscr; { }
for i:=1 to n do
begin
for j:=1 to m do
begin
c[i,j]:= a[i,j] + b[i,j]; write(c[i,j]:6:2);
end;
writeln
end;
repeat until keypressed
end.
, 30 .
, , i writeln.
keypressed crt true, input , false . repeat until keypressed . repeat... until , - .
13. .
, . , , m p, , , p n, m n,
|
|
:
program umnmatr;{ }
const
m = 4; p = 3; n = 2;
var
i: 1..m;
j: 1..n;
k: 1..p;
a: array [1..m,1..p] of real;
b: array [1..p,1..n] of real;
c: array [1..m,1..n] of real;
begin
{ }
for i:= 1 to m do
for k:= 1 to p do
begin
write(a[,i,,,k,]); readln(a[i,k])
end;
{ b}
for k:= 1 to p do
for j:= 1 to n do
begin
write(b[,k,,,j,]); readln(b[k,j])
end;
{}
for i:= 1 to m do
begin
for j:= 1 to n do
begin
c[i,j]:= 0;
for k:= 1 to p do c[i,j]:=c[i,j] + a[i,k] * b[k,j];
end;
end;
{ }
writeln();
for i:= 1 to m do
begin
for j:= 1 to n do write(c[i,j]:8:2);
writeln
end;
end.
. string. , , , 0 N, N . string (. 13):
. 13
string, . . , 255 . ( ASCIIZ, 65536 , ). 1 . 1 .
:
type
cities = string [20];
names = string [12].
cities , , 20 . names 12 . :
var
ci: array [1..20] of char;
na: array [1..12] of char.
, ci na . , . , .
, . . n , 0 n .
string . string . Write Writeln Read Readln. .
|
|
program string_test;
var s: string[10];
begin
writeln( );
readln (s);
writeln(s, :, ord(s[0]):5);
end.
, readln(s) 10 , s 10 . . 10.
, .
. , .
string. , . , , char, . , :
str_1:= !.
, char, . , .
:
str_1 [1]:= ݒ; str_1 [2]:= ; str_1 [3]:= o; str_1 [4]:= ;
str_1 [5]:= c; str_1 [6]:= ; str_1 [7]:= p; str_1 [7]:= o;
str_1 [8]:= ; str_1 [9]:= a; str_1 [10]:= !
str_1 , . () . , char. , , , . ASCII #, , , ^ (. 1). . :
^G ^J
.
, , .
.
type
name = string [7]
var
fname, lname: name;
begin
fname:= ; lname:= ;
write (fname, ,lname)
end.
: , 7.
var a: string [5]; b: string [10];
b:= a, . a:= b, 5 b.
. + (). , . :
adam + eva adameva
5 + . + 4 5.4
+ + + ! !
. . ASCII. balkon > balken true, e. Pascal = pascal false, , . + , + < true.
|
|
, , . , .