Организация доступа к динамической памяти

[samanta7573620]

Организация доступа к динамической памяти

[FONT=&quot]Помогите!
[/FONT] Опишите тип данных: указатель на данные типа string. Объявите переменные a, b названного типа. Выделите в динамической памяти участки, достаточные для размещения двух переменных типа string (применить разные способы)[FONT=&quot]. [/FONT]Введите в созданные динамические переменные некоторые значения. Выведите их на экран. Присвойте одному из указателей значение другого указателя (Какие предварительные действия нужно сделать? Осуществите их). Выведите значения динамических переменных на экран.


Вот сама программа.. Её надо поправить, с условиями задания.


Program KO;
var a,b,c,d,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;
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)
end;
readln;
end.

 

[Vladimir_S]

Да... хотел бы я знать, какое отношение имеет приведенная программа решения квадратного уравнения к сформулированному заданию? По-моему, ну просто ни малейшего.
Ох уж эти "маленькие студенческие хитрости"...

 

[samanta7573620]

Первое задание было:[FONT=&quot]Определить: с какими переменными возможно и желательно работать как с динамическими? Изменить программу, включив работу с динамическими переменными.
Это решила.
[/FONT]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.