Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
issus
1 / 1 / 2
Регистрация: 07.12.2011
Сообщений: 46
1

записи

08.12.2011, 12:12. Просмотров 349. Ответов 0
Метки нет (Все метки)

Составить программу, которая вычисляет зарплату сотрудников с учетом оклада и стажа работы: 50% от величины оклада – тем, кто проработал больше 20 лет, 30% - 10 лет и более, 10% - 5 лет и более соответственно. Вывести сведения о всех сотрудниках и зарплату каждого.

Добавлено через 16 часов 34 минуты
все сам сделал)
вот

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
type
sotr=record
fio:string;
data:string;
stag:integer;
oklad:integer;
zarplata:real;
end;
var
base:array [1..50] of sotr;
i,n:integer;
begin
clrscr;
writeln('введите кол-во сотрудников-->');
read(n);
writeln('заполнение базы');
for i:=1 to n do
with base [i] do
begin
writeln('введите: фамилию,дату,стаж и оклад');
read(fio,data,stag,oklad);
end;
writeln('ввод закончен');
writeln;
for i:=1 to n do
with base[i] do
begin
case  stag of
0..4:zarplata:=oklad;
5..9:zarplata:=oklad+oklad*10/100;
10..19:zarplata:=oklad+oklad*30/100;
20..50:zarplata:=oklad+oklad*50/100;
end;end;
for i:=1 to n do
with base[i] do
begin
writeln('фамилия = ',fio);
writeln('data = ',data);
writeln('stag = ',stag);
writeln('zarplata = ',zarplata);
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 12:12
Ответы с готовыми решениями:

Добавление и удаление записи, поиск записи с максимальной зарплатой, сортировка по алфавиту
Помогите, пожалуйста!:help: Очень нужно сделать до 26!(а если не сложно, то...

Удаление записи из массива записи или файла
Доброго времени суток... Задача стоит такая. Есть массив записей, прочитали из...

Дан файл записей. Одно из полей записи ФИО. Вывести все записи в виде таблицы в алфавитном порядке ФИО
Я сделал ввод файла, а вот как сделать такой вывод не знаю. Помогите...

Записи.Упорядочивание записи.
При решении списка задач который мне был выдан столкнулся с трудностью в...

записи!
Здравствуйте,вот задача. Багаж пассажира характеризуется количеством вещей и...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 12:12

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

Записи
Трабла в вводом фамилии, почему пишет 2 пункта сразу type sp=record...

Записи
Помогите пожалуйста исходным текстом программы (сводной ведомости отличников...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru