Turbo Pascal

[hp.]

Re: Помогите решить задачу в Turbo Pаscal 7.0

ну давай потом посмотрим шо ты там наделал)))))

 

[hp.]

Re: Помогите решить задачу в Turbo Pаscal 7.0

я другое лицо!!!!!!!!!hp` мой брат!!!!!

 

[PAIN]

Помогите решить задачу:
Скласти програму обчислення значення функції використовуючи,в якості підпрограми процедури алгоритм знаходження модуля.
y=x+lx^2-5l / l4x^2-x+5l

 

[zx]

Помогите решить задачу:
Скласти програму обчислення значення функції використовуючи,в якості підпрограми процедури алгоритм знаходження модуля.

ну идея такая.

function y(x: Extended): Extended;
	function locAbs(AValue: Extended): Extended;
	begin
		if AValue < 0 then
			locAbs := -AValue
		else
			locAbs := AValue;
	end;

var
	locResult: Extended;
begin
	{
	по уму стоит вычислить корни кв. уравнения x1 x2,
	при которых знаменатель обращается в ноль
	и вставить проверку области допустимых значений такого типа:
	if (x = x1) or (x = x2) then
	begin
		writeln('diviZion by НОЛЬ !!!!')
		locResult := 0;
	end
	else
	begin
	}
		locResult := 4*x*x-x+5;
		locResult := locAbs(locResult);
		locResult := (x + locAbs(x*x - 5)) / locResult;
	{end;}
	y := locResult;
end;

 

[DELIRIUM]

Borland Pascal for Windows

кто может поделится литературой по Borland Pascal for Windows ??? есть дохрена учебников по Турбо паскалю, но они не подходят (нужны обьяснения как работать с модулями WinTypes и WinProcs и ваще API функциями )

 

[zx]

Re: Borland Pascal for Windows

...
Borland Pascal for Windows ???
...
как работать с модулями WinTypes и WinProcs и ваще API функциями )

а чем дельфи рылом не вышел ?
зачем именно так хитро ?

 

[DELIRIUM]

Re: Borland Pascal for Windows

а чем дельфи рылом не вышел ?
зачем именно так хитро ?

на чем сказали писать на том и приходится, а хотя забью наверно, попробую делфи помучать

 

[svistok]

Люди помагите решить задачу по информатике!!!
Дан одномерный массив М(К). Сформировать новый массив В(К) каждый элемент которого равен удвоенному элементу массива (К=10). Вывести элементы нового массива в строку и вычислить их сумму.

:val: Заранее спасибо.

 

[lovesan]

Люди помагите решить задачу по информатике!!!
Дан одномерный массив М(К). Сформировать новый массив В(К) каждый элемент которого равен удвоенному элементу массива (К=10). Вывести элементы нового массива в строку и вычислить их сумму.

:val: Заранее спасибо.

C тя литра сока

program massiv;
uses
crt;
const
mas1:array[0..9] of integer=(1,2,3,4,5,6,7,8,9,10);
var
mas2:array[0..9] of integer;
i,summ:integer;
s,sum:string;
begin
for i:=0 to 9 do
begin
mas2:=mas1*2;
summ:=summ+mas2;
str(mas2,s);
sum:=sum+s+' ';
end;
writeln('Массив: ',sum,' Сумма элементов массива= ',summ);
repeat until keypressed;
end.

 

[svistok]

Спасибо огромное!!!
Пипец оно заумно.
я бы никада не написал такого!!!
спасиба:val: