Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

Розробка комп'ютерних навчальних засобів з обраної предметної області
Тип документу: Курсова
Сторінок: 29
Предмет: Комп`ютерні науки
Автор: фелікс
Розмір: 35.4
Скачувань: 1228
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

The online video editor trusted by teams to make professional video in minutes