Відправлено: 01.05.11 18:30. Заголовок: ДПА з інформатики

Пропоную розміщувати тут розв'язки завдань (відповіді) ДПА з інформатики.

Сподіваюсь, це стане комусь у пригоді.

 Відправлено: 16.05.11 21:22. Заголовок: велыке вам спасыби р..

велыке вам спасыби ришить будласка инши.

 Відправлено: 17.05.11 13:12. Заголовок: Якщо ж ваш викладач ..

Якщо ж ваш викладач інформатики вибрав для іспиту білет №19, то мої підказки вам явно не знадобляться

На закінчення: моя мета - ДОПОМОГТИ у підготовці до іспиту, а не дати шпаргалки лінивим учням. Тому завдання 17 ви повинні виконати самі.

 Відправлено: 17.05.11 13:22. Заголовок: так то12 до20 буде? ..

так то12 до20 буде?

 Відправлено: 17.05.11 13:25. Заголовок: а до12 булы не шпарг..

а до12 булы не шпаргалкы.

 Відправлено: 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.

 Відправлено: 18.05.11 20:10. Заголовок: dimon

скажите пожалуйста,в какой программе делать 16 задание?)

 Відправлено: 18.05.11 20:11. Заголовок: скажите пожалуйста,в..

скажите пожалуйста,в какой программе делать 16 задание?)

 Відправлено: 19.05.11 10:22. Заголовок: дима пише: скажите ..

дима пише:

цитата:

скажите пожалуйста,в какой программе делать 16 задание?)

Яку мову програмування ви вивчали? Якщо Паскаль, то пишете в Турбо Паскаль. Якщо вивчали Бейсик, то в цій програмі. І виконати тестування програми.

 Відправлено: 19.05.11 13:49. Заголовок: Сергей

Велике щире дякую за цінну інформацію! як правильно підмітили вище, "проблемы индейца шерифа не волнуют".

 Відправлено: 19.05.11 13:50. Заголовок: ДЯКУЮ

велике дякую за рішення білетів

 Відправлено: 19.05.11 20:58. Заголовок: я немного подругому ..

я немного подругому решил,(пока только до 10) я ошибаюсь?)


В4 №4 В
В5 №13 А5 Б3 В1 Г2 Д4
В6 №8 ВД
В7 №5 Б
В7 №8 АБВД
В7 №9 АБГ
В8 №1 А
В8 №11 АБВД
В8 №12 АВГД
В8 №13 А5 Б1 В4 Г3 Д2
В8 №14 А2 Б4 В1 Г3 Д5
В9 №11 АБГ
В10 №8 АБВД

 Відправлено: 22.05.11 16:00. Заголовок: ці варіанти у мене т..

ці варіанти у мене такі ж самі:
4 №4 В
В6 №8 ВД
В7 №8 АБВД
В7 №9 АБГ
В8 №11 АБВД
В8 №12 АВГД
В8 №12 АВГД
В9 №11 АБГ

 Відправлено: 19.05.11 21:31. Заголовок: В11 №10 БВГ В11 №12 ..

В11 №10 БВГ
В11 №12 БВГ
В11 №15 А4 Б2 В3 Г1 Д5
В12 №6 А
В12 №10 БВГ
В12 №12 АБГ
В12 №14 А4 Б1 В2 Г3 Д5

 Відправлено: 19.05.11 22:23. Заголовок: помогите плис,у меня..

помогите плис,у меня экзамен скоро,но я не когда не создовал программы, где скачать программу для 16 заданий? и как туда вставить код,который вы сдесь писали?

P.s огромное спасибо! )