Понятие «строковых величин»

Министерство науки и высшего образования РФ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

Томский государственный университет систем управления и радиоэлектроники (ТУСУР)

Кафедра физической электроники (ФЭТ)

Отчет по практической работе № 2

Студент гр. 310

_____     Д.О. Маков

                Старший преподаватель

______  А.Ф. Поздеева

Цель работы:

Цель работы:

• Изучить понятие «строковых величин»;
• Научиться работать со строковыми типами данных.

Ход Работы:

Набрать и выполнить (задачи 1-3)

Задание №1 :

1. Соединить оба фрагмента (Пример 1) в программу
2. Добавить оператор вывода отдельных полей записи р.
3. Организовать циклический ввод и вывод 10 записей.
4. Продублировать программу, используя оператор присоединения with..do

type

Person = record

name: string;

    age: integer;

end;

var a: array[1..10] of Person;

var i: integer;

begin

writeln('Введитеимяивозраст');

writeln();

for i:=1 to 10 do

begin

readln(a[i].name,a[i].age);

end;

for i:=1 to 10 do

begin

writeln('Имя: ',a[I].name,' Возраст: ',a[I].age);

end;

writeln();

with a[i] do

begin

writeln('Введите имя и возраст');

writeln();

for i:=1 to 10 do

begin

readln(a[i].name,a[i].age);

end;

for i:=1 to 10 do

begin

writeln('Имя: ',a[I].name,' Возраст: ',a[I].age);

end;

end;

end.

Задание №2 :

1. Разобраться  с решением задачи (Пример 2),
2. Выполнить программу.
3. Написать комментарии к программе

type anketa=record

fio: string[45];

dat_r: string[8];

adres: string[50];

   curs: 1..5;

grupp: string[3]

end;

var student: array [1..100] of anketa;

I: integer;

begin

{последовательно вводим каждую запись}

forI:=1 to 100 do

begin

writeln ('введите сведения о', I ,'-м студенте');

      writeln ('введите фамилию, имя и отчество');

readln (student[I].fio);

      writeln ('введитедатурождения');

readln (student[I].dat_r);

      writeln ('введитеадрес');

readln(student[I].adres);

      writeln ('введитекурс');

readln(student[I].curs);

      writeln ('введитегруппу');

readln (student[I].grupp);

end;

   writeln ('вводзакончен');

writeln ;

{просматриваем массив записей и выбираем только студентов 2-го курса }

for I:=1 to 100 do

      if student[I].curs=1 then

writeln(' фамилиястудента : ', student[I].fio);

end.

Задание №3 :

1. Разобраться  с решением задачи (Пример 3),
2. Выполнить программу.
3. Написать подробные  комментарии к программе.

program Zadanie101;

var

a,b: array [1..100] of real;       // создаеммассив

i: integer;   //задаем переменную

n: integer;   //задаем переменную

x: real;   //задаем переменную

f1,f2: fileofreal;  //задаем файлы с последовательным доступом

begin

assign(f1,'data01.dat');   //связываем файл с местом на жестком диске