:
Var A: array[ 1.. 30 ] of byte;
S: array[ 1.. 30 ] of string;
SO: array[ 1.. 30 ] of string[12];
:
A[1]:= 5; A[2]:= 4; . .
S[1]:= ''; S[2]:= ''; . .
"y" :
y=sin(x), x= Pi * i/180, 0<= i <=180.
For i:= 0 to 180 Do y[i]:= sin(Pi * i/180);
( 1):
-30 +40 "R":
Randomize; for i:=1 to 100 Do R[i]:= - 30+Random(71);
"A" Readln:
For i:= 1 to 7 Do begin Write(' A[',i,'] ='); Readln(A [ i ]) end;
" "
For j:=1 to 66 do Write('-'); Writeln;
For j:=1 to 3 do Write('|_ _ _ _| _ _|'); Writeln;
For j:=1 to 66 do Write('-'); Writeln;
"S" "A" :
For i:=1 to 100 do begin Write('|',s[i]:11,'|',a[i]:8,'|');
if (i mod 3) = 0 Then Writeln;
if (i mod 60) = 0 then readln end;
, () , :
s:=0; for i:=1 to 100 do s:=s+a[i]; {s- }
a_max:=a[1]; for i:=1 to 100 do { a[j]}
if a[i]>a_max then begin a_max:=a[i]; j:=i end;
j:= 0; k:= 0;
for i:=1 to 100 do { : b[j]>=0, c[k]<0}
if a[i]>=0 then begin j:=j+1; b[j]:=a[i] end
else begin k:= k+1; c[k]:=a[i] end;
j:=0; k:=8;
for i:=1 to 100 do { "M" : a[i]>a[k]}
if a[i]>a[k] then begin j:=j+1; M[j]:=i end;
Var S: string; C: char;
Begin
S:='', S[1]='', S[2]='' . .
C:= S[1];
:
N:= ord(S[0]); { "S" S[0]}
for i:= 1 to N div 2 do { "ord" }
begin C:= S[i];
S[i]:= S[N-i+1];
S[N-i+1]:= C
End;
Writeln(S); { : "" }
Var A:array[1..30,1..7] of byte;
( 2):
:
for i:= 1 to N do
for j:= 1 to M do
A[i, j]:= random(4)+2; { -}
Writeln;
Write('\\:|'); { }
|
|
For i:=1 to M do write(P[i]:9,'_ |');
for i:= 1 to N do { "A"}
Begin
Writeln;
write(S[i]:19, '_ |';
for j:= 1 to M do
write(A[i,j]:7, ' _ _ |')
End;
"SS" "M" "N" "A" (NxM):
for i:= 1 to N do
begin SS[i]:= 0;
for j:= 1 to M do
SS[i]:= SS[i] + A[i, j]
End;
Var f: Text; { f}
Assign(f, 'Name_f'); { f }
Name_f - .
,
Assign(f, 'file. dat'); { }
Assign(f,'C:\Pascal\Work\file.dat') { }
{ }
. :
ReWrite(f); { }
:
Write(f,""); Writeln(f,""); { "" - }
:
Reset(f);
:
Read(f, ""); Readln(f, "");
:
Close(f);
:
Append(f);
"f" / , .
, () . , Write(f, ""); Writeln(f, "");, Read(f, ""); Readln(f, ""); . ( , 1024 ), . . , . . .
, . , .
( 3)
Assign(f1,'File1.dan'); { f1, : File1.dan}
ReWrite(f1); { }
Writeln(f1,' "X","Y"'); { }
For i:= 1 to N do begin
X:= 0.5*i; Y:= Ln(X); { }
write(f1, X:6:2, Y:10:4); { File1. dan }
If i mod 5 = 0 then writeln(f1) { #13 }
End;
Close (f1); { }
Assign(f2,'File1.dan'); { f1, : File1.dan}
|
|
Reset(f2); { }
Readln(f2); { }
For i:= 1 to N do begin
read(f2, a[i], b[i]); { "A" "B" }
If i mod 5 = 0 then readln(f2) { #13 }
End;
Close (f2); { }
.
var c: char; j, i: word;
s: array[1..10] of string[12];
a: array[1..10, 1..6] of word;
f1, f2: text;
BEGIN
assign(f1, 'F1.txt'); reset(f1);
assign(f2, 'F2.txt'); rewrite(f2);
for i:= 1 to 10 do begin
read(f1, s[i]); { }
for j:= 1 to 6 do
read(f1, a[i,j]); { }
readln(f1) { }
End;
for c:= '' to '' do { }
for i:= 1 to 10 do
if s[i,1] = c then begin
write(f2, s[i]); { . }
for j:= 1 to 6 do
write(f2, a[i,j]:2); { }
Writeln(F2)
End;
Close(f1); close(f2);
END.
F1. txt , :
5 4 4 5 4 3
4 5 3 4 3 4
. .
EoF(f); { }
FF1. t,
FF2. t #13.
assign(f1, 'FF1. t'); reset(f1);
assign(f2, 'FF2. t'); rewrite(f2);
while not EoF(f1) do begin
read(f1,c); { Char }
if c <> #13 then c:=pred(c);
write(f2,c) { }
End;
System, Crt, Graph
( 4):
Procedure, , :
Procedure Name_P(p1, p2,...:""; Var p3, p4,...: "";...);
Function, , , :
Function Name_F(" "):" ";
Function Procedure - ,
Name_F, Name_P - ,
p1, p2 - -,
p3, p4 - -,
, -. , ( ), :
Type M= array[1..100]of real;
, :
Procedure Name_P(p: M);
. , , Randomize; .
, .
, .
( ). () .
, . :
Name_P(p11, p22,..., p33, p44,...); - Name_P,
Y:= Name_F(" "): - Name_F,
p11, p22,... - ,
p33, p44,... - , .
|
|
Y - , .
, . - , , - . - , . - , . , -, -.
, , . , . , , , , . , , - , . . . ( ) , . , . , , . . .
, 5
Program NP_1;
Var Dat, Fam: string; { Fam: }
Procedure VIZ(D_R:string); { D_R - }
Var S_t: string; { S_t: }
Begin Writeln('|-------------------------------------------------|');
Writeln('| :',Fam:14,' |');
Writeln('| |');
Writeln('| . , ', D_R:14,' |');
Writeln('|:22-44-66 |');
Writeln('| ----------------------------------------------------|');
Write(' : ');
Readln(S_t)
End;
Begin
Fam:='..';
Dat:='06.12.95'; {Dat - }
VIZ(Dat); { }
Readln END.
, , F_PR. pas, , : {$I F_PR. pas}
F_PR. pas
{$I F_PR. pas}
DOS , 6:
uses DOS; { DOS }
Procedure Date_Time;
var y, m, d, d_w:word;
h, min, sec, hund: word; { }
Begin
GetDate(y,m,d,d_w); { DOS, }
GetTime(h,min,sec,hund); { , }
writeln(': ');
writeln('_':10, d, ' ');
writeln('_':10, m, ' ');
writeln('_':10, y, ' ');
writeln(' : ', d_w); { d_w= 0 - , . . }
writeln(': ');
writeln('_':6, h, ' ');
writeln('_':6, min, ' ');
writeln('_':6, sec, ' '); readln
End;
Begin
Date_Time
End.
"N" Y= 4*Sin(x)+7*Cos(x); x1<=x<=x2, N<=100 , 7.
|
|
type r_1000= array[1.. 1000] of real; { r_1000}
var Z: r_1000; x1, x2: real; n: word;
Procedure Mas_Y(var Y:r_1000; x1,x2:real; n:word); {Y - -}
var i: word; x, dx: real; { }
Begin
If (n>1000) or (n<2) then begin
writeln(' >1 1000');
Readln; Halt end;
i:=0; x:=x1; dx:=(x2-x1)/(n-1); { dx - }
If dx<= 0 then begin
writeln('x2 x1'); Readln; Halt end;
While x<x2 do begin
i:=i+1; x:=x1+dx*(i-1); Y[i]:=4*Sin(x)+7*cos(x)
End;
End;
begin Writeln(' 1,2, (x2>x1)'); Readln(x1, x2);
Writeln(' 1 <n<= 1000 '); Readln(n);
Mas_Y(Z, x1, x2, n); { , "Z" }
End.
, 8:
Type M_3030_r= array[1..30, 1..30] of real;
{ M_3030_r }
var x: M_3030_r; i, j, n, m: byte;
{---------------------------------------------------}
Procedure Wr_M(a: M_3030_r; name_f: string; n, m: byte);
Var i, j: byte; { a - NxM, n<=30, m<=30 }
f: text; { name_f - }