Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 63 стр.

UptoLike

ВУЗ: 

ОГУ | Оренбург

Составители: 

Рубрика: 

for i:=1 to 3 do begin
gotoXY(25,5+i);
writeln(s[i]);
end;
ukaz:=1;
repeat
gotoXY(25,5+ukaz);
textcolor(7);
textbackground(5);
write (s[ukaz]);
kod:=ord(readkey);
gotoXY(25,5+ukaz);
textcolor(5);
textbackground(7);
write(s[ukaz]);
case kod of
80:ukaz:=ukaz+1;
72:ukaz:=ukaz-1;
27:halt;
end;
if ukaz<1 then ukaz:=3;
if ukaz>3 then ukaz:=1;
until kod=13;
end;
BEGIN
repeat
textbackground(0);clrscr;
menu (ukaz);
textbackground(0);
case ukaz of
1: begin
s:=1;
otkr_gr;
repeat
case s of
1: list1;
2: list2;
3: list3;
4: list4;
5: list5;
6: list6;
7: list7;
end;
if kod=27 then
63
 for i:=1 to 3 do begin
  gotoXY(25,5+i);
  writeln(s[i]);
  end;
 ukaz:=1;
 repeat
  gotoXY(25,5+ukaz);
  textcolor(7);
  textbackground(5);
  write (s[ukaz]);
  kod:=ord(readkey);
  gotoXY(25,5+ukaz);
  textcolor(5);
  textbackground(7);
  write(s[ukaz]);
  case kod of
    80:ukaz:=ukaz+1;
    72:ukaz:=ukaz-1;
    27:halt;
  end;
  if ukaz<1 then ukaz:=3;
  if ukaz>3 then ukaz:=1;
 until kod=13;
end;

BEGIN
repeat
 textbackground(0);clrscr;
 menu (ukaz);
 textbackground(0);
  case ukaz of
   1: begin
     s:=1;
     otkr_gr;
     repeat
      case s of
        1: list1;
        2: list2;
        3: list3;
        4: list4;
        5: list5;
        6: list6;
        7: list7;
      end;
      if kod=27 then

                             63

Страницы