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

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

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

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    Code:
    program primer;
    var
    f,x:real;
    begin
    writeln('x=');
    readln(x);
    if x>0 then
    f:=(exp(3*ln(x))/sqrt(3))-exp(x)*ln(abs(exp(3*ln(1.37)+exp(3*ln(x))+4/3)))
    else
    f:=(exp(3*ln(x))/sqrt(7))/cos(x-2*pi)-ln(abs(exp(3*ln(x)))+4*(sin(x)/cos(x)));
    writeln('f=',f:6:4);
    readln;
    end.
    Ошибок очень много выделять было лень, как я понял будет что то вроде того, если скобки верно добавил (там где надо).

    Результат работы:

    Code:
    x=
    1
    f=-8.3325
    
     
    #1701 Dosia, 4 Oct 2009
    Last edited: 4 Oct 2009
  2. >>serhio<<

    >>serhio<< New Member

    Joined:
    10 Feb 2009
    Messages:
    40
    Likes Received:
    0
    Reputations:
    0
    Все получилось! Спасиба :)
     
  3. >>serhio<<

    >>serhio<< New Member

    Joined:
    10 Feb 2009
    Messages:
    40
    Likes Received:
    0
    Reputations:
    0
    Еще нужна помощь срочно плз! А, то это я вообще понять не могу кто поможет разобраться, буду очень благодарен.
    [/QUOTE]Задание№1: Разработать программу табулирования функций для произвольного диапазона изменения независимого параметра или аргумента. Выполнить расчет для заданных значений исходных данных использованных
    x=1-2*cos (a*y)+ln(y), a=log2(y),y є [П;2П] ly=П/4
    Результаты вывести в следующем виде:значение аргумента,значение вспомагательной функции и результата.
    В программу включить ввод исходных данных и проверку 0т-100до100.Начальное значение меньше конечного, шаг разности от начального и конечного.

    Задание№2:Вычислить сумму рядов.Определить тип общего члена рядов и организовав вычисления его суммы со структур вложенных циклов получить результат указав при этом к какому аргументу х он соответствует. Предусмотреть возможность ввода х находится в диапазоне от -1 до 1.
    2x^/1! – 3x^2/2! + 4x^3/3! – 5x^4/4! +...+- (i+1)xi/i!*н...
     
  4. ss88

    ss88 Banned

    Joined:
    27 Nov 2008
    Messages:
    160
    Likes Received:
    44
    Reputations:
    5
    С удовольствием помогу, если почетче напишешь задание, потому, что я не телепат и не понимаю, что такое N, когда оно дано, но не фигурирует в формуле
     
  5. BrainDeaD

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

    Joined:
    9 Jun 2005
    Messages:
    774
    Likes Received:
    292
    Reputations:
    214
    хм, что ж там непонятного? написано же "N слагаемых", то есть N-1 плюсов с минусами.
     
  6. ss88

    ss88 Banned

    Joined:
    27 Nov 2008
    Messages:
    160
    Likes Received:
    44
    Reputations:
    5
    Грум-грум, пропустил слово :) Бывает :)
     
  7. ss88

    ss88 Banned

    Joined:
    27 Nov 2008
    Messages:
    160
    Likes Received:
    44
    Reputations:
    5
    Code:
    /**
     * 
     */
    
    /**
     * @author ss88
     *
     */
    public class Question1 {
    
    	/**
    	 * @param args
    	 */
    	public static void main(String[] args) {
    		/* Количество слагаемых */
    		int N = Integer.parseInt( args[0] );
    		
    		double summand = 1;
    		double result = summand;
    		
    		for(int i = 0; i < N; i++){
    			summand+=0.1;
    			result += (i%2 == 0)?summand:-summand;
    		}
    		
    		System.out.println("Count of summands = " + N + " Result is " + result);
    	}
    
    }
    
     
    2 people like this.
  8. 043nKRuT0y

    043nKRuT0y Elder - Старейшина

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    спс за помощь , с двумя остальными разобрался !!!
     
  9. G4bR1eL

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

    Joined:
    25 Mar 2008
    Messages:
    70
    Likes Received:
    3
    Reputations:
    0
    Программа на TP с элементами массивов. :)
    Ввести 5 целых чисел. Вывести на экран это число (результатирующее), корень этого числа и квадрат этого числа.
     
  10. Syntaxys

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

    Joined:
    2 Sep 2007
    Messages:
    61
    Likes Received:
    10
    Reputations:
    0
    Расчет движения автомобиля.

    На начальном этапе учитывать трение качения, в дальнейшем условиться, возможно резким ухудшением качества сцепления колеса с дорожным покрытием (автомобиль попал на масло) . Провести расчет дальнейшего движения (интеллектуальный рассчет выхода из заноса, выравнивание траектории).

    Совсем не знаю физику =/ Помогите пожалуйста с математическим обоснованием. Скромная благодарность в виде пары сотен р. на телефон/вебмани тому, кто напишет правильное обоснование гарантируется.
     
  11. Spider545

    Spider545 New Member

    Joined:
    10 Apr 2009
    Messages:
    26
    Likes Received:
    2
    Reputations:
    0
    Помогите сделать в C++ Builder
    вот такое задание:
    1. Реализовать стек при помощи массива. Тип данных стека - int. Со стеком должны выполняться стандартные операции:
    1) Push – добавление элемента в стек;
    2) Pop – удаление элемента из стека (с выдачей значения удаляемого элемента);
    3) Выдача значения верхнего элемента;
    4) Очистка стека;
    5) Печать количества элементов стека.
    2. Реализовать очередь при помощи указателей. Тип данных очереди – int. С очередью должны выполняться стандартные операции:
    1) Добавление элемента в очередь;
    2) Удаление элемента из очереди (с выдачей значения исключаемого элемента);
    3) Выдача значения первого элемента;
    4) Очистка очереди;
    5) Выдача количества элементов очереди.
     
  12. superboy4

    superboy4 Banned

    Joined:
    17 Jul 2007
    Messages:
    151
    Likes Received:
    19
    Reputations:
    -8
    Среда: Паскаль
    Задача1: Дано трехзначное число. Найти сумму и произведение его цифр.

    задача2: Дан номер некоторого года (целое положительное число). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год.

    помогите решить!
     
    #1712 superboy4, 7 Oct 2009
    Last edited: 7 Oct 2009
  13. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    Задача 1:
    Code:
    program SUMMA_I_PROIZVEDENIE;
    
    var
    intI,tmpI,Summa,Code,Proizv:integer;
    strA:string;
    
    begin
    writeln('Vvedite chislo');
    readln(intI);
    str(intI,strA);
    Summa:=0;
    Proizv:=1;
    for intI:=1 to length(strA) do begin
    val(strA[intI],tmpI,Code);
    Summa:=Summa+tmpI;
    Proizv:=Proizv*tmpI;
    end;
    writeln('Summa chisel chisla ',strA,' = ',Summa);
    writeln('Proizvedenie chisel chisla ',strA,' = ',Proizv);
    readln;
    end.
    
    Результат работы:

    Code:
    Vvedite chislo
    362
    Summa chisel chisla 362 = 11
    Proizvedenie chisel chisla 362 = 36
    
    Vvedite chislo
    4542
    Summa chisel chisla 4542 = 15
    Proizvedenie chisel chisla 4542 = 160
    
    Задача 2:

    Code:
    program Nom_Stolet;
    
    var
    intI,Nomer_Stoletia:integer;
    
    begin
    Nomer_Stoletia:=1;
    writeln('Vvedite god');
    readln(intI);
    while intI-100 > 0 do begin
    Nomer_Stoletia:=Nomer_Stoletia+1;
    intI:=intI-100;
    end;
    writeln('Nomer stoletia = ',Nomer_Stoletia);
    readln;
    end.
    Результат работы:

    Code:
    Vvedite god
    5000
    Nomer stoletia = 50
    
    Vvedite god
    5001
    Nomer stoletia = 51
    Code:
    program VVOD_CHISLA;
    var
    intI:array [1..5] of longint;
    intA,intB,tmp:integer;
    Rezultir:longint;
    
    begin
    Rezultir:=0;
    for intA:=1 to 5 do begin
    writeln('Vvedite zifru nomer ',intA);
    readln(intI[intA]);
    tmp:=1;
    for intB:=1 to 5-intA do tmp:=tmp*10;
    Rezultir:=Rezultir+intI[intA]*tmp;
    end;
    writeln('Eto chislo = ',Rezultir);
    writeln('Korenb iz chisla ',Rezultir,' = ',sqrt(Rezultir):6:4);
    writeln('Kvadrat chisla ',Rezultir,' = ',sqr(Rezultir));
    readln;
    end.
    Результат работы:

    Code:
    Vvedite zifru nomer 1
    0
    Vvedite zifru nomer 2
    0
    Vvedite zifru nomer 3
    0
    Vvedite zifru nomer 4
    2
    Vvedite zifru nomer 5
    5
    Eto chislo = 25
    Korenb iz chisla 25 = 5.0000
    Kvadrat chisla 25 = 625
    
    Vvedite zifru nomer 1
    1
    Vvedite zifru nomer 2
    6
    Vvedite zifru nomer 3
    3
    Vvedite zifru nomer 4
    8
    Vvedite zifru nomer 5
    4
    Eto chislo = 16384
    Korenb iz chisla 16384 = 128.0000
    Kvadrat chisla 16384 = 268435456
    
    Vvedite zifru nomer 1
    1
    Vvedite zifru nomer 2
    2
    Vvedite zifru nomer 3
    3
    Vvedite zifru nomer 4
    4
    Vvedite zifru nomer 5
    5
    Eto chislo = 12345
    Korenb iz chisla 12345 = 111.1081
    Kvadrat chisla 12345 = 152399025
    
    Слишком большие числа лучше не писать. Диапазон Longint [-2147483648 .. 2147483647]
     
    #1713 Dosia, 7 Oct 2009
    Last edited: 7 Oct 2009
    2 people like this.
  14. Syntaxys

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

    Joined:
    2 Sep 2007
    Messages:
    61
    Likes Received:
    10
    Reputations:
    0
    Задача 2. Нуб'с вариант:

    Code:
    Program Neprogram;
    Var vek,god: integer;
    BEGIN
    writeln('Vvedite god');
    readln(god);
    if god mod 10 = 0 then
    BEGIN
    vek:= god div 100;
    writeln(vek,' stoletie');
    writeln
    End
    ELSE
    Begin
    vek:= god div 100 + 1;
    writeln(vek,' stoletie');
    writeln;
    End
    END.
    
    Результат работы:
    Code:
    Vvedite god
    1900
    19 stoletie
    
    Code:
    Vvedite god
    1991
    20 stoletie
    
    Задача 1:
    Code:
    program Neprogram;
    Var number,summ,proiz:integer;
    BEGIN
    writeln('Vvedite chslo');
    readln (number);
    if number div 100 > 0 then
      if number div 100 < 10 then
         Begin
         summ:= (number div 100) + (number mod 100 div 10) + (number mod 100 mod 10);
         proiz:= (number div 100) * (number mod 100 div 10) * (number mod 100 mod 10);
         writeln('Summa chisel = ',summ);
         writeln('Proizvedenie chisel = ',proiz);
         End
         else
         writeln('Nevernoe chislo')
    else
      writeln('Nevernoe chislo');
    END.
    
    

    Результат работы:

    Code:
    Vvedite chslo
    99
    Nevernoe chislo
    
    Code:
    Vvedite chslo
    55555
    Nevernoe chislo
    
    Code:
    Vvedite chslo
    123
    Summa chisel = 6
    Proizvedenie chisel = 6
    
    Code:
    Vvedite chslo
    567
    Summa chisel = 18
    Proizvedenie chisel = 210
    
     
    #1714 Syntaxys, 7 Oct 2009
    Last edited: 7 Oct 2009
    2 people like this.
  15. WVBR

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

    Joined:
    14 Feb 2008
    Messages:
    44
    Likes Received:
    17
    Reputations:
    0
    Code:
    uses crt;
    var mas:array[1..5] of byte;
        i:byte;
        x,cod:integer;
        er,num:string;
    Begin
    clrscr;
    for i:=1 to 5 do
    begin write('Input ',i,' num:'); readln(mas[i]); end;
    clrscr;
    
    num:='';
    
    for i:=1 to 5 do begin
    Str(mas[i],er);
    num:=num+er; end;
    
    val(num,x,cod);
    writeln ('Num: ',x);
    writeln ('Sqr: ',Sqr(x));
    writeln ('Sqrt: ',Sqrt(x):2:2);
    
    readkey;
    End.
     
    1 person likes this.
  16. akasha9

    akasha9 Member

    Joined:
    17 May 2007
    Messages:
    18
    Likes Received:
    5
    Reputations:
    5
    помогите с лабораторкой пожжалуста горю

    нужна реализация на Visual С++

    дан массив из 10000 элементов типа double заполнить его гнератором случайных чисел
    и вычислить сумму с минимальной погрешностью.

    с меня репа сколько смогу
     
  17. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    Code:
    #include <iostream>
    #include <time.h>
    
    using namespace std;
    
    void main(void)
    {
    double MyArray[10000];
    double Summ;
    int intI;
    
    setlocale(0,"");
    srand((unsigned double)time(0));
    intI=1;
    
    while (intI<=10000)
    {
    MyArray[intI]=rand()%10; // Генерируем случайные числа от 0 до 9
    Summ = Summ+MyArray[intI];
    ++intI;
    }
    
    cout << "Сумма всех чисел = " << Summ << endl;
    system("pause");
    }
    Результат работы:

    Code:
    Сумма всех чисел = 45335
    Для продолжения нажмите любую клавишу . . .
     
    #1717 Dosia, 8 Oct 2009
    Last edited: 8 Oct 2009
  18. hallboy

    hallboy New Member

    Joined:
    11 Nov 2008
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Помогите пожалуйста.Нужно сделать лабораторную..Очень срочно.
    Задание:
    Создать программы на языках Паскаль и С для обчисления математического примера.Розработать математическую постановку задач и сложыть программы на языках паскаль и Сдля ращета значения.
    Оставляйте свой вебмани ил ид вконтакте,одблагодарю)
    Кто сможет ,стучите- 49003757пять
    задание- http://pic.co.ua/en/view/4f4fc18a242c5f13a80a5ed72e2fe51f/

    Методичка на укр.- http://www.sharemania.ru/0192768
     
  19. Spider545

    Spider545 New Member

    Joined:
    10 Apr 2009
    Messages:
    26
    Likes Received:
    2
    Reputations:
    0
    Помогите сделать в C++ Builder
    вот такое задание:
    1. Реализовать стек при помощи массива. Тип данных стека - int. Со стеком должны выполняться стандартные операции:
    1) Push – добавление элемента в стек;
    2) Pop – удаление элемента из стека (с выдачей значения удаляемого элемента);
    3) Выдача значения верхнего элемента;
    4) Очистка стека;
    5) Печать количества элементов стека.
    2. Реализовать очередь при помощи указателей. Тип данных очереди – int. С очередью должны выполняться стандартные операции:
    1) Добавление элемента в очередь;
    2) Удаление элемента из очереди (с выдачей значения исключаемого элемента);
    3) Выдача значения первого элемента;
    4) Очистка очереди;
    5) Выдача количества элементов очереди.
    Ну пожаааааааааалуста, очень надо((((
     
  20. Nizhegorodets

    Nizhegorodets Member

    Joined:
    21 Mar 2009
    Messages:
    80
    Likes Received:
    66
    Reputations:
    9
    Язык : Pascal
    "Произведение цифр"

    найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N.

    Целое число N (0 ≤ N ≤ 109).

    Пример:
    исходные данные:результат
    10:25
    12:26

    Прошу подсказать алгоритм решения.Заранее спасибо.
     
Loading...
Thread Status:
Not open for further replies.