Определить, у какой доярки наибольший среднесуточный надой молока - 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.

Объяснение кода листинга программы

  1. var — r1,r2,r3:real;
  2. begin — write('r1,r2,r3='); — readln(r1,r2,r3);
  3. r1 := r1 / 365;
  4. r2 := r2 / 365;
  5. r3 := r3 / 365;
  6. 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;
  7. end.

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы