Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
mazilarus
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 2
1

Выяснить, сколько стоит самый дорогой и самый дешевый препарат в аптеке

09.12.2013, 23:34. Просмотров 798. Ответов 2
Метки нет (Все метки)

Условие задачи:

На аптечном складе хранятся лекарства. Сведения о лекарствах содержаться в специальной ведомости: наименования лекарственного препарата; количество; цена; срок хранения( в месяцах). Выяснить, сколько стоит самый дорогой и самый дешевый препарат; сколько препаратов хранится на складе; какие препараты имеют срок хранения более трех месяцев; сколько стоят все препараты, хранящиеся на складе.

Решение задачи в Pascal(необходимо также проверить данное решение, так как оно было найдено на просторах интернета)

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
type
   lek = record
     naim: string;
     kol,cen,srok: integer;
   end;
var
   a: array[1..100] of lek;
   i,n,k,z,max,min: integer;
begin
   write('введите количество наименований: ');
   readln(n);
   for i:=1 to n do
      begin
         write('название: ');
         readln(a[i].naim);
         write('количество: ');
         readln(a[i].kol);
         write('цена: ');
         readln(a[i].cen);
         write('срок годности: ');
         readln(a[i].srok);
      end;
   max:=a[1].cen;
   min:=a[1].cen;
   k:=0;
   z:=0;
   write('препараты, со сроком годности 3+ месяцев: ');
   for i:=1 to n do
      begin
         if a[i].cen>max then max:=a[i].cen;
         if a[i].cen<min then min:=a[i].cen;
         if a[i].srok>3 then write(a[i].naim,' ');
         k:=k+a[i].kol;
         z:=z+a[i].cen*a[i].kol;
      end;
   writeln;
   writeln('цена самого дорогого товара: ',max);
   writeln('цена самого дешевого товара: ',min);
   writeln('количество препаратов: ',k);
   writeln('стоимость всех хранящихся на складе препаратов: ',z);
   readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 23:34
Ответы с готовыми решениями:

Записи (Структуры): Выяснить, сколько стоит самый дорогой и самый дешевый препарат
На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости:...

Записи: сколько стоит самый дорогой и самый дешёвый препарат на складе?
На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости:...

Определить, сколько стоит самый дешевый и самый дорогой обед
В столовой предлагается N комплексных обедов, состоящих из Q блюд . Известна стоимость и...

Определить сколько стоит самый дешевый и самый дорогой обед
В столовой предлагается N комплексных обедов, состоящих из Q блюд. Известна стоимость и...

Определить, сколько стоит самый дешевый и самый дорогой обед
В столовой предлагаются N комплексных обедов, состоящих из Q блюд. Известна стоимость и...

2
Апострофф
Заблокирован
10.12.2013, 11:35 2
mazilarus, вместо того, чтобы кросспостить тему, лучше начали бы хоть что-то делать.
Ну хотя бы файл с исходными данными какой-нибудь придумали и приложили...
0
mazilarus
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 2
11.12.2013, 16:29  [ТС] 3
я просто вообще не могу понять как решить данную задачу, а она мне очень нужна!Помогите

Добавлено через 20 часов 50 минут
помогите решить, очень срочно нужно
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2013, 16:29

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

Сколько стоит самый дешевый и самый дорогой обед?
Проектная задача!!! В столовой предлагается N комплексных обедов, состоящих из Q блюд. Известна...

Выполнить поиск самый дорогой и самый дешевый товары.По нажатию специальной кнопки выполнить их обмен местами
плииз


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

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

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