Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 2
Регистрация: 16.02.2014
Сообщений: 149
1

Программа не правильно находит минимальный элемент в записи

01.03.2014, 07:05. Просмотров 311. Ответов 1
Метки нет (Все метки)


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

Вот часть программы где ищу минимум:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 procedure minel(var fi:fil);{poisk minimal'nogo zna4eniya}
        var  min:real; minp:string; var zap:farm;
        begin
          assign(fi,'fm.dat');
           reset(fi);
           read(fi,zap);
          MIN:=zap.PRICE;
          minp:=zap.nazv;
          while not eof(fi) do
                begin
                     read(fi,zap);
                     IF zap.PRICE<MIN then
                        Begin
                             read(fi,zap);
                             Min:=zap.PRICE;
                             minp:=zap.nazv;
                        End;
                end;
          WRITELN('Samy deshevyi preparat:',minp,' Stoimost'y:',min);
         end;
Прикрепил всю программу и файл если нужно...
0
Вложения
Тип файла: zip prog.zip (1.6 Кб, 2 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2014, 07:05
Ответы с готовыми решениями:

Написать модуль, который находит минимальный элемент каждой строки двумерного массива и меняет его местами
1. Написать модуль, который находит минимальный элемент каждой строки двумерного массива и меняет...

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

Программа, которая среди элементов расположенных ниже главной диагонали находит минимальный элемент
Дан двумерный целочисленный массив из n строк и m столбцов. Написать программу, которая среди...

Не работает программа которая находит минимальный элемент в одномерном массиве из 10 элементов, заполненном случайными числами от 1 до 30
Всем привет! Начал работать с массивами и столкнулся с такой проблемой вроде все правильно но...

1
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
01.03.2014, 10:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure minel(var fi:fil);{Ïîèñê ìèíèìàëüíûõ}
        var  min:real; minp:string; var zap:farm;
        begin
          assign(fi,'fm.dat');
           reset(fi);
           read(fi,zap);
          MIN:=zap.PRICE;
          minp:=zap.nazv;
          while not eof(fi) do
                begin
                     read(fi,zap);
                     IF zap.PRICE<MIN then
                        Begin
                             //read(fi,zap); Закомментил процедуру
                             Min:=zap.PRICE;
                             minp:=zap.nazv;
                        End;
                end;
          WRITELN('Ñàìûé äåøåâûé ïðåïàðàò:',minp,' Ñòîèìîñòüþ:',min);
         end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2014, 10:15

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

Не находит второй минимальный элемент в массиве
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;cmath&gt; using namespace std; int main() {...

Неправильно находит минимальный элемент матрицы
Min=(A(1,1)) Imin=1 Jmin=1 Do i=1,n Do j=1,n If(A(i,j)&lt;imin) then Min=A(i,j) Imin=i Jmin=j...

Не верно находит минимальный элемент матрицы 5х5
Не верно находит минимальный элемент каждого столбца матрицы, в Memo1. выводит одни нули, голову...

Написать модуль который находит минимальный элемент в каждой строке
Help)


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

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

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