Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.05.2009, 16:35   #1
stasig
Пользователь
 
Регистрация: 04.11.2008
Сообщений: 31
По умолчанию НУжна помощь с задачей. ДЕлфи

построить структуру изображенную на рисунке. Вывести на печать значения динамических переменных вещественного типапрога1.jpg

type
point=^uk;

uk=record
first: pointer;
second: point;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
p: point;
q1,q2,q3:real;
begin
new(p);
q1:=3.7;
p^.first:=@q1;
p^.second:=p;
q2:=4.8;
p^.second^.first:=@q2;
p^.second^.second:=p;
q3:=5.9;
p^.second^.second^.first:=@q3;
p^.second^.second^.second:=nil;
это моя версия

Последний раз редактировалось stasig; 03.05.2009 в 16:37.
stasig вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна помощь в переписи программы из С++ в Делфи andriano1984 Помощь студентам 1 30.06.2008 21:47
Графика в Делфи, требуется помощь с задачей Natisha Помощь студентам 3 10.05.2008 00:25
Нужна помощь с задачей...никак не могу разобраться( Gekata Паскаль, Turbo Pascal, PascalABC.NET 4 13.12.2006 14:02