Главная

Использование перечисления

сб, 09/17/2011 - 10:28 — tech
Задача: 

Определить среднюю зарплату за первое полугодие и среднюю зарплату за год.

Описание переменных: 

month — очередной месяц;
hyear1, hyear2 — суммарный доход за первое и второе полугодия;
salary — зарплата в очередном месяце;
av1 — средняя зарплата за первое полугодие;
av2 — средняя зарплата за год.

Алгоритм решения задачи: 
  1. В цикле for переменной month по-порядку присваиваются все значения типа months.
  2. Считывается значение зарплаты в очередном месяце.
  3. Если месяц принадлежит первому полугодию, то значение добавляется к первой сумме.
  4. Если месяц принадлежит второму полугодию, то значение добавляется ко второй сумме.
  5. По завершении цикла for вычисляются средние значения за полгода и год и выводятся на экран.
Программа на языке Паскаль:  

type
    months=(Jan,Fab,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
var
    month: months;
    hyear1,hyear2: integer;
    salary: integer;
    i: byte;
    av1,av2: real;
begin
    hyear1:=0;
    hyear2:=0;
    writeln('Type salary.');
    i:=1;
    for month:=Jan to Dec do begin
        write(i,' month: ');
        readln(salary);
        i:= i+1;
        if (month>=Jan) and (month=Jun) then
            hyear1:= hyear1+salary
        else
            hyear2:= hyear2+salary
    end;
    av1:= hyear1/6;
    av2:= (hyear1+hyear2) / 12;
    writeln('Average salary in the first half-year: ',av1:10:1);
    writeln('Average salary in the year: ',av2:10:1);
end.

  • Добавить комментарий