Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація
Розробка комп'ютерних навчальних засобів з обраної предметної області
if Double=True then Print(x1, y1+i, c1, 'є') else Print(x1, y1+i, c1, 'і');
if Double=True then Print(x2+1, y1+i, c1, 'є') else Print(x2+1, y1+i, c1, 'і');
end;
if Double=True then Print(x1, y2, c1, 'И') else Print(x1, y2, c1, 'А');
for i:=1 to Leng do
if Double=True then Print(x1+i, y2, c1, 'Н') else Print(x1+i, y2, c1, 'Д');
if Double=True then Print(x2+1, y2, c1, 'ј') else Print(x2+1, y2, c1, 'Щ');
if S<>'' then Print(x1+(Leng div 2)-(Length(S) div 2), y1, c2, ' '+S+' ');
end;
procedure Cursor(x1, x2: byte);
var
Reg: Registers;
begin
Reg.AH:=1;
Reg.CH:=x1;
Reg.CL:=x2;
Intr($10, Reg);
end;
function UpCasing(S1: string): string;
var
s: string;
b: byte;
begin
S:='';
for B:=1 to Length(S1) do
S:=S+UpCase(S1[B]);
UpCasing:=S;
end;
function Strg(W: LongInt): string;
var
if Double=True then Print(x2+1, y1+i, c1, 'є') else Print(x2+1, y1+i, c1, 'і');
end;
if Double=True then Print(x1, y2, c1, 'И') else Print(x1, y2, c1, 'А');
for i:=1 to Leng do
if Double=True then Print(x1+i, y2, c1, 'Н') else Print(x1+i, y2, c1, 'Д');
if Double=True then Print(x2+1, y2, c1, 'ј') else Print(x2+1, y2, c1, 'Щ');
if S<>'' then Print(x1+(Leng div 2)-(Length(S) div 2), y1, c2, ' '+S+' ');
end;
procedure Cursor(x1, x2: byte);
var
Reg: Registers;
begin
Reg.AH:=1;
Reg.CH:=x1;
Reg.CL:=x2;
Intr($10, Reg);
end;
function UpCasing(S1: string): string;
var
s: string;
b: byte;
begin
S:='';
for B:=1 to Length(S1) do
S:=S+UpCase(S1[B]);
UpCasing:=S;
end;
function Strg(W: LongInt): string;
var
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021