Задания

№1. Файл dan.dat(текстовый) содержит следующую информацию:

Иванов Иван Иванович Петров Петр Петрович Сидоров Ваня Шерлок Холмс Катани Тарзан

Что будет на экране в результате выполнения следующей программы:

Uses crt;

Var

f:text;

s:string;

i:integer;

f2:file of string;

Begin

assign(f,'dan.dat');

reset(f);

clrscr;

for i:=1 to 4 do

read(f,s);

writeln('1: ',s);

while not eof(f) do

readln(f,s);

writeln('2: ',s);

close(f);

assign(f2,'dan.dat');

reset(f2);

seek(f2,0);

read(f2,s);

close(f2);

writeln('3: ',s);

readkey;

End.

№2. Подсчитать количество синтаксических ошибок в программе и переписать ее без ошибок.

Var

f,f1:text;

s:string;

f2:file of string;

Begin

assign(f ,'dan.dat');

reset(f);

close(f1);

rewrite(f1);

assign(f1,'dan.dat');

read(f1,s);

while not eof (f) do readln(f,s);

writeln(s);

writeln(f1,s);

assign(f2,'d.dat'); reset(f2);

seek(f2,3);

read(f2,s);

while not eof(f2) do readln(f2,s);

writeln(s);

End.

№3. Ввести двухмерный массив вещественных чисел X(5,3),записать его в файлК.TXT.

№4. Все элементы массива вещественных чисел X(15) уменьшить в четыре раза (массив считывать из файла). Если последний элемент X15 отрицательный, то в исходный файл добавить еще один элемент: -1.

№5. Считать массив Xиз файлаL.txt, описанный какfile ofдвухмерный массив вещественных чисел (5,3). При необходимости заменить некоторые значения с экрана, после чего опять записать массив в файл.

Библиографический список

1. Джонс Ж., Харроу К. Решение задач в системе Турбо/Паскаль. М.: Финансы и статистика, 1991. 720 с.: ил.

2. Йенсен К., Вирт Н. Паскаль: Руководство для пользователя. М.: Компьютер, 1993. 258 с.

3. Пильщиков В.Н. Сборник упражнений по языку Паскаль. М.:На­ука, 1989. 160 с.

4. Любиев О.Н. Информатика: Учеб.пособие/Новочерк. гос. техн. ун-т. Новочеркасск:НГТУ, 1998. 253 с.

приложения

приложение1

Диапазоны целых типов

Тип	Диапазон	Формат	Размер в байтах
ShortInt	-128..127	Знаковый	1
Integer	-32 768..32 767	Знаковый	2
LongInt	-2 147 483 648 .. 2 147 483 647	Знаковый	4
Byte	0..255	Беззнаковый	1
Word	0..65 535	Беззнаковый	2

приложение2

Диапазоны вещественных типов

Тип	Диапазон	Число значащих цифр	Размер в байтах
Real	2.9E-39..1.7E+38	11-12	6
Single	1.5E-45..3.4E+38	7-8	4
Double	5.0E-324..1.7E+308	15-16	8
Extended	3.4E-4 932..1.1E+4 932	19-20	10

приложение 3

Порядок вычислений

1. Вычисление в круглых скобках

2. Вычисление значений функций

3. Унарные операции (not)

4. Операции типа умножения (*, /, div, mod, and)

5. Операции типа сложения (+, -, or, xor)

6. Операции отношения (=, <>, <=, >=,in)

Георгий Георгиевич Филиппенко,

Любовь Николаевна Филиппенко

НАЧАЛА ПРОГРАММИРОВАНИЯ НА ЯЗЫКЕ PASCAL

Учебное пособие

Редактор Л.М.Захарова Техн. редактор Ж.В.Паршина

Темплан 2009 г.

ЛР N 020417 12.02.09. Подписано в печать 15.05.09.

Формат 60 х 84 1/16. Печать оперативная. Бумага тип. N 2. Усл.п.л. 7,11. Уч.-изд.л. 7,0. Усл.кр.-отт. 7,17.

Тираж 100 экз. С 92

Южно-Российский государственный технический университет(НПИ) Адрес ун-та: 346428, Новочеркасск, ул. Просвещения,132