Задачи на Pascal/Delphi (РЕШЕНИЕ)

[Digma]

6. примерно так

 тут log2 или log10?

Что за log 2 bkb log 10??? Я сам не знаю...

Спасибо выручиллл!!!!!!!

[bayarookie]

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

функции log кажется нет, зато должны быть log2, log10

[martinges]

(a and or a=0 and c=0 or c>0 or a>c and c>b

я себе моск сломал

(-1 and 3)=?????

[Dante93]

Народ, помогите пл33 чайнику)

можно через паскаль решить такое уровнение: sinx-4x+cos2x ??

[Blacks]

Dante93

если Х дан то можно xD

[Lakers]

Dante93

uses crt;

var r,q,x:real;

i,j,n:integer;

begin

clrscr;

n:=10;{чем больше n тем выше точность}

x:=0;

for j:=1 to n do

begin

r:=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]

Спасибо)

[r._15]

Люди, помогите решить:

Найти все двухзначные значения,делящиеся на 9, у которых сумма всех цифр равна 9

Q - куб некоторого натурального числа.Сумма цифр числа Q равна этому числу. Найти эти числа.

Вывести значелия квадратных корней от 1 до 100

язык:Pascal

[Lakers]

r._15 лови.

uses crt;

var i:integer;

begin

clrscr;

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;

begin

clrscr;

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;

begin

clrscr;

for i:=1 to 100 do write(i*i,' ');

readkey;

end.

[r._15]

Lakers

премного благодарен *31

[Vanix]

for i:=1 to 100 do write(i*i,' ');

чего же у нас тут все путают вторую степень с квадратным корнем))))))))

надо исправить на for i:=1 to 100 writr(sqrt(i):6:3,' ');

:6:3 не обязательно писать, но так будет красивее)))

[Lakers]

точно точно=)

[$h|{et]

1.Вычислить расстояние между двумя точками с данными координатами (х1,у1), (х2,у2).

2.Дана сторона равностороннего треугольника. Найти S этого треугольника, его высоты,радиусы вписаной и описаной окружностей.

3.Найти S кольца, внутренний радиус которого равен r, а внешний-заданному числу R (R>r).

4.Полторы кошки за полтора числа съедают полторы мышки. Сколько мышек съедят Х кошек за У часов.

Помогите плз решить! А то за семестр оценку не поставят!

[Lakers]

ну ето даже программированием сложно назвать...

юзай учебники по геометрии за 9-10 класс.

[bayarookie]

геометрию не помню уже, примерно так:

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]

2. r=sqr(x)*sqrt(3)/2;

4. кошки мутанты поедают мутантов мышей за полтора "числа" это круто.....

[$h|{et]

А распмшите полностью пллз!

[Lakers]

4. 2/3*Х*У

[$h|{et]

uses crt;

var i:integer;

begin

clrscr;

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]

)) есть решение проблемы)) включи моск и все у тебя получится)

[L0K1]

uses crt;

var i:integer;

begin

clrscr;

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]

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

помагите плз

[bayarookie]

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]

Помогите, а то не успеваю немного, срочно надо))))

Паскаль.

[bayarookie]

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;

это для дельфи