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

Напечатать список автопредприятий, не выполнивших план грузооборота более чем на 10%

02.03.2011, 19:58. Показов 1179. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны шифры предприятий, плановый и реальный грузообороты в ткм. Напечатать список автопредприятий, не выполнивших план грузооборота более чем на 10%. Указать предприятие с минимальным грузооборотом.


Сказали как-то сделать через массивы... (

Добавлено через 5 часов 28 минут
ауууу
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2011, 19:58
Ответы с готовыми решениями:

Структура "Автопредприятие", напечатать список предприятий не выполнивших план грузооборота
Создать набор данных следующей структуры: шифр автопредприятий, название, фамилия руководителя,...

Напечатать списки водителей, перевыполнивших план более чем на 5%
Даны массивы F1...F10 - фамилии водителей S1...S10 - выручка за смену и PL - плановая выручка...

Напечатать список автопредприятий, на которых фонд заработной платы на одного работника менее величины ZR
Даны наименования 10 автопредприятий, численность работающих, и фонды заработной платы на каждом...

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

2
124 / 120 / 54
Регистрация: 10.02.2011
Сообщений: 202
02.03.2011, 20:19 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
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
uses crt;
type tv=record
        sch:string[20];
        pgo:integer;
        rgo:integer;
       end;
  mas=array [1..100] of tv;
 var
buf:mas;
ch:char;
i,n:integer;
procedure vv(var buf:mas;var n:integer);
var c:char;
i:integer;
begin
i:=1;
while c<>'n' do
begin
  n:=i;
 clrscr;
 write('schifr predpriatia :      ');
 readln(buf[i].sch);
 write('planoviy gruzooborot:     ');
 readln(buf[i].pgo);
 write('realniy gruzoooborot:     ');
 readln(buf[i].rgo);
 write('prodolgit? y/n: ');
 inc(i);
 c:=readkey;
  end;
end;
 
procedure sort(buf:mas;n,i:integer);
var j2,m,j,k:byte;
min:integer;
begin
min:=buf[1].rgo;
clrscr;
i:=1;
writeln('OTSTAVSCHIE BOLEE TCHEM NA 10%');
writeln;
repeat
if (buf[i].pgo-buf[i].pgo*0.1)>buf[i].rgo then
 begin
 writeln('schifr predpriatia:    ',buf[i].sch);
 writeln('planoviy gruzoooborot: ',buf[i].pgo);
 writeln('realniy gruzooborot:   ',buf[i].rgo);
 writeln;
 end;
inc(i);
until i>n;
readln;
end;
 
procedure mini(buf:mas;n,i:integer);
var min,j2:integer;
begin
min:=buf[1].rgo;
for i:=1 to n do
if buf[i].rgo<min then
begin
min:=buf[i].rgo;
j2:=i;
end;
clrscr;
writeln('predpriatie s samim malenkim GO');
writeln;
writeln('schifr :     ',buf[j2].sch);
writeln('planoviy GO: ',buf[j2].pgo);
writeln('realniy GO:  ',buf[j2].rgo);
readln;
end;
 
BEGIN
while ch<>'4' do
begin
clrscr;
gotoxy(30,9); writeln('=======================');
gotoxy(30,10);writeln('| 1:vvod dannih       |');
gotoxy(30,11);writeln('| 2:vivisti spisiok   |');
gotoxy(30,12);writeln('| 3:samiy malenkiq GO |');
gotoxy(30,13);writeln('| 4:vihod             |');
gotoxy(30,14);writeln('=======================');
gotoxy(5,22);write('vvedite nomer puncta menu: ');
ch:=readkey;
case ch of
'1':vv(buf,n);
'2':sort(buf,n,i);
'3':mini(buf,n,i);
end;
end;
END.
1
5 / 5 / 0
Регистрация: 01.06.2009
Сообщений: 74
02.03.2011, 20:26  [ТС] 3
PsiYar, виииииии
спасибо)
0
02.03.2011, 20:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2011, 20:26
Помогаю со студенческими работами здесь

Определить кол-во сотрудников, выполнивших план по всем продуктам
Имеется план-факт по набору продуктов для каждого из сотрудников в форме таблицы (см. вложения)....

Выбрать в другой список те строки, которые встречаются в исходном списке более одного раза и напечатать созданный список
это два списка..а дальше как?алгоритм какой?помогите пожалуйста using System; using...


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

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

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