70 / 5 / 3
Регистрация: 22.02.2010
Сообщений: 30
1

Определить день недели, когда был достигнут лучший показатель производительности труда цеха

02.05.2010, 16:48. Показов 1189. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
очень нужна помощь!
в файле содержатся сведения о выработке цеха за неделю: фамилия сборщика, количество изделий, собранных им ежедневно в течение пятидневной недели. Определить день недели, когда был достигнут лучший показатель производительности труда цеха, а также фамилии рабочих, собравших наибольшее количество изделий в этот день.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.05.2010, 16:48
Ответы с готовыми решениями:

Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало...

Определить день, когда был получен наибольший доход
Дано начало программы, нужно её дописать, чтобы она соответствовала условию: а) Программа...

Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить на какой день недели приходится начало...

Определить, какой день недели был чаще в году
Определить какой день недели был чаще в году, если это год невисокосный и начинается с четверга....

2
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
02.05.2010, 17:22 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Возможно так:
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
uses crt;
const n=5;
type a=record
fam: string;
k: byte;
end;
var b: array[1..n] of a; f: file of a; max,i: byte; s: string;
begin
clrscr;
assign(f,'file.bin');
reset(f);
for i:=1 to n do
read(f,b[i]);
close(f);
max:=b[1].k;
for i:=1 to n do
if b[i].k>max then 
begin
max:=b[i].k;
j:=i;
end;
case j of
1: s:='понедельник';
2: s:='вторник';
3: s:='среду';
4: s:='четверг';
5: s:='пятницу';
6: s:='субботу';
7: s:='воскресенье';
end;
writeln('максимальная производительность была достигнута в ',s);
end.
1
70 / 5 / 3
Регистрация: 22.02.2010
Сообщений: 30
05.05.2010, 17:45  [ТС] 3
спасибо большое!
(но)я извиняюсь,что так поздно(просто только сейчас начала разбирать задачу)-
а здесь определяется только день,без фамилий?
и еще, скажите, пожал-ста, как создать входной файл? какую программу можно задать для этого?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2010, 17:45
Помогаю со студенческими работами здесь

Определить самый холодный день января и дни, когда был мороз
Даны показатели температуры воздуха ежедневно января. Определить САМЫЙ ХОЛОДНЫЙ день января и дни,...

Определить, в какой день недели расход бензина был максимальным
Нужна программа, решающая вот эту задачу: В автохозяйстве в течение недели каждый день ведется...

По номеру дня недели определить, какой день был вчера, будет завтра и сколько дней до воскресенья
visual basic Составить программу для решения задачи, используя оператор выбора Select-Case. ...

Определить, какой будет день недели через N дней, если сегодня день недели S
Вычисление с днями недели. Обозначим дни как 0 = воскресенье, 1 = понедельник, ..., 6 = суббота....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru