|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2008, 19:33 | #1 |
Регистрация: 27.12.2008
Сообщений: 4
|
Пожалуйста помогите найти ошибку в коде решения задачи на записи
дана задача:
В аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: наименование лекарственного препарата; количество; цена; срок хранения (в месяцах). Выяснить, сколько стоит самый дорогой и самый дешевый препарат: сколько препаратов хранится на складе; какой препарат имеет срок хранения более 3 месяцев; сколько стоят все препараты, хранящиеся на складе. мой код: Program SKLAD_LEKARSTV; type sklad = record name: string; kol: integer; cena:integer; srok:integer; end; const n=3; var a: array [1..100] of sklad; s,k, i,y,max,min:integer; begin for i:=1 to n do begin writeln('imya tovara?'); readln(a[i].name); writeln('kolichestvo na sklade'); readln(a[i].kol); writeln('tsena tovara?'); readln(a[i].cena); writeln('srok godnosti tovara?'); readln(a[i].srok); end; for i:=1 to n do begin k:=k+1; write(k,' '); writeln('tovar',' ',a[i].name,' ','kolichestvo',' ',a[i].kol,' ','tsena',' ',a[i].cena,' ','srok godnosti',' ',a[i].srok); end; for i:=1 to n do begin y:=3; if a[i].srok>y then writeln ('nujniy srok godnosti' , a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok); end; s:=0; for i:=1 to n do begin s:=s+a[i].kol; end; writeln ('summa lekarstv na sklade', s); max:=a[1].cena; for i:=2 to n do if a[i].cena>max then max:=a[i].cena; writeln ('tovar s maximalnoi tsenoi', a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok ); min:=a[1].cena; for i:=2 to n do if a[i].cena<min then min:=a[i].cena; writeln ('tovar s minimalnoi tsenoi', a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok ); readln; end. проблема в том что не правильно находятся товары с минимальной и максимальной ценой.Заранее спасибо. |
27.12.2008, 20:41 | #2 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
держи:
Код:
|
27.12.2008, 20:42 | #3 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
ОШИБКА-writeln ('tovar s maximalnoi tsenoi', a[i].name ,'kolichestvo', a[i].kol ,'tsena', a[i].cena ,'srok godnosti', a[i].srok ); - здесь просто выводится последний элемент массива))
|
27.12.2008, 21:09 | #4 |
Регистрация: 27.12.2008
Сообщений: 4
|
спасибо большое Викдон
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти ошибку в коде! | alex2008ean | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.12.2008 18:31 |
Помогите найти ошибку в коде, пожалуйста | Gobl1n | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 30.11.2008 17:44 |
Помогите найти ошибку в коде C++ | Жека:) | Помощь студентам | 15 | 29.10.2008 11:32 |
помогите найти ошибку в коде плиз | Айат | Помощь студентам | 2 | 01.10.2008 17:43 |
помогите найти ошибку в коде | Joker88 | Помощь студентам | 1 | 04.03.2008 12:43 |