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

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


Рекомендуемые сообщения

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.

Ссылка на комментарий

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

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

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

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

язык:Pascal

Ссылка на комментарий

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.

Ссылка на комментарий

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

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

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

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

Ссылка на комментарий

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

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

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

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

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

Ссылка на комментарий

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

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. : )

Ссылка на комментарий

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.

Распиши так

И с комментариями, а то враг не дремлет!!!

Расписывать нечего...

Ссылка на комментарий


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.

может и нагнал чего-то, перепроверь

Ссылка на комментарий


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;

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

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...