Алгоритмдер жєне деректер структурасы

Қорғаудың психологиялық әдісі

жүктеу/скачать 420 Kb.

бет	21/67
Дата	02.01.2022
өлшемі	420 Kb.
	#452649

1 ... 17 18 19 20 21 22 23 24 ... 67

зертханалық жұмыс (3)

Жүзеге асыру мысалы.

Қорғаудың психологиялық әдісі. Бұл әдіс зиян келтірушіге психологиялық қысым және сенімсіздік тудыруға негізделген және ұрланған бағдарламаның қорғалатының үнемі есіне түсіріп отырады. Сондықтан бағдарламалық қамтамасыздандыруда қорғану механизмі бар екенін хабарлап отырған дұрыс деп саналады.

Жүзеге асыру мысалы. Берілген бағдарлама авторлық этикеттің көмегімен белсенді емес қорғауды көрсетеді.

program demo;

uses crt;

constst=' Бұлбағдарламадемонстрациялық ';

st1='мақсатта ';

st2=' жазылған ';

st3=' Сатуғарұхсатберілмейді! ';

var i:integer;

begin

clrscr;

for i:=27 to 52 do

begin

gotoxy(i,9);write(chr(196));

gotoxy(i,14);write(chr(196));

end;

for i:=10 to 13 do

begin

gotoxy(27,i);write(chr(179));

gotoxy(52,i);write(chr(179));

end;

gotoxy(27,9);write(chr(218));

gotoxy(52,9);write(chr(191));

gotoxy(27,14);write(chr(192));

gotoxy(52,14);write(chr(217));

gotoxy(28,10);write(st);

gotoxy(28,11);write(st1);

gotoxy(28,12);write(st2);

gotoxy(28,13);write(st3);

while not keypressed do

begin

textcolor(BLACK);

gotoxy(28,12);write(st2);

textcolor(WHITE);

gotoxy(28,13);write(st3);

delay(350);

textcolor(WHITE);

gotoxy(28,12);write(st2);

textcolor(BLACK);

gotoxy(28,13);write(st3);

delay(350);

end;

end.
Зертханалықжұмыс 1 сағатқаарналған. Зертханалықжұмыстытапсырубақылаусұрақтарынажауапберуменжекетапсырманыңорындалуыменанықталады.

жүктеу/скачать 420 Kb.

Достарыңызбен бөлісу:

1 ... 17 18 19 20 21 22 23 24 ... 67