-Цитата от Baddogg

-Цитата от Hammer

-Цитата от Baddogg

2) Используя функцию, составить программу определения чисел, являющихся степенями 2, в ряду a1, a2, ... ,aN. N - натуральное число.

Полным перебором решил.
Максимальное кол-во элеменентов взял за 10.

var
   i, j, x:   integer;
   mas: array[1..10] of integer;

function Degree(a,b,c:integer):longint;
var r:longint;
begin
     r:=1;
     while b>0 do begin
        r:=r*a;
        b:=b-1;
        if r > c then
           break;
     end;
     Degree:=r;
end;

begin
writeln('Введите числа (10 шт):');
for i:=1 to 10 do
    read(mas[i]);
for i:=1 to 10 do
    for j:=1 to maxint do
        begin
          x:= Degree(j, 2, mas[i]);
          if mas[i] = x then
            write(mas[i], ' ');
        end;
readln;
end.

все бы хорошо, да только N (макс кол-во эл-тов) с клавы нужно ввести. пробовал массив сделать от 1 до N пишет ошибку. чет не знаю в чем дело. и еще че значит break?)

Держи.

var
   i, j, n, x:   integer;
   mas: array[1..100] of integer;

function Degree(a,b,c:integer):longint;
var r:longint;
begin
     r:=1;
     while b>0 do begin
        r:=r*a;
        b:=b-1;
        if r > c then
           break;
     end;
     Degree:=r;
end;

begin
writeln('Ввелите кол-во элементов (максимум 100):');
readln(n);
writeln('Введите числа');
for i:=1 to n do
    read(mas[i]);
for i:=1 to n do
    for j:=1 to maxint do
        begin
          x:= Degree(j, 2, mas[i]);
          if mas[i] = x then
            write(mas[i], ' ');
        end;
readln;
end.

Проверяй, а то я не компилировал.
break - остановка цикла.

-Цитата от Hammer

-Цитата от Baddogg

-Цитата от Hammer

Полным перебором решил.
Максимальное кол-во элеменентов взял за 10.

var
   i, j, x:   integer;
   mas: array[1..10] of integer;

function Degree(a,b,c:integer):longint;
var r:longint;
begin
     r:=1;
     while b>0 do begin
        r:=r*a;
        b:=b-1;
        if r > c then
           break;
     end;
     Degree:=r;
end;

begin
writeln('Введите числа (10 шт):');
for i:=1 to 10 do
    read(mas[i]);
for i:=1 to 10 do
    for j:=1 to maxint do
        begin
          x:= Degree(j, 2, mas[i]);
          if mas[i] = x then
            write(mas[i], ' ');
        end;
readln;
end.

все бы хорошо, да только N (макс кол-во эл-тов) с клавы нужно ввести. пробовал массив сделать от 1 до N пишет ошибку. чет не знаю в чем дело. и еще че значит break?)

Держи.

var
   i, j, n, x:   integer;
   mas: array[1..100] of integer;

function Degree(a,b,c:integer):longint;
var r:longint;
begin
     r:=1;
     while b>0 do begin
        r:=r*a;
        b:=b-1;
        if r > c then
           break;
     end;
     Degree:=r;
end;

begin
writeln('Ввелите кол-во элементов (максимум 100):');
readln(n);
writeln('Введите числа');
for i:=1 to n do
    read(mas[i]);
for i:=1 to n do
    for j:=1 to maxint do
        begin
          x:= Degree(j, 2, mas[i]);
          if mas[i] = x then
            write(mas[i], ' ');
        end;
readln;
end.

Проверяй, а то я не компилировал.
break - остановка цикла.

во спс) все работает =)

друзья, а не поможете?
ебал мозги сегодня с этой программой на Паскале:
Удалить из предложения символы псевдографики, и подсчитать раз-ность между длиной исходного и сформированного предложения.
я уже нихрена не понимаю, но вот что-то вышло, помогите пожалуйста исправить недочеты

program pr11;
uses crt;
type masstr=array[1..255] of string;
procedure ms(s:string; var s1:string;var r:byte);
var l1,i,n: byte;
begin
l1:=length(s);
for i:=l1 downto 1 do begin
for n:=176 to 223 do
if ord (s[i])<>ord(n) then
s1:=s1+s[i];
end;
r:=length(s1)-l1;
writeln(s1,' Raznost',r);
end;
var a:string;
    n,i,k:byte;
    s:string;
begin
clrscr;
writeln('BBeguTe, cTpoky cogep)|(aLLlyIO nceBgoraqpuky');
{for i:=1 to n do}
readln(a);
n:=length(a);
writeln;
writeln('U3MeHeHHa9 cTpoka');
ms(a,s,k);
readln
end.

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

блин вообще думаю переводиться, программирование не мое наверное
люблю всякие вычисления по информе, там Шеннон-Фоно и т.д.
но ненавижу физику

есть ли какая золотая середина между моими предпочтениями?

пропишусь ка я в теме.

с наступающим кстати, господа прогеры.

да, с наступающим, хакеры

не понимаю почему всех так пугает БД) по-моему один из наиболее интересных и простых предметов)
кто-нибудь работал на ASP.NET под с#?

работал

пиздец как тут всё запущено

как то тоже с бд не ловил проблем=\

а java разработчики нас посещают?

-Цитата от Dron48

а java разработчики нас посещают?

Да, в страшных снах )

-Цитата от Dron48

а java разработчики нас посещают?

тут есть пару

надо будет прибегнуть к вашей консультации.
но мне нужно ещё сформулировать задачу в
из мыслиформы в человеческие слова.

-Цитата от Dron48

а java разработчики нас посещают?

со следущего месяца в колледже буду изучать яву,незнаю хорошо это или плохо

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

-Цитата от лжец

-Цитата от Dron48

а java разработчики нас посещают?

со следущего месяца в колледже буду изучать яву,незнаю хорошо это или плохо

Хорошо. Это интересно Вообще веб технологии и веб программирование мне очень нравятся.

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

но тут не будет речи о программировании в java ee

Кто на C# пишет посоветуйте книгу чтоб доступно обьяснялись основы и желательно с примерами

А так же у кого есть Герберт Шилдт C# в нормальном качестве, просьба маякнуть в ЛС

-Цитата от Disput

-Цитата от лжец

-Цитата от Dron48

а java разработчики нас посещают?

со следущего месяца в колледже буду изучать яву,незнаю хорошо это или плохо

Хорошо. Это интересно Вообще веб технологии и веб программирование мне очень нравятся.

мне кажется ты подумал о javascript...

-Цитата от Dron48

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

но тут не будет речи о программировании в java ee

почему? кроме ЕЕ, есть SE ещё.

program task1;

  const

       eps=0.001;
       p=0.333;


  type TypeFunc = function (x:real):real;


  var  x,a,b,c,Fa,Fb,Fc,S,s1,s2,s3,xr1,xr2,xr3:real;
       n0:integer;


{$F+}

    {***f1***}
    function f1 (x:real):real; begin f1:=3*(0.5/(x+1)+1) end;


    {***f2***}
    function f2 (x:real):real; begin f2:=2.5*x-9.5       end;


    {***f3***}
    function f3 (x:real):real; begin f3:=5/x             end;

    {******}


    procedure root (f,g:TypeFunc; eps,a,b:real; var x:real);

    begin

      while b-a > eps do

      begin

        c:=0.5*(b+a);

        Fc:=f(c)-g(c);
        Fa:=Fc*(f(a)-g(a));
        Fb:=Fc*(f(b)-g(b));
        if Fa < 0 then b:=c
        else
            if Fb < 0 then a:=c
        else
            if Fc = 0 then begin
                    b:=c;a:=c;
                    break
                    end;
      end;

        x:=(b+a)*0.5;

    end;

    {******}

    {******FUNCTION INTEGRAL******}

    function integral(f:TypeFunc;a,b,eps:real):real;
      const p=3;
      var
      n,i:integer;
      s1,s2,h:real;
    begin
      n:=1;
      h:=(b-a)/n;
      s1:=h*0.5*(f(a)+f(a+h));
      n:=2*n;
      h:=(b-a)/n;
      s2:=h*(0.5*f(a)+f(a+h)+0.5*f(a+n*h));
      repeat
           h:=(b-a)/n;
           s1:=s2;
           s2:=0.5*h*(f(a+n*h)+f(a+2*n*h));
           for i:=n+1 to 2*n-1 do
           begin
             h:=(a-b)/i;
             s2:=s2+f(a+i*h);
           end;
           n:=2*n;
     until (abs(s1-s2)/p)<eps;
     integral:=s2;
     end;

{------------------------Ѓ‹ЋЉ-------------------------}

begin
writeln('ўўҐ¤ЁвҐ Є®®а¤Ё­ вл в®зҐЄ a Ё b ­  ®бЁ x');
readln(a,b);
root(f1,f2,eps,a,b,xr1);
root(f2,f3,eps,a,b,xr2);
root(f3,f1,eps,a,b,xr3);
writeln('в®зЄЁ ЇҐаҐбҐзҐ­Ёп:')
writeln('  x1=',xr1,'  x2=',xr2,'  x3=',xr3);
writeln();
Writeln('S=',integral(f1,xr3,xr2,eps)-integral(f3,xr3,xr2,eps)+integral(f1,xr2,xr1,eps)-integral(f2,xr2,xr1,eps));
readln(s)
end.

ребятааа кто шарит помогите сделать чтобы она заработала
вообщем программа должна находить площадь фигуры образованной графиками трёх функций
процедура root находит точки пересечения методом деления отрезка пополам, а функция integral вычисляет его по формуле трапеций, ну ф-ла в задании дана..
что надо чтобы она работала ?

сеня jQuery себе в двиг в свой внедрил)

-Цитата от иксуй!

writeln('в®зЄЁ ЇҐаҐбҐзҐ­Ёп:');
writeln; 

Из-за этих ошибок не компилировалась. В программу не вникал, т.е. указал лишь на ошибки при компиляции.

-Цитата от Космонаут

Кто на C# пишет посоветуйте книгу чтоб доступно обьяснялись основы и желательно с примерами

если английский знаешь, то лучше этого варианта не найдешь
http://all-ebooks.com/2010/01/05/86349-head-first-c.html