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

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

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

    Lerr777 New Member

    Joined:
    26 Apr 2010
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    2)написать программу,выполняющую следующие действия:
    а)вывод с клавиатуры данных в масив,состоящий из n структур;записи должны быть упорядочены по возрастанию среднего бала
    в)вывод на экран фамилию номер группы всех студентов имеющихи 4 и 5
    с)если таких студентов нет,вывести соответствующее сообщение
     
  2. >>serhio<<

    >>serhio<< New Member

    Joined:
    10 Feb 2009
    Messages:
    40
    Likes Received:
    0
    Reputations:
    0
    Срочно нужна помощь на ASM
    Найти наиболее длинную цепочку нулевых элементов в одномерном массиве(двухбайтовый вид)
    Буду очень благодарен!
     
  3. Yanker

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

    Joined:
    18 Jul 2008
    Messages:
    41
    Likes Received:
    7
    Reputations:
    5
    Ребят,
    срочно требуется помощь по borland c 3.1
    Вычислить сумму S=1!-2!+3!-......+n!
    при помощи циклов
    я вообще 0....
     
  4. DarkSideF

    DarkSideF New Member

    Joined:
    14 May 2010
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Знающие люди, помогите решить задачку из курсовой:
    Сделать надо на Delphi(!!) на паскале нельзя :(, хотя там бы эта задачка была горазда легче)

    Преобразовать матрицу A(m,n) так, что-бы строки с нечетными индексами были упорядочены по убыванию, с чётными - по возрастанию.

    сделал так:
    1. вводим m и n, нажимаем кнопку (это всё просто)
    2. Появляется пустая сетка нужных размеров
    2.1 Заполняем матрицу значениями
    3. Далее тык button4 и должно выполнятся задание, записывая результат в stringgrid2.

    вопросы (видно в прикреплёном исходнике):
    №1: у меня при введении значений, вместо поочерёдного заполнения каждого элемента матрицы присваиваются все сразу, как это исправить?
    №2: если несложно напишите необходимую операцию при тыке button4

    скачать незавершенную наработку тут:
    http://upwap.ru/868819
     
    #2724 DarkSideF, 15 May 2010
    Last edited: 15 May 2010
  5. STIFFmaster

    STIFFmaster New Member

    Joined:
    11 Dec 2009
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    Помогите написать программу на ASSEMBLER
    нужно реализовать ввод(спросить имя пользователя) и вывод посредине экрана в рамке (типа "привет NAME, я компьютер".
     
  6. sample

    sample New Member

    Joined:
    15 May 2010
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Ищу человека с неплохим знанием программинга на языке паскаль (или дельфи), необходимо будет написать несложную консольную прогу для обработки строк. О цене договоримся, пишите в личку или icq 426745967.
     
  7. 3a4eT

    3a4eT New Member

    Joined:
    19 Apr 2009
    Messages:
    13
    Likes Received:
    1
    Reputations:
    0
    Нужна помощь по асемблеру:
    Написать без использования прерываний BIOS и DOS подпрограмму для вывода на экран содержимого регистра AX в двоичной системе на третьей строке экрана.
     
  8. mr_walker

    mr_walker Member

    Joined:
    9 Aug 2009
    Messages:
    41
    Likes Received:
    34
    Reputations:
    2
    написать на паскале
    тема процедуры и функции
    определить значение функции y = f (x) на промежутке [a; b] с шагом h используя для вычисления значения функции - подпрограммы функции
    дано:
    a.) 0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5
    b.) | 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75
     
  9. mr_walker

    mr_walker Member

    Joined:
    9 Aug 2009
    Messages:
    41
    Likes Received:
    34
    Reputations:
    2
    написать на паскале
    составить алгоритм вычисления значения функции z = V * a * | b |, где a-среднее арифметическое положительных элементов b-среднее арифметическое отрицательных элементов данной линейной таблице x, содержащей k действительных чисел. для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне своих аргументов содержит величину, которая указывает на то, среднее арифметическое которых нужно определить.

    с меня +++++
     
  10. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    Код:

    Code:
    program Tabulirovanie_funczii;
    
    function fA(x: real):real;
    begin
    	fA := 0.1 * (sin(x) / cos(x)) - sin(4*x);
    end;
    
    function fB(x: real):real;
    begin
    	fB := ABS(3*x - cos(x)) / (x - 9);
    end;
    
    procedure WriteHeader;
    begin
    	writeln;
    	writeln('   x          y');
      readln;
    end;
    
    var
    	a, b, h, x: real;
    
    begin
    	writeln('0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5');
    	WriteHeader;
    	a := -2 * Pi;
    	b := 2 * Pi;
    	h := 0.5;
    	x := a;
    	while x <= b do
    	begin
    		writeln(x:6:4, '       ', fA(x):6:4);
    		x := x + h;
    	end;
    
    	readln;
    	writeln('| 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75');
    	WriteHeader;
    	a := -7;
    	b := 7;
    	h := 0.75;
    	x := a;
    	while x <= b do
    	begin
    		writeln(x:6:4, '    ', fB(x):6:4);
    		x := x + h;
    	end;
    
    readln;		
    end.
    
    Результат работы:

    Code:
    0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5
    
       x          y
    ...
    -5.2832       0.9125
    -4.7832       1.6896
    -4.2832       -1.2079
    -3.7832       0.4693
    -3.2832       0.5223
    -2.7832       -0.9531
    -2.2832       0.4037
    -1.7832       1.2147
    -1.2832       -1.2510
    -0.7832       -0.0907
    -0.2832       0.8765
    0.2168       -0.7405
    0.7168       -0.1838
    1.2168       1.2586
    1.7168       -1.2314
    2.2168       -0.6617
    2.7168       0.9465
    3.2168       -0.2888
    3.7168       -0.6803
    4.2168       1.1015
    4.7168       -22.6128
    5.2168       -1.0829
    5.7168       0.7047
    6.2168       0.2557
    
    | 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75
    
       x          y
    
    -7.0000    -1.3596
    -6.2500    -1.2950
    -5.5000    -1.1868
    -4.7500    -1.0391
    -4.0000    -0.8728
    -3.2500    -0.7148
    -2.5000    -0.5825
    -1.7500    -0.4718
    -1.0000    -0.3540
    -0.2500    -0.1858
    0.5000    -0.0732
    1.2500    -0.4432
    2.0000    -0.9166
    2.7500    -1.4679
    3.5000    -2.0794
    4.2500    -2.7781
    5.0000    -3.6791
    5.7500    -5.0427
    6.5000    -7.4094
    
    Код:

    Code:
    program Funcziia;
    
    const
    	k = 10;
    	V = 1;
    
    var
    	LinArrayX: array[1..k] of real;
    	intA: Integer;
      a, b: real;
    
    function fZ(aa, bb: real):real;
    begin
    	fZ := V * aa * ABS(bb);
    end;
    
    function GetMiddleArithmetic(IsThisA: boolean):real;
    begin
    	if IsThisA then
      begin
    		for intA := 1 to K do
    			if LinArrayX[intA] >= 0 then
    				a := a + LinArrayX[intA];
        GetMiddleArithmetic := a;
      end
      else
      begin
    		for intA := 1 to K do
    			if LinArrayX[intA] < 0 then
    				b := b + LinArrayX[intA];
        GetMiddleArithmetic := b;
      end;
    end;
    
    begin
    	writeln('Tabliza znachenii X:');
    	writeln;
      randomize;
    	for intA := 1 to k do
    	begin
    		LinArrayX[intA] := Random(k) - k/2;
    		writeln('X[', intA, '] = ', LinArrayX[intA]:6:4);
    	end;
    	readln;
    	a := 0;
    	b := 0;
    	a := GetMiddleArithmetic(True);
    	b := GetMiddleArithmetic(False);
    	writeln('a = ', a:6:4);
    	writeln('b = ', b:6:4);
    	writeln('funcziia Z = ', fZ(a, b):6:4);
    	readln;
    end.
    Результат работы:
    Code:
    Tabliza znachenii X:
    
    X[1] = 0.0000
    X[2] = -5.0000
    X[3] = -2.0000
    X[4] = 1.0000
    X[5] = -5.0000
    X[6] = 0.0000
    X[7] = 2.0000
    X[8] = 2.0000
    X[9] = 4.0000
    X[10] = 0.0000
    
    a = 9.0000
    b = -12.0000
    funcziia Z = 108.0000
    
    
    
    Tabliza znachenii X:
    
    X[1] = 3.0000
    X[2] = -2.0000
    X[3] = 4.0000
    X[4] = -4.0000
    X[5] = -4.0000
    X[6] = -3.0000
    X[7] = 3.0000
    X[8] = 2.0000
    X[9] = -4.0000
    X[10] = -3.0000
    
    a = 12.0000
    b = -20.0000
    funcziia Z = 240.0000
    
     
    #2730 Dosia, 16 May 2010
    Last edited: 16 May 2010
    2 people like this.
  11. olesy

    olesy New Member

    Joined:
    16 May 2010
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    помогите с заданием оч нада


    1)в динамическом массиве лент определить количество лент, которые не содержат ни одной цифры

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

    redfoxter032 New Member

    Joined:
    28 Feb 2010
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    помогите решить задачу на Delfi

    Дан одномерный числовой массив разработать проект
    а) позволяющий формировать двумерный массив включающий эти числа их квадрат куб и четвертую степень с сохранением в файле
    б) вывод даных на экран
    в) поиск результатов по исходному числу
    г)вывод результатов на экран
     
  13. ArkNet

    ArkNet Banned

    Joined:
    15 May 2010
    Messages:
    26
    Likes Received:
    1
    Reputations:
    0
    Необходимо решения задачи на чистом С++ :confused:
    Постановка задачи
    По индивидуальному заданию создать функцию для обработки символьных строк. За образец брать библиотечные функции обработки строк языка С, но не применять их в своей функции. Предусмотреть об¬работку ошибок в задании параметров и особые случаи. Разработать два варианта заданной функции — используя традиционную обработку мас¬сивов и используя адресную арифметику.
    Функция Reverse(s)
    Назначение: изменение порядка символов в строке s на противо¬положный.
     
  14. Ins3t

    Ins3t Харьковчанин

    Joined:
    18 Jul 2009
    Messages:
    942
    Likes Received:
    428
    Reputations:
    139
    To ArkNet:

    Набросал по быстрому:
    Code:
    //////////////////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////////////////////////////////////////
    #include <iostream>
    using std::cout;
    using std::endl;
    //////////////////////////////////////////////////////////////////////////////////////////////
    char * mySrtCpy( char *, const char * );
    //////////////////////////////////////////////////////////////////////////////////////////////
    char * myStrCat( char *, const char * );
    //////////////////////////////////////////////////////////////////////////////////////////////
    size_t myStrLen( const char * );
    //////////////////////////////////////////////////////////////////////////////////////////////
    int main( int argc, char * argv[] )
    	{
    	cout << "myStrLen( \"test\" ) = " << myStrLen( "test" ) << endl;
    
    	char testVar1[50];
    	char testVar2[] = "test";
    	mySrtCpy( testVar1, testVar2 );
    
    	cout << testVar1 << endl;
    
    	char testVar3[100] = "abc";
    	char testVar4[] = "dew";
    
    	myStrCat( testVar3, testVar4 );
    
    	cout << endl << testVar3;
    	return 0;
    	}
    //////////////////////////////////////////////////////////////////////////////////////////////
    size_t myStrLen( const char *string )
    	{
    	int i = 0;
    	for( ; i < string[ i ]; i++ );
    
    	return i;
    	}
    //////////////////////////////////////////////////////////////////////////////////////////////
    char * mySrtCpy( char *s1, const char *s2  )
    	{
    	for( ; ( *s1 = *s2 ) != '\0'; s1++, s2++ );
    
    	return s1;
    	}
    //////////////////////////////////////////////////////////////////////////////////////////////
    char * myStrCat( char *s1, const char * s2 )
    	{
    	size_t size = myStrLen( s1 );
    
    	for( int i = 0; ( s1[ size ] = s2[ i ] ); i++, size++ );
    
    	return s1;
    	}
    //////////////////////////////////////////////////////////////////////////////////////////////
    
    Если хотите избежать работы со строками в стиле С ( хотя в задании сказано сделать что то на подобие такого ), то можее использовать класс string, будет все гораздо удобнее.
     
    1 person likes this.
  15. ArkNet

    ArkNet Banned

    Joined:
    15 May 2010
    Messages:
    26
    Likes Received:
    1
    Reputations:
    0
    Построить модель аналого-цифрового преобразователя (АЦП), которая работает в реальном времени. Процесс, который дискретизуется, моделируется программой (программным блоком), который выполняет циклическое вычисление функции y=F(x), где x - номер итерации. Преобразователь моделируется программой, которая выполняет с заданной частотой (в реальном времени) прерывание процесса, считывание и запоминание текущего значения функции. Запомнить не меньше 80 значений функции. Обеспечить наглядное представление результатов работы "АЦП".

    Индивидуальное задание
    функция — y=50*(sin(x/10)+cos(x/8))+R+150; R — в диапазоне 0 — 10; частота — 36.4 Гц.
     
  16. Dr.zomber

    Dr.zomber Member

    Joined:
    27 Aug 2008
    Messages:
    12
    Likes Received:
    11
    Reputations:
    0
    помогите плиз задачу решить на delphi :
    Полином в степени М.найти его корни на отрезке А В
     
    #2736 Dr.zomber, 19 May 2010
    Last edited: 19 May 2010
  17. SHAXID

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

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

    ----------------------------------------------------------------
    1.Напечатать таблицу значений функций sin x и tg x на отрезке [0,3] с шагом 0.1. Значения x печатать с одной цифрой в дробной части, значения синуса – с пятью, а значения тангенса – в экспоненциальной форме.

    ----------------------------------------------------------------
    2. Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора FOR..DOWNTO..DO. Длина блоков 2 байта. В цикле выводить содержимое каждого скопированного блока.

    Здесь что-то уже что смог, то сделал, но сделано с помощью оператора FOR..TO..DO, а нужно FOR..DOWNTO..DO:

    uses crt;

    var
    inp,out:file;
    s:string;
    i,j,k,n,tmp:integer;
    begin
    clrscr;
    write('Enter filename: ');
    {writeln ('proverka’);
    Readln;}
    readln(s);
    assign(inp,s);
    reset(inp,1);
    assign(out,'output.txt');
    rewrite(out,1);
    j:=1;
    for i:=1 to filesize(inp) div 2 do
    begin
    blockread(inp,tmp,2,j);
    write(tmp);
    blockwrite(out,tmp,2,j);
    readln;
    end;
    close(inp);
    close(out);
    writeln('нажмите любую клавишу для выхода');
    readln;
    end.
    ----------------------------------------------------------------

    3. const n=10;
    type number=1..n;
    matr=array [number, number] of real;
    num=set of number;
    Составить программу, использующую функцию sum(A, s1, s2) для вычисления суммы тех элементов матрицы A, номера строк и столбцов которых принадлежат соответственно непустым множествам s1 и s2 типа num.

    ----------------------------------------------------------------

    4.Имеются линейные однонаправленные списки:
    type
    p=^item;
    item=record
    data:real;
    reference:p
    end;
    Написать программу, которая переносит в конец непустого списка L его первый элемент.

    Вот нужно исправить код под задание:

    program zad1;

    uses crt;

    type
    p=^item;
    item=record
    data:integer;
    reference:p;
    end;

    var
    a,i:integer;
    b,temp,temp2:p;

    begin
    clrscr;
    randomize;
    {zapolnyaem spisok dannymi}
    for i:=1 to 10 do
    begin
    if i=1 then begin {esli pervii element spiska}
    b^.data:=random(100);
    b^.reference:=nil; {to ukazatel prisvaivaem 0}
    end
    else begin {esli ne pervii element}
    temp:=b; {to sohranyaem ukazatel na predydushii element vo vremennoi peremennoi}
    new(b); {sozdaem novii element spiska}
    b^.data:=random(100); {zapolnyaem pole data}
    b^.reference:=temp; {prisvaivaem ukazatel na predidushii element}
    end;
    end;

    {vivodim spisok na ekran}
    temp:=b; {sm vishe}
    while temp<>nil do { poka ne dostignut pervii element spiska s ukazatelem=nil}
    begin
    writeln(temp^.data); {vivodim soderzhmoe polya data}
    temp:=temp^.reference; {perehodim k sleduyushemu elementu}
    end;

    writeln;
    write('vvedite znachenie elementa, kotoryi hotite udalit, a =');
    readln(a);

    {udalyaem element is spiska}
    temp:=b;
    while temp<>nil do
    begin
    temp2:=temp^.reference; {prisvaivaem vremennoi peremennoi temp2 znachenie sleduushego elementa spiska}
    {sravnivaem s a, esli ravno, to zamenyaem ukazatel elementa temp1 na ukazatel elementa temp2}
    if (temp2^.data = a) then temp^.reference:=temp2^.reference;
    temp:=temp^.reference; {perehodim k sleduyushemu elementu}
    end;

    {snova vivodim spisok na ekran}
    temp:=b;
    while temp<>nil do
    begin
    writeln(temp^.data);
    temp:=temp^.reference;
    end;

    readkey;
    end.

    ----------------------------------------------------------------

    Помогите чем можете.)
     
    #2737 SHAXID, 19 May 2010
    Last edited: 19 May 2010
  18. akasha9

    akasha9 Member

    Joined:
    17 May 2007
    Messages:
    18
    Likes Received:
    5
    Reputations:
    5
    Срочно нужна помощь


    Разработайте на языке Visual С++ структуру элементарного перцептрона, способного распознавать первые две буквы Вашего имени и Вашей фамилии.
    - числа рецепторных нейронов (число n S-элементов перцептрона должно быть в пределах 12<=n<=30);
    - числа нейронов скрытого слоя;
    - величны шага в алгоритме обучения перцептрона;
    - вида функции активации нейронов каждого слоя;
    - величины порогов нейронов каждгог слоя.
    Обучите нейроную сеть.

    ПОЖАЛУЙСТА ПОМОГИТЕ
     
    #2738 akasha9, 20 May 2010
    Last edited: 20 May 2010
  19. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,158
    Likes Received:
    423
    Reputations:
    231
    Паскаль

    Система выражений 3х-9 и 1/х2-4 вот надо написать программу по вычислению этих функций.
     
  20. sveta11115

    sveta11115 New Member

    Joined:
    20 Mar 2010
    Messages:
    13
    Likes Received:
    3
    Reputations:
    0
    Программа на С++

    Создать очередь из двух стеков.
     
Loading...
Thread Status:
Not open for further replies.