Помощь в решении заданий по программированию.

[☣ Денис ☢ 0]

помогите кто спец

Турбо паскаль

целочисленная матрица, число строк и столбцов. Функции суммирование всех элементов матрицы вывод K-ой строки матрицы ( К задается пользователем), поиск столбца с максимальной суммой элементов, поэлементное умножение двух матриц, горизонтальное объединение двух матриц с одинаковым числом строк.

Наработки есть какие?

[TERROR_VB 0]

Для экзамена по информатике надо решить задачу эту)

 

Разобрать программу для ввода исходных данных и их последующей распечатки

 

I - целое число;

S, F - строки символов;

Y - вещественное число.

 

Данные вводятся в указанном порядке; входной поток - строка данных; выходной поток - столбец данных.

 

если есть возможность, объясните что к чему, как решаются такие задачи =)

Спасибо.

[Овсеп 1]

помогите кто спец

Турбо паскаль

целочисленная матрица, число строк и столбцов. Функции суммирование всех элементов матрицы вывод K-ой строки матрицы ( К задается пользователем), поиск столбца с максимальной суммой элементов, поэлементное умножение двух матриц, горизонтальное объединение двух матриц с одинаковым числом строк.

Наработки есть какие?

нету(

[TERROR_VB 0]

Помогите решить задачу пж!

задача

Разработать программу следующей задачи: ввести 3 числа

Подсчитать и распечатать сумму положительных чисел.

(должна быть блок схема!)

 

ничего в этом не шарю( помогите решить и если возможно примерно объясните как решать такие задачи

[PointsEqual 0]

Помогите решить задачу пж!

задача

Разработать программу следующей задачи: ввести 3 числа

Подсчитать и распечатать сумму положительных чисел.

(должна быть блок схема!)

 

ничего в этом не шарю( помогите решить и если возможно примерно объясните как решать такие задачи

ну если это не можеш решить, значит программирование не твое

[TERROR_VB 0]

Уважаемый, я юрист!)

 

эта задача не для личных целей!! но очень нужна)!

[NEGATIF 1]

Помогите решить задачу пж!

задача

Разработать программу следующей задачи: ввести 3 числа

Подсчитать и распечатать сумму положительных чисел.

(должна быть блок схема!)

 

ничего в этом не шарю( помогите решить и если возможно примерно объясните как решать такие задачи

вот:

подсчет.rar

Изменено 25 мая 2011 пользователем NEGATIF

[lex91 0]

Помогите решить задачу в 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]

Выполню задачи по программированию. Качественно, не дорого. ICQ:351749380

Обращайтесь!

[Spoon 8]

Нужен совет. Понимаю, что лучше один раз увидеть, чем 100 раз услышать. Но! Сначала надо созвониться с "создателем" сайта, который сейчас в отпуске. А проблема есть уже сейчас. Так что только симптомы и признаки:...

Сайт был создан не так давно. Плюс еще его мобильная версия. С ноута заходит с задержкой, но заходит. А самое интересное - это вход с планшета. Ввожу домен, жму пуск и начинается перебор каких-то доменов кривых и очень кривых и затем останавливается на каком-то из них и все. Кто-то влез и поправил код? Переадресация? Или что еще может быть?

Очень жду подсказки!

[drnet 18]

Сказать причину без исследования сайта невозможно.

[АндрюхаКурск 0]

Кто умеет программировать на 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]

Помогите пожалуйста сделать программу на (СИ). Дана строка, состоящая из английских слов, разделенных пробелами

(одним или несколькими). Найти количество слов в строке.

[Катерина-Малика 0]

Ребяяята!! Помогите,плиз! Пишу курсовую по компьютерному моделированию! Нашла один подходящий материал,все готово,решено,что мне нужно,но файл был поврежден при редактировании! Помогите подправить решение и расставить все по местам! Самой не получается верно сообразить,боюсь ошибиться! Заранее благодарна за помощь!!!

 

P.S. файл с решением не получается скинуть! Если кто-то сможет помочь,заодно подскажите,как я могу скинуть файл!

Изменено 8 декабря 2013 пользователем Катерина-Малика

[_domenik_ 0]

помогите передалать программу из функции под процедуру

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]

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_