close

Вход

Забыли?

вход по аккаунту

?

записи, программирование

код для вставки
паскаль .программирование
Тема:
Создание тематической базы данных
Решение задач по созданию программ с использованием
записей
Цель урока:
1). Дать определение комбинированного типа данных
2). Научить корректно использовать записи при составлении программ
3). Развивать логическое мышление. Повышать уровень компьютерной
грамотности.
План
1. Организационный момент: (перекличка, проверка домашнего задания)
2. Опрос
3. Сообщение нового материала.
4. Решение задач – составление программ.
5. Выставление оценок. Подведение итогов
6. Домашнее задание.
Дан массив записей, содержащий сведения о сотрудниках преприятия.
Вывести на экран:
1. список программистов
2. список сотрудников от 30 до 50 лет
3. среднюю заработную плату по предприятию.
uses crt;
const n=3;
type date_of_birth=record
day:1..31;
month:1..12;
year:integer;
end;
worker=record
name:string;
position:string;
date:date_of_birth;
salary:real;
end;
var x:array[1..n] of worker;
i,j,g:integer;
s:real;p:string;
begin
clrscr;
for i:=1 to n do
with x[i] do begin
write('name',i,' man ');
readln(name);
write('position ');
readln(position);
write('data ');
readln(date.day,date.month,date.year);
write('salary ');
readln(salary);end;p:='programmer';
j:=0; writeln('list of position');
for i:=1 to n do
with x[i] do
if p=position then begin j:=j+1;
writeln(j,'.',name); end;
j:=0; writeln('list of name'); write('year');
readln(g); for i:=1 to n do
with x[i] do
if (g-date.year<50) and (g-date.year>30) then begin
j:=j+1;
writeln(j,'.',name); end;s:=0;
for i:=1 to n do
with x[i] do
s:=s+salary;
writeln('s salary ',s/n:10:2);
end.
Формирование файла записей
uses crt;
const n=3;
type date_of_birth=record
day:1..31;
month:1..12;
year:integer;
end;
worker=record
name:string;
position:string;
date:date_of_birth;
salary:real;
end;
var x:array[1..n] of worker; f:file of worker;t:worker;
i,j,g:integer;
s:real;p:string;
begin
clrscr; assign(f,'f.pas');rewrite(f);
for i:=1 to n do begin
with t do begin
write('name',i,' man ');
readln(name);
write('position ');
readln(position);
write('data ');
readln(date.day,date.month,date.year);
write('salary ');
readln(salary);end; write(f,t); end;seek(f,0);
for i:=1 to n do
READ(F,x[i]);
p:='programmer';
j:=0; writeln('list of position');
for i:=1 to n do
with x[i] do
if p=position then begin j:=j+1;
writeln(j,'.',name); end;
j:=0; writeln('list of name'); write('year');
readln(g); for i:=1 to n do
with x[i] do
if (g-date.year<50) and (g-date.year>30) then begin
j:=j+1;
writeln(j,'.',name); end;s:=0;
Автор
ovsianik
Документ
Категория
Без категории
Просмотров
6
Размер файла
35 Кб
Теги
записи, паскаль
1/--страниц
Пожаловаться на содержимое документа