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

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

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

Задача 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]

А в задаче 2 вообще не нужен массив:

Код

const
 n = 10;

var
 ves, s: real;
 i: integer;
begin
 s := 0;
 for i := 1 to n do
   begin
     write( 'Вес ребенка #', i, '> ' ); readln(ves);
     if ves < 30 then s := s + ves;
   End;

 writeln( (s/5):5:2, 'л. молока' );
end.

А вот в задаче №1, уточните, как именно происходит ввод данных - пары значений (v0, a) вводятся сразу и просчитываются все вместе или следующая пара вводится после окончания расчета предыдущей

Сообщение отредактировано: volvo - 2.11.2004 16:26