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

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

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

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

    Joined:
    14 Mar 2008
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    а чоу мою задачку пропустили ><

    Дан типизированный файл символов. Все символы цифр записать в конец файла.

    пояснение:

    дан файл с символов, нужно найти среди символов - символы чисел и вывести их в конец файла.
     
  2. Myst

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

    Joined:
    22 Feb 2008
    Messages:
    22
    Likes Received:
    15
    Reputations:
    5
    Т.е. все цифры перенести в конец ЭТОГО ЖЕ файла?
    De-visible: ДА.
     
    #502 Myst, 6 May 2008
    Last edited by a moderator: 6 May 2008
  3. Myst

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

    Joined:
    22 Feb 2008
    Messages:
    22
    Likes Received:
    15
    Reputations:
    5
    WinTREI

    Code:
    Program qwer;
    
    Var
    	a:char;
    	s:string;
    	infile:text;
    Begin
    
    	assign(infile,'yourfile.txt');
    	reset(infile);
    	s:='';
    	repeat
    		read(infile,a);
    		case a of
    			'0'..'9':	s:=s+a+' ';
    		end;
    	until eof(infile);
    	
    	close(infile);
    	append(infile);
    	writeln(infile,s);
    	close(infile);
    End.
     
    1 person likes this.
  4. Catsy

    Catsy New Member

    Joined:
    26 Apr 2008
    Messages:
    14
    Likes Received:
    1
    Reputations:
    0
    :mad: up
    функции
    дано число n, ну то есть его вводят, потом дано некоторое число, ск которого начинается проверка, таким образом получаем некоторую последовательно чисел
    то есть например, вводишь 100, и вводишь число, с которого начинается последовательность, например 233, получается в результате массив из целых чисел, начиная от 233, заканчивая 333
    из них, нужно найти те числа, из которых можно извлечь корень
    например от 1 до 10, должно вывести 4 9
     
  5. criz

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

    Joined:
    4 Nov 2007
    Messages:
    293
    Likes Received:
    40
    Reputations:
    6
    Люди, сроки поджимают. Хелп ми :)
    Изменил код.
    Code:
            memcpy( pkt, srcmac, 7);
    	memcpy( (void *)(pkt + 7), (void *)destmac, 7);
    	memcpy( (void *)(pkt + 14), &ip_hd, 20 );
    	memcpy( (void *)(pkt + 14 + sizeof(ip_hd)), &tcp_hd, 20);
    
    Но, экзепшен вылетает =(
     
  6. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    WinTREI, третью с конца строку
    Code:
    writeln(infile,s);
    
    замени на
    Code:
    writeln(s);
    
     
  7. criz

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

    Joined:
    4 Nov 2007
    Messages:
    293
    Likes Received:
    40
    Reputations:
    6
    Если я не забыл паскаль, то код должен быть примерно такой:
    Code:
    var
    	beg, end, k : double ;
    	i : integer ;
    begin
    	readln(beg, end);
    
    	for i=beg to (beg+end) do
    	begin
    		k = sqrt(i);
    		if i / k = k then
    			writeln(i); 
    	end;
    end;
    
     
    #507 criz, 7 May 2008
    Last edited: 7 May 2008
  8. Catsy

    Catsy New Member

    Joined:
    26 Apr 2008
    Messages:
    14
    Likes Received:
    1
    Reputations:
    0
    что-то тут вобще не понятное, да и через функции надо :rolleyes:
     
  9. Myst

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

    Joined:
    22 Feb 2008
    Messages:
    22
    Likes Received:
    15
    Reputations:
    5
    Catsy
    Code:
    Program qwer;
    
    Var
    
    	n,k,i:integer;
    
    Function kvadrat(i:integer) : boolean;
    	begin
    		if frac(sqrt(i))=0 then 
    			kvadrat:=true else
    			kvadrat:=false;
    	end;
    
    
    Begin
    	write('Введите количество чисел ');
    	readln(n);
    	write('Введите начальное число ');
    	readln(k);
    	for i:=k to k+n do
    	if kvadrat(i) then 
    	begin	
    		write(i);
    		write(' ');
    	end;
    	readln;
    End.
     
    1 person likes this.
  10. TheSoul

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

    Joined:
    12 Nov 2007
    Messages:
    83
    Likes Received:
    35
    Reputations:
    0
    C++
    Помогите пож-та ...
    Дана последовательность символов a1 ... an . Удалить из последовательности все группы букв типа "abcd"
     
  11. 043nKRuT0y

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

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    Нужно организовать имитатор калькулятора для операндов любого типа !!!
    Я накидал некий код :
    Code:
    #include <stdio.h>
    #include <conio.h>
    
    void main()
    {
     clrscr();
     float a=0,b=0,res=0;
     char o;
     int ok;
     printf("Input Operation");
     scanf("%lf%c%lf",&a,&o,&b);
     ok = 1;
     switch(o){
    	   case '+' : res = a+b;break;
    	   case '-' : res = a-b;break;
    	   case '*' : res = a*b;break;
    	   case '/' : if (b=0) ok = 2;
    			else {
    			      res = a/b;break;
    			     }
    	   default : ok = 0;
    	  }
     if (ok == 1){
    	      printf("%.2f%c%.2f=%.2f",a,o,b,res);
    	     }
       else{
    	if (ok == 0)printf("Unknow Operation %c",o);
    	  else{
    	       puts("Divizion By Zero");
    	      }
           }
     getch();
    }
    но нужно штобы он работал для любого типа (int , float ,unsigned) через шаблоны классов типа templete <class Type> !!! Ветом разобраться немогу!!! Кто знает как ето организовать поделитесь кодом , с меня + ;
     
  12. CbIcTeMn1k

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

    Joined:
    4 Feb 2007
    Messages:
    16
    Likes Received:
    2
    Reputations:
    0
    Дано:
    Корень из 2 + под корнем еще прибовляется корень из 2 + сного корень из 2х приболяется и так n раз задающаяся переменной пользователя... буду оч. благодарен если будет решение, сам я ее не могу доконца решить...
    √(2+√(2+√(2+√(2+...+√(2+√2) ) ) ) )
     
  13. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Будь добр отредактируй свое сообщение и уточни язык программирования на котором надо реализовать...
    + Эта последовательность точно не определена?
     
  14. Delimiter

    Delimiter Banned

    Joined:
    8 Apr 2005
    Messages:
    317
    Likes Received:
    173
    Reputations:
    12
    2 TheSoul

    примерно так строка str
    Code:
    for(int i=0;*(str+i)!=0;i++)
    {
      for(int j=1;*(str+i+j)!=0 && *(str+i)+j==*(str+i+j);j++) ;
      if(j>1)
      {
          strcpy(str+i,str+i+j);
      }
    }
    
     
  15. WinTREI

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

    Joined:
    14 Mar 2008
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    опять контрольная ><
    помогите плиз :cool: (Паскаль)

    Текстовый файл содержит информацию о номерах гостиницы: номер, категория, количество мест, количество проживающих, наличие телевизора, стоимость за место.
    Например:
    456, эконом, 2, 1, есть, 500 руб.
    Считать этот файл и переписать в типизированный файл, записав данные в соответствующие поля.
    Получить следующие сведения:
    А) свободные номера люкс.
    Б) самые дорогие номера (номера, которые приносят самую большую выручку и при этом, количество мест не превышает 2).
    В) найти номера, в которых есть свободные места, и имеется телевизор.
    Выполнить задание без использования массива.
     
  16. Delimiter

    Delimiter Banned

    Joined:
    8 Apr 2005
    Messages:
    317
    Likes Received:
    173
    Reputations:
    12
    2 Системник!!! (CbIcTeMn1k)

    Task:√(2+√(2+√(2+√(2+...+√(2+√2) ) ) ) )
    Code:
    double decide(int curn,int N)
    {
      double rez; 
         if(curn<N)
         {
             rez=sqrt(2+decide(curn+1,N));
         }
         else
           rez=sqrt(2));
      return rez;
    }
    
    /*
    вызов .... */ 
    decide(0,n);
    
    
     
    #516 Delimiter, 10 May 2008
    Last edited: 10 May 2008
    1 person likes this.
  17. Myst

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

    Joined:
    22 Feb 2008
    Messages:
    22
    Likes Received:
    15
    Reputations:
    5
    CbIcTeMn1k
    А это если на паскале:
    Code:
    program qwer;
    var
    	q:real;
    	i,n:integer;
    begin
    	write('Введите n');
    	read(n);
    	q:=sqrt(2);
    	for i:=1 to n-1 do
    		q:=sqrt(q+2);
    	write('Ответ: ');
    	write(q:2:10);
    	readln;
    end.
    
     
    1 person likes this.
  18. CbIcTeMn1k

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

    Joined:
    4 Feb 2007
    Messages:
    16
    Likes Received:
    2
    Reputations:
    0
    Delimiter, Myst Спасибо вам, оч благодарен...
     
  19. avton0m

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

    Joined:
    15 Dec 2007
    Messages:
    35
    Likes Received:
    8
    Reputations:
    -4
    Помогите с решением. Можете, пожалуйста, не писать код, а только разяснить алогоритм,а то так ничему не научусь.
    Code:
    Имеются N человек, и матрица A(N;N)
    Для А справедливо A[i;j]=1, если i и j знают друг друга.
    Можно ли разбить всех людей на 2 группы, так, чтоб в каждой группе были только незнакомые люди? Если да, то как.
    
     
  20. Delimiter

    Delimiter Banned

    Joined:
    8 Apr 2005
    Messages:
    317
    Likes Received:
    173
    Reputations:
    12
    если по условию это можно сделать, разбить всех людей на 2 группы
    то проще простого
    сортируешь матрицу так что в верхней строчке оказались те у кого больше всех знакомых

    берешь 1-го и выбираешь всех с кем он не знаком(ПРОВЕРЯЕШЬ ЧТО НЕ ЗНАКОМЫЕ НЕ ЗНАКОМЫ ДРУХ С ДРУХОМ), это и будет первая группа, а остальные вторая, естественно проверка должна дать, что это действительно так!

    В итоге если нельзя так сделать то ответ должен быть "Разбить на 2 группы нельзя"

    представь себе человека который знаком сразу с 2-мя человеками, и сразу станет все на место! Куда ты его поместишь и что делать с его знакомыми?
     
    #520 Delimiter, 11 May 2008
    Last edited: 11 May 2008
Thread Status:
Not open for further replies.