2)написать программу,выполняющую следующие действия: а)вывод с клавиатуры данных в масив,состоящий из n структур;записи должны быть упорядочены по возрастанию среднего бала в)вывод на экран фамилию номер группы всех студентов имеющихи 4 и 5 с)если таких студентов нет,вывести соответствующее сообщение
Срочно нужна помощь на ASM Найти наиболее длинную цепочку нулевых элементов в одномерном массиве(двухбайтовый вид) Буду очень благодарен!
Ребят, срочно требуется помощь по borland c 3.1 Вычислить сумму S=1!-2!+3!-......+n! при помощи циклов я вообще 0....
Знающие люди, помогите решить задачку из курсовой: Сделать надо на Delphi(!!) на паскале нельзя , хотя там бы эта задачка была горазда легче) Преобразовать матрицу A(m,n) так, что-бы строки с нечетными индексами были упорядочены по убыванию, с чётными - по возрастанию. сделал так: 1. вводим m и n, нажимаем кнопку (это всё просто) 2. Появляется пустая сетка нужных размеров 2.1 Заполняем матрицу значениями 3. Далее тык button4 и должно выполнятся задание, записывая результат в stringgrid2. вопросы (видно в прикреплёном исходнике): №1: у меня при введении значений, вместо поочерёдного заполнения каждого элемента матрицы присваиваются все сразу, как это исправить? №2: если несложно напишите необходимую операцию при тыке button4 скачать незавершенную наработку тут: http://upwap.ru/868819
Помогите написать программу на ASSEMBLER нужно реализовать ввод(спросить имя пользователя) и вывод посредине экрана в рамке (типа "привет NAME, я компьютер".
Ищу человека с неплохим знанием программинга на языке паскаль (или дельфи), необходимо будет написать несложную консольную прогу для обработки строк. О цене договоримся, пишите в личку или icq 426745967.
Нужна помощь по асемблеру: Написать без использования прерываний BIOS и DOS подпрограмму для вывода на экран содержимого регистра AX в двоичной системе на третьей строке экрана.
написать на паскале тема процедуры и функции определить значение функции 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
написать на паскале составить алгоритм вычисления значения функции z = V * a * | b |, где a-среднее арифметическое положительных элементов b-среднее арифметическое отрицательных элементов данной линейной таблице x, содержащей k действительных чисел. для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне своих аргументов содержит величину, которая указывает на то, среднее арифметическое которых нужно определить. с меня +++++
Код: 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
помогите с заданием оч нада 1)в динамическом массиве лент определить количество лент, которые не содержат ни одной цифры 2)в целочисленного массиве каждый его элемент изменить, оставив значимыми лишь четыре младшие биты его двоичного представления (остальные битов нулевые)
помогите решить задачу на Delfi Дан одномерный числовой массив разработать проект а) позволяющий формировать двумерный массив включающий эти числа их квадрат куб и четвертую степень с сохранением в файле б) вывод даных на экран в) поиск результатов по исходному числу г)вывод результатов на экран
Необходимо решения задачи на чистом С++ Постановка задачи По индивидуальному заданию создать функцию для обработки символьных строк. За образец брать библиотечные функции обработки строк языка С, но не применять их в своей функции. Предусмотреть об¬работку ошибок в задании параметров и особые случаи. Разработать два варианта заданной функции — используя традиционную обработку мас¬сивов и используя адресную арифметику. Функция Reverse(s) Назначение: изменение порядка символов в строке s на противо¬положный.
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, будет все гораздо удобнее.
Построить модель аналого-цифрового преобразователя (АЦП), которая работает в реальном времени. Процесс, который дискретизуется, моделируется программой (программным блоком), который выполняет циклическое вычисление функции y=F(x), где x - номер итерации. Преобразователь моделируется программой, которая выполняет с заданной частотой (в реальном времени) прерывание процесса, считывание и запоминание текущего значения функции. Запомнить не меньше 80 значений функции. Обеспечить наглядное представление результатов работы "АЦП". Индивидуальное задание функция — y=50*(sin(x/10)+cos(x/8))+R+150; R — в диапазоне 0 — 10; частота — 36.4 Гц.
Товарищи, помогите на паскале замутить вот это: ---------------------------------------------------------------- 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 end; Написать программу, которая переносит в конец непустого списка L его первый элемент. Вот нужно исправить код под задание: program zad1; uses crt; type p=^item; item=record data:integer; reference; end; var a,i:integer; b,temp,temp2; 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. ---------------------------------------------------------------- Помогите чем можете.)
Срочно нужна помощь Разработайте на языке Visual С++ структуру элементарного перцептрона, способного распознавать первые две буквы Вашего имени и Вашей фамилии. - числа рецепторных нейронов (число n S-элементов перцептрона должно быть в пределах 12<=n<=30); - числа нейронов скрытого слоя; - величны шага в алгоритме обучения перцептрона; - вида функции активации нейронов каждого слоя; - величины порогов нейронов каждгог слоя. Обучите нейроную сеть. ПОЖАЛУЙСТА ПОМОГИТЕ
