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

Вывести список предприятий, у которых объём поставок больше объёма потребления на 0,5 млн.руб

11.04.2011, 21:34. Показов 1386. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны массивы:
PR1, ... , PR5 - наименования предприятий;
PS1, ... , PS5 - объёмы поставок в руб.
PT1, ... , PT5 - объёмы потребления в руб.
Вывести список предприятий, у которых объём поставок больше объёма потребления на 0,5 млн.руб. Отдельно указать предприятие с минимальной разностью объёма поставок и объёма потребления.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2011, 21:34
Ответы с готовыми решениями:

Вывести список товаров, хранящихся больше месяца, стоимость которых превышает 1000000 руб.
Список товаров, имеющихся на складе, включает в себя наименование товара, количество единиц товара,...

Вывести в алфавитном порядке список товаров, хранящихся больше месяца, стоимость которых превышает 1000000 руб
Ребята, помогите пожалуйста. В программе предусмотреть сохранение вводимых данных в файле и...

Вывести в алфавитном порядке список товаров, хранящихся больше месяца, стоимость которых превышает 1000000 руб.(задача с файлами)
привет хочу попросить о помощи. Можете помочь сделать программу в delphi для решения этой задачи:...

Массивы: Напечатать список предприятий, у которых велечина фонда на социальное страхование выше средней по группе предприятий
Даны массивы P1...P10 наименования предприятий F1...F10 фонды заработной...

1
2 / 2 / 7
Регистрация: 31.03.2011
Сообщений: 17
11.04.2011, 23:36 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
program Project2;
 
uses
  crt;
var
  PR: array [1..5] of string;
  PS,PT: array [1..5] of real ;
  i:Byte;
  max:real;
 k: array [1..5] of real ;
  begin
    for i:= 1 to 5 do
    begin
      writeln('pr= ');
      Readln(pr[i]) ;
       writeln('ps= ');
      Readln(ps[i]);
       writeln('pt= ');
      Readln(pt[i]) ;
    end;
   for i:= 1 to 5 do
   begin
      if PS[i]-pt[i] =0.5 then
      write('ps-pt=0.5') ;
      Writeln(pr[i]);
      readln ;
   end;
      begin
        for i:= 1 to 5 do begin
       k[i]:= ps[i]-pt[i] ;
      end;
       end;
       Max:= k[1];
         for i:= 2 to 5 do begin
 
            if k[i]>max then
            begin
              max:=k[i];
            end;
            write(max);
            Readln;
       end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2011, 23:36
Помогаю со студенческими работами здесь

Вывести в алфавитном порядке список товаров, хранящихся больше месяца, стоимость которых превышает 1 000 000 руб.
Список товаров, имеющихся на складе, включает в себя наименование товара, количество единиц...

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

min/max поставок и потребления.с подпрограммой
Пожалуйста помогите. Вопрос жизни и смерти! даны массивы: N1,...N10-наименование предприятий...

Найдите наименьшее значение процента, при котором общая сумма выплат будет больше 1,3 млн. руб
Найдите наименьшее значение r, при котором общая сумма выплат будет больше 1,3 млн. руб


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

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

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