|
Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal |
|
Опции темы | Оценить тему |
27.12.2012, 22:10 | #1 |
Участник
|
Basik
Ребят помогите очень нужно заранее спасибо
Вариант 7 Дано: количество сотрудников, Для каждого сотрудника: Табельный номер, звание Z (доцент, профессор, нет), фамилия И.О., степень S (ктн, дтн, нет), оклад (О). Вычислить: • Надбавка за звание • Надбавка за степень • Надбавка за важность • Суммарная надбавка • Суммарная выплата Найти также: • Сумму выплат всех работников • Среднюю сумму надбавок • Сумму надбавки за степень для окладов <=3 000 • Максимальный и минимальный оклад • Количество сотрудников дтн и ктн.
__________________
ЙА ОхУеВшИй гАнГсТА Котэ |
Плюсанул L.PRO : |
28.12.2012, 02:16 | #2 |
Регистрация: 24.09.2004
Сообщений: 1,610
|
ваш бюджет и форма оплаты в студию асечка.
Код:
Function GenerateDriveInformation(FSO) Dim Drives Dim Drive Dim S Set Drives = FSO.Drives S = "Number of drives:" & " " & Drives.Count & CRLF & "\\n\\n" & NewLine & NewLine ' Construct 1st line of report. S = S & String(2, " ") & "Drive" S = S & String(3, " ") & "File" S = S & " " & "Total" S = S & " " & "Free" S = S & " " & "Available" S = S & " " & "Serial" & "\r\n" ' Construct 2nd line of report. S = S & "Letter" S = S & " " & "Path" S = S & " " & "Type" S = S & " " & "Ready?" S = S & " " & "Name" S = S & " " & "System" S = S & " " & "Space" S = S & " " & "Space" S = S & " " & "Space" S = S & " " & "Number" & NewLine |