Пост N: 1507
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
5
Відправлено: 22.05.11 12:55. Заголовок: А якщо ви при підгот..
А якщо ви при підготовці до іспиту розв'язуєте завдання ДПА - то чи означає це, що ви робите шпаргалки? Чи ваш викладач не розвязує з вами такі задачі?
Відправлено: 18.05.11 00:10. Заголовок: Program v19; var x,..
Program v19; var x,y:array[1..8] of real; f:array[1..8] of integer; xx,yy,a,b,c,d,d1,d2:real; i,j,k,kp,ff:integer;
Function l(x1,y1,x2,y2:real):real; begin l:=sqrt(sqr(x2-x1)+sqr(y2-y1)) end;
begin for i:=1 to 8 do begin readln(x,y); f:=0 end; kp:=1; for i:=1 to 7 do begin k:=0; if f=0 then for j:=i to 8 do if (x=x[j]) and (y=y[j]) and (f[j]=0) then begin inc(k); f[j]:= kp end; if k=2 then inc(kp) end; if kp=5 then begin for i:=1 to 7 do for j:=i+1 to 8 do if f>f[j] then begin xx:=x; x:=x[j]; x[j]:=xx; yy:=y; y:=y[j]; y[j]:=yy; ff:=f; f:=f[j]; f[j]:=ff end; a:=l(x[1],y[1],x[3],y[3]); b:=l(x[3],y[3],x[5],y[5]); c:=l(x[5],y[5],x[7],y[7]); d:=l(x[7],y[7],x[1],y[1]); d1:=l(x[1],y[1],x[5],y[5]); d2:=l(x[3],y[3],x[7],y[7]); if (a=c) and (b=d) and (d1=d2) then writeln(a*b) else writeln('No') end else writeln('No') end.
помогите плис,у меня экзамен скоро,но я не когда не создовал программы, где скачать программу для 16 заданий? и как туда вставить код,который вы сдесь писали?
Всі дати в форматі GMT
2 час. Хітів сьогодні: 5
Права: смайли так, картинки так, шрифти так, голосування ні
аватари так, автозаміна посилань вкл, премодерація відкл, правка ні