Определить, у какой доярки наибольший среднесуточный надой молока - Turbo Pascal
Формулировка задачи:
Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.
Решение задачи: «Определить, у какой доярки наибольший среднесуточный надой молока»
textual
Листинг программы
var
r1,r2,r3:real;
begin
write('r1,r2,r3=');
readln(r1,r2,r3);//r1:=r1/365;r2:=r2/365;r3:=r3/365;
if (r1>=r2) and (r1>=r3) then writeln(1) else
if (r2>=r1) and (r2>=r3) then writeln(2) else writeln(3);
end.
Объяснение кода листинга программы
- var — r1,r2,r3:real;
- begin — write('r1,r2,r3='); — readln(r1,r2,r3);
- r1 := r1 / 365;
- r2 := r2 / 365;
- r3 := r3 / 365;
- if (r1 >= r2) and (r1 >= r3) then begin writeln(1); end; else if (r2 >= r1) and (r2 >= r3) then begin writeln(2); end; else begin writeln(3); end;
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д