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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2012, 17:24   #1
ВалерОК
Пользователь
 
Регистрация: 21.01.2012
Сообщений: 24
Печаль Составление и отладка программ с комбинированными типами данных . ЗАПИСИ.

Опишите запись с именем типа Graf, содержащую данные, необходимые для построения графика из 40 точек:
- Название графика (тип string)
- 40 значений (тип integer)
Переменную, определяющую запись, назовите X. Без помощи with присвойте записи начальное значение: название графика «Y=f(T)», значения первых трёх точек: 5, 7, 9
ВалерОК вне форума Ответить с цитированием
Старый 15.04.2012, 17:57   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
graph=record
 name:String;
 Point:array[1..40] of integer;
end;
Цитата:
Переменную, определяющую запись, назовите X
Код:
x:graph
Цитата:
Без помощи with присвойте записи начальное значение: название графика «Y=f(T)»
x.name:='Y=f(T)';
Цитата:
значения первых трёх точек: 5, 7, 9
Код:
x.point[1]:=5;
x.point[3]:=7;
x.point[2]:=9;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.04.2012, 18:02   #3
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Учиться, учиться и ещё раз учиться, и поссориться с ленью тебе надо.
Код:
type
Graf= record
name:string;
value:array[0..39] of integer;
end;
var
x:graf;
begin
x.name:=#89+#61+chr($66)+chr(40)+#84+chr($29);
x.value[length(x.name)-6]:=5;
x.value[1]:=x.value[ord('D')-68]+2;
x.value[sizeof(byte)+1]:=x.value[S_OK+1]+2;
end.
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 15.04.2012, 18:17   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
x.name:=#89+#61+chr($66)+chr(40)+#8 4+chr($29);
x.value[length(x.name)-6]:=5;
x.value[1]:=x.value[ord('D')-68]+2;
x.value[sizeof(byte)+1]:=x.value[S_OK+1]+2;
Если не секрет это что? Похоже на шутку
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.04.2012, 18:50   #5
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Рабочий пример, который сразу привносит в жизнь Валеры новые функции и представления чисел. Такие функции, как длина строки, получение порядкового номера знака из таблицы ASCII, преобразование целого в тип char, получение размера в байтах переменной, типа или объекта.
Если не верите, что пример рабочий, то в консоли:
Код:
type
Graf= record
name:string;
value:array[0..39] of integer;
end;
var
x:graf;
begin
x.name:=#89+#61+chr($66)+chr(40)+#84+chr($29);
x.value[length(x.name)-6]:=5;
x.value[1]:=x.value[ord('D')-68]+2;
x.value[sizeof(byte)+1]:=x.value[S_OK+1]+2;
writeln(x.name);
writeln(x.value[0]);
writeln(x.value[1]);
writeln(x.value[2]);
readln;
end.
Оффтоп↓
Есть вещи, которые не проходят в университете или школе, но такому то 100% учат. И сразу понятно, что человеку наплевать даже на азы. Взял бы книжку, разобрался. Так нет
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 15.04.2012, 23:57   #6
ВалерОК
Пользователь
 
Регистрация: 21.01.2012
Сообщений: 24
По умолчанию

от души прям
ВалерОК вне форума Ответить с цитированием
Старый 16.04.2012, 00:28   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Рабочий пример, который сразу привносит в жизнь Валеры новые функции и представления чисел.
Что ж. Полезно, не поспоришь.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составление и отладка программ с комбинированными типами данных ( записи) ВалерОК Помощь студентам 1 16.04.2012 15:22
Составление и отладка программ с использованием множества ВалерОК Помощь студентам 2 03.04.2012 00:09
Составление и отладка программ с комбинированными типами данных ( записи) в ТР Евгений1313 Помощь студентам 0 13.04.2009 19:22
Составление и отладка программ с использованием множества в TP Евгений1313 Помощь студентам 9 25.03.2009 16:35