Решите пож-та программу с использованием классов Создать класс Payment(зарплата). В классе должны быть представлены поля: фамилия-имя-отчество, оклад, год поступления на работу, процент надбавки, подоходный налог, количество отработанных дней в месяце, количество рабочих дней в месяце, начисленная и удержанная суммы. Реализовать методы: вычисления начисленной суммы, вычисления удержанной суммы, вычисления суммы, выдаваемой на руки, вычисления стажа. Стаж вычисляется как полное количество лет, прошедших от года поступления на работу, до текущего года. Начисления представляют собой сумму, начисленную за отработанные дни, и надбавки, то есть доли от первой суммы. Удержания представляют собой отчисления в пенсионный фонд (1% от начисленной суммы) и подоходный налог. Подоходный налог составляет 13 % от начисленной суммы без отчислений в пенсионный фонд.
Code: program TABULIR_FUNC; uses graph; var mx,my,x,h:real; intI,x1,x2:integer; gd,gm:integer; function xm(x:real):integer; begin xm:=round(320+mx*x); end; function ym(y:real):integer; begin ym:=round(240-my*x); end; function f(a:real):real; begin f:=2*exp(a)+4; end; procedure linovka; var x,y:integer; begin setcolor(15);{color is white} x:=5;y:=0; repeat {draw vertical line} line(x,0,x,GetMaxY); x:=x+35; until x>GetMaxX; repeat {draw horizontal line} line(0,y,GetMaxX,y); y:=y+30; until y>GetMaxY; end; procedure DrawAxis; begin setcolor(blue);{color is white} {draw axis of ordinate} line(round(GetMaxX/2),0,round(GetMaxX/2),GetMaxY); line(round(GetMaxX/2),0,round(GetMaxX/2-5),10); line(round(GetMaxX/2),0,round(GetMaxX/2+5),10); {draw axis of abscis} line(round(GetMaxX),round(GetMaxY /2),GetMaxX-10,round(GetMaxY/2-5)); line(round(GetMaxX),round(GetMaxY /2),GetMaxX-10,round(GetMaxY/2+5)); line(0,round(GetMaxY/2),GetMaxX,round(GetMaxY/2)); end; begin mx:=10;{Mashtab X} my:=10;{Mashtab Y} h:=0.001; x1:=-10; x2:=10; writeln('Tabulirovanie funkzii'); writeln(' X ','Y'); for intI:=x1 to x2 do writeln(' X = ',intI,' Y = ',f(intI):6:4); writeln('Press any key'); readln; gd:=detect; initgraph(gd,gm,'D:\user\program\bp\bgi'); linovka; DrawAxis; x:=x1; while (x<=x2) do begin putpixel(xm(x),ym(f(x)),red); x:=x+h; end; readln; closegraph; end. можно блок схему плиз?
ты бы перевел хоть условие. я вот например в душе не знаю, что такое "удержанная сумма", и чем отличается "начисленная сумма" от "суммы, выдаваемой на руки". а то начал писать, а что делают методы хз
начисленная сумма - сумма зарплаты по договору сумма, выдаваемой на руки - сумма которую ты получаеш после всех удержаний Удержания - подоходный, пенсионный, штрафы за прогулы и т.п. =)
Code: class Payment { private: string Name; string LastName; float Salary; int EntranceYear; float Bonus; float Tax; int RealActiveDays; int ActiveDays; float AmountCharged; float RetentionMoney; float PensionFund; int CurrentYear; public: float get_amount_charged (); float get_retention_money (); float get_paid (); int get_experience (); }; Payment::get_amount_charged () { return (( Salary / ActiveDays ) * RealActiveDays * ( 1 + Bonus )); // Я хз как оно вычисляется на самом деле } Payment::get_retention_money () { return (( AmountCharged * PensionFund ) + ( AmountCharged * Tax )); } Payment::get_paid () { return ( AmountCharged - RetentionMoney ); } Payment::get_experience () { return ( CurrentYear - EntranceYear ); } вот, как понял это я ) писал здесь хз что вышло
Как я понял, нужно реализовать перебор перестановок на n символах. Рассматривай каждое число как последовательность символов. Варианты перебора описаны, например, здесь: http://rain.ifmo.ru/cat/view.php/vis/combinations/permutations-2000
Need backup. Массивы Pascal. Задача: Ввести 5 целых чисел, вывести на екран это число, корень этого числа и квадрат этого числа. Код ввода возможно должен быть Code: for i:=1 to 5 do write (M[i]:5); writeln for j:=1 to 3 do write (M[j]:3); writeln Код вывода Code: for i:=1 to 5 do begin writeln; end; for j:=1 to 3 do write(M[i;j]:15); Тоесть результатирующий вывод при компиляции программы должен быть вида: Загружаем код. Осуществляем ввод чисел (1 2 3 4 5) Программа подсчитывает и выводит ответ в виде некой матрицы: 1 1 1 2 0,.. 4 3 sqrt(3) 9 4 ... ... 5 ... ... 1 столбик наши вводимые числа. 2ой - корни. 3 - квадраты.
Code: for i:=0 to N do begin writeln ("Enter ", i+1, "number: "); readln (N[i]); end; for i:=0 to N do write (N[i], " ", sqr(N[i]), " ", sqrt(N[i]), "\n"); ааа не разглядел тз ) тогда все
В у кнопки есть функция OnClick. Клацаешь 2 раза на кнопку в конструкторе формы, появляется OnClick. В неё пишешь что-то вроде if (password==Edit1.text) then MyFunction(); P.S. password - это твой пароль, который я не знаю откуда ты берёшь. Можешь просто текст там написать.
Спасибо, и, я надеюсь, последний вопрос: какая функция на закрытие формы тоесть на открытие я пишу form1.show а что писать на закрытие???
Только этой формы - form1.Close();, приложения - Applicaiotn.Terminate();. Можно не закрывать форму, а просто спрятать. form1.Hide();
Всем доброе время суток) Есть задача: На входе строка с числом в шестнадцатиричной форме. Распознать строку в переменную типа int. На выходе строки с введенным числом в двоичной, восьмиричной и десятичной форме. Нужно решить ее на С (не плюсах).Туплю, не могу решить. На паскале делал все норм, а с С какая-то жопа....((((( Заранее спс__))
нужна помощь с лабой с++. благодарность соответственно... нужно в имеющемся коде : доделать вращение и масштабирование. ася 422983433
Помогите решить Скан задач _ http://ifolder.ru/14739228 Решитнужно в экселе , ребят нужно очень очень
Составить структурированную программу табулирования значений функции S(x) и Y(x) в диапазоне . Сумму вычислить из 40 членов ряда. Шаг изменения аргумента принять равными Функция S(x) Функция Y(x) Код на Pascal: Code: program z3n29; uses crt; var x,x1,x2,d,y,s: real; n: byte; begin X1:=pi; { X - конечный } X2:=pi/5; { X - начальный } d:=abs(X2-X1)/9; { Шаг изменения аргумента } x:=pi/5; { Начальное значение Х } clrscr; { Используется для создания таблицы при выводе } writeln('ЙННННННЛННННННННННЛНННННННННН»'); writeln('є x ',' є s ',' є y є'); writeln('МННННННОННННННННННОНННННННННН№'); while (x < pi) do begin for n:= 0 to 40 do { Шаг 40 } begin s:=s+cos(x)+cos(3*x)/9+cos((2*n-1)*x)/sqr(2*n-1); { Функция S(x) } end; y:=sqr(pi)/8-abs(x)*pi/4; { Функция Y(x) } writeln('є',x:5:1,' є ',S:5:4,' є ',y:5:4, ' є'); { Вывод результата } x:=x+d; end; writeln('ИННННННКННННННННННКННННННННННј'); readkey end. Результат: Смысл в том, что столбцы S и Y должны быть одинаковы(!). Помогите разобраться, что я делаю не так
Да кривость таблицы меня не интересует, мне нужно чтобы значения (цифры) в столбцах S и Y были одинаковые P.S. Y:=S; не предлагать
