Program func;
var
x,z,y,x_nach,z_nach,hx,hz: real;
n,i: integer;
begin
writeln('Введите начальное значение x');
readln(x_nach);
writeln('Введите начальное значение z');
readln(z_nach);
writeln('Введите шаг по x');
readln(hx);
writeln('Введите шаг по z');
readln(hz);
writeln('Введите количество расчетных точек n');
readln(n);
x:=x_nach; z:=z_nach;
for i:=1 to n do
begin
if (x>0) and (z<>1.1) then
begin
y:=sqrt(exp(2/3-z))/sqrt(exp(z*ln(x))+exp(2*z*ln(x))+sqr(ln(abs(z-1.1))));
writeln(y);
end
else
writeln('Решение не получено');
x:=x+hx; z:=z+hz;
end;
readln;
end.

func.rar

Надо, чтобы кто-то не замыленным взглядом посмотрел. У меня почему-то при z=1.1 выдается вещественный результат... под вечер что-то плохо голова варит..

Добавлено (28.10.2008, 20:11)
---------------------------------------------
так это программа проще чем раньше до этого была!!!!!!!!!

Добавлено (03.11.2008, 23:25)
---------------------------------------------
http://www.osnpas.com/index.html на этом сайте есть очень много интересного про Паскаль

Program sq;
var
R: array [1..10] of real;
i,n,kol: integer;
begin
// ввод n (<=10)
// ввод A, B
kol:=0; // количество кругов, площадь которых больше площади прямоугольника
for i:=1 to n do
begin
// ввод i-го элемента массива R
if pi*sqr(R[i])>A*B then kol:=kol+1;
end;
writeln(kol);
readln;
end.

program mass;
type mas=array[1..20] of real;
var a,c:mas;
min1,min2,s:real;
na,nc,i:integer;
begin
writeln ('vvod kol-vo elementov v massive a');
readln (na);
for i:=1 to na do
readln(a[i]);
writeln ('vvod kol-voelementov v massive c');
readln (nc);
for i:=1 to nc do
readln(c[i]);
min1:=a[1];
for i:=2 to na do
if a[i]<min1 then
min1:=a[i];
min2:=c[1];
for i:=2 to nc do
if c[i]<min2 then
min2:=c[i];
s:=(min1+min2)/2;
writeln(s);
readln;
end.

Добавлено (23.11.2008, 20:29)
---------------------------------------------
program pr5;
uses
const nn=3;
type mas=array[1..nn,1..nn]of real;
var k,m,n,i,g:integer;a:mas;sr,sum:real;
begin{todo -ouser-cConsole main}
writeln('vvedi n=');readln(n);
writeln('vvedi m=');readln(m);
writeln('vvesti matrisy');
for i:=1 to n do
for g:=1 to n do
begin
write('a[' ,i, ',' ,g, ' ]=' );
readln(a[i,g]);end;
for g:=1 to n-1 do
for i :=g+1 to n do
begin
i f a [i ,g]<0 then
sum:=sum+a[i,g];
k:= k+1;
end;
i f k=0 then writeln ('elementov net')
else begin
sr:=sum /k ;
writeln(sr:7:3); end; readln;end.

Добавлено (23.11.2008, 20:33)
---------------------------------------------
Задание: Найти среднее арифметическое отрицательных элементов матрицы, лежащих ниже главной диагонали, и среднее арифметическое всех элементов главной диагонали.