Digma Опубликовано 19 марта, 2009 Жалоба Поделиться Опубликовано 19 марта, 2009 6. примерно так тут log2 или log10?Что за log 2 bkb log 10??? Я сам не знаю...Спасибо выручиллл!!!!!!! Цитата Ссылка на комментарий
bayarookie Опубликовано 19 марта, 2009 Жалоба Поделиться Опубликовано 19 марта, 2009 точно не помню как называются, кажется, двоичный, десятичный логарифмыфункции log кажется нет, зато должны быть log2, log10 Цитата Ссылка на комментарий
martinges Опубликовано 20 марта, 2009 Жалоба Поделиться Опубликовано 20 марта, 2009 (a and or a=0 and c=0 or c>0 or a>c and c>bя себе моск сломал (-1 and 3)=????? Цитата Ссылка на комментарий
Dante93 Опубликовано 20 марта, 2009 Жалоба Поделиться Опубликовано 20 марта, 2009 Народ, помогите пл33 чайнику)можно через паскаль решить такое уровнение: sinx-4x+cos2x ?? Цитата Ссылка на комментарий
Blacks Опубликовано 20 марта, 2009 Жалоба Поделиться Опубликовано 20 марта, 2009 Dante93если Х дан то можно xD Цитата Ссылка на комментарий
Lakers Опубликовано 20 марта, 2009 Жалоба Поделиться Опубликовано 20 марта, 2009 Dante93uses crt;var r,q,x:real;i,j,n:integer;beginclrscr;n:=10;{чем больше n тем выше точность}x:=0;for j:=1 to n dobeginr:=sin(x)-4*x+cos(2*x);q:=cos(x)-4-2*sin(2*x); {производная функции}x:=x-r/q;end;writeln(x:0:5);readkey;end. Цитата Ссылка на комментарий
Dante93 Опубликовано 20 марта, 2009 Жалоба Поделиться Опубликовано 20 марта, 2009 Спасибо) Цитата Ссылка на комментарий
r._15 Опубликовано 22 марта, 2009 Жалоба Поделиться Опубликовано 22 марта, 2009 Люди, помогите решить:Найти все двухзначные значения,делящиеся на 9, у которых сумма всех цифр равна 9Q - куб некоторого натурального числа.Сумма цифр числа Q равна этому числу. Найти эти числа.Вывести значелия квадратных корней от 1 до 100язык:Pascal Цитата Ссылка на комментарий
Lakers Опубликовано 22 марта, 2009 Жалоба Поделиться Опубликовано 22 марта, 2009 r._15 лови.uses crt;var i:integer;beginclrscr;for i:=10 to 99 do if (i mod 9 =0)and((i div 10)+(i mod 10)=9) then write(i,' ');readkey;end.uses crt;var i,q:longint;function sum(i:integer):integer; var s:integer; begin s:=0; while i>0 do begin s:=s+i mod 10; i:=i div 10; end; sum:=s; end;beginclrscr;for i:=1 to 2000 do begin if i=sum(i*i*i) then writeln(i,' ',i*i*i); end;readkey;end.uses crt;var i:integer;beginclrscr;for i:=1 to 100 do write(i*i,' ');readkey;end. Цитата Ссылка на комментарий
r._15 Опубликовано 23 марта, 2009 Жалоба Поделиться Опубликовано 23 марта, 2009 Lakersпремного благодарен *31 Цитата Ссылка на комментарий
Vanix Опубликовано 27 марта, 2009 Жалоба Поделиться Опубликовано 27 марта, 2009 for i:=1 to 100 do write(i*i,' ');чего же у нас тут все путают вторую степень с квадратным корнем))))))))надо исправить на for i:=1 to 100 writr(sqrt(i):6:3,' ');:6:3 не обязательно писать, но так будет красивее))) Цитата Ссылка на комментарий
Lakers Опубликовано 27 марта, 2009 Жалоба Поделиться Опубликовано 27 марта, 2009 точно точно=) Цитата Ссылка на комментарий
$h|{et Опубликовано 28 марта, 2009 Жалоба Поделиться Опубликовано 28 марта, 2009 1.Вычислить расстояние между двумя точками с данными координатами (х1,у1), (х2,у2).2.Дана сторона равностороннего треугольника. Найти S этого треугольника, его высоты,радиусы вписаной и описаной окружностей.3.Найти S кольца, внутренний радиус которого равен r, а внешний-заданному числу R (R>r).4.Полторы кошки за полтора числа съедают полторы мышки. Сколько мышек съедят Х кошек за У часов.Помогите плз решить! А то за семестр оценку не поставят! Цитата Ссылка на комментарий
Lakers Опубликовано 28 марта, 2009 Жалоба Поделиться Опубликовано 28 марта, 2009 ну ето даже программированием сложно назвать...юзай учебники по геометрии за 9-10 класс. Цитата Ссылка на комментарий
bayarookie Опубликовано 28 марта, 2009 Жалоба Поделиться Опубликовано 28 марта, 2009 геометрию не помню уже, примерно так:1. r := sqrt(sqr(x2-x1) + sqr(y2-y1)); //возможно что и не так2. r := x/2 * sqrt(sqr(x)-sqr(x/2)); //и тут надо перепроверить, кажись, чо-то нагнал3. r := Pi * sqr(r1) - Pi * sqr(r2); //кажись площадь круга = пи эр квадрат или нет?4. : ) Цитата Ссылка на комментарий
martinges Опубликовано 28 марта, 2009 Жалоба Поделиться Опубликовано 28 марта, 2009 2. r=sqr(x)*sqrt(3)/2;4. кошки мутанты поедают мутантов мышей за полтора "числа" это круто..... Цитата Ссылка на комментарий
$h|{et Опубликовано 29 марта, 2009 Жалоба Поделиться Опубликовано 29 марта, 2009 А распмшите полностью пллз! Цитата Ссылка на комментарий
Lakers Опубликовано 29 марта, 2009 Жалоба Поделиться Опубликовано 29 марта, 2009 4. 2/3*Х*У Цитата Ссылка на комментарий
$h|{et Опубликовано 29 марта, 2009 Жалоба Поделиться Опубликовано 29 марта, 2009 uses crt;var i:integer;beginclrscr;for i:=10 to 99 do if (i mod 9 =0)and((i div 10)+(i mod 10)=9) then write(i,' ');readkey;end.Распиши так Цитата Ссылка на комментарий
martinges Опубликовано 29 марта, 2009 Жалоба Поделиться Опубликовано 29 марта, 2009 )) есть решение проблемы)) включи моск и все у тебя получится) Цитата Ссылка на комментарий
L0K1 Опубликовано 29 марта, 2009 Жалоба Поделиться Опубликовано 29 марта, 2009 uses crt;var i:integer;beginclrscr;for i:=10 to 99 do if (i mod 9 =0)and((i div 10)+(i mod 10)=9) then write(i,' ');readkey;end.Распиши такИ с комментариями, а то враг не дремлет!!!Расписывать нечего... Цитата Ссылка на комментарий
PapiruS Опубликовано 31 марта, 2009 Жалоба Поделиться Опубликовано 31 марта, 2009 какое здесь будет главное условие? т.е при каком условии будет высчитываться эта сумма?помагите плз Цитата Ссылка на комментарий
bayarookie Опубликовано 31 марта, 2009 Жалоба Поделиться Опубликовано 31 марта, 2009 var x, y, z: real; i, j: integer;begin x := 0; while x < 0.99998 do begin x := x + 0.00001; y := x; i := 1; j := 1; while true do begin i := i + 2; j := j * -1; z := Power(x, i) / i; if z < 0.00001 then Break; y := y + j * z; end; writeln(' x = ', x:1:5, ' y = ', y:6:4, ' = ', ArcTan(x):6:4); end;end.может и нагнал чего-то, перепроверь Цитата Ссылка на комментарий
SaS Опубликовано 1 апреля, 2009 Жалоба Поделиться Опубликовано 1 апреля, 2009 Помогите, а то не успеваю немного, срочно надо))))Паскаль. Цитата Ссылка на комментарий
bayarookie Опубликовано 1 апреля, 2009 Жалоба Поделиться Опубликовано 1 апреля, 2009 var i, j: integer; s1: string;begin Result := ''; while (s <> '') do begin i := Pos(' ', s); if (i > 0) then begin s1 := Copy(s, 1, i - 1); Delete(s, 1, i); end else begin s1 := s; s := ''; end; j := Length(s1); if (j > 1) then Result := Result + Copy(s1, j div 2 + 1, Length(s1)) + Copy(s1, 1, j div 2) else Result := s1; if (i > 0) then Result := Result + ' '; end;end;function myF(s: string): string;это для дельфи Цитата Ссылка на комментарий
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.