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

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

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

    Algol New Member

    Joined:
    29 May 2002
    Messages:
    1,759
    Likes Received:
    4
    Reputations:
    0
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var i, j, n, m: Integer; res: Int64;
    begin
    
    n:=StrToInt(Edit1.text);
    m:=StrToInt(Edit2.text);
    
    res := 1;
    
    for j:=1 to m do
    for i:=1 to n do
      res := res * (2*i + j);
    
    label1.Caption:=FloatToStr(res);
    
    
    end;
    
     
  2. cepx

    cepx New Member

    Joined:
    22 Jan 2009
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Помогите плз. Надо написать на Паскале. Такая задача
    Найти медиану множества целых чисел, записанных в файл. Медиана - это такое вещественное число, что слева от него на числовой оси лежит столько же чисел из заданного набора, сколько и справа. Числа подсчитываются с учетом их кратности. Заданный набор вводится пользователем с клавиатуры
     
  3. MihakeR

    MihakeR New Member

    Joined:
    3 Feb 2008
    Messages:
    20
    Likes Received:
    3
    Reputations:
    0
    см. пост #1155
    За оптимизацию спс, только кажется мне что подсчет неверный) Результат всегда один и тот же = 0
    Исходники тут: _http://mihaker.name/files/lab2.zip (задача на втором "баттоне")
     
  4. Algol

    Algol New Member

    Joined:
    29 May 2002
    Messages:
    1,759
    Likes Received:
    4
    Reputations:
    0
    Да уж неверный :)
    Он нуль потому, что у тебя n=15 m=20
    При таких условиях результат очень большой и происходит переполнение. Поставь n=3 m=4, тогда все считается.
     
  5. cepx

    cepx New Member

    Joined:
    22 Jan 2009
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    можете помочь, задача в посте #1157
     
  6. .::BARS::.

    .::BARS::. Elder - Старейшина

    Joined:
    13 Oct 2007
    Messages:
    379
    Likes Received:
    45
    Reputations:
    10
    Привет, нужно на шарпе следующее:

    есть файл...
    нужно записывать туда несколько потоков по очереди...
    Проверяя перед этим свободен ли файл для записи, прекратил ли писать прошлый поток...
     
  7. HencH_MaN

    HencH_MaN New Member

    Joined:
    8 Feb 2008
    Messages:
    19
    Likes Received:
    0
    Reputations:
    0
    Помогите составить прогу на С++(программирование)
    Составить программу, которая анализирует заданный входной файл, содержащий текст программы на С++, и переписывает из него все идентификаторы в выходной файл. Повторения идентификаторов в выходном файле не допускаются.
     
  8. jawbreaker

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

    Joined:
    7 Jul 2008
    Messages:
    156
    Likes Received:
    76
    Reputations:
    3
    .::BARS::.
    Для синхронизации потоков используется мьютекс:
    Code:
    using System;
    using System.Collections.Generic;
    using System.Text;
    using System.IO;
    using System.Threading;
    
    namespace file_thread
    {
        class Program
        {
            public static StreamWriter wr;
            
            static void Main(string[] args)
            {
                wr = new StreamWriter("output.txt");
                
                Thread t1 = new Thread(new ThreadStart(Thread1));
                Thread t2 = new Thread(new ThreadStart(Thread2));
    
                t1.Start();
                t2.Start();
            }
    
            public static void Thread1()
            {
                lock(wr)
                {
                    for (int i = 0; i < 1000; i++)
                    {
                        wr.WriteLine("Thread #1");
                    }
                }
            }
            
            public static void Thread2()
            {
                lock (wr)
                {
                    for (int i = 0; i < 1000; i++)
                    {
                        wr.WriteLine("Thread #2");
                    }
                }
            }
    
        }
    }
    
    
     
    1 person likes this.
  9. Papa_Costa

    Papa_Costa New Member

    Joined:
    14 Jan 2009
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    помогите пожалуйста решить на visual basic. очень надо!!!
    [​IMG]
     
  10. SHAXID

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

    Joined:
    13 Dec 2007
    Messages:
    24
    Likes Received:
    17
    Reputations:
    -6
    Товарищи, пожалуйста, если вас не затруднит, помогите решить вот эти задания:

    1. type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov,
    dec);
    day = 1..31;
    var m1, m2: mes; k:1..maxint; n:1..12;
    Присвоить переменной m1 название k-го месяца после месяца m.

    2. type stroka = packed array [1..80] of char;
    var s:stroka;
    Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно удалив первое вхождение w, если такое есть (образовавшуюся «дыру» заполнить последующими буквами, а в конец добавить пробел).

    3. const n = 100;
    vаr х:аrrау [1..n] of rеаl;
    Упорядочить массив х по неубыванию, используя следующий алгоритм сортировки: сортировка вставками. Пусть первые и элементов массива уже упорядочены по неубыванию; берется (k+1 )-й элемент и размещается среди первых k элементов так, чтобы упорядоченными оказались уже k+1 первых элементов; этот метод применяется при k от 1 до n-1.

    4. Создать массив записей, содержащих сведения о сотрудниках университета. Структура записи:
    фамилия и инициалы работающего, год рождения;
    название кафедры;
    стаж работы, должность, оклад.
    Количество записей произвольное.
    Вывести на экран следующие данные: средний стаж работающих на кафедре X и список профессоров пенсионного возраста с указанием стажа работы.

    5. var A,B: set of char; x:char;
    Переменной B присвоить множество, полученное из A добавлением элемента x.


    или хотя бы что-нибудь из этого :(
     
  11. cepx

    cepx New Member

    Joined:
    22 Jan 2009
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Помогите плз. Надо написать на Паскале. Такая задача
    Найти медиану множества целых чисел, записанных в файл. Медиана - это такое вещественное число, что слева от него на числовой оси лежит столько же чисел из заданного набора, сколько и справа. Числа подсчитываются с учетом их кратности. Заданный набор вводится пользователем с клавиатуры
     
  12. WALKMAN

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

    Joined:
    30 Dec 2007
    Messages:
    61
    Likes Received:
    2
    Reputations:
    0
    Всю задачу я не буду сюда писать, так как мне все понятно кроме... Вобщем имееться некая структура (С++) и нужно сохранять данные в дво связанном списке. Как ето понять и как ето организоватьна С++?
     
  13. ZEXEL

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

    Joined:
    7 Jan 2008
    Messages:
    351
    Likes Received:
    193
    Reputations:
    3
    Code:
    #include <string.h>
    #include <iostream>
    using namespace std;
    
    struct NUM {
    		int reg;
    		char zdelka[20]; 
    		int v;
    		char nal[20];
    		char data[20];
    }lab;
    
    void main() {
    	struct NUM num[15];
    	int n;
    	cout << "How many operations :";
    	cin >> n;
    	cout<<"Reg Num "<<" Zdelka "<< " Volume " << " Money " << " Date\n";
    		for(int i=0; i<n; i++)
    		{
    			cout<<"["<<i<<"] ";
    			cin	>> num[i].reg;
    			cin	>> num[i].zdelka;
    			cin	>> num[i].v;
    			cin	>> num[i].nal;
    			cin >> num[i].data;
    		}
    		for(;;);
    	}
    Есть структура которую нужно отсортировать.

    Задание :


    Написать программу для ведения учета торговых операций фирмы. О каждой торговой операции должны сохраняться следующие сведения: регистрационный номер, сущность сделки, объем, форма расчета (нал., безнал., бартер), дата совершения. Ввести информацию о N сделках (N выбрать самостоятельно) и упорядочить бартерные сделки по убыванию их объема.
     
  14. Ch3ck

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

    Joined:
    9 Jun 2006
    Messages:
    1,363
    Likes Received:
    1,191
    Reputations:
    430
    Комрады, выручайте:
     
    1 person likes this.
  15. MihakeR

    MihakeR New Member

    Joined:
    3 Feb 2008
    Messages:
    20
    Likes Received:
    3
    Reputations:
    0
    Доделать задачу. Задание не сложное, просто пока времени совсем нет заниматься ей. Доделать подсчет "Плановая себестоимость партии изделий" , "Фактическая себестоимость партии изделий". Отобразить данные на те изделие, у которых фактическая себестоимость меньше плановой. Переделывал схожий пример, поэтому есть некоторые лишние фишки, на них внимания не обращать)) Скрин с заданием можно найти все в том же архиве:
    __http://mihaker.name/files/4_StringGrid_Chart.zip
    Заранее спасибо, завидую тем, у кого есть свободное время))
     
  16. WALKMAN

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

    Joined:
    30 Dec 2007
    Messages:
    61
    Likes Received:
    2
    Reputations:
    0
    Таких наверное нету))) а если и есть то явно не на решение задачь по программированию!
     
  17. Ne2pI

    Ne2pI New Member

    Joined:
    13 Mar 2009
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Ребят помогите рещит две задачи на С# очень прошу!
    -> Дано целое число N(>0). Найти нименьшее целое положительное число К, квадрат которого превосходит N: K*K>N. Функцию извлечения квадратного корня не использовать!

    ->Данна массив целых ненулевых чисел размером N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, вывести 0, если нет то вывести порядковый номер первого элемента нарущающего закономерность!

    p.s. Зарание огромное спасибо если можно решите кто нить а то я в си не че не шарю на паскале написал эти проги а в си не могу!
     
  18. Algol

    Algol New Member

    Joined:
    29 May 2002
    Messages:
    1,759
    Likes Received:
    4
    Reputations:
    0
    Code:
                int N = 234;
                int solve;
                for (solve = 1; solve < int.MaxValue; solve++)
                    if (solve * solve > N)
                        break;
                Console.WriteLine(solve);
    Code:
                int[] arr = new int[] { -23, 21, -23, 23, 12, 34};
                int i = 0;
                for (i = 1; i < arr.Length; i++)
                    if (-Math.Sign(arr[i]) != Math.Sign(arr[i - 1]))
                        break;
                if (i == arr.Length)
                    Console.WriteLine(0);
                else
                    Console.WriteLine(i + 1);
     
  19. pixelm

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

    Joined:
    4 Jan 2008
    Messages:
    26
    Likes Received:
    6
    Reputations:
    0
    Помогите пожалуйста решить задачу по С.

    Написать функцию, которая подсчитывает количество слов начинающихся с буквы "к". Текст произвольной длины оканчивающийся ";". Текст состоит из слов, разделенных пробелами.
     
  20. fker

    fker Member

    Joined:
    26 Nov 2008
    Messages:
    135
    Likes Received:
    64
    Reputations:
    -1
    2pixelm :
    Code:
    #include<stdio.h>
    #include<conio.h>
    #include<string.h>
    int n_k(char *);
    void main()
    {
    clrscr();
    char *str;
    gets(str);
    printf("%d\n", n_k(str));//пример вызовы ф-ии
    getch();
    }
    //сама функция возвращяет количество слов на к
    int n_k(char *str)
    {
    int s=0,i;
    if(str[0]=='k')// это мож криво замутил, проверяет первую букву..
       s++;
    for(i=0; str[i]!=';'; i++){
        if(str[i]==' '&&str[i+1]=='k')
           s++;
        }
    return s;
    }
    
    компилятор BC 3.1
     
    #1160 fker, 16 Mar 2009
    Last edited: 16 Mar 2009
Thread Status:
Not open for further replies.