паскаль
uses crt; var m: string; k,l,z: real; beginclrscr; writeln('укажите количество дней.'); read(k); writeln('укажите зарплату работника.'); read(z); writeln('работник совершеннолетний? да/нет.'); read(m); if (m='да') then write('зарплата составит ',z,'руб.'); if (m='нет') thenbeginwriteln('укажите стаж работы'); read(l); if l< 6 then write('зарплата составит ',z*0.6,'руб.'); if l> 8 then write('зарплата составит ',z,'руб.')else write('зарплата составит ',z*0.8,'руб.'); end; end.
Поделитесь своими знаниями, ответьте на вопрос:
Определить зарплату работнику по больничному листу, проболевшему к дней при следующих условиях, если стаж работы до 6 лет – 60%, от 6-8 – 80%, более 8 – 100 %, если несовершеннолетний –100 %, зарплата работника z рублей в день.
я напишу полную зарплату, учитывая зарплату полных рабочих дней, и тех, что он был на больничном, не учитывая выходные дни, но учитывая количество дней в месяце.
код для visual basic(на платформе .net)
sub zaprlata
dim k , staj, z, zarplata, dni, vozrast as integer
k = inputbox("введите количество больничных дней")
z = inputbox("введите заработную плату в день")
staj = inputbox("введите стаж работы(кол-во лет)")
dni = inputbox("введите количество дней в месяце")
vozrast = inputbox("введите возраст рабочего")
if staj < 6 then
zarplata = (dni-k)*z + k*(0.6*z)
elseif staj > 6 and staj < 8 then
zarplata = (dni-k)*z + k*(0.8*z)
elseif staj > 8 or vozrast < 18 then
zarplata = dni * z
end if
end sub