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

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

Answer 2

Паскаль

 

uses crt;
var m:string; k,l,z:real;
begin
clrscr;
writeln('Укажите количество дней.'); read(k);
writeln('Укажите зарплату работника.'); read(z);
writeln('Работник совершеннолетний? да/нет.');
read(m);
if (m='да') then write('Зарплата составит  ',z,'руб.');
if (m='нет') then
begin
writeln('Укажите стаж работы'); read(l);
if l<6 then write('Зарплата составит ',z*0.6,'руб.');<br>if l>8 then write('Зарплата составит ',z,'руб.')
else write('Зарплата составит ',z*0.8,'руб.');
end;
end.