/  
 ДОКУМЕНТІВ 
20298
    КАТЕГОРІЙ 
30
Про проект  Рекламодавцям  Зворотній зв`язок  Контакт 

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

Тема: Розробка комп'ютерних навчальних засобів з обраної предметної області
Тип документу: Курсова
Предмет: Комп`ютерні науки
Автор: фелікс
Розмір: 0
Скачувань: 1091
Скачати "Курсова на тему Розробка комп'ютерних навчальних засобів з обраної предметної області"
Сторінки 1   2   3   4   5   6   7   8   9  
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

Сторінки 1   2   3   4   5   6   7   8   9  
Коментарі до даного документу
Додати коментар