Question

определить зарплату работнику по больничному листу, проболевшему К дней при следующих условиях,

если стаж работы

до 6 лет – 60%,

от 6-8 – 80%,

более 8 – 100 %,

если несовершеннолетний –100 %,

 

зарплата работника Z рублей в день.

Answer 1

Я напишу полную зарплату, учитывая зарплату полных рабочих дней, и тех, что он был на больничном, не учитывая выходные дни, но учитывая количество дней в месяце.

 

Код для 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