следующая тема »

[19 Сентябрь 2025, 06:34:31]

Новости, реклама:

[19 Сентябрь 2025, 06:34:31]

Новости, реклама:

[Toreador]

 
ВОТ ТАКАЯ ВОТ ПРОГА!!!
-----------------------------------------


{COPYRIGHT 2005 ©! THIS PROGRAMM CREATED BY TORE@DOR!}
(*ВЕЗЕНИЁ or ИнТУИциЯ*)
{YoU INTYISHEN}

uses crt;
label nach;
var o,s,r,i,p,j:integer;

procedure vverh;
begin
textbackground(4);
 textcolor(white);
clrscr;
 writeln('-------------------------------------------------------------------------------');
 writeln('':30,'ТВОЁ ВЕЗЕНИЕ');
 writeln('-------------------------------------------------------------------------------');
end;

procedure poka;
begin
 clrscr;
  writeln('-------------------------------------------------------------------------------');
  writeln('':30,'СПАСИБО ЗА ИСПОЛЬЗОВАНИЕ');
  writeln('-------------------------------------------------------------------------------');
  writeln('':492,'COPYRIGHT 2005 ©! THIS PROGRAMM CREATED BY TORE@DOR!');
   writeln; writeln; writeln;
   writeln('':24,'ВАШЕ ВЕЗЕНИЕ(ИНТУИЦИЯ) СОСТАВЛЯЕТ: ',i,'%');
 readln;
end;

procedure los;
begin
 vverh;
  for j:=1 to 70 do
 write('':15,'GAME OVER':3);
  readln;
   i:=0;
 poka;
end;

procedure win;
begin
  vverh;
 for j:=1 to 20 do
writeln('':25,'YOU WIN!');
end;

begin
nach:
vverh;
write('ПРЕДЕЛЫ ЧИСЕЛ:'); readln(s);
if (s<3) or (s>100) then begin writeln('A ЛЕГКО НЕ БУДЕТ?');
readln; goto nach; end;
write('ВВЕДИ ЛЮБОЕ ЧИСЛО:'); readln(o);
if (o>s) then goto nach;
 randomize;
 r:=random(s);
  writeln('КОМПЬЮТЕР ВЫБРАЛ: ',r);
if (o=r) then i:=i+14+r
else
if (i>=9) then i:=i-10 else i:=i-1;
if (i>=0) and (i<92) then writeln('ВАША УДАЧА СОСТАВЛЯЕТ: ',i,'%')
else if (i>=-15) then writeln('МОЖЕТ ВЫ ЕЩЁ НЕ ЗАДУМЫВАЛИСЬ ОБ ЭТОМ - НО ВЫ НЕУДАЧНИК (НИЦА)!  (',i,')')
 else if (i<=-15) then los;
if (i>=92) then win;
readln;
repeat
vverh;
writeln;
writeln('':30,'ЕЩЁ РАЗОК?');
writeln('"1" - ДА, ЕЩЁ!          "2" - НЕТ! УЖЕ ХВАТИТ');
readln(p);
until (p=1) or (p=2);
if (p=1) then goto nach else poka;
end.