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

записи - Pascal ABC

08.12.2011, 12:12. Просмотров 341. Ответов 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.

http://www.cyberforum.ru/pascal/thread79294.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 12:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос записи (Pascal ABC):

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

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

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

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

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

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

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

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

Записи
1) Описать запись с именем Zodiac, содержащую следующие поля: *...

Записи
15. Ввести с клавиатуры фамилии студентов и результат сдачи экзамена по...


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

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

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