Работа с записями в Turbo Pascal

Министерство образования Российской Федерации

Уральский государственный технический университет – УПИ

филиал в г. Краснотурьинске

кафедра вычислительной техники

ОТЧЕТ

по лабораторной работе № 9

по теме: «Работа с записями в Turbo Pascal»

преподаватель:                                                                                   Мезенцева О.В.

студент:                                                                                               Бурлов А.С.

группа:                                                                                                 Р-131КТ

2003

Цель работы: создать программы, выполняющие обработку данных комбинированного типа.

1. Задание:

а) даны данные о студентах: ФИО, № группы и список оценок по трём предметам. Определить вид начисляемой стипендии для каждого студента.

б) даны сведения о товарах на складе: наименование, цена, количество единиц товара. Найти товар, стоимость на который не превышает средней стоимости.

2. Блок-схема:

а)

б)

3. Программа:

а)   program stipendium;

      uses crt;

      type student=record

              fio:string[20];

              o1,o2,o3:2..5;

              end;

              massiv=array[1..25] of student;

      var a:massiv;

            n,i:integer;

      begin clrscr;

      writeln('введите количество студентов');

      readln(n);

      for i:=1 to n do begin

      writeln('введите данные о ',i,' студенте');

      with a[i] do begin

      write('Фамилия ');

      readln(fio);

      writeln('Оценки');

      readln(o1,o2,o3);

      end;

      end;

      for i:=1 to n do

      with a[i] do

      if (o1=5) and (o2=5) and (o3=5) then

      writeln(i,'.',fio,' - повышенная')

      else if (o1<=3) or (o2<=3) or (o3<=3) then

      writeln(i,'.',fio,' - не платят')

      else

      writeln(i,'.',fio,' - обычная');

      readln;

      end.

б)   program var_10;

      uses crt;

      type tovar=record

              naim:string[20];

              zena,kolvo:word;

              end;

              massiv=array[1..25] of tovar;

      var a:massiv;

            zena,k,n,i:word;

            sr:real;

      begin clrscr;

      writeln('введите количество товаров');

      readln(n);

      for i:=1 to n do begin

      writeln('введите данные о ',i,' товаре');

      with a[i] do begin

      write('Наименование ');

      readln(naim);

      write('Цена (в рублях) ');

      readln(zena);

      write('Количество единиц товара ');

      readln(kolvo);

      k:=zena+k;

      end;

      end;

      sr:=k/n;

      writeln('средняя стоимость ',sr:1:1);

      writeln;

      for i:=1 to n do

      with a[i] do

      if zena<=sr then

      writeln(naim,' - ','цена ',zena,' рублей, количество единиц ',kolvo,' шт.');

      readln;

      end.

4. Результат:

а) введите количество студентов: 3

    введите данные о 1 студенте

    Фамилия Иванов

    Оценки 5 5 5

    введите данные о 2 студенте

    Фамилия Петров

    Оценки 4 5 4

введите данные о 3 студенте

    Фамилия Сидоров

    Оценки 5 4 3

    1.Иванов – повышенная

    2.Петров – обычная

    3.Сидоров – не платят

б) введите количество товаров: 3

введите данные о 1 товаре

Наименование ПК

Цена (в рублях) 20000

Количество единиц товара 3

введите данные о 2 товаре

Наименование LCD

Цена (в рублях) 15000

Количество единиц товара 4

введите данные о 3 товаре

Наименование Лазерный принтер

Цена (в рублях) 10000

Количество единиц товара 5

Средняя стоимость 15000.0

LCD – цена 15000 рублей, количество единиц 4 шт.

Лазерный принтер – цена 10000 рублей, количество единиц 5 шт.

Вывод: научились создавать программы, выполняющие обработку данных комбинированного типа.