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

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

Thread Status:
Not open for further replies.
  1. @nt0n

    @nt0n New Member

    Joined:
    2 Apr 2008
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Помогите с блок-схемой

     
  2. snAKe33

    snAKe33 Active Member

    Joined:
    10 Feb 2009
    Messages:
    13
    Likes Received:
    169
    Reputations:
    24
    Программисты помогите мне..я на грани отчисления..
    ___________________________________________
    Помогите мне с лабой..надо написать программу на паскале желательно 7.0 или 7.1.
    Вообщем сама задача:
    Из каждой очередной тройки букв удалить среднюю букву. Тип списка: циклический.
    P.S заранее благодарен
     
  3. jawbreaker

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

    Joined:
    7 Jul 2008
    Messages:
    156
    Likes Received:
    76
    Reputations:
    3
    GOODmen
    Первая выглядит так:
    Code:
    #include <stdio.h>
    #include <math.h>
    
    int is_prime(int N)
    {
    	int i;
    	for(i = 2; i <= sqrt(N); i++)
    		if (N % i == 0)
    			return 0;
    	return 1;
    }
    
    int main()
    {
    	int a, k;
    	scanf("%d", &a);
    	for(k = 1; k <= a; k++)
    		if (is_prime(k))
    			printf("%d\n", k);
    	return 0;
    }
    
    Вторая примерно так:
    Code:
    #include<stdio.h>
    void main()
    {
         int num[100], i, j;
         
         for(i=0;i<=99;i++)     /*Заполнение массива*/
              num[i]=i+1;
         
         for(i=1;i<=99;i++)
         {
              if(num[i]!=0)
              {
                   for(j=(i+1);j<=99;j++)
                   {
                        if(num[j]!=0)
                        {
                             if((num[j]%num[i])==0)     
                             num[j]=0;                   
                                                          
                        }
                   }
              }
         }
    
         for(i=0;i<=99;i++)
         {
              if(num[i]!=0)                    /*Ненулевые числа - простые*/
                   printf("\n%d",num[i]);
         }
    }
    
    
    
     
  4. GOODmen

    GOODmen Member

    Joined:
    8 Nov 2008
    Messages:
    45
    Likes Received:
    76
    Reputations:
    10
    Спасибо...
    первая задача это простые число под буквой "А"?
    вторая это треугольник паскаля под буквой "А"?
     
  5. Moldman

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

    Joined:
    12 Jun 2007
    Messages:
    91
    Likes Received:
    35
    Reputations:
    -5
    Pascal

    Создать программу которая вычисляет число из имени по скеме

    1 2 3 4 5 6 7 8 9
    A B C D E F G H I
    I K L M N O P Q R
    J L U V W X Y Z

    сначала пишется имя и каждая буква превращается в соответствуюшию цифру
    а потом они сложатся по двеби так пока останеца только одна цифра.Если получается номер из двух цифр тогда они суммируются (14=1+4=5, 21=2+1=3)

    Пример:

    [​IMG]

    Главное чтоб результат имел форму пирамиды.​
     
    #1085 Moldman, 15 Feb 2009
    Last edited: 15 Feb 2009
  6. Moldman

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

    Joined:
    12 Jun 2007
    Messages:
    91
    Likes Received:
    35
    Reputations:
    -5
    Нужно срочно,максимум 1 час

    + кто решит правильно
     
  7. qder

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

    Joined:
    27 Jun 2006
    Messages:
    31
    Likes Received:
    7
    Reputations:
    -4
    Задали написать любую программу чтоб работала с xml базой?

    Может у кого есть какие исходники своих прог дайте пожалуйста!
     
  8. Papa_Costa

    Papa_Costa New Member

    Joined:
    14 Jan 2009
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    помогите пожалуйста сделать лабораторную. она очень легкая! просто информатика это не моё... был бы очень благодарен...
    вот условие в *.docx
    http://slil.ru/26643705
     
  9. oneofnamers

    oneofnamers New Member

    Joined:
    10 Jan 2009
    Messages:
    3
    Likes Received:
    1
    Reputations:
    0
    Кто-нибудь, подскажите пожалуйста книги по Си/Си++, где бы описывалось применение системных функции Линукс.
    Вот условие лабораторной:
    Написать программу на си/си++, которая копирует файлы и считывает их атрибуты. Использовать системные функции ОС Линукс.
     
  10. frostJKE

    frostJKE New Member

    Joined:
    15 May 2008
    Messages:
    9
    Likes Received:
    1
    Reputations:
    0
    Парни помогите кто чем может. Мне нужно написать программку на C++
    Собственно вот задание: Ввести с клавиатуры русское слово. Разбить его по слогам.
     
  11. snAKe33

    snAKe33 Active Member

    Joined:
    10 Feb 2009
    Messages:
    13
    Likes Received:
    169
    Reputations:
    24
    **
    Помогите мне с лабой..надо написать программу на паскале.
    Вообщем сама задача:
    Из каждой очередной тройки букв удалить среднюю букву. Тип списка: циклический.
    P.S заранее благодарен
    **
     
  12. bigex

    bigex New Member

    Joined:
    10 Jun 2008
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Люди очень нужна ваша помощь, задачка на C++
    Задание:
    Дан массив A[n] , найти наименьшее число элементов которые нужно выкинуть из массива чтобы осталась возрастающая последовательность элементов.

    неделю раздумий не к чему не привели :(( можно даже словами, как вообще организовать такой алгоритм... программу я сам смогу написать... очень прошу помощи ))
     
  13. groundhog

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

    Joined:
    12 May 2007
    Messages:
    1,159
    Likes Received:
    425
    Reputations:
    180
    Ну сам подумай... Какие признаки возрастающей последовательности? Каждый последующий элемент больше предыдущего... Т.е. те элементы, которые не удовлетворяют этому критерию и должны быть отброшены... Решение ещё не очевидно?
     
  14. bigex

    bigex New Member

    Joined:
    10 Jun 2008
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    если б было всё так просто я бы не обращался, тут другое нужно найти МИНИМАЛЬНОЕ количество элементов которые нужно откинуть , покажу на примере:
    последовательность : 1 7 1 8 3 5 9 8 0
    решение должно быть : 1 1 3 5 9 (откинуто всего 4)
    если по вашему то получиться отсеивание каждого элемента что больше предыдущего то есть останется 1 7 8 9 - а это не удовлетворяет условию...
    а если ещё вначале самого массива будет максимальная величина в массиве то отброситься вообще всё что после неё, тоесть нужно найти оптимальный элемент с которого и начинать отсеивание... но и тут не так всё просто , простое отсеивание не подойдёт, так как нужно при каждом удовлетворении условия что след. элемент больше предыдущего запускать новый цикл который проверял бы элементы после этих двух...
    я уже по не множку грешу в сторону рекурсий...
     
    #1094 bigex, 16 Feb 2009
    Last edited: 16 Feb 2009
  15. snAKe33

    snAKe33 Active Member

    Joined:
    10 Feb 2009
    Messages:
    13
    Likes Received:
    169
    Reputations:
    24
    вот помоги исправить задачу...нужно сделать так что бы из каждой очередной тройки букв удалить среднюю букву. Тип списка циклический.
    А данная программа удаляет первую букву..а нужно что бы последнюю.
    это паскаль
    Uses Crt;
    type
    pSpisok = ^Slova;
    Slova = Record
    slv : string[10];
    next : pSpisok
    end;
    var
    Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok;
    St, Str : string[10];
    F : text;
    I, K, N : integer;
    Name : string;
    begin
    ClrScr;
    Writeln ('Fail dolgen sodergat slova, raspologennie postrochno');
    Writeln ('Vvedite imya faila: ');
    Readln (Name);
    Assign (F, Name);
    Reset (F);
    Head1 := Nil;
    Tail1 := Nil;
    Head2 := Nil;
    Tail2 := Nil;
    ClrScr;
    While not Eof(F) do
    begin
    Readln (F, St);
    New (Ptr1);
    Ptr1^.Slv :=St;
    Ptr1^.Next := Nil;
    If Tail1 <> Nil then
    Tail1^.Next := Ptr1;
    Tail1 := Ptr1;
    If Head1 = Nil then
    Head1 := Ptr1;
    end;
    Tail1^.Next := Head1;
    Ptr1 := Head1;
    Pysk1 := Head1;
    repeat
    Str := Ptr1^.Slv;
    N := length(str) – 1 div 3;
    If Str <> '' then K := 1;
    for I := 1 to N do
    begin
    Delete (Str, K, 1);
    K := K + 2;
    end;
    New (Ptr2);
    Ptr2^.Slv := Str;
    Ptr2^.Next := Nil;
    If Tail2 <> Nil then
    Tail2^.Next := Ptr2;
    Tail2 := Ptr2;
    If Head2 = Nil then
    Head2 := Ptr2;
    Pysk1 := Ptr1^.Next;
    Ptr1 := Pysk1;
    Until Pysk1 = Head1;
    Tail2^.Next := Head2;
    Pysk1 := Head1;
    Pysk2 := Head2;
    Ptr1 := Head1;
    ptr2 := Head2;
    repeat
    Write (Ptr1^.Slv,' ');
    Writeln (Ptr2^.Slv);
    Pysk1 := Ptr1^.Next;
    Pysk2 := Ptr2^.Next;
    Ptr1 := Pysk1;
    Ptr2 := Pysk2;
    until Pysk2 = Head2;
    repeat until KeyPressed;
    End.
     
  16. Algol

    Algol New Member

    Joined:
    29 May 2002
    Messages:
    1,759
    Likes Received:
    4
    Reputations:
    0
    Code:
        class Program
        {
            static void Main(string[] args)
            {
                int[] A = new int[] { 1, 7, 1, 8, 3, 5, 9, 8, 0 };
                int count = calc(A);
                Console.WriteLine(count);
                Console.ReadLine();
            }
    
            //подсчет минимального числа исключений
            private static int calc(int[] A)
            {
                //пербираем число отбрасываемых элементов
                for (int i = 0; i < A.Length; i++)
                {
                     if(Exclude(A, 0, i, new bool[A.Length]))
                         return i;
                }
    
                return A.Length;
            }
    
            //исключение одного элемента
            private static bool Exclude(int[] A, int fromIndex, int excludeCount, bool[] excluded)
            {
                if(excludeCount==0)
                    return Check(A, excluded);
                for (int i = fromIndex; i < A.Length; i++)
                {
                    excluded[i] = true;
                    if(Exclude(A, i + 1, excludeCount - 1, excluded))
                        return true;
                    excluded[i] = false;
                }
                return false;
            }
    
            //проверка на возрастание
            private static bool Check(int[] A, bool[] excluded)
            {
                int prev = int.MinValue;
                for(int i=0;i<A.Length;i++)
                if(!excluded[i])
                {
                    if (A[i] <= prev)
                        return false;
                    prev = A[i];
                }
    
                return true;
            }
        }
     
    #1096 Algol, 17 Feb 2009
    Last edited: 17 Feb 2009
  17. lll6

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

    Joined:
    29 Feb 2008
    Messages:
    83
    Likes Received:
    15
    Reputations:
    5
    Code:
    Uses Crt;
    type
    pSpisok = ^Slova;
    Slova = Record
    slv : string[10];
    next : pSpisok
    end;
    var
    Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok;
    St, Str : string[10];
    F : text;
    I, K, N : integer;
    Name : string;
    begin
    ClrScr;
    Writeln ('Fail dolgen sodergat slova, raspologennie postrochno');
    Writeln ('Vvedite imya faila: ');
    Readln (Name);
    Assign (F, Name);
    Reset (F);
    Head1 := Nil;
    Tail1 := Nil;
    Head2 := Nil;
    Tail2 := Nil;
    ClrScr;
    While not Eof(F) do
    begin
    Readln (F, St);
    New (Ptr1);
    Ptr1^.Slv :=St;
    Ptr1^.Next := Nil;
    If Tail1 <> Nil then
    Tail1^.Next := Ptr1;
    Tail1 := Ptr1;
    If Head1 = Nil then
    Head1 := Ptr1;
    end;
    Tail1^.Next := Head1;
    Ptr1 := Head1;
    Pysk1 := Head1;
    repeat
    Str := Ptr1^.Slv;
    N := length(str) - 1 div 3;
    If Str <> '' then K := 1;
    for I := 1 to N do
    begin
    Delete (Str, K+1, 1);
    K := K + 2;
    end;
    New (Ptr2);
    Ptr2^.Slv := Str;
    Ptr2^.Next := Nil;
    If Tail2 <> Nil then
    Tail2^.Next := Ptr2;
    Tail2 := Ptr2;
    If Head2 = Nil then
    Head2 := Ptr2;
    Pysk1 := Ptr1^.Next;
    Ptr1 := Pysk1;
    Until Pysk1 = Head1;
    Tail2^.Next := Head2;
    Pysk1 := Head1;
    Pysk2 := Head2;
    Ptr1 := Head1;
    ptr2 := Head2;
    repeat
    Write (Ptr1^.Slv,' ');
    Writeln (Ptr2^.Slv);
    Pysk1 := Ptr1^.Next;
    Pysk2 := Ptr2^.Next;
    Ptr1 := Pysk1;
    Ptr2 := Pysk2;
    until Pysk2 = Head2;
    repeat until KeyPressed;
    End.
    Вот, удаляет среднюю букву из каждой тройки, попробуй.
     
  18. snAKe33

    snAKe33 Active Member

    Joined:
    10 Feb 2009
    Messages:
    13
    Likes Received:
    169
    Reputations:
    24
    блин идиот...я искал эту строчку но не нашел..)))
    думал еще как же программа удаляет без этого действия....тупица)))лови + помог найти!
     
  19. snAKe33

    snAKe33 Active Member

    Joined:
    10 Feb 2009
    Messages:
    13
    Likes Received:
    169
    Reputations:
    24
    С паскалем разобрался..
    плз напишите програмку в Делфи...то для меня это темный лес...
    Вычислить площадь плоской фигуры, заключенной между дугами кривых:
    y(x)=-Ln(x) и y(x)=R-x
    При каком значении R площадь этой фигуры не превышает единицы.
     
  20. bigex

    bigex New Member

    Joined:
    10 Jun 2008
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Algol
    Спасибо огромное за старание!!! Но есть маленькая проблемка... я ещё 1 курс и классы мы не проходили :( можно это какнить переписать более просто.. через массивы, циклы и т.д. спс!
     
Thread Status:
Not open for further replies.