Перейти к содержанию

X-tender

Пользователи
  • Постов

    950
  • Зарегистрирован

  • Посещение

  • Победитель дней

    30

Весь контент X-tender

  1. Собственно, сабж... Вообще какой-то идиотизм сначала ввести динамику для всех, и только потом думать как и когда они начнут предоставлять статику. Раз уж хотели ввести динамическую адресацию ради денег, то продумали бы сначала как будут их зарабатывать. Ну а если не осилили статику, то это уже "no comments"...
  2. FunlOvEe, не так, begin end зря вставлял uses crt; const m=4; n=6; var i,j,t,sum:integer; a:array[1..m,1..n] of integer; begin clrscr; for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,'] = '); read(a[i,j]); end; for i:=1 to m do begin t:=1; sum:=0; for j:=1 to n div 2 do if (a[i,j*2] mod 2 = 0) then t:=0; sum:=sum+t; end; writeln("Result=",sum); readkey; end.
  3. Галсан m=кол_во_строк; n=кол-во_столбцов; for i:=1 to m do begin t=1; for j:=1 to n div 2 do if (a[i,j*2] mod 2=0) then t:=0; sum:=sum+t; end;
  4. Vol89, посмотри размерность integer и введи его минимальное значение вместо -32656. (вообще что-то я ошибся хотел по идее -32768 указать, т.к. там он кажется 16битный)
  5. Vol89, эхъ... чтобы, если вдруг тебе понадобится изменить размеры массива, не менять везде 5 и 6 на новые размеры, а просто изменить эти константы...
  6. Vol89 все конечно хорошо только зачем по твоему я const m=5;n=6; вставлял?
  7. Vol89 const m=5;n=6; var a:array[1..m,1..n] of integer; i,j,max:integer; begin max:=-32565; for i:=1 to m do for i:=1 to n do begin read(a[i,j]); if (maxwriteln('max=',max,':'); for i:=1 to m do for i:=1 to n do if (a[i,j]=max) then writeln(i,':',j); end.
  8. D3V3L0p3R, выведи что возвращает sizeof(buff), и еще проверь что возвращает recv. А вообще поточнее бы сказал как именно "не доходят".
  9. Пора заранее готовиться и крупной акции против нововведений. Собрать подписи, договориться о пикетировании. Переговорить с депутатами (которые выбраны формально для отстаивания интересов народа).
  10. PapiruS, у тебя турбопаскаль видимо. в дельфи result - это возвращаемое значение функцией. если так то замени result:= на название_функции:=. Вообще немного то хоть включай мозг.
  11. PapiruS, я код просил, а не вывод. Вот абсолютно рабочий код: function dec_cnt(t:integer):integer; var i:integer; begin i:=1; while (t>=10) do begin t:=t div 10; inc(i); end; result:=i; end; function n_dec(t,i:integer):integer; var j:integer; begin j:=dec_cnt(t)+1-i; while (j>1) do begin t:=t div 10; dec(j); end; result:=t mod 10; end; var i,k:integer; begin readln(k); i:=1; while (k>dec_cnt(i)) do begin k:=k-dec_cnt(i); inc(i); end; writeln('Result = ',n_dec(i,k)); end.
  12. Tsybik, есть. Целая кафедра ЭВС в всгту
  13. PapiruS, ну перенеси код из функции в основной код и все...
  14. PapiruS Во-первых, зачем? А во-вторых, что тяжело код из функции перенести в основной?
  15. D3V3L0p3R, мде... в том то и дело... Я как раз и говорил что не единица должна быть. Счет начинается с 0, а не с 1. Тебе ошибку и выдавало на то, что обращается к не существующему элементу.
  16. Digma издеваешься? математика обычная же. y= ( (x-x1)/(x2-x1) ) * (y2-y1) +y1
  17. Трали-Вали, a - заданный массив, b - массив в котором будут хранится номера позиций в которых меняется знак, j - количество изменений знака j=0; for (int i=0;i{ if (a[i]*a[i+1]<0) { b[j++]=i+1; } }
  18. Это кому было-то? Добавлено спустя 1 минуту 28 секунд: Переводит в градусы из радиан.
  19. PapiruS что-то типа того(синтаксис паскаля не очень помню): function dec_cnt(t:integer):integer; var i:integer; begin i=1; while (t>=10) do begin t:=t div 10; inc(i); end result:=i; end; function n_dec(t,i:integer):integer; var j:integer; begin j=dec_cnt(t)+1-i; while (j>=0) begin t:=t div 10; dec(j); end; result:=t mod 10; end; var i,k:integer; begin readln(k); i=1; while (k>dec_cnt(i)) do begin k:=k-dec_cnt(i); inc(i); end; writeln("Result = ",n_dec(i,k)); ps. Написал для теста на перле и попытался перевести в паскаль, сорри если что-то не так. на перле: use strict; sub dec_cnt{ my $t=shift; my $i=1; while ($t>=10) { $t/=10; $i++; } return $i; } sub n_dec { my $t=shift; my $i=shift; my $j=dec_cnt($t)+1-$i; while (--$j) { $t/=10;} return $t%10; } my $k=<>; my $i=1; while ($k>dec_cnt($i)) { $k-=dec_cnt($i); $i++; } print "Result=".n_dec($i,$k);
  20. LeviX, это называется паразитный траффик. Он есть у всех. Добавлено спустя 33 секунды: хмъ, хотя для паразитного 50 это много...
×
×
  • Создать...