VPF::[Turbo Pascal] Множества, строки и записи

HarryPotter

Дата 8.4.2010, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 7.4.2010

Репутация: нет
Всего: нет

Здравствуйте! Можете подсказать, где ошибка в данной программе и как ее можно исправить.

Задание:
Написать программу, в которой описывается массив записей, хранящий следующую информацию: ФИО сотрудника, почасовая оплата, количество часов. Программа должна выполнять следующие действия: ввод данных (изначально информация записывается в поля "ФИО сотрудника" и " почасовая оплата", поле "количество часов" заполняется нулями), запись количества часов заданному сотруднику, расчет и вывод ведомости на зарплату сотрудникам (т.е. выводится таблица с колонками: ФИО сотрудника, почасовая оплата, количество часов, зарплата за месяц).

Код


program lab7;

uses
crt;

const
r=20;{число работников}

type
TFIO= record{Данные сотрудника}
f{Фамилия},i{Имя},o{Отчество}: string[40];
zh: integer;
h: integer;
p: integer;
end;

TZAR= record{Зарплата}
fio: TFIO;
zh: array [1..r] of integer;{заработок в час}
h: array [1..r] of integer;{всего часов}
p: array [1..r] of integer;{зарплата}
end;

var

Ot4et: array [1..r] of TZAR;
n: byte;{Количество записей в отчете}
ch: char;{Выбор между действиями}
i,j: integer;
m: byte;

procedure EnterSotr;{Ввод сотрудников}
var
i: integer;
begin
writeln;
writeln;
n:=0;
write('Фамилия [',i,']:'); Readln(Ot4et[n+1].fio.f);
while ot4et[n+1].fio.f<>' ' do begin
write('Имя [',i,']:'); Readln(ot4et[n].fio.i);
write('Отчество [',i,']:'); Readln(ot4et[n].fio.o);
write('Заработок в час[',i,']:'); Readln(ot4et[n].fio.zh);
end;
writeln('Вы ввели:');
writeln(ot4et[n].fio.f,' ',ot4et[n].fio.i,' ',ot4et[n].fio.o);
write('Введите фамилию следующего сотрудника или нажмите Enter для завершения вноса сотрудников');
readln(ot4et[n+1].fio.f);
end;

procedure PrintSotr;{Вывод информации о сотрудниках}

var
i,j,imax,max: integer;

begin
clrscr;
writeln('Текущий список сотрудников:');
i:=1; imax:=10;
repeat
if imax>n then max:=n else max:=imax;
while i<=max do
write(i,' ',ot4et[i].fio.f,' ',ot4et[i].fio.i[1], ' ', ot4et[i].fio.o[1], ' ', ot4et[i].fio.zh,' - ');
for j:=1 to r do
write(ot4et[i].zh[j]);
writeln;
i:=i+1;

if max<n then begin
writeln;
writeln('Нажмите любую клавишу для продолжения списка...');
ch:= ReadKey;
imax:= i+20;
clrscr;
writeln('Текущий список сотрудников (продолжение):');
end;
until i>n;
end;

procedure FindFools (h:byte); {Процедура поиска в списке сотрудников, где подщитывается их заработок}
var
i,j,s,n,p,zh: integer;
begin
writeln('Сотрудники');
p:=0;
for i:=1 to r do begin
h:=0;
for j:=1 to n do
s:=s+ot4et[i].fio.zh;
writeln('Запрос сотрудника с фамилией');
readln(ot4et[i].fio.f);
writeln(ot4et[i].fio.f,' ',ot4et[i].fio.i,' ',ot4et[i].fio.o,' ',ot4et[i].fio.zh);
writeln('Введите количетсво отработанных часов сотрудником');
readln(ot4et[i].fio.h);
p:=zh*h;
end;
writeln('Зарплата сотрудника составляет:',p);
end;

begin
randomize;

writeln('Выберите следующие операции:');
writeln('1 - Ввод информации о сотрудниках');
writeln('2 - Распечатка листа сотрудников');

ch:=ReadKey;
if ch='1' then
EnterSotr;
if ch='2' then
PrintSotr;

repeat
write('Введите фамилию сотрудника, которого нужно найти');
readln(m);
FindFools (m);
writeln('Провести поиск еще раз? (д/н)');

ch:=ReadKey;
until (ch='Н') or (ch='н') or (ch='n') or (ch='N');

end.

Это сообщение отредактировал(а) HarryPotter - 8.4.2010, 18:28

YOurk

Дата 3.1.2011, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.12.2010

Репутация: нет
Всего: нет

Дан текст из строчных латинских букв, за которым следует точка. Построить множество, состоящее из всех букв, входящих в текст не менее двух раз.

ответ на [email protected]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »