Lakers

чето не могу понять в чем ошибка, WA на седьмом тесте( uses crt; var a:array[1..500,1..3]of integer; b:array[1..500]of boolean; i,j,k,n:integer; procedure swap(var x:integer;var y:integer); var w:integer; begin w:=x; x:=y; y:=w; end; procedure sort(q,p:integer); var x,l,r:integer; begin l:=q; r:=p; x:=a[(l+r)div 2,1]; while l<=r do begin while a[l,1] while a[r,1]>x do dec®; if l<=r then begin swap(a[l,1],a[r,1]); swap(a[l,2],a[r,2]); swap(a[l,3],a[r,3]); dec®; inc(l); end; end; if l if r>q then sort(q,r); end; begin readln(n); for i:=1 to n do b:=true; for i:=1 to n do begin readln(a[i,1],a[i,2],a[i,3]); if a[i,3]>a[i,1] then swap(a[i,1],a[i,3]); if a[i,2]>a[i,1] then swap(a[i,1],a[i,2]); if a[i,3]>a[i,2] then swap(a[i,2],a[i,3]); end; sort(1,n); k:=0; for i:=1 to n do for j:=i to n do if (a[i,1] begin inc(k); b[j]:=false; break; end; write(n-k); end.

ага,можно так исправить. а что трудного при описании массива в блок схеме?

часы - живи в тике. ручка

через функцию наверно а не процедуру. Добавлено спустя 2 минуты 23 секунды: ет че такое? у=((а1+а3+а5+...+а15)^2 - (b2+b4+b6+...+b20)^2)\((a2+a4+a6+...+a20)^2 + (b1+b3+b5+...+b10)^2) в то время как А(16) Добавлено спустя 10 минут 23 секунды: uses crt; var a,b:array[1..20]of real; i:integer; function f:real; var i:integer; s1,s2,s3,s4:real; begin s1:=0; for i:=1 to 15 do s1:=s1+a; s2:=0; for i:=1 to 20 do s2:=s2+b; s3:=0; for i:=2 to 16 do s3:=s3+a; s4:=0; for i:=1 to 10 do s4:=s4+b; f:=(s1*s1-s2*s2)/(s3*s3+s4*s4); end; begin clrscr; randomize; for i:=1 to 16 do a:=random(10); for i:=1 to 20 do b:=random(10); writeln(f:0:3); readkey; end. Добавлено спустя 21 минуту 33 секунды: PapiruS uses crt; var x,y,p,k:integer; s:longint; begin clrscr; write('N= ');readln(k); x:=1; y:=1; p:=1; s:=0; while x<=k do begin s:=s+x; x:=y+p; p:=y; y:=x; end; writeln('SUM= ',s); readkey; end. uses crt; var k,i,j,n,c:integer; a:array[1..10]of byte; begin clrscr; write('K= ');readln(k); j:=0; while k>0 do begin j:=j+1; i:=j; n:=0; while i>0 do begin n:=n+1; a[n]:=i mod 10; i:=i div 10; end; if k-n>0 then begin k:=k-n end else begin c:=a[n-k+1]; k:=-1; end; end; writeln©; readkey; end. uses crt; var x,m1,m2:integer; begin clrscr; read(x); m1:=x; m2:=x; while x<>0 do begin if (xm1) then m2:=x; if (x begin m2:=m1; m1:=x; end; read(x); end; writeln('MIN1: ',m1); writeln('MIN2: ',m2); readkey; end.

унитаз - не дежи в себе. телевизор

Гроб - ...и спи спокойно будильник

гвозди - забей усе. терьер =)

мозг - поканибалуйся. сверло

в смысле в функции должна быть *this или что?

видимо в коде.просто много рас пробовал в разных задачах это сделать и все время одна и таже ошибка.

не не ну это конечно. программа падает и полностью закрывается как только выполнение переходит на перегруженную функцию.и сама среда тоже закрывается.

а может в одной несколько лежать?

не там от конкретного кода независит. но примерно вот так: ostream operator<<(ostream& cout,t& a){...}

а вот не могу понять, перегружаю операцию >> для istream и после вызова перегруженной функции программа падает,почему?

типо две в одну не залезут?

Штанга - покачайся еще. золото

Люстра - купи, вкрути, включи, свети. бумага

На многие годы это станет вашей единственной связью с миром потому выбирайте модем с толком. плинтер

ну я его и нашел.просто этот ряд и есть арктангенс.а арктангенс я вывожу для проверки...

не,вы не говорите свои мысли,вы пытайтесь ре5шить вначале и сдать на сервере по возможности.

PapiruS вообщето она вот так решается=) uses crt; const e=0.00001; var x,y,m:real; i,k,l:integer; begin clrscr; write('vvedite x= ');readln(x); k:=1; y:=0; l:=0; m:=x; while m>e do begin inc(l); m:=x; for i:=1 to k-1 do m:=m*x; m:=m/k; if l mod 2 =0 then y:=y+m else y:=y-m; k:=k+2; end; writeln('Y= ',y:0:5); writeln('arctan= ',arctan(x):0:6); readkey; end.

ну давайте загадывайте следующую тогда=)

ну что,кто доделал?

X-tender смотри 13-й пост

тот что на 9 WA. А можно и оба... Добавлено спустя 59 минут 11 секунд: выложи еще с обратным поиском.