var rec,sym,kol,xoz:real;
nwin,nxoz:integer;
begin
rec:=50;
readln(rec);
repeat
writeln('Xozayctvo # ');
readln(xoz);
writeln('symmarnui nadoi');
readln(sym);
writeln('kol-vo korov');
readln(kol);
writeln('symmarnui nadoi');
if sym/kol<rec then
writeln('menshe recorda')
else
if sym/kol>rec then
writeln('bolshe recorda')
else
writeln('raven recordy');
Паскаль.Разветвляющие программы
1.. Ввести рекордное значение надоя на одну корову. По каждому хозяйству ввести количество коров и суммарный надой, выдать больше, меньше или равен надой на одну корову рекордному. Значение рекорда не изменять. В конце программы выдать
МАКСИМАЛЬНЫЙ НАДОЙ НА ОДНУ КОРОВУ 99999 ЛИТРОВ
В ХОЗЯЙСТВЕ НОМЕР 999
Сори не знаю, как вставить.Вот помогите пожалуйста, что дальше делать?Как закончить, чтобы в конце выдавало желаемый результат.
МАКСИМАЛЬНЫЙ НАДОЙ НА ОДНУ КОРОВУ 99999 ЛИТРОВ
В ХОЗЯЙСТВЕ НОМЕР 999
Код:
Сори не знаю, как вставить.Вот помогите пожалуйста, что дальше делать?Как закончить, чтобы в конце выдавало желаемый результат.
[quote=Arcan]
Сори не знаю, как вставить.
[/quote]
да... с коровами наверное тяжко!!!
в паскале по-моему так значения выводятся
Сори не знаю, как вставить.
[/quote]
да... с коровами наверное тяжко!!!
Код:
if sym/kol>rec then
writeln('bolshe recorda', sum/kol);
writeln('bolshe recorda', sum/kol);
в паскале по-моему так значения выводятся
[QUOTE=Visualex]да... с коровами наверное тяжко!!!
в паскале по-моему так значения выводятся[/QUOTE]
Щас пример опишу
Допустим
Хозяйство № 5
Кол-во на 1 корову 50
Сум. надой 20
Кол-во коров 2
20:2=10
И так несколько примеров и в конце выдало наиболее большую сумму. В моем примере это 10.
Мне надо, чтобы в конце программы выдавало:
МАКСИМАЛЬНЫЙ НАДОЙ НА ОДНУ КОРОВУ 10 ЛИТРОВ
В ХОЗЯЙСТВЕ НОМЕР 5
Код:
if sym/kol>rec then
writeln('bolshe recorda', sum/kol);
writeln('bolshe recorda', sum/kol);
в паскале по-моему так значения выводятся[/QUOTE]
Щас пример опишу
Допустим
Хозяйство № 5
Кол-во на 1 корову 50
Сум. надой 20
Кол-во коров 2
20:2=10
И так несколько примеров и в конце выдало наиболее большую сумму. В моем примере это 10.
Мне надо, чтобы в конце программы выдавало:
МАКСИМАЛЬНЫЙ НАДОЙ НА ОДНУ КОРОВУ 10 ЛИТРОВ
В ХОЗЯЙСТВЕ НОМЕР 5
напиши структуру хозяйства, и потом сравнивай объекты.
я бы в таком духе сделал, только это код совершенно неправильный, т.к. я уже говорил паскаль не знаю.
Код:
structure Svinoferma
begin
xoz_vo, milk, sum_milk : integer;;
//вставь еще функции расчета среднего и тд
end;
.........
Svinoferma cow[5]; // создавай массив объектов (по колличеству хозяйств)
//затем сравнивай
if cow[0].milk >= cow[1].milk then ....
..........
begin
xoz_vo, milk, sum_milk : integer;;
//вставь еще функции расчета среднего и тд
end;
.........
Svinoferma cow[5]; // создавай массив объектов (по колличеству хозяйств)
//затем сравнивай
if cow[0].milk >= cow[1].milk then ....
..........
я бы в таком духе сделал, только это код совершенно неправильный, т.к. я уже говорил паскаль не знаю.