[Pascal] Funkcja liniowa

[wolly]

Witam! Wie ktoś może jak bedzie wyglądał program w dev-pascal liczący funkcje liniową \(\displaystyle{ y=ax+1}\). Dodam, że musi być zastosowana pętla repeat until.

[adambak]

a co to znaczy "liczyć funkcję liniową"?

[wolly]

sorka może się źle wyraziłem chodzi mi po prostu o przedstawienie funkcji liniowej y=ax+b w dev-pascal za pomocą pętli repeat until-- 4 gru 2011, o 20:43 --proszę o pomoc

[Xitami]

Kod: Zaznacz cały

var a,b,x,k,h:real;
begin
	readln(a,b); 	
	h:=-b/a;
	x:=0; k:=1;
	if h<x then x:=h;
	if h>k then k:=h;
	
	h:=k + (k-x)*0.1;
	x:=x - (k-x)*0.1;
	k:=h;

	h:=(k-x)/24;
	repeat
		writeln(x:10:5, a*x+b:10:5);
		x:= x+h;
	until x>k;
end.