29.10.2012, 21:47
|
#3 (permalink)
|
Новичок
Регистрация: 29.10.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Первое задание было: Определить: с какими переменными возможно и желательно работать как с динамическими? Изменить программу, включив работу с динамическими переменными.
Это решила.
Program KO;
var a,b,c,d: real; x1, x2: ^ real;
begin
repeat
writeln ('Vvedi koeficent KO (a<>0');
write ('a='); readln (a);
write ('b='); readln (b);
write ('c='); readln (c);
until a<>0;
new (x1); getmem (x2,1);
d:=b*b-4*a*c;
if d<0 then writeln ('net korney')
else begin
x1^:=(-b+sqrt(d))/(2*a);
x2^:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1^:5:2,'x2=',x2^:5:2)
dispose (x1); freemem (x2,1);
end;
readln;
end.
А второе задание направлено на переменные a, b. Их надо задать как динамические типа string.
|
|
|