>>serhio<< Если я правильно понял задание, то так: Code: Program Neprogram; type A=array [0..666,0..666] of real; B=array [0..666,0..666] of real; [COLOR=Teal]// Процедура ввода значений в массивы //[/COLOR] Procedure vvod(Var x:A;Var x1:B); Var n,m,k,l,kolvo:integer; begin [COLOR=Teal]// Определяем кол-во эл-ов массива 1. (строк и столбцов) //[/COLOR] kolvo:=0; repeat write('Vvedite kolvo elementov massiva [1..x,1..x]:'); readln(kolvo); until kolvo>0; [COLOR=Teal]// Заполняем массив 1 //[/COLOR] for n:=1 to kolvo do for m:=1 to kolvo do begin x[n,m]:=trunc((-51-50)*random+50); end; [COLOR=Teal]// Выводим на экран массив 1 //[/COLOR] writeln('Poluchivshaiasa matrica: '); writeln; for n:=1 to kolvo do begin writeln(' '); for m:=1 to kolvo do begin write(x[n,m]); write(' '); end; end; writeln; writeln; [COLOR=Teal]// Определяем кол-во эл-ов массива 2. (строк и столбцов) //[/COLOR] kolvo:=0; repeat write('Vvedite kolvo elementov massiva [1..x,1..x]:'); readln(kolvo); until kolvo>0; [COLOR=Teal]// Заполняем массив 2 //[/COLOR] for k:=1 to kolvo do for l:=1 to kolvo do begin x[k,l]:=trunc((-51-50)*random+50); end; [COLOR=Teal]// Выводим на экран массив 2 //[/COLOR] writeln('Poluchivshaiasa matrica: '); writeln; for k:=1 to kolvo do begin writeln(' '); for l:=1 to kolvo do begin write(x[k,l]); write(' '); end; end; end; Var x:A; x1:B; n,m:integer; Begin vvod(x,x1); readln; end. Результат работы: Code: Vvedite kolvo elementov massiva [1..x,1..x]:4 Poluchivshaiasa matrica: 10 -28 23 -50 -9 -47 -26 -19 39 -16 -45 17 -7 -29 35 13 Vvedite kolvo elementov massiva [1..x,1..x]:4 Poluchivshaiasa matrica: 3 23 -45 -39 -28 -8 -11 -17 49 9 -44 28 34 -46 -19 -50
Люди помогите пож найти ошибку.(Pascal) Даны три вещественных числа. Составить процедуру нахождения целой части числа. Найти сумму преобразованных чисел. Code: Program Pr1; var x,y,z:real; p:integer; Procedure my(x,y,z:real; var a,b,c:integer); begin a:=int(x); b:=int(y); c:=int(z); end; begin writeln('BBeguTe x,y,z'); readln(x,y,z); my(x,y,z); writeln('OkpyrJIuJIu x=',x); writeln('OkpyrJIuJIu y=',y); writeln('OkpyrJIuJIu z=',z); p:=x+y+z; writeln('OTBET: ',p); end. Заранее спасибо. p.s. В паскале я недавно, сори если туплю
Доброго времени суток! Не могу написать часть кода на С это strtok. Очень нужна помощь. Code: #include <stdio.h> int SimSlovo( char *Slovo);//prototip int strlen(char *s); char *strtok (char * str, const char * tokens); int strlen(char *s) { char* p=s; while (*s) s++; return s-p; } char *strtok (char *str, const char *tokens) { static char *ptr = NULL; //prisvaivaem znachenie 0 if (str) ptr = str; //esli stroka to ptr= stroka for (ptr; *ptr>0; ptr++) //proverki vvedennogo if (!ptr) return NULL; for (char *p = ptr; *ptr; ptr++) //(znachenie uk stroki;ukazateli \0;uvelichenie znach stroki) for (const char *tk = tokens; *tk; tk++)//ukazateli const tk na tokkens if (*ptr == *tk) //sravnenie simvola stroki { *ptr++ = 0; return p; } return NULL; } int SimSlovo(char *Slovo) //function { int i=0,j=0; j=strlen(Slovo)-1; //prisvoenie indeksa poslednei bukvi for (i=0;i<=j;i++,j--) //chitaem slovo s dvuh storon { //do vstrechi if (Slovo[i]!=Slovo[j]) return 1; //ne ravno znachit 0 } return 0;//ravno 1 } int main() { char *input;//stroka sodergachaia simvoli char *deltel=" ,"; //simvol ogranichiteli char strok[1000]; char edel; int len; int pos; input=strok; gets(strok); len=strlen(input); //opredeliaem dlinu stroki (eto budet konec stroki) pos=0; //nachalo stroki while(len>pos) { input = strtok(input,deltel);//nahodim simvol ' ,' v input pos=pos+strlen(input)+1; //i berem ukazatel na sleduiuschii simvol //pozicia zaverscheniia if(*input ) //esli v stroke schtoto esti { if ( SimSlovo(input)==1) //poluchaem resultat function { printf(" "); printf(input); //vivodim naidenii } input+=strlen(input)+1; /*perehodim k sleduiuchemu slovu i zaverschaem proverku prediduchego */ } } return 0; }
Odio Code: Program Pr1; [COLOR=Teal]var x,y,z:real;[/COLOR] Procedure my(var a,b,c:[COLOR=Teal]real[/COLOR]); begin a:=[COLOR=Teal]trunc[/COLOR](a); b:=[COLOR=Teal]trunc[/COLOR](b); c:=[COLOR=Teal]trunc[/COLOR](c); end; begin writeln('BBeguTe x,y,z'); readln(x,y,z); my(x,y,z); writeln('OkpyrJIuJIu x=',x); writeln('OkpyrJIuJIu y=',y); writeln('OkpyrJIuJIu z=',z); writeln('OTBET: ',x+y+z); end. Результат: Code: BBeguTe x,y,z 16.4444 -15.222 18.9876 OkpyrJIuJIu x=16 OkpyrJIuJIu y=-15 OkpyrJIuJIu z=18 OTBET: 19
Visual Delphi 7 инструментальные методы визуального программирования: Построить блок-схему программы, описать последовательность визуального программирования и навести листинг главного модуля программы для табулирования функции: z:=(2*(x*x)+3*j-5)*(2*(x*x)+3*j-5)*(2*(x*x)+3*j-5)/12*j при каждом значении x и j, если x приобретает следующих значений 2,4,6, а j - 1,2,3,4.
Помогите пожалуйста решить задачу на с/с++: Выполнить перестановку столбцов и строк двумерного массива так, чтобы мини-мальный элемент приобрел индекс 1.1 (левый верхний). Выводить массив на экран на ка-ждом шаге с комментариями действий.
утро доброе, помогите с массивами, а то нифига не понимаю( на С++ нужно написать программу которая определяет сумму четных строк матрицы и нечетный строк матрицы 5*7. помогите плз.
спасибо всем) я сам сделал) но подскажите пожалуйста как сделать эту: Дан текст, определить, сколько в нем предложений. Вывести на экран самое длинное.
сначала загоняем переменную в функцию подобную split(".", $inputText), в ПХП, которая разбивает $inputText - введенную строку в массив по разделителю (.) точка. Ведь предложение от предложения отделяет точка?)) потом остаеться самое простое - использовать что нить, чем можно перебрать количество символов в каждом предложении - strlen() по каждому элементу массива предложений. Создать массив длин предложений и найти наибольший элемент.
Нужна помощь не могу найти ошибку с/с++ Code: #include <stdio.h> #include <conio.h> #include <math.h> void main (void){ clrscr (); printf("LW#1"); int i=1; float b, e,S=0,u=2/b; do{ printf("Vvedite tochnost e="); scanf("%g",&e); }while((e>0)&&((e<1)); while ((fabs(u)>e)&&(i<1000)){ S+=u; u=u*(i+2/(-b*(i++)); } printf("Symma ravna %g\nslogeno %i elementov",S,i); getch (); }// atof
Помогите написать подобное: 1. Необходимо чтобы информация, набираемая на клавиатуре, записывалась в файл с именем a.txt. 2. Дан текстовый файл. Необходимо ввести с клавиатуры строку символов и выдавать на экран номер позиции в текстовом файле, начиная с которой эта подстрока в нём встречается, и соответствующее сообщение, если этой подстроки нет. Нужно до завтра сдать, а ничего путного не выходит. В первом случае в файл a.txt кроме введённых в консоль символов попадают ещё какието произвольные данные потока.
Masson фильтруй данные, а 2 пункт - просто возьми событие onChange edita и провеь есть ли в нем что либо, после ищи это функцией pos() в логе. Вас преподы кейлогеры писать заставляют))
Здравствуйте, нужна помощь. Есть dll'ка в которой написаны функции подпрограмм, надо для этой dll'ки написать прогу которая ее будет использовать, т.е. просто для проверки работоспособности подпрограмм dll. Вот сама dll и ее исходники на delphi 7: http://ifolder.ru/15284460. Буду очень благодарен за любую помощь.
Xrun позыкал твой dll если ты его сам писал то проблемм не возникнет exports Nr1,Nr2,Nr3,Form,DivMatr; вот эти функции добавятся в основное приложение. В основном приложении в uses добавь NormMatr, после создай свой экземпляр типа: Tmatr=array[1..nmax,1..nmax] of real; и Tvector=array[1..2*nmax] of real; После проделай с ними функции которые в длл прописаны, к сожалению не разобрался зачем они но думаю ты знаешь..
Как я понял, нужно использовать функции из dll... Code: function Nr1(x:Integer;y:Integer;Matr:Tmatr):Real; stdcall; external 'NormMatr.dll'; это статический метод подключения DLL; необходимо убедиться, чтобы нужная дллька лежала в папке с исполняемым файлом или в "C:\WINDOWS\system" а в uses указывать dll не нужно.
Есть 4 задачи на класы(перегруз функций итд) знающему человеку роботы-1 день) бюджет 30$ (если всё быстро чётко и с коментами то 35$) сроки-10 дней!) ICQ 396-731 Деньги даю с протектом после предо ставленой работы просматриваю её(на работоспособность) и даю вам код. Человек взялся Уже не актуально!
