Лабораторная работа n 1 работа в интегрированной среде borland pascal на примере программ линейной структуры
жүктеу/скачать 364.5 Kb.
|
- Бұл бет үшін навигация:
- 3. ВЫПОЛНЕНИЕ РАБОТЫ
| Пример: Из ведомости 10 студентов с их оценками ( порядковый номер, Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.
Program lab6; Type wed = record {Тип wed включает 3 поля: n, fio, bal} n : integer ; fio : string[15] ; bal : array [1..3] of integer {Поле bal - массив из 3 оценок } end; Var spisok : wed ; {Запись spicok типа wed} i, j, kol, s : integer; sr : real; Begin kol:=0; {kol- количество отличников} With spisok do {with присоединяет имя записи spisok ко всем } For i:=1 to 10 do { полям внутри цикла For по i } begin n:=i; Writeln(' Введите ФИО N ', i ); Readln (fio); s:=0; For j:= 1 to 3 do begin write ( 'введите оценку: ' ); readln ( bal [j] ); s := s+ bal [j]; end; if s=15 then kol:=kol+1; {подсчет количества отличников} sr := s/3; writeln ( fio, ' средний бал =', sr:4:1); end; writeln ( ' Количество отличников = ', kol ); readln; end. 3. ВЫПОЛНЕНИЕ РАБОТЫ В соответствии с вариантом написать и выполнить программу: Дана информация о четырех студентах. Запись имеет вид: фамилия, год рождения, место рождения, факультет. Вывести данные о самом старшем по возрасту студенте. Дана информация о пяти школах. Запись имеет вид: номер школы, год, количество выпускников, число поступивших в ВУЗы. Вывести данные о школе с самым большим отношением числа поступивших к числу выпускников. Дана информация о пяти комнатах в общежитии. Запись имеет вид: фамилии, номер комнаты, факультет, площадь. Вывести данные о комнате, в которой наименьшая площадь. Дана информация о пяти рабочих цеха. Запись имеет вид: фамилия, пол, размер зарплаты, стаж работы. Вывести данные о рабочем с наибольшей зарплатой. Дана информация о четырех вузах. Запись имеет вид: название вуза, число студентов, количество факультетов, количество кафедр. Вывести данные об общем числе студентов. Дана информация о шести вкладчиках в сберкассы. Запись имеет вид: фамилия, район, соц.положение, величина вклада. Вывести данные о том, сколько среди вкладчиков служащих, рабочих и колхозников. Дана информация о пяти больных. Запись имеет вид: фамилия, возраст, пол, давление. Вывести данные о больных с повышенным давлением (больше 140) . Дана информация о пяти квартирах. Запись имеет вид: фамилия владельца, площадь, число комнат, этаж. Вывести данные о квартирах с площадью меньше 30 кв.м и подсчитать их количество жүктеу/скачать 364.5 Kb. Достарыңызбен бөлісу:
|