Министерство образования Российской Федерации
Уральский государственный технический университет – УПИ
филиал в г. Краснотурьинске
кафедра вычислительной техники
по теме: «Работа с записями в 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 шт.
Вывод: научились создавать программы, выполняющие обработку данных комбинированного типа.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.