Самостоятельная работа по учебным пособиям 2
| Вид материала | Самостоятельная работа |
| Варианты индивидуальных заданий №2 |
- Самостоятельная работа Тема Наименование темы, 34.24kb.
- Самостоятельная работа по дисциплине «Макроэкономика», 72.83kb.
- Самостоятельная работа студентов учебным планом специальности «Государственное и муниципальное, 47.06kb.
- Методическая разработка по сд 03 доп «Преподаватель высшей школы», 523.91kb.
- С. Л. Самостоятельная работа, 172.24kb.
- С. Л. Самостоятельная работа, 235.8kb.
- Современной российской литературе, классической русской литературе, истории, образованию,, 2515.32kb.
- Самостоятельная работа студентов под руководством преподавателя Самостоятельная работа, 1755.62kb.
- Самостоятельная работа студентов под руководством преподавателя Самостоятельная работа, 1542.41kb.
- Самостоятельная работа с энциклопедиями. Анализ текстов. Подведение итогов занятия, 98.55kb.
Варианты индивидуальных заданий №2
1.
...
n:=23;
j[n]:=2;
for k[n]:=$AFA downto 9 do
if ((k[n] div 4)=3) or (k[n] mod 100=0) then j[n]:=j[n]*k[n]+k[n]*k[n] else j[n]:=j[n]+k[n]
...
2.
...
n:=91;
i[n]:=1; k[n]:=5;
while i[n]<120 do
if ((i[n] * k[n]) mod 9) = 3 then i[n]:=i[n]+k[n] else k[n]:=k[n]*k[n]-i[n]
...
3.
...
n:=21;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) div 9) = 3 then i[n]:=i[n]*(i[n]+1) else k[n]:=k[n]-i[n]
until i[n]>k[n]
...
4.
...
n:=88;
i[n]:=9; k[n]:=7;
while i[n]<120 do
if ((i[n] + k[n]) div 7 + (i[n]*k[n] mod 9)) = 2 then i[n]:=i[n]+k[n]*2
else k[n]:=k[n]+i[n]*2
...
5.
...
n:=37;
j[n]:=96;
for k[n]:=240 downto 15 do
if ((k[n] div 7)=2) xor ((k[n] mod 27) = 2) do j[n]:=j[n]-k[n] else j[n]:=j[n]*k[n]+k[n]*k[n]
...
6.
...
n:=18;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) or 9) = 3 then i[n]:=i[n]*{i[n]}*(i[n]+k[n]) else k[n]:=k[n]-i[n]
until i[n]>k[n]
...
7.
...
n:=10;
i[n]:=1024; k[n]:=10;
repeat
if ((i[n] + k[n]*k[n] ) div 5) = 1 then i[n]:=i[n]+1 else k[n]:=k[n]+i[n]
until i[n]>k[n]
…
8.
...
n:=18;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) or 9) = 3 then i[n]:=i[n]*(i[n]+k[n]) else k[n]:=k[n]-i[n]
until i[n]>k[n]
...
9.
...
n:=9
j[n]:=1;
for k[n]:=9 to 255 do
if ((k[n] mod 5)=1) or (k[n] div 130=0) then j[n]:=j[n]*k[n] else j[n]:=j[n]+k[n]
...
10.
...
n:=18
i[n]:=587; k[n]:=19;
while i[n]>199 do
if ((i[n] + k[n]) div 11) = 5 then i[n]:=k[n]-(i[n] mod 2)
else k[n]:=k[n]*k[n]+(i[n] div 2)
...
11.
...
n:=18;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) or 9) = 3 then i[n]:=i[n]*(i[n]+k[n]) else k[n]:=k[n]-i[n]
until i[n]>k[n]
…
12.
...
n:=18;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) or 9) = 3 then i[n]:=i[n]*{i[n]}*(i[n]+k[n]) else k[n]:=k[n]-i[n]
until i[n]>k[n]
...
13.
...
n:=91;
i[n]:=1; k[n]:=5;
while i[n]<120 do
if ((i[n] * k[n]) mod 9) = 3 then i[n]:=i[n]+k[n] else k[n]:=k[n]*k[n]-i[n]
...
14.
...
n:=222;
i[n]:=57; k[n]:=19;
while i[n]>199 do
if ((i[n] + k[n] div 2) mod 11) = 5 then i[n]:=i[n]-k[n] else k[n]:=k[n]*k[n]+(i[n] div 2)
…
15.
...
n:=67
i[n]:=587; k[n]:=19;
while i[n]>199 do
if ((i[n] + k[n]) mod 11) = 5 then i[n]:=i[n]-k[n] else k[n]:=k[n]*k[n]+(i[n] div 2)
...
16.
...
n:=14;
i[n]:=1; k[n]:=5;
while i[n]<120 do
if ((i[n] + k[n]) div 9) = 3 then i[n]:=i[n]*i[n]+k[n] else k[n]:=k[n]*k[n]-i[n]
…
17.
...
n:=10;
i[n]:=1024; k[n]:=10;
repeat
if ((i[n] + k[n]*k[n] ) div 5) = 1 then i[n]:=i[n]+1 else k[n]:=k[n]+i[n]
until i[n]>k[n]
...
18.
...
n:=12
i[n]:=1; k[n]:=5;
while i[n]<120 do
if ((i[n] + k[n]) mod 9) = 3 then i[n]:=i[n]*i[n]+k[n] else k[n]:=k[n]*k[n]-i[n]
...
19.
...
n:=82
i[n]:=1024; k[n]:=10;
repeat
if ((i[n] + k[n]*k[n] ) mod 5) = 1 then i[n]:=i[n]+1 else k[n]:=k[n]+i[n]
until i[n]>k[n]
…
20.
...
n:=21;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) div 9) = 3 then i[n]:=i[n]*(i[n]+1) else k[n]:=k[n]-i[n]
until i[n]>k[n]
...
21.
...
n:=15
j[n]:=96;
for k[n]:=240 downto 15 do
if ((k[n] mod 7)<>2) xor ((k[n] div 27) <> 2) do j[n]:=j[n]-k[n] else j[n]:=j[n]+k[n]*k[n]
...
22.
...
n:=91;
i[n]:=1; k[n]:=5;
while i[n]<120 do
if ((i[n] * k[n]) mod 9) = 3 then i[n]:=i[n]+k[n] else k[n]:=k[n]*k[n]-i[n]
...
23.
...
n:=111;
i[n]:=345; k[n]:=19;
repeat
if ((i[n]*i[n] + i[n]*k[n] + k[n]*k[n] ) div 3) = 2 then i[n]:=i[n]+1 else k[n]:=k[n]+i[n]
until i[n]>k[n]
...
24.
...
n:=31
i[n]:=80; k[n]:=5;
while i[n]<120 do
if ((i[n] - k[n]) mod 9) <> 3 then i[n]:=i[n]*i[n]-k[n] else k[n]:=k[n]*k[n]+i[n]
...
25.
...
n:=60
j[n]:=1;
for k[n]:=9 to 255 do
if ((k[n] div 5)=1) or (k[n] div 130=0) then j[n]:=j[n]*k[n] else j[n]:=j[n]+k[n]
...
26.
...
n:=18;
i[n]:=1; k[n]:=1024;
repeat
if ((i[n]*i[n] + k[n]) or 9) = 3 then i[n]:=i[n]*(i[n]+k[n]) else k[n]:=k[n]-i[n]
until i[n]>k[n]
...
27.
...
n:=34;
i[n]:=587; k[n]:=19;
while i[n]>199 do
if ((i[n] + k[n]) div 11) = 5 then i[n]:=i[n]-k[n] else k[n]:=k[n]*k[n]+(i[n] div 2)
28.
...
n:=77;
j[n]:=2;
for k[n]:=200 downto 9 do
if ((k[n] xor 4)=3) or ((k[n] div 30) = 0) then j[n]:=j[n]*k[n]+k[n]*k[n]+j[n] else j[n]:=j[n]*2+k[n]
...
29.
...
n:=88;
i[n]:=9; k[n]:=7;
while i[n]<120 do
if ((i[n] + k[n]) div 7 + (i[n]*k[n] mod 9)) = 2 then i[n]:=i[n]+k[n]*2 else k[n]:=k[n]+i[n]*2
...
30.
...
n:=66;
i[n]:=7; k[n]:=9;
while i[n]<120 do
if ((i[n] + k[n]) mod 7 + (i[n]*k[n] div 9)) = 2 then i[n]:=(i[n] div 3)+k[n] else k[n]:=k[n]*2+(i[n] div 2)
...
*. Документация по программированию на встроенном ассемблере
TURBOPASCAL Ver 7.0
**. Документация по программированию на ассемблере в каталогах
TASM2 и MASM