Передача параметров, лабораторная.

[vladicvladic123]

Здравствуйте. Уже несколько дней пытаюсь разобраться, да ничего не выходит. Дело в том что пропустил пару на которой объясняли эту тему - и теперь она для меня как темный лес. Помогите кто нибудь решить эту лабораторную, заранее спасибо!

[SaLoKiN]

так а в чем непонятки та?
где то в чем уже разобрались? наработки?

[vladicvladic123]

Сообщение от SaLoKiN

так а в чем непонятки та?
где то в чем уже разобрались? наработки?

Дело в том что я вообще в процедурах не разбираюсь. А сдать лабораторную надо вечером. А я сейчас иду в университет поэтому времени на то чтобы еще раз попробовать разобраться в ней у меня нету. Если у вас есть такая возможность - помогите) Если вы поможете - я ее сдам, и у меня не будет задолженности. А на выходных - я уже сам попробую разобраться, используя в качестве примера то решение, которое вы мне напишите (если вы его конечно мне вообще напишете, может у вас и времени нету на то, чтобы помочь мне)) Заранее спасибо вам за помощь.

[Vanta11a]

[sarcazm]Угу, угу. Верю.[/sarcazm]

Что ж Вы тянули то? Сейчас у Вас есть только 1 вариант - срочно связываться с кем-нибудь, кто умеет писать программы и платить любые деньги за то, что он в срочном порядке напишет программу.

Или можете разобраться до конца выходных и сдать после них, задолженности не будет.

[SaLoKiN]

Дело в том что я вообще в процедурах не разбираюсь

а пробовали?
сейчас достаточно иметь выход в интернет,чтобы разобраться с такими пустяками.
интернет,судя по тому что вы здесь, у вас есть. разобраться в процедурах проще пареной репы,если вообще понимаете хоть как-то язык. кстати который не указан.

и у меня не будет задолженности

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

[Serge_Bliznykov]

вообще понимаете хоть как-то язык. кстати который не указан.

скорее всего, ему нужно на языке Паскаль.

Автор в нарушение правил создал две темы. Одна в разделе Паскаль с заголовком, что нужно на Паскале. Но кросспост удалён.

[Stilet]

Первая задача:

function f1(x:double):Double; begin f1:=(x+1)/(1-x*x); end;
function f2(x:double):Double; 
var r:double;i:integer;
begin 
 r:=sqrt(abs(x*x*x-1));
 for i:=1 to 5 do r:=r+sqr(i-2);
 f2:=r;
end;
function f3(x:double):Double; begin f3:=(x+5)/(12+x+x*x); end;

var a,b:double;
begin a:=0;b:=0;
while b<=a do begin
 if a<1 then writeln(a:10:2,f1(a):10:2) else
 if a<=8 then writeln(a:10:2,f2(a):10:2) else
  writeln(a:10:2,f3(a):10:2)
 a:=a+h;
end; readln;end;

Вторая:

const k=0; y=0; m=0;
var x:array[1..k] of double; y:array[1..l] of double;z:array[1..m] of double;

function minx:double; var i,im:integer; begin for i:=1 to k do if x[i]<x[im] then im:=i; minx:=x[im];end;
function miny:double; var i,im:integer; begin for i:=1 to l do if y[i]<y[im] then im:=i; minx:=y[im];end;
function maxy:double; var i,im:integer; begin for i:=1 to l do if y[i]>y[im] then im:=i; maxx:=y[im];end;
function minz:double; var i,im:integer; begin for i:=1 to m do if z[i]<z[im] then im:=i; minx:=z[im];end;
function maxz:double; var i,im:integer; begin for i:=1 to m do if z[i]>z[im] then im:=i; maxx:=z[im];end;

var i:integer; t:double;
begin
 for i:=1 to k do begin x[i]:=random(100)/100; write(x[i]:5:2); writeln;
 for i:=1 to l do begin y[i]:=random(100)/100; write(y[i]:5:2); writeln;
 for i:=1 to m do begin z[i]:=random(100)/100; write(z[i]:5:2); writeln;
 if minx>=5 then t:=miny+maxz else t:=maxy;
 write(t); readln; 
end;

[SaLoKiN]

А на выходных - я уже сам попробую разобраться, используя в качестве примера то решение, которое вы мне напишите

ждем с нетерпением...