Program Animation1;
Uses Crt;
var y:string;
Begin
Repeat
clrscr;
textcolor(1);
writeln('zdravei');
delay(100);
until y='y';
End.
сряда, 28 март 2018 г.
вторник, 27 март 2018 г.
Анимация в Паскал
Program Program3b_lesson4;
Uses Crt;
Label l1;
var y:string;
color1,gx,gy:Integer;
Begin
Color1 :=0;
gx:=2;
gy:=2 ;
Repeat
l1: clrscr;
textcolor(Color1);
gotoxy(gx+1,gy-1);
writeln(' 0');
delay(100);
gotoxy(gx,gy);
writeln('<:)}');
delay(100);
gotoxy(gx+1,gy+1);
writeln(' 0');
delay(100);
Color1:=Color1 +1;
gx:=gx+1;
gy:=gy+1;
if gx=10 then
begin
Color1 :=0;
gx:=10;
gy:=10 ;
repeat
clrscr;
textcolor(Color1);
gotoxy(gx,gy);
writeln(' 0');
writeln('<:)}');
writeln(' 0');
delay(100);
Color1:=Color1 +1;
gx:=gx-1;
gy:=gy-1;
Until gx=2;
end;
if gx=1 then goto l1;
until y='y';
End.
Uses Crt;
Label l1;
var y:string;
color1,gx,gy:Integer;
Begin
Color1 :=0;
gx:=2;
gy:=2 ;
Repeat
l1: clrscr;
textcolor(Color1);
gotoxy(gx+1,gy-1);
writeln(' 0');
delay(100);
gotoxy(gx,gy);
writeln('<:)}');
delay(100);
gotoxy(gx+1,gy+1);
writeln(' 0');
delay(100);
Color1:=Color1 +1;
gx:=gx+1;
gy:=gy+1;
if gx=10 then
begin
Color1 :=0;
gx:=10;
gy:=10 ;
repeat
clrscr;
textcolor(Color1);
gotoxy(gx,gy);
writeln(' 0');
writeln('<:)}');
writeln(' 0');
delay(100);
Color1:=Color1 +1;
gx:=gx-1;
gy:=gy-1;
Until gx=2;
end;
if gx=1 then goto l1;
until y='y';
End.
четвъртък, 22 март 2018 г.
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
Здравейте. Следващата статия е възможна благодарение на Николай от 9Г. Той успя да намери този безценен документ, който може да ви бъде от полза при създаване на графични изображения в Паскал.
Библиотечни модули в Паскал.
Следващата кратка програма е базов пример за създаване на анимация в Паскал.
Program Animation1;
Uses Crt;
var y:string;
Begin
Repeat
clrscr;
textcolor(0);
writeln('zdravei');
delay(100);
clrscr;
textcolor(1);
writeln('zdravei');
delay(100);
clrscr;
textcolor(2);
writeln('zdravei');
delay(100);
until y='y';
End.
Библиотечни модули в Паскал.
Следващата кратка програма е базов пример за създаване на анимация в Паскал.
Program Animation1;
Uses Crt;
var y:string;
Begin
Repeat
clrscr;
textcolor(0);
writeln('zdravei');
delay(100);
clrscr;
textcolor(1);
writeln('zdravei');
delay(100);
clrscr;
textcolor(2);
writeln('zdravei');
delay(100);
until y='y';
End.
вторник, 13 март 2018 г.
Създаване на динамичен уебсайт
Настоящата статия има за цел да улесни използването на уеб платформата "Weebly.com". Тази платформа има широк набор от безплатни възможности и още повече платени такива.
Стъпки от 1 до 4 са препоръчителни при използването на мобилни телефони или таблети. Това дава същата функционалност на работа като при настолен компютър. Сайтът може да се използва, с който и да било друг браузър.
1.Отваряте Google.
2. Избирате Chrome.
3.Избирате трите точки горе в дясно на екранa.
4. Трябва да има отметка на „Заявка за настолни...“.
5. Въвеждате в адресната лента WEEBLY.COM.
6.Избирате „WEBSITE“.
7.Избирате G+.
8. Въвеждате имейла си в гугъл и паролата си.
9. Разрешавате.
10. Избирате, как искате да изглежда сайта ви.
11. Избирате „Start Editing”.
12. Избирате името на сайта си като го написвате на ЛАТИНИЦА:
13. Избирате „SUBDOMAIN”.
14. Съгласявате се с избирането на “Done”.
15.Публикувате уебсайта с избирането на „Publish“.
Възможно е да се наложи да повторите стъпка 14.
След като публикувате сайта си, вече започва същинската част по работата, която няма да се разглежда в тази статия. Справочно ще спомена само, че след всяка промяна на сайта трябва да се избира "Publish", за да бъде видима промяната и в интернет, а не само в платформата на "Weebly.com".
понеделник, 5 март 2018 г.
Учител от Гана преподава информатика само с тебешир и черна дъска
Поради липсата на компютри в училището 33-годишният учител прави всичко възможно, за да предаде знание на децата, дори и това да означава, че трябва да пресъздава компютърни програми, разполагайки само с тебешир и черна дъска.
За повече информация посетете връзката по-долу:
Информатика с тебешир .
Абонамент за:
Публикации (Atom)