Система задач и упражнений по языку программирования Pascal. Часть 2 - 18 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

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

Рубрика: 

18
7.Укажите смысловые и синтаксические ошибки:
(1) if getx mod 2 =0
then circle(100,-15,80);
else ellipse(150,160,50);
(2) for i:=1 to getmaxx/2 begin
p[i].x:=random(10);
drowpoly(10,p);end;
(3) if getmaxx mod 2=2
then circle(100,50.5,35)
else arc(100,50,0,10,200);
(4) s:=123;
for i:=1 to 8 do
outtextxy(10,100+2*(i-1),’s=’,s+i);
(5) moveto(15,30);
moverel(-30,80);
outtext(sin(15));
(6) i:=1;n:=length(a);
wihle i>=n do
insert(a,i,’23’); i:=i+1;
(7) setcolor(20); setlinestile(1,0,5);
treeangle(10,20,30,40,50,60);
(8) bar3d(10,100,110,120,true);
(9) circle(10,10,50);
floodfill(10,60,0);
(10) ellipse(150,160,-
1.57,6.28,5.0,6);
8.Что делает данный фрагмент программы?
(1) for i:=1 to 15 do begin
circle(10+(i-1)*2,15+(i-1)*5,15*i);
putpixel(10+(i-1)*2,15+(i-1)5,0);
end;
(4) setcolor(4);
setstyleline(2,0,3);
for i:=1 to 15 do begin k:=(i-1)*2;
reсtangle(1+k,1+k,10+k*3,10+k*3);
end;
(2) s:='полигон'; i:=1;
while i<=15 do
begin p[i].x:=random(getmaxx);
p[i].y:=random(getmaxy);i:=i+1;end;
p[i].x:=p[1].x; p[i].y:=p[1].y
drawpoly(16,p);outtext(s);
(5) x:=100;y:=150;moveto(x,y);
for i:=1 to 20 do begin
linerel(10,10);linerel(-10,10);end;
(3) x:=100;y:=150;moveto(x,y);
for i:=1 to 20 do begin
if i mod 2=0 then x:=x-20
else y:=y+15;
lineto(x,y);end;
(6) setcolor(5);
circle(100,100,50);
ellipse(100,100,0,6.28,25,50);
floodfill(101,101,5);
Датчик случайных величин
1. Как вы понимаете термин «случайная величина»?
2. Что такое, по-вашему, равномерно распределенная случайная величина?
3. По какому принципу устроен датчик случайных чисел в языке Паскаль?
4. Приведите примеры использования датчика случайных чисел.
5. Каков смысл и порядок употребления оператора randomize?
6. Как получить в программе на Паскале:
(1) случайное число
от 0 до 1?
(2) случайное число от 0 до Х?
(3) целое случайное число от 0 до М?
(4) случайное число от А до В?
(5) целое случайное число от N до M?
7. Напишите фрагмент программы, который:
(1) Выбирает номера 5 вопросов из 100 (возможно повторение вопросов)
(2) Выбирает номера 5 вопросов из 100 разбитых на группы по 20
вопросов (из
каждой группы вопросов должен быть выбран только один)

Страницы