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

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

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

    becensed Member

    Joined:
    2 Dec 2009
    Messages:
    84
    Likes Received:
    24
    Reputations:
    1
    Где-то так
    Code:
    #include <stdio.h> 
    #include <math.h> 
    
    void main() 
    { 
    	int i=0;
    	float S=0,
    		  p=-1;
    	while(i<=9)
    	{
    		S += pow(p, i) / (2*i+1);
    		i++;
    	}
    	printf("S = %0.5f\n", S);
    }
    //EOF
     
  2. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    спасибо, но нужно на паскале (
     
  3. becensed

    becensed Member

    Joined:
    2 Dec 2009
    Messages:
    84
    Likes Received:
    24
    Reputations:
    1
    ну ты уже совсем пиздец, извините.
    Я паскаль не знаю, но вот что получилось:
    Code:
    program hueta;
    uses Crt, Math;
    var
      S:real;
      i,p:integer;
    
    begin
      p:=-1;
      S:=0;
      i:=0;
      while i<=9 do begin
        S := S +  Power(p,i) / (2*i+1);
        i:=i+1;
      end;
    writeln(S:1:7);
    end.
     
    1 person likes this.
  4. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    помогите еще одну сделать!

    [​IMG]

    для произвольного X и вычислить значения Y(x) в точках: х1=-5.75; х2=-1; х3=4.5.
     
  5. Hellow

    Hellow Banned

    Joined:
    10 Aug 2010
    Messages:
    8
    Likes Received:
    3
    Reputations:
    0
    Code:
    program Project1;  
    {$APPTYPE CONSOLE} 
     uses    SysUtils;   
     var    x,y:real;  
    begin 
      write('Input x : ');
      readln(x);  
        if (x<-4) then y:=1; 
        if (x>=-4) and (x<=4) then y:=x/4; 
        if (x>4) then y:=-1;       
          writeln('y'+'[x] = ', y:6:2); 
          readln;   
     end.  
    С клавиатуры введите нужные вам точки (х1=-5.75; х2=-1; х3=4.5.)

    ЗЫ написана на делфях!
     
    #2945 Hellow, 20 Oct 2010
    Last edited: 20 Oct 2010
    1 person likes this.
  6. nick_FBI

    nick_FBI New Member

    Joined:
    22 Sep 2010
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Полная версия задания:
    Задано натуральное число. Длина числа заранее не известна. Подсчитать количество цифр в нём.
    Code:
    #include <cstdlib>
    #include <iostream>
    
    using namespace std;
    
    int is_digits_only(char *str)
    {
    	for(;*str!='\0';str++)
    	{
    		if (*str<47||*str>58)
    		return 0;
    	}
    	return 1;
    }
    
    int main(int argc, char *argv[])
    {
        setlocale(LC_ALL,"Russian");
    	int a,i;
    	char str[256];
    	cout<<"Введите натуральное число произвольной длинны\n";
    	cin>>str;
    	a=is_digits_only(str);
    	i=strlen(str);
    	switch (a)
    	   {
               case 0:
                    cout<<"Введено не натуральное число!!!\n";
                    break;
               case 1:
                    cout<<"Введено натуральное число!!!\n";
                    cout<<"Количество цифр в натуральном числе равно "<<i<<"\n";
                    break;
           }
            
        system("PAUSE");
        return EXIT_SUCCESS;
    }
    
     
  7. XimiK69

    XimiK69 Member

    Joined:
    2 Jan 2010
    Messages:
    45
    Likes Received:
    5
    Reputations:
    0
    Можно было воспользоваться функцией isdigit();
     
  8. White_Tiger.

    White_Tiger. New Member

    Joined:
    10 Oct 2010
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Up! Все еще нужна помощь. Буду очень благодарен если хоть в чем-нибудь поможете.
     
  9. ITxan

    ITxan New Member

    Joined:
    17 Oct 2010
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Помогите пожалуйста, составить программу на любом языке.
    [​IMG]
     
    #2949 ITxan, 21 Oct 2010
    Last edited: 21 Oct 2010
  10. BHYCHIK

    BHYCHIK Member

    Joined:
    30 Jan 2009
    Messages:
    52
    Likes Received:
    28
    Reputations:
    9
    Помогите пожалуйста, лучше просто советом, чем решением.

    Дана матрица А(8,8), содержащая только нули и единицы, причем рядом с каждой единицей (в строке или столбце) расположено только 2 единицы. Таким образом циклическая последовательность единиц ограничивает область из одних нулей. Определить количество нулей в области. Исходные данные задать в var.

    Пример

    00000000
    00111100
    00100100
    00110111
    00010001
    00010001
    00011011
    00001110

    Ответ 10
     
  11. revenantus

    revenantus New Member

    Joined:
    27 Sep 2010
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    помогите написать прогу
    Задано натуральное число N.Изменить в нем порядок цифр на обратный.Например: 327-723.
     
  12. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    Помогите составить программу вычисления:

    S=1-1/3+1/5-1/7+..1/17-1/19.

    на Pascal
     
  13. juzam

    juzam New Member

    Joined:
    18 Oct 2010
    Messages:
    45
    Likes Received:
    2
    Reputations:
    0
    Остатком от деления находи последнюю цифру и просто записывай число наоборот.


    Тебе ж на предыдущей странице решили.
     
    #2953 juzam, 21 Oct 2010
    Last edited: 22 Oct 2010
  14. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    не верно там!
     
  15. JohnnyBGoode

    JohnnyBGoode Member

    Joined:
    5 Oct 2010
    Messages:
    48
    Likes Received:
    11
    Reputations:
    5
    На С++

    Code:
    #include <iostream.h>
    #include <vcl.h>
    #pragma hdrstop
    #include <cmath.h>
    #include <conio.h>
    //---------------------------------------------------------------------------
    
    #pragma argsused
    int main()
    {
    double x,y,f,t,rad;
    double mul=1.0; 
    double sum=0.0;
    double rad1=1*M_PI/180; //значение угла 1 градус в радианах
    cout<<"Function y=sin(x^3+1):"<<endl;
    for (x=7.4; x >= 3.2; x-=0.4)  {
    t=pow(x,3); //возводим х в 3 степень
    rad=t*M_PI/180; // переводим в радианы
    y=sin(rad+rad1);
    cout<<"For "<<x<<" y = "<<y<<endl;
     if (y<3.2) {
    mul*=y;
    								   }
    }  cout<<"Proizvedenie y= "<<mul<<endl;
    cout<<endl;
    cout<<"Function f=exp(tan(x)):"<<endl;
    for (x=7.4; x >= 3.2; x-=0.4) {
    rad=x*M_PI/180;
    f=exp(tan(rad));
    cout<<"For "<<x<<" f = "<<f<<endl;
     if (f>7.4) {
    sum+=f;
    								   }
    }
     cout<<"Summa f = :"<<sum;
    getch();
    return 0;
    }
    Вроде пашет нормально
    Насчет суммы и произведения : то ли ошибка в условии,то ли еще что,но все f<a и все y<b,это даже из свойств синуса следует
     
    #2955 JohnnyBGoode, 22 Oct 2010
    Last edited: 22 Oct 2010
  16. Seravin

    Seravin Active Member

    Joined:
    25 Nov 2009
    Messages:
    475
    Likes Received:
    190
    Reputations:
    221
    насчёт первой: чтото я сидел ковырялся ковырялся так и не понял, как можно эту последовательность с точностью сделать. Насколько я понимаю, точность 0.05 это когда от последнего отнимаешь предыдущее, но если посмотреть это последовательность то получаются такие вот числа:
    Code:
    0,594323393349264
    1,18982568203159
    2,16196892394492
    4,04941527879623
    8,00884021414759
    16,7676681103728
    37,0459621170411
    85,9859411315712
    208,723714031524
    527,684594149271
    1384,32330671065
    3756,29246299769
    10512,6931607744
    30271,0686003413
    89486,544140413
    271064,319299419
    839914,345084404
    2658215,97073135
    8581286,70673222
    
     
  17. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    Code:
    uses crt;
    var M,s:longint;
        i:byte;
    begin
    clrscr;
    write('M='); readln(M);//вводимое число
    s:=0;//новое сисло
    while M>0 do//пока число не ноль
     begin
      i:=M mod 10;//берем последнюю цифру
      s:=s*10+i;//умножаем уже полученную часть числа на 10 и прибавляем следующую цифру
      M:=M div 10;//делим число на 10 и все повторяем
    end;
    write('rezult = ',s);
    readln
    end.
    
     
  18. nick_FBI

    nick_FBI New Member

    Joined:
    22 Sep 2010
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Спасибо учту, позже перепишу с использованием этой функции.
     
  19. ITxan

    ITxan New Member

    Joined:
    17 Oct 2010
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    JohnnyBGoode
    Большое спасибо Вам за Вашу работу!!!
     
  20. ITxan

    ITxan New Member

    Joined:
    17 Oct 2010
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    [​IMG]
    Составил программу, но с цикла не выходит, помогите, пожалуйста.
    Code:
    using System;
    
    namespace Курсовая
    {
        public class Program
        {
            public static void Main()
            {
                Курсовая.Задание1();
            }
        }
    
        public static class Курсовая
        {
            private static double M;
            private static double x = -15;
            private static double E = Math.Pow(10, -7); // c точности 
    
            public static void Задание1()
            {
                Console.WriteLine("Ведите значение z = ");
                double z = Convert.ToDouble(Console.ReadLine());
    
                for (int n = 2; n <= 7; n++)
                {
                    M += Math.Pow(1 / Math.Tan(n), 2);
    
                    double H = 2;
                    for (int j = 4; H >= E; j++)
                    {
                        H += z / Math.Pow(z, j) + Factorial(j);
                    }
                    M += H;
                }
                M = Math.Pow(1 / Math.Tan(x), 2) * M;
                Console.WriteLine("Результаты расчета: {0}", M);
            }
    
            public static double Factorial(double number)
            {
                if (number <= 1)
                {
                    return 1;
                }
                else
                {
                    return number * Factorial(number - 1); //Возвращает Factorial числа
                }
            }
    
        }
    
    }
    
     
    #2960 ITxan, 22 Oct 2010
    Last edited: 22 Oct 2010
Thread Status:
Not open for further replies.