Зайцев М. Г. / 3
.docxМИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИИ
Новосибирский государственный технический университет
Практическое занятие №3
по курсу «Информатика и программирование»
«Ссылочный тип данных»
Факультет бизнеса
Группа: ФБИ-11
Студенты: Рыбаченко А.А.
Преподаватель: Зайцев М.Г.
Новосибирск
2012г.
Задание:
Создайте необходимые описания для работы со следующими динамическими переменными:
-
переменными всех целочисленных типов;
-
переменными всех вещественных типов;
-
переменными комбинированного типа с полями целого, вещественного и строкового типа;
-
переменными множественных типов построенных на основе следующих базовых типов: byte, char, 0..9,`A`..`Z`;
-
динамическими одномерными массивами переменных: целочисленного, вещественного, комбинированного (см. описание выше), множественного (см. описание выше), строкового типов;
-
динамическими одномерными массивами указателей на переменные: целочисленного, вещественного, комбинированного (см. описание выше), множественного (см. описание выше) типов.
program Mnozestvennie;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=10;
type // Integer PInt=^Integer; PByte=^Byte; PShrInt=^ShortInt; PWord=^Word; PLngInt=^LongInt;
// Real PReal=^Real; PSingle=^Single; PDouble=^Double; PExt=^Extended; PComp=^Comp;
//Combine type PCombI=^CombI; //Integer CombI = record x:integer; end; PCombR=^CombR; //Real CombR= record x:real; end; PCombS=^CombS; //String CombS = record x:string; end;
//Mnozhecstvennii tip PMnzB=^MnzB; //Byte MnzB=set of byte; PMnzC=^MnzC; //Char MnzC=set of char; PMnzAr=^MnzAr; //0..9 MnzAr=set of 0..9; PMnzSt=^MnzSt; //A..Z MnzSt=set of 'A'..'Z';
//Dynamic Array Ind=1..n; PArrInt=^ArrInt; //Integer ArrInt=array [Ind] of integer; PArrR=^ArrR; //Real ArrR=array [Ind] of real; Comb = record //Combine i:integer; r:real; s:string; end; PArrComb=^ArrComb; ArrComb=array [ind] of Comb; Mnz=set of byte; //Mnozestvennii PArrMnz=^ArrMnz; ArrMnz=array [ind] of Mnz; PArrStr=^ArrStr; ArrStr=array [ind] of string;
//Dynamic Array With Pointer PArrPInt=^ArrPInt; ArrPInt=array [ind] of PInt; PArrPReal=^ArrPReal; ArrPReal=array [ind] of PReal; PArrPComb=^ArrPComb; PComb=^Comb; ArrPComb=array [ind] of PComb; PArrPMnzB=^ArrPMnzB; ArrPMnzB=array [ind] of PMnzB;
begin end. |