☣ Денис ☢ 0 Жалоба Опубликовано: 24 декабря 2010 помогите кто спец Турбо паскаль целочисленная матрица, число строк и столбцов. Функции суммирование всех элементов матрицы вывод K-ой строки матрицы ( К задается пользователем), поиск столбца с максимальной суммой элементов, поэлементное умножение двух матриц, горизонтальное объединение двух матриц с одинаковым числом строк. Наработки есть какие? Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
TERROR_VB 0 Жалоба Опубликовано: 30 декабря 2010 Для экзамена по информатике надо решить задачу эту) Разобрать программу для ввода исходных данных и их последующей распечатки I - целое число; S, F - строки символов; Y - вещественное число. Данные вводятся в указанном порядке; входной поток - строка данных; выходной поток - столбец данных. если есть возможность, объясните что к чему, как решаются такие задачи =) Спасибо. Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
Овсеп 1 Жалоба Опубликовано: 19 января 2011 помогите кто спец Турбо паскаль целочисленная матрица, число строк и столбцов. Функции суммирование всех элементов матрицы вывод K-ой строки матрицы ( К задается пользователем), поиск столбца с максимальной суммой элементов, поэлементное умножение двух матриц, горизонтальное объединение двух матриц с одинаковым числом строк. Наработки есть какие? нету( Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
TERROR_VB 0 Жалоба Опубликовано: 21 февраля 2011 Помогите решить задачу пж! задача Разработать программу следующей задачи: ввести 3 числа Подсчитать и распечатать сумму положительных чисел. (должна быть блок схема!) ничего в этом не шарю( помогите решить и если возможно примерно объясните как решать такие задачи Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
PointsEqual 0 Жалоба Опубликовано: 25 февраля 2011 Помогите решить задачу пж! задача Разработать программу следующей задачи: ввести 3 числа Подсчитать и распечатать сумму положительных чисел. (должна быть блок схема!) ничего в этом не шарю( помогите решить и если возможно примерно объясните как решать такие задачи ну если это не можеш решить, значит программирование не твое Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
TERROR_VB 0 Жалоба Опубликовано: 27 февраля 2011 Уважаемый, я юрист!) эта задача не для личных целей!! но очень нужна)! Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
NEGATIF 1 Жалоба Опубликовано: 25 мая 2011 (изменено) Помогите решить задачу пж! задача Разработать программу следующей задачи: ввести 3 числа Подсчитать и распечатать сумму положительных чисел. (должна быть блок схема!) ничего в этом не шарю( помогите решить и если возможно примерно объясните как решать такие задачи вот: подсчет.rar Изменено 25 мая 2011 пользователем NEGATIF Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
lex91 0 Жалоба Опубликовано: 22 марта 2012 (изменено) Помогите решить задачу в GPSS Обработка запросов осуществляется в двухфазной СМО с очередями. Каждый k-ый запрос является срочным и должен обрабатываться немедленно. Исследовать зависимость средней длины очереди ко второй фазе обработки и общей длительности обработки несрочных запросов от доли срочных. Входной поток – по экспоненциальному закону. Длительность обработки – по нормальному. При генерации отрицательной длительности обработки нормальный закон заменить на равномерный. Первая фаза: 4 оператора. Вторая фаза: 1 сервер. Вот, что у меня получилось: VHOD_POTOK FVARIABLE -(1/0.00688)#LOG((RN1+1)/1000) PR_MY FUNCTION RN1,D2 .1,0/1,1 VR_OBRAB1 FVARIABLE 10#((RN1+RN2+RN3+RN4+RN5+RN6+RN7+RN8+RN9+RN10+RN11+RN12)/1000-6)+508 VR_OBRAB2 FVARIABLE ((RN1+RN2+RN3+RN4+RN5+RN6+RN7+RN8+RN9+RN10+RN11+RN12)/1000-6)+66 UCHASTOK STORAGE 4 GENERATE V$VHOD_POTOK,,,,FN$PR_MY PREEMPT UCHASTOK,PR,OCH1 QUEUE OCH1 ENTER UCHASTOK,1 DEPART OCH1 ADVANCE V$VR_OBRAB1 RETURN UCHASTOK LEAVE UCHASTOK,1 QUEUE OCH2 SEIZE SERVER DEPART OCH2 ADVANCE V$VR_OBRAB2 RELEASE SERVER TERMINATE 1 START 1000 Программа работает, но выдает всегда одни и те же результаты. По условию должен менять в этой строке: .1,0/1,1 на .2,0/1,1 и т.д. Спасибо. Изменено 22 марта 2012 пользователем lex91 Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
Алексей/ Сайты 0 Жалоба Опубликовано: 5 ноября 2012 Выполню задачи по программированию. Качественно, не дорого. ICQ:351749380 Обращайтесь! Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
Spoon 8 Жалоба Опубликовано: 7 ноября 2012 Нужен совет. Понимаю, что лучше один раз увидеть, чем 100 раз услышать. Но! Сначала надо созвониться с "создателем" сайта, который сейчас в отпуске. А проблема есть уже сейчас. Так что только симптомы и признаки:... Сайт был создан не так давно. Плюс еще его мобильная версия. С ноута заходит с задержкой, но заходит. А самое интересное - это вход с планшета. Ввожу домен, жму пуск и начинается перебор каких-то доменов кривых и очень кривых и затем останавливается на каком-то из них и все. Кто-то влез и поправил код? Переадресация? Или что еще может быть? Очень жду подсказки! Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
drnet 18 Жалоба Опубликовано: 9 ноября 2012 Сказать причину без исследования сайта невозможно. Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
АндрюхаКурск 0 Жалоба Опубликовано: 17 января 2013 Кто умеет программировать на Prolog? Мне написали программу, которая должна выводить максимальное значение суммы трех последующих элементов из списка. Но она выводит список всех существующих сумм. Может кто помочь с корректировкой? sum3([_,_],[]). sum3([A,B,C|D],[H|T]):-H is A+B+C,sum3([b,C|D],T). maxlist([],-100000). maxlist([H|T],M):- maxlist(T,Mm), M is max(Mm,H). Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
matrix747 0 Жалоба Опубликовано: 26 апреля 2013 Помогите пожалуйста сделать программу на (СИ). Дана строка, состоящая из английских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке. Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
Катерина-Малика 0 Жалоба Опубликовано: 8 декабря 2013 (изменено) Ребяяята!! Помогите,плиз! Пишу курсовую по компьютерному моделированию! Нашла один подходящий материал,все готово,решено,что мне нужно,но файл был поврежден при редактировании! Помогите подправить решение и расставить все по местам! Самой не получается верно сообразить,боюсь ошибиться! Заранее благодарна за помощь!!! P.S. файл с решением не получается скинуть! Если кто-то сможет помочь,заодно подскажите,как я могу скинуть файл! Изменено 8 декабря 2013 пользователем Катерина-Малика Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
_domenik_ 0 Жалоба Опубликовано: 24 февраля 2014 помогите передалать программу из функции под процедуру type mas=array of integer; var X,Y:mas; m,n,i,Xmax,Ymin:integer; Z:real; function func(A:mas;k:integer):integer; var max,min:integer; begin max:=0;min:=0; for I := 1 to k do begin if max<A then max:=A; if min>A then min:=A end; if k=n then func:=max else func:=min; end; begin write('vedite dlinu massiva X=');readln(n); write('vedite dlinu massiva Y=');readln(m); Setlength(X,n); for I := 1 to n do begin X:=1+random(100); write(X,' '); end; writeln; setlength(Y,m); for I := 1 to m do begin Y:=1+random(100); write(Y,' '); end; writeln; Z:=(func(X,n)-func(Y,m))/2; writeln('Z=',Z:10:4); readln; end. Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах
_TS_ 9 Жалоба Опубликовано: 15 марта 2021 (изменено) 25.02.2014 в 02:21, _domenik_ сказал: помогите передалать программу из функции под процедуру program func_proc; {$APPTYPE CONSOLE} const Range = 100; type Mas = array of Integer; var X, Y: Mas; m, n, i, Xmax, Ymin: Integer; Z: Real; procedure Proc(A: Mas; bMax: Boolean; var Res: Integer); var i, j, k: Integer; begin k:=Length(A)-1; if bMax then begin j:=0; for i:=0 to k do if j<A[i] then j:=A[i]; end else begin j:=Range; for i:=0 to k do if j>A[i] then j:=A[i] end; Res:=j; end; function Func(A: Mas; bMax: Boolean): Integer; var i, j, k: Integer; begin k:=Length(A)-1; if bMax then begin j:=0; for i:=0 to k do if j<A[i] then j:=A[i]; end else begin j:=Range; for i:=0 to k do if j>A[i] then j:=A[i] end; Result:=j; end; begin //Randomize; Write('Vvedite dlinu massiva X[n]: '); Readln(n); Write('Vvedite dlinu massiva Y[m]: '); Readln(m); SetLength(X, n); Write('X[n]: '); for i:=0 to n-1 do begin X[i]:=Random(Range)+1; Write(X[i], ' '); end; Writeln; SetLength(Y, m); Write('Y[m]: '); for i:=0 to m-1 do begin Y[i]:=Random(Range)+1; Write(Y[i], ' '); end; Writeln; //Xmax:=Func(X, True); //Ymin:=Func(Y, False); Proc(X, True, Xmax); Proc(Y, False, Ymin); Writeln('Xmax = ', Xmax); Writeln('Ymin = ', Ymin); Z:=(Xmax-Ymin)/2; Writeln('Z = ', Z:10:4); Writeln; Write('Press "Enter" to exit...'); Readln; end. Изменено 15 марта 2021 пользователем _TS_ Поделиться сообщением Ссылка на сообщение Поделиться на других сайтах