Задача с циклом Опции

[Гость_Антон]

Помогите пожалуйста с решением задач (желательно с объяснением).

Задача 2.

Ученикам 1-го класса назначается дополнительный стакан молока (200мл.), если их вес составляет меньше 30кг. Определить, сколько литров молока потребуется ежедневно для одного класса, состоящего из n учеников. После взвешивания вес каждого ученика вводится в ЭВМ.

Задача 1.

Траектория снаряда, вылетающего из орудия под углом a с начальной скоростью V0 описывается уравнением
x=V0*cos a*t
y=V0*sin at-g*t2/2, где g=9.8 м/c2 - ускорение свободного падения, t - время. Вводя n заданных пар V0,а, определить сколько снарядов поразят цель высотой Р, расположенную в вертикальной плоскости ствола орудия на расстоянии R на высоте Н.

[volvo]

Алгоритм будет таким (на работоспособность пока не проверял):

Код

const
 G = 9.8;
 n = 5;

 r = 2500; { метры }
 h = 200;  { метры }
 p = 30;   { метры }

var
 v0, a, x, y: real;
 hit, i, t: integer;
begin
 hit := 0;
 for i := 1 to n do
   begin
     write( 'v0 (в м/секунду) = ' ); readln(v0);
     write( 'a (в градусах) = ' ); readln(a);

     t := 1;
     repeat
       x := v0 * cos(a / (180/Pi)) * t;
       y := v0 * sin(a / (180/Pi)) * t - (G * sqr(t)/2);

       if (x >= r) and ((y > h) and (y < (h + p))) then
         begin
           hit := hit + 1; break;
         end;
       t := t + 1;
     until y <= 0;
   end;

 writeln( hit, ' попаданий' );
end.

Сообщение отредактировано: volvo - 9.11.2004 19:59