очень нужна помощь по турбо-паскалю

[ExPeL]

да так .

[somewhere]

Первая

Код: Выделить всё

uses crt;

var
p, h, a, b : Real;

function sh(x:Real):Real;
begin
sh := (Exp(x) - Exp(-x))/2;
end;

Function ch(x:Real):Real;
begin
ch := (Exp(x) + Exp(-x))/2;
end;

Function FuncX(T:Real):Real;
begin
if t < 0 then FuncX := 0
	 else FuncX := Sqrt(sh(t)) + t;
end;

Function FuncY(T:Real):Real;
begin
FuncY := Sqrt(ch(t)) - t;
end;

begin
ClrScr;
Writeln('NOTE THAT THE NEGATIVE VALUES ARE INCORRECT FOR SinH FUNCTION !!!');
Write('Input A : ');
Readln(A);
Write('Input B : ');
Readln(B);
Write('Input H (step) : ');
Readln(H);
Writeln;
If B > A then H := abs(H) else H := -abs(H);
P := A;
Repeat
        Writeln('T = ',P:5:2,'    X = ',FuncX(P):5:2,'    Y = ',FuncY(P):5:2);
	P := P + H;
Until P > B;

end.

[ExPeL]

нереальный респект!=) даже не знаю как тебя отблагодарить... если смогу тебе чем нибудь помочь буду только рад, вот.

[somewhere]

нереальный респект!=) даже не знаю как тебя отблагодарить... если смогу тебе чем нибудь помочь буду только рад, вот.

Если в июне в Питер в отпуск вырвусь, то можно и пивка попить...

[ExPeL]

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

[somewhere]

ок, если что - мыльну

[Евгешь]

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

[Хыиуду]

Ну, пишешь подпрограмму нахождения НОК двух натуральных чисел, а потом с ее помощью находишь НОК трех: NOK(a,b,c)=NOK(NOK(a,b),c)
А как найти НОК - не помню. Вот неоптимальный вариант

Код: Выделить всё

function nok(a,b:integer):integer;
var res, i:integer;
begin
  res:=a*b;
  for i:=1 to round(sqr(min(a,b))) do
     if (a mod i=0) and (b mod i=0) then res:=res div i;
  nok:=res;
end;

min - функция нахождения минимального из двух чисел, ее напишешь сам

[катюшечка]

ДУШАТ лабами по паскалю
тема: Рекуррентные соотношения. Рекурсии

Имеется полоска клетчатой бумаги шириной в одну клетку и длиной в n клеток. На первой клетке установлена шашка. Одним ходом шашку можно передвигать на одну или две клетки. Разработайте рекурсивную функцию, определяющую количество способов продвижения шашки на n-ю клетку.

!...если можно полностью, а то я в этом не особо шарю

[flash1989]

Пишите, обсудим
icq: 588002847
email: flash_1989@ukr.net