Прога без таймераprogram proga1;
Uses crt;
var
x,o1,o2,o3,o4,o5,o6,o7,o8,o9,o10,oc,t1,t2:integer;
i,f:string;
begin
clrscr;
textcolor(10);
writeln('Íàñòðîéêà ñåòåâûõ ïàðàìåòðîâ');
writeln(' Òåñò');
writeln;
textcolor(2);
Write('Ââåäèòå èìÿ ');
Readln(i);
Write('Ââåäèòå ôàìèëèþ ');
Readln(f);
x:=0;
oc:=0;
writeln(' ñâîéñòâàõ ñåòåâîãî ïîäêëþ÷åíèÿ äîëæíû áûòü óñòàíîâëåíû ñëåäóþùèå êîìïîíåíòû:');
writeln('1-ïðîòîêîë TCP/IP; êëèåíò äëÿ ñåòåé Microsof');
writeln('2-êëèåíò äëÿ ñåòåé Microsoft');
writeln('3-ïðîòîêîë TCP/IP');
writeln('4-Àäàïòåð; ïðîòîêîë TCP/IP; êëèåíò äëÿ ñåòåé Microsof');
readln(o1);
if o1=1 then x:=x+1 else x:=x+0;
writeln('Êàê íàñòðîéêè TCP/IP íàçíà÷àþòñÿ DHCP ñåðâåðîì?');
writeln('1-Âðó÷íóþ');
writeln('2-àâòîìàòè÷åñêè');
readln(o2);
if o2=2 then x:=x+1 else x:=x+0;
writeln('Äëÿ óñòàíîâêè íåîáõîäèìûõ ïðîãðàìì Âàì ìîæåò ïîòðåáîâàòüñÿ?');
writeln('1-ïîäêëþ÷åíèå ïî ëîêàëüíîé ñåòè');
writeln('2-ñâÿçü ñ DHCP ñåðâåðîì');
writeln('3-óñòàíîâî÷íûé äèñê ñ äèñòðèáóòèâîì Âàøåé âåðñèè Windows');
writeln('4-Ñâåäåíèÿ î ñåòåâîì ïîäêëþ÷åíèè');
readln(o3);
if o3=3 then x:=x+1 else x:=x+0;
writeln('Óòèëèòà äëÿ ïðîâåðêè ñåòåâûõ ïàðàìåòðîâ â ÎÑ Windows 98?');
writeln('1-FORM');
writeln('2-WINIPCFG');
writeln('3-USERS');
writeln('4-HELP');
readln(o4);
if o4=2 then x:=x+1 else x:=x+0;
writeln('Íàñòðîéêà ñåòè â Windows XP è Windows 2000 äîñòóïíà êîìó?');
writeln('1-Âñåì');
writeln('2-Ïîëüçîâàòåëÿì ñ àäìèíèñòðàòèâíûì äîñòóïîì');
writeln('3-Àäìèíèñòðàòîðó');
writeln('4-Àäìèíèñòðàòîðó èëè ïîëüçîâàòåëÿì ñ àäìèíèñòðàòèâíûì äîñòóïîì');
readln(o5);
if o5=4 then x:=x+1 else x:=x+0;
writeln('Êàêèå îïöèè íåîáõîäèìî âêëþ÷èòü â îêíå "ñâîéñòâà: Ïðîòîêîë Èíòåðíåòà TCP/IP"?');
writeln('1-Ïîëó÷èòü IP-àäðåñàâòîìàòè÷åñêè');
writeln('2-Ïîëó÷èòü IP-àäðåñàâòîìàòè÷åñêè; Ïîëó÷èòü àäðåñ DNS-ñåðâåðà àâòîìàòè÷åñêè');
writeln('3-Ïîëó÷èòü àäðåñ DNS-ñåðâåðà àâòîìàòè÷åñêè');
writeln('4-Îñòàâèòü áåç èçìåíåíèé');
readln(o6);
if o6=2 then x:=x+1 else x:=x+0;
writeln('Êàêèå èçìåíåíèÿ ïðîèçâîäÿòñÿ âî âêëàäêå "Ïàðàìåòðû IP"?');
writeln('1-Íèêàêèõ');
writeln('2-âêëþ÷èòå ïóíêò "Ïàðàìåòðû NetBIOS ïî óìîë÷àíèþ"');
writeln('3-óáåðèòå ãàëî÷êó íà ïàðàìåòðå "Çàðåãèñòðèðîâàòü àäðåñà ýòîãî ïîäêëþ÷åíèÿ â DNS"');
writeln('4-óáåðèòå ãàëî÷êó "Óïðàâëÿòü ñåòåâûì äîñòóïîì ñ ïîìîùüþ IEEE 802.1X"');
readln(o7);
if o7=1 then x:=x+1 else x:=x+0;
writeln('Ãäå ïðîâîäèòü ïðîâåðêó ñåòåâûõ ïàðàìåòðîâ â Windows XP è Windows 2000?');
writeln('1-Êîìàíäíàÿ ñòðîêà');
writeln('2-Â ñâîéñòâàõ');
writeln('3-Â ïðîöåññå');
writeln('4-Command.com');
readln(o8);
if o8=4 then x:=x+1 else x:=x+0;
writeln('Ñêîëüêî âàðèàíòîâ ïðîâåðêè ñåòåâûõ ïàðàìåòðîâ?');
writeln('1-1');
writeln('2-2');
writeln('3-3');
writeln('4-4');
readln(o9);
if o9=2 then x:=x+1 else x:=x+0;
writeln('Êàêàÿ êîìàíäà ââîäèòñÿ äëÿ âûâîäà âñåõ íàñòðîåê ëîêàëüíîé ñåòè è ïðîòîêîëà TCP/IP?');
writeln('1-ipconfig /all');
writeln('2-cmd');
writeln('3-type');
writeln('4-del');
readln(o10);
if o10=1 then x:=x+1 else x:=x+0;
if x<6 then oc:=2;
if (x>5) and (x<8) then oc:=3;
if (x>8) and (x<10) then oc:=4;
if x=10 then oc:=5;
clrscr;
textcolor(5);
writeln('ÔÈ: ',f,' ',i);
writeln;
writeln('Îöåíêà: ',oc);
writeln;
writeln;
writeln('Êîëè÷åñòâî ïðàâèëüíûõ îòâåòîâ: ',x);
readln;
end.