понеделник, 30 април 2018 г.
сряда, 25 април 2018 г.
Чертаене на правоъгълник в Pascal
Program box;
uses Crt;
(*your procedure same as the procedure window in the crt unit...*)
procedure draw(x1,y1,x2,y2:integer);
(*local procedure line1*)
procedure line1(a,b,c,e:integer);
(*writes a - line to the screen*)
(*a and b are the starting position*)
begin
gotoxy(a,b);
while c <= e do begin
inc(c,1);
write(#196);
end;
end;(*end of line1*)
(*local procedure line2*)
(*this writes a | line to the screen*)
procedure line2(a,b,c,e:integer);
begin
while c <= e do begin
gotoxy(a,b);
write(#179);
inc(c,1);
inc(b);
end;
end;(*end of line2*)
begin
gotoxy(x1,y1);(*upper left corner of the box*)
write(#218);
gotoxy(x2,y1);(*upper right corner of the box*)
write(#191);
(*let's go back to the upper left corner*)
(*and concatenate the upper corners...*)
line1(x1+1,y1,x1,x2-2);
gotoxy(x2,y2);(*lower right corner of the box*)
write(#217);
gotoxy(x1,y2);(*lower left corner of the box*)
write(#192);
line1(x1+1,y2,x1,x2-2);(*concat the lower corners*)
line2(x1,y1+1,y1,y2-2);(*concat the left sides of the box*)
line2(x2,y1+1,y1,y2-2);(*and last,concat the right sides too*)
end;
begin
clrscr;
draw(5,1,20,20);
readln;
end.
uses Crt;
(*your procedure same as the procedure window in the crt unit...*)
procedure draw(x1,y1,x2,y2:integer);
(*local procedure line1*)
procedure line1(a,b,c,e:integer);
(*writes a - line to the screen*)
(*a and b are the starting position*)
begin
gotoxy(a,b);
while c <= e do begin
inc(c,1);
write(#196);
end;
end;(*end of line1*)
(*local procedure line2*)
(*this writes a | line to the screen*)
procedure line2(a,b,c,e:integer);
begin
while c <= e do begin
gotoxy(a,b);
write(#179);
inc(c,1);
inc(b);
end;
end;(*end of line2*)
begin
gotoxy(x1,y1);(*upper left corner of the box*)
write(#218);
gotoxy(x2,y1);(*upper right corner of the box*)
write(#191);
(*let's go back to the upper left corner*)
(*and concatenate the upper corners...*)
line1(x1+1,y1,x1,x2-2);
gotoxy(x2,y2);(*lower right corner of the box*)
write(#217);
gotoxy(x1,y2);(*lower left corner of the box*)
write(#192);
line1(x1+1,y2,x1,x2-2);(*concat the lower corners*)
line2(x1,y1+1,y1,y2-2);(*concat the left sides of the box*)
line2(x2,y1+1,y1,y2-2);(*and last,concat the right sides too*)
end;
begin
clrscr;
draw(5,1,20,20);
readln;
end.
понеделник, 23 април 2018 г.
понеделник, 16 април 2018 г.
Създаване на гугъл формуляри
Google Forms е безплатно приложение на Google, което се използва за създаване на онлайн формуляр (форма, проучване, анкета, викторина, въпросник и др.) или тест с цел да го изпратите на други хора, за да го попълнят в интернет. Вие получавате всички резултати в реално време он лайн, както и статистика за тях.
Може да използвате линка по-долу, който е отлично оформен и има добре обяснени в детайли възможностите на GOOGLE FORMS.
Упътване за създаване на GOOGLE FORMS ( гугъл формуляри) .
Източник: http://itsredstva.blogspot.bg
Може да използвате линка по-долу, който е отлично оформен и има добре обяснени в детайли възможностите на GOOGLE FORMS.
Упътване за създаване на GOOGLE FORMS ( гугъл формуляри) .
Източник: http://itsredstva.blogspot.bg
четвъртък, 12 април 2018 г.
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
Благодарим много на човека, създал този документ, който ще ни помогне да създаваме нови и по-интересни неща в Паскал. За целта е необходимо да кликнете на линка и да свалите документа, който е "pdf" файл.
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
Приятно четене, компилиране и дебъгване.
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
Приятно четене, компилиране и дебъгване.
понеделник, 9 април 2018 г.
Абонамент за:
Публикации (Atom)