- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
uses windos, crt;
label code1;
var start: char;
pr: shortint;
code: integer;
z, k, p, c, x: longint;
h, m, s, hund: word;
st: string;
i:comp;
function time(w : word) : string;
var s : string;
begin
str(w:0, s);
if length(s) = 1 then s:='0'+s;
time:=s;
end;
procedure rdtsc(var tsc:comp); assembler;
asm
db $0f, $31
les di, tsc
mov [es:di+0], ax
db $66, $c1, $e8, $16
mov [es:di+2], ax
mov [es:di+4], dx
db $66, $c1, $ea, $16
mov [es:di+6], dx
end;
begin
textcolor(white);
write ('Start?(y/n) '); readln (start);
if start<>'y' then halt;
code1:
z:=14000005; c:=round(z/100); p:=c; pr:=0; k:=0; textcolor(10);
gettime(h, m, s, hund);
st:=time(h)+time(m)+time(s)+time(hund);
val(st, x, code);
if code<>0 then
begin
clrscr;
textcolor(12);
writeln ('CODE=', code);
writeln (h, m, s, hund);
goto code1;
end;
rdtsc(i); i:=i+x*41+x+5;
while z<>k do
begin
str(i, st);
st:=copy(st, 6, 4);
val(st, i, code);
if code<>0 then
begin
clrscr;
textcolor(12);
writeln ('CODE=', code);
writeln ('ST=', st);
goto code1;
end;
i:=i*i+h*104+hund*73+x;
if i=0 then
begin
textcolor(12);
writeln ('K=', k);
delay(50000);
goto code1;
end;
k:=k+1;
if k=p then
begin
p:=p+c;
pr:=pr+1;
clrscr;
writeln ('STATUS: ', pr, '%');
end;
end;
x:=round(i); textcolor(white); writeln ('Result X=', x); textcolor(yellow);
while x>=10 do
begin
str(x, st);
z:=length(st);
x:=0;
for k:=1 to z do
begin
start:=st[k];
val(start, pr, code);
if code<>0 then
begin
clrscr;
textcolor(12);
writeln ('CODE=', code);
write ('START=', start);
goto code1;
end;
x:=x+pr;
end;
end;
write ('Result=', x); readln
end.
Генерация случайного числа от 1 до 9 на Turbo Pascal. Свистоперделки прилагаются. Спешите поблевать! Делал сам. Такое вот задание попалось мне в лаб. работе на 4-м курсе. Хотя паскаль изучал лишь в школе, позиция препода уникальна: "Вы должны уметь всё!", хотя дрочим лишь C#, Java и асм.
Follow us!