Показать сообщение отдельно
Старый 24.12.2009, 17:48   #3 (permalink)
HD-boy
Новичок
 
Регистрация: 22.11.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо за советы) Но решил подумать, и вот другой вариант:

Код:

program zadacha;
uses crt;
var x1,x2,h,a1,a2,h2,b,i,k,y:real;
begin
clrscr;
write('vvedite x1 ');readln(x1);
write('vvedite x2 ');readln(x2);
write('vvedite shag ');readln(h);
write('vvedite a1 ');readln(a1);
write('vvedite a2 ');readln(a2);
write('vvedite h2 ');readln(h2);
writeln;
i:=x1;{k:=a1;}
writeln(' x y a b ');
while i<x2 do begin k:=a1;
while k<a2 do begin
b:=sqrt(abs((1+k)/(1+i)));
if i<0 then y:=((k*k+b*b)*i/sqrt(abs(1+k)));
if i=0 then y:=sqr(k*k+b*b);
if (0<i) and (i<1) then y:=(ln(i)/(k*k+b*b));
if (i=1) or (i>1) then y:=sqrt(i*(k*k+b*b));
writeln(' ',i:3:1,' ',y:3:1,' ',k:3:1,' ',b:3:1,' ');
k:=k+h2;end;
i:=i+h;end;
readkey;
end.
HD-boy вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070