Пара задачек в pascal - Помощь студентам

yupii · 18.01.2011, 23:52

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

p51x · 19.01.2011, 02:24

сколько платите?

Mad_Cat · 19.01.2011, 09:00

1

Код:

X:=-6;
DX:=12/20;
FOR I:=1 TO 20 DO BEGIN
WRITELN('X=',X:6:3,'Y=',EXP(-X)/SQR(1+EXP(-X)):6:3);
X:=X+DX;
END;

2

Код:

RANDOMIZE;
FOR I:=1 TO N DO BEGIN
X:=RANDOM;
WRITELN('X=',X:6:3,'Y=',LN(X/(1-X)):6:3);
END;

19.01.2011, 09:00	#3
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	1 Код: `X:=-6; DX:=12/20; FOR I:=1 TO 20 DO BEGIN WRITELN('X=',X:6:3,'Y=',EXP(-X)/SQR(1+EXP(-X)):6:3); X:=X+DX; END;` 2 Код: `RANDOMIZE; FOR I:=1 TO N DO BEGIN X:=RANDOM; WRITELN('X=',X:6:3,'Y=',LN(X/(1-X)):6:3); END;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Несколько задачек (Pascal)	anz2034	Помощь студентам	9	22.10.2009 16:28
с++ помогите плизз, пара задачек))	Goga2291	Помощь студентам	0	10.05.2009 18:54
Пара задачек по Паскалю подробности внутри->	Nexx	Помощь студентам	6	03.10.2007 09:08

19.01.2011, 02:24	#2
p51x Старожил Регистрация: 15.02.2010 Сообщений: 15,830	сколько платите?