Версия для печати темы

Автор: omelchenko1992 21.10.2009, 19:26

Всё сделал правильно, только погрешность не знаю,как найти.Нужно для переменной а.Помогите,кто может!!!
program lab3;
uses crt;
var
a,an,ak,da,b,c,x,y:real;
k:byte;
begin clrscr;
writeln('vvedite an');readln(an);
writeln('vvedite ak');readln(ak);
writeln('vvedite da');readln(da);
writeln('vvedite b');readln(b );
writeln('vvedite c');readln(c );
writeln('an=',an:6:4);
writeln('ak=',ak:6:4);
writeln('da=',da:6:4);
writeln('b=',b:6:4);
writeln('c=',c:6:4);
k:=0;
a:=an;
begin
repeat
if (3*a-b=0) or (b=0) then writeln('raschet nevozmozhen!',' pri a=',a:6:4)
else
x:=(abs(sqr(a)+b*c))/(3*a-b )-((sqr(a)+4)/b);
write('x=',x:6:4);
y:=(x-a*sqr(b )+sqr(c ))*abs(b )/4;
writeln(' y=',y:6:4,' pri a=',a:6:4);
a:=a+da;
if k<22 then k:=k+1 else begin writeln('Nazhmite ENTER');readln;k:=0;end;
until a>=ak;
end;
writeln('Konec!');
readln;
end.

Автор: kaa 22.10.2009, 16:30

может в этой строчке?

Автор: omelchenko1992 22.10.2009, 17:07

Да в этой.ТОлько я не знаю, как её написать(((
Помоги!

Автор: kaa 23.10.2009, 9:40

у вас показует error in statement и показует на else?

Автор: omelchenko1992 23.10.2009, 19:07

Нет.Попробуй взять "рассчёт невозможен" в begin - end.
Просто покажите,как считать погрешность

Автор: kaa 23.10.2009, 19:38

ну не знаю))я в паскале не сильно понимаю)

и в этом алгоритме я не понимаю как делать что что вы попросили)

Автор: omelchenko1992 24.10.2009, 7:56

Не парься, я уже сделал)))Всё работает)