29.10.2012, 19:02
|
#1 (permalink)
|
|
Новичок
Регистрация: 29.10.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Организация доступа к динамической памяти
Помогите!
Опишите тип данных: указатель на данные типа string. Объявите переменные a, b названного типа. Выделите в динамической памяти участки, достаточные для размещения двух переменных типа string (применить разные способы). Введите в созданные динамические переменные некоторые значения. Выведите их на экран. Присвойте одному из указателей значение другого указателя (Какие предварительные действия нужно сделать? Осуществите их). Выведите значения динамических переменных на экран.
Вот сама программа.. Её надо поправить, с условиями задания.
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.
|
|
|