Turbo Pascal

hp.

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

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

hp.

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

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

PAIN

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

zx

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

Код:
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 функциями :( )
 

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:
 
Зверху