Студентам с лабораторными сюда (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by _Great_, 20 Jun 2007.

Thread Status:
Not open for further replies.
  1. Mosyaka

    Mosyaka New Member

    Joined:
    3 Nov 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Решите пож-та программу с использованием классов

    Создать класс Payment(зарплата). В классе должны быть представлены поля: фамилия-имя-отчество, оклад, год поступления на работу, процент надбавки, подоходный налог, количество отработанных дней в месяце, количество рабочих дней в месяце, начисленная и удержанная суммы.
    Реализовать методы: вычисления начисленной суммы, вычисления удержанной суммы, вычисления суммы, выдаваемой на руки, вычисления стажа. Стаж вычисляется как полное количество лет, прошедших от года поступления на работу, до текущего года. Начисления представляют собой сумму, начисленную за отработанные дни, и надбавки, то есть доли от первой суммы. Удержания представляют собой отчисления в пенсионный фонд (1% от начисленной суммы) и подоходный налог. Подоходный налог составляет 13 % от начисленной суммы без отчислений в пенсионный фонд.
     
  2. =Zeus=

    =Zeus= Member

    Joined:
    10 Aug 2009
    Messages:
    213
    Likes Received:
    54
    Reputations:
    5
    Ты че, думаешь тебе на халяву тут роман напишут? Для студентов и школьников есть отдельный раздел.
     
    1 person likes this.
  3. Vinsik

    Vinsik Elder - Старейшина

    Joined:
    4 Oct 2008
    Messages:
    189
    Likes Received:
    4
    Reputations:
    -5
    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.
    
    можно блок схему плиз?
     
  4. Fata1ex

    Fata1ex Elder - Старейшина

    Joined:
    12 Dec 2006
    Messages:
    703
    Likes Received:
    300
    Reputations:
    38
    ты бы перевел хоть условие. я вот например в душе не знаю, что такое "удержанная сумма", и чем отличается "начисленная сумма" от "суммы, выдаваемой на руки". а то начал писать, а что делают методы хз
     
  5. POS_troi

    POS_troi Elder - Старейшина

    Joined:
    1 Dec 2006
    Messages:
    1,569
    Likes Received:
    466
    Reputations:
    108
    начисленная сумма - сумма зарплаты по договору
    сумма, выдаваемой на руки - сумма которую ты получаеш после всех удержаний
    Удержания - подоходный, пенсионный, штрафы за прогулы и т.п. =)
     
  6. Fata1ex

    Fata1ex Elder - Старейшина

    Joined:
    12 Dec 2006
    Messages:
    703
    Likes Received:
    300
    Reputations:
    38
    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 );
    
    }
    
    вот, как понял это я ) писал здесь хз что вышло
     
    1 person likes this.
  7. StealthMaster

    StealthMaster Member

    Joined:
    3 Dec 2008
    Messages:
    52
    Likes Received:
    11
    Reputations:
    0
    Как я понял, нужно реализовать перебор перестановок на n символах. Рассматривай каждое число как последовательность символов.
    Варианты перебора описаны, например, здесь: http://rain.ifmo.ru/cat/view.php/vis/combinations/permutations-2000
     
    #1827 StealthMaster, 10 Nov 2009
    Last edited: 10 Nov 2009
  8. G4bR1eL

    G4bR1eL Elder - Старейшина

    Joined:
    25 Mar 2008
    Messages:
    70
    Likes Received:
    3
    Reputations:
    0
    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 - квадраты.
     
  9. Fata1ex

    Fata1ex Elder - Старейшина

    Joined:
    12 Dec 2006
    Messages:
    703
    Likes Received:
    300
    Reputations:
    38
    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"); 
    ааа не разглядел тз ) тогда все
     
    #1829 Fata1ex, 10 Nov 2009
    Last edited: 10 Nov 2009
  10. mr_walker

    mr_walker Member

    Joined:
    9 Aug 2009
    Messages:
    41
    Likes Received:
    34
    Reputations:
    2
    Пост #1863 помогите плиз!
     
  11. Patrik

    Patrik Elder - Старейшина

    Joined:
    15 Jan 2006
    Messages:
    42
    Likes Received:
    6
    Reputations:
    0
    В у кнопки есть функция OnClick. Клацаешь 2 раза на кнопку в конструкторе формы, появляется OnClick. В неё пишешь что-то вроде
    if (password==Edit1.text) then MyFunction();

    P.S. password - это твой пароль, который я не знаю откуда ты берёшь. Можешь просто текст там написать.
     
    #1831 Patrik, 10 Nov 2009
    Last edited: 10 Nov 2009
  12. mr_walker

    mr_walker Member

    Joined:
    9 Aug 2009
    Messages:
    41
    Likes Received:
    34
    Reputations:
    2
    Спасибо, и, я надеюсь, последний вопрос:
    какая функция на закрытие формы
    тоесть на открытие я пишу form1.show а что писать на закрытие???
     
  13. Patrik

    Patrik Elder - Старейшина

    Joined:
    15 Jan 2006
    Messages:
    42
    Likes Received:
    6
    Reputations:
    0
    Только этой формы - form1.Close();, приложения - Applicaiotn.Terminate();.
    Можно не закрывать форму, а просто спрятать. form1.Hide();
     
    1 person likes this.
  14. PriN_ce

    PriN_ce New Member

    Joined:
    5 Feb 2008
    Messages:
    11
    Likes Received:
    3
    Reputations:
    0
    Всем доброе время суток)
    Есть задача:
    На входе строка с числом в шестнадцатиричной форме. Распознать строку в переменную типа int. На выходе строки с введенным числом в двоичной, восьмиричной и десятичной форме.
    Нужно решить ее на С (не плюсах).Туплю, не могу решить. На паскале делал все норм, а с С какая-то жопа....(((((
    Заранее спс__))
     
  15. Lucky_day

    Lucky_day New Member

    Joined:
    8 Mar 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    нужна помощь с лабой с++. благодарность соответственно...

    нужно в имеющемся коде : доделать вращение и масштабирование.

    ася 422983433
     
  16. Casuals

    Casuals New Member

    Joined:
    2 Dec 2008
    Messages:
    0
    Likes Received:
    0
    Reputations:
    -1
    Помогите решить

    Скан задач _ http://ifolder.ru/14739228


    Решитнужно в экселе , ребят нужно очень очень
     
  17. geforse

    geforse Elder - Старейшина

    Joined:
    2 Mar 2008
    Messages:
    617
    Likes Received:
    290
    Reputations:
    1
    Составить структурированную программу табулирования значений функции S(x) и Y(x) в диапазоне [​IMG]. Сумму вычислить из 40 членов ряда. Шаг изменения аргумента принять равными [​IMG]

    Функция S(x)

    [​IMG]

    Функция Y(x)

    [​IMG]

    Код на 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.
    
    Результат:

    [​IMG]

    Смысл в том, что столбцы S и Y должны быть одинаковы(!). Помогите разобраться, что я делаю не так :(
     
  18. Si{R}ius

    Si{R}ius Member

    Joined:
    13 Nov 2008
    Messages:
    95
    Likes Received:
    36
    Reputations:
    0
    Как в Делфи определить - параллельны ли отрезки?
    Имеются точки начала и конца их.
     
  19. sadfeel

    sadfeel Member

    Joined:
    5 Nov 2008
    Messages:
    83
    Likes Received:
    6
    Reputations:
    0
    geforse

    поставь условие: ули есть минус (значение меньше нуля), то вместо этого ' є ' выводи 'є '
     
  20. geforse

    geforse Elder - Старейшина

    Joined:
    2 Mar 2008
    Messages:
    617
    Likes Received:
    290
    Reputations:
    1
    Да кривость таблицы меня не интересует, мне нужно чтобы значения (цифры) в столбцах S и Y были одинаковые

    P.S. Y:=S; не предлагать :)
     
Thread Status:
Not open for further replies.