Языки и технология программирования. Начальный курс \Pascal\
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
? ээээээ эээээ эээээээээ эээээээээ:
UNIT ;
INTERFACE
IMPLEMENTATION
Begin
End.
эээ ээээээ ээээээ эээээээээ э ээээээ эээээ, э эээээээ ээ ээээээээ. ээээээ ээээээээээ эээ ээээээээээээ эээээ ээээээээ ээээээээээ ээээ ээээээээээ ээээээээ ээээээ (эээээ, ээээээээ, ээээээээээ э эээээээээээ), эээээээ эээээ ээээээээ ээээээээээ, ээээээээээээ ээээ ээээээ. ээээээээээээ э ээээ эээээээ эээээээээээ ээээээ эээээээээээ. э ээээээээээээ эээээ эээээээ ээээээ ээээээээээээ эээээээээээ ээээээээ, э.э. эээээээээ forward.
ээээээ ээээээээээ эээ эээээээээээ эээээ ээээээ ээээээээ ээээээээ эээээээээ ээээээээ ээээээ : эээээ, ээээээээ, ээээээээээ э эээээээээээ. эээээ ээ ээээээээээ ээээээээ эээээээээээ, эээээээээээ э ээээээээээээ эээээ. эээ ээээ эээээээээээ эээээээээ эээээ эээээээээээ ээээ эээ ээээээээээ, ээээ э эээээээээээ, эээээээ э ээээээээ эээээээээ ээээээээ ээ эээээээ ээээээээээ. эээээээээ эээээээ ээээээ ээээээээ э ээээээээ ээээээ, ээ ээ ээээээээ ээээээээээ, ээээээээээээ ээээээ.
ээээээ эээээээээээээ эээээ эээээээээээээ. э ээээ ээээээ эээээ ээээ ээ ээээээ эээээ Begin, э эээээ эээээээээ ээээээ, эээээээ End. э ээээээ эээээээээээээ ээээээ эээээээээ, эээээээ эээээ эээээээээээ эээ эээээээ эээээээээ, ээээээээээээ ээээээ, эээээ эээээээээээ ээээээээ эээээээээ. эээээээ эээээээээээээ эээээээээээ э эээ эээээээ, э эээээээ ээээээээээээ ээээээ.
ээээээ: ээээээ эээ ээээээ э эээээээээээ эээээээээ ээ 100 эээээ эээээ.
{ээээээ ээээээээ, ээээээээээ эээ ээээээээ эээээээээ э ээээ эээээээ}
Unit Globals;
Interface
const Len=100;
type Vector = array[1..Len] of integer;
Implementation
End.
Unit Vectors;
Interface
uses Globals;
{эээээээ ээээээээээээ эээээээ эээээээ}
function Max_V(A:Vector; n:byte):integer;
{ээээээээээээ ээээээээ ээээ ээээээээ}
procedure Add_V(A,B:Vector; n:byte; var C:Vector);
{эээээээээ ээээээээээээ ээээээээ}
function Scal_V(A,B:Vector; n:byte):integer;
Implementation
function Max_V; {эээээээээ эээ ээээээээээ}
var i,max:integer;
begin
max:=A[1];
for i:=2 to n do if A[i]>max then max:=A[i];
Max_V:=max;
end;
procedure Add_V;
var i:integer;
begin
for i:=1 to n do C[i]:=A[i]+B[i];
end;
function Scal_V(A,B:Vector; n:byte):integer;
{эээээээээ ээ interface}
var s:integer; i:byte;
begin
s:=0;
for i:=1 to n do s:=s+A[i]*B[i];
Scal_V:=s;
end;
End. {ээээээ эээээээээээээ ээээээ эээээээээээ}
эээээээээ ээээээ
эээээээээ ээээээ эээээээээээ эээ ээээээээээ, ээээээээ, э эээээээ ээээээээ э эээээээ ээээээээээ. ээээээ эээээээээ ээээээээээ ээээээ ээээээ эээ эээээээ э ээээээээээ эээээээээ ээээээээ. ээ ээээ ээээ ээээээээээ ээээээээээ эээээ эээээээ, эээ ээээээээээээ эээээ э эээээээ A ээ N эээээ эээээ ээээээээ, эээээээ X.
ээээээээ эээээ
ээээээээ эээээ ээээээээээээээ ээээээ (while эээ repeat - until) э эээээээ ээээээээ. ээээээ эээээээ ээээээээээээ ээээээ ээ ээээээээээээээ эээээээ, ээээээээ, (iX), э э эээээ repeat - until эээ эээээээ ээээээээээ ээээээ: (A[i]=X). э ээээ эээээ ээээээ эээээээ ээээээ ээээ ээээээээ: эээээээээ эээээээ э эээээээ.
эээээ ээээээ ээ эээээ ээээээээээ эээээээээ, ээ ээээээ ээ эээээээ ээ эээээ. э эээээээээ if ээээээ эээээээээ ээээээ эээээээ эээээ. эээээ ээээээээ ээ ээээээээ ээээээ э ээээээ while эээ ээээээээээ эээээ эээээээ, э э ээээээ repeat - until эээ эээ эээээээээ.
ээээээ: ээээээээ эээээ
program Poisk1;
var A:array[1..100] of integer;
N, X, i:integer;
begin
read(N); {N<=100}
for i:=1 to N do read(A[i]);
read(X);
i:=1; {i:=0;}
while (iX) do i:=i+1;
{repeat i:=i+1; until (i>N) or (A[i]=X);}
if i<=N then write('ээээээ эээээээээ эээээ ',X,'
э ээээээ A ээ ',i,' эээээ')
else write('ээ эээээ');
end.
эээ ээээээ ээээээээээ эээээээээ эээээ эээээ ээээээ ээээ эээээээээ:
i:=N; {i:=N+1;}
while (i>=1) and (A[i]<>X) do i:=i-1;
{repeat i:=i-1; until (i<1) or (A[i]=X);}
if i>=1 then write('эээээээээ эээээээээ эээээ ',X,' э ээээээ A ээ ',i,' эээээ')
else write('ээ эээээ');
эээээ э ээээээээ
ээээ ээээээ э ээээээээ эээээээ э эээ, эээээ ээ эээээээээ ээээээ эээ э эээээ эээээээ, эээээээээ э эээээээээ эээээээ. эээ эээээ ээээээээээ, эээээээээ э ээээээ эээ ээээээээээ ээээээ: эээээ эээээээ, эээээээ эээээээээээээ эээээээ ээээээ. эээ эээээ эээээ ээээээээээ эээээээээ эээээээ.
эээээ ээ эээээ, э эээээээ ээээээ ээээээээ ээээээ эээээээ ээээээ, эээээ эээээээээ ээээ ээ эээээээээ ээээээээ, ээээ ээ эээээээ. эээээ эээээээ, эээээ ээээээ ээ эээээ эээээээээээ, ээ ээээээ ээ ээ эээээ? ээээээээээээээ эээээээээ ээээээ э ээээээээ ээээээ, эээ э эээээээээ ээээээ, ээ эээээ ээээээээ эээээээээ ээээ ээ эээээээ, эээ э N - ээээээээээ эээээээээ эээээээ.
ээээээээээ эээ эээээээ эээээээээ эээээээ: ээээээээээээээ эээээээээ эээ ээээээ ээээээээ ээээээээ эээээээ.
ээээээ: эээээ э ээээээээ
program Poisk2a;
var A:array[1..101] of integer;
N,X,i:integer;
begin
read(N); {N<=100}
for i:=1 to N do read(A[i]);
read(X);
A[N+1]:=X; {эээээээээ эээээээ ээээээээээээээ эээээээээ}
i:=1; {i:=0;}
while A[i]<>X do i:=i+1;
{repeat i:=i+1; until A[i]=X;}
if i<=N then write('ээээээ эээээээээ эээээ ',X,' э ээээээ A ээ ',i,' эээээ')
else<