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. |
29.10.2012, 19:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Информация содержащаяся в схожих темах безусловно вам будет полезна Организация интернета Организация ветвления Организация ветвления. Помогите С# Организация циклов Организация охлаждения для Wi-Fi роутера |
29.10.2012, 20:41 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... хотел бы я знать, какое отношение имеет приведенная программа решения квадратного уравнения к сформулированному заданию? По-моему, ну просто ни малейшего.
Ох уж эти "маленькие студенческие хитрости"... |
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|