Материалы сайта
Это интересно
Контрольные по информатике
(Скачать оригинал реферата)Задание 1. Вариант В. 1. Константа— идентификатор, обозначающий некоторую неизвестную величину (значение данных) определенного типа. Константы, так же как и переменные, объявляться в декларационной части программы (или процедуры) до момента своего использования в процессе вычисления. Объявление констант начинается зарезервированным словом CONST. Затем следует имя константы, символ равенства и значение этой константы. Например: CONST Name=’Alex’; CONST Age=18; После объявления константы ее можно вызывать по объявленному имени из произвольного места программы. Типизированные константы представляют собой инициализированные переменные, значение которых используется в программах наравне с обычными переменными. В отличии от нетипизированных констант, описанных выше, в описании типизированной константы указывается как тип, так и значение константы, т.е. она позволяет объявлять переменные и тут же присваивать им начальное значение. Типизированные константы обладают всеми преимуществами переменных, в частности, они могут использоваться в левой части оператора присваивания. К их преимуществам можно отнести и то, что они инициализируются только один раз— в начале выполнения программы. Таким образом, типизированные константы, объявленные в какой-либо процедуре или функции, при каждом новом ее выполнении не инициализируются заново. CONST Year:INTEGER=2000; Mon:String=’December’; 2. Тип файл представляет собой последовательность компонент одного типа, расположенных на внешнем устройстве. Компоненты могут быть любого типа, за исключением типа файл (или содержащего компоненты типа файл) и типа объекта. Число компонент в файле не объявляется. Для задания типа файл следует использовать зарезервированные слова file и of, после чего указать тип компонент файла. Type number = file of integer; symb = file of ‘A’..’Z’; Стандартный тип Text определяет тип файла, содержащий символы, объединенные в строки. Следует иметь ввиду, что тип Text в Турбо-Паскале не эквивалентен тину file of char. Введя файловый тип, можно определять переменные файлового типа: Var F1:number; F2:Text; В Турбо-Паскале можно использовать файл без типа, при определении которого не указывается тип компонент. В этом случае работа с файлом осуществляется на физическом уровне в соответствии с внутренним форматом его данных. При этом реальные компоненты файла могут иметь и различный тип. Тип файл можно определять и непосредственно при введении файловых переменных. Файловые переменные имеют специфическое применение. Над ними нельзя выполнять никаких операций (присваивание значений, сравнивание и т.д.). Кроме того, через файловую переменную можно получить информацию о конкретном файле (тип, параметры, имя и т.д.). Задание 2(8). Var x,a,b,c,y:real; Begin write (‘Введите 2 числа’ ); readln ( y,b); c:=y+b; a:=sqr (sin(c*c*c)/cos(c*c*c)); b:=sqrt (y+b)/(y*pi); x:=a+b; writeln (‘x=’,x:7:2); End. Задание 3-а(5). Uses crt; Var a,b:array[1..10] of integer; i,m:byte; Begin clrscr; m:=1; for i:=1 to 10 do begin write (‘Введите ’,i,‘-ый элемент массива:’); readln (a[i]); if a[i]<0 then begin b[m]:=a[i]; inc(m); end; end; clrscr; writeln (‘Исходный массив:’); for i:=1 to 10 do write (a[i]); writeln; writeln (‘Массив, состоящий из отрицательных чисел:’); for i:=1 to m do write (b[i]); End. Задание 4(8). Uses crt; Type tcm=record name: string[50]; amountw:integer; amountwo:integer; date:string[8]; Var cm=tcm; F1:file of tcm; F2: text; m:char; Begin clrscr; assign (F1,’1.dat’); assign (F2,’1.txt’); rewrite (F1); rewrite (F2); repeat clrscr; write (‘Введите фамилию и инициалы ’); readln (cm.name); write (‘Введите количество голосующих акций ’); readln (cm.amountw); write (‘Введите количество неголосующих акций ’); readln (cm.amountwo); write (‘Введите дату регистрации ’); readln (cm.date); write (F1,cm); writeln (‘Чтобы закончить ввод, введите *’); readln (m); until m=’*’; while not eof(F1) do begin read (F1,cm); if cm.amountw>100 then write (F2, cm.name, cm.amountw, cm.amountwo, cm.date); end; close (F1); close (F2); End.
Файлы данного реферата: 1 2 3 4 5 6 7 8 9 10 11