0 / 0 / 0
Регистрация: 19.01.2013
Сообщений: 44
1

Определить фамилию работника, имеющего самый большой стаж работы.

28.01.2013, 19:29. Показов 3440. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
а) Создать файл, содержащий данные:
• ФИО работника;
• склад;
• стаж работы.

Добавлено через 24 секунды
б) Просмотреть записи. Определить фамилию работника, имеющего самый большой стаж работы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2013, 19:29
Ответы с готовыми решениями:

Вывести фамилию работника, имеющего ЗП, по значению близжайшую к введенной
Задача вывести фамилию работника, имеющего ЗП, по значению близжайшую к введенной. Все данные...

Структура: Почему, когда я ввожу 5 работников и стаж 10 лет мне выводит только фамилию последнего работника?
Почему когда я ввожу 5 работников, а затем стаж 10 лет мне выводит только фамилию последнего...

Вывести фамилию ученика, имеющего самый высокий рост
1) Создать типизированный файл, элементами которого являются двенадцать первых чисел...

Найти фамилию и имя работника с самой большой платой за день
Я не могу найти формулу, для которой стоит у меня задание. "Фамилия и им'я работника с самой...

2
539 / 399 / 99
Регистрация: 18.08.2012
Сообщений: 1,024
28.01.2013, 19:34 2
Я так понял, что работники хранятся на складе?
2
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
29.01.2013, 03:18 3
Лучший ответ Сообщение было отмечено viktor2014 как решение

Решение

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
const
  nmax=100;
type
  sklad=record
      name: string[30];
      skl : byte; // можно изменить на string, если название склада текстовое
      staj: byte;
  end;
var
  a: array[1..nmax] of sklad;
  n,i,im: byte;
begin
  write('Сколько работников хранится на складах: ');
  readln(n);
  writeln('Заполните данные о работниках:');
  for i:=1 to n do
    with a[i] do
    begin
      writeln(i,'-й работник:');
      write('  Ф.И.О: '); readln(name);
      write('  склад: '); readln(skl);
      write('  срок хранения : '); readln(staj);
    end;
  im:=1;
  for i:=2 to n do
    if a[i].staj>a[im].staj then im:=i;
  writeln('Дольше всех хранится на складе: ',a[im].name);
  readln;
end.
2
29.01.2013, 03:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2013, 03:18
Помогаю со студенческими работами здесь

Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего
Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего.

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

Определить самый большой и самый маленький элементы сформированного вектора
Сформировать и напечатать вектор с m ( m <= 50 ) трехзначных случайных чисел. В каждом номере все...

Определить фамилию самого молодого работника
Помогите пожалуйста, не успеваю! Ко дню основания фирмы решили выдать премию самому молодому...


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

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

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