С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
5729223
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 3
1

Нужно дописать програму

18.04.2010, 17:33. Просмотров 283. Ответов 0
Метки нет (Все метки)

Создать файл, содержащий сведения об рабочих механического цеха, включающий фамилию, инициалы и разряд каждого рабочего, профессию (токарь, фрезеровщик, наладчик станков, слесарь), количество деталей, изготовленных каждым рабочим в течение месяца, и расценки по разрядам. Определить зарплату каждого работника цеха,(До сюда я сделал, дальше немогу). самую большую и самую маленькую зарплату по каждой профессии и среднюю зарплату по цеху.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Program P1;
uses crt;
type
ceh=record
fio:record
f,im,o:string;
end;
prof:record
p:string;
end;
razr:record
r:integer;
end;
kol:record
k:integer;
end;
end;
var
rabotnik:array[1..20] of ceh;
i,n:integer;
b,m,z,q,w,e,y,t,v:real;
begin
clrscr;
writeln('Введите количество работников');
readln(n);
for i:=1 to n do
begin
writeln('Ф.И.О.:');
readln(rabotnik[i].fio.f);
readln(rabotnik[i].fio.im);
readln(rabotnik[i].fio.o);
writeln('Профессия(Токарь, фрезеровщик,наладчик,слесарь):');
readln(rabotnik[i].prof.p);
writeln('Разряд(3-6):');
readln(rabotnik[i].razr.r);
writeln('Количество деталей сделанных за месяц:');
readln(rabotnik[i].kol.k);
writeln;
end;
writeln('Ставки по разрядам');
writeln('Третий');
readln(q);
writeln('Четвертый');
readln(w);
writeln('Пятый');
readln(e);
writeln('Шестой');
readln(t);
writeln;
writeln('Вывод зарплаты:');
for i:=1 to n do
begin
if (rabotnik[i].razr.r=3) then
z:=q*(rabotnik[i].kol.k);
if (rabotnik[i].razr.r=4) then
z:=w*(rabotnik[i].kol.k);
if (rabotnik[i].razr.r=5) then
z:=e*(rabotnik[i].kol.k);
if (rabotnik[i].razr.r=6) then
z:=t*(rabotnik[i].kol.k);
writeln('',rabotnik[i].fio.f,' ','',rabotnik[i].fio.im,' ','',rabotnik[i].fio.o,' ','- ',z:0:2);
end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2010, 17:33
Ответы с готовыми решениями:

Нужно написать програму для нахождения максимального элемента массива и его точек вхождени
Нужно написать програму для нахождения максимального элемента массива и его...

Нужно дописать счетчик, Pascal сортировки
Имеется код, сортировка вставками, нужно в этот код всунуть счетчик "количество...

Нужно дописать программу (Определить среднее арифметическое в массиве)
Помогите, нужно из положительных и отрицательных значений Z сформировать...

Проверьте програму...
Пользуясь рекурентной формулой найти сумму S бесконечного ряда с точностью до...

прокоментировать програму
{$N+} uses crt; function Calculate(SMyExpression: string; digits: Byte):...

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

Не запускает програму
Запускаю програму на турбо паскале и оно выбивает ошибку на StrIntTo. Что...

Составь полноценную програму
if x<-1 then y:=1/(x*x) else if (-1<=x)and(x<2) then y:=x*x else y:=4;...

Составить програму на паскале
Даны действительные положительные числа а,b,c,d. Выяснить, можно ли...


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

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

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