Помогите Переделать Прогу

Тема в разделе "Другие", создана пользователем bestswimer, 23 окт 2011.

  1. bestswimer

    bestswimer Гость

    надо переписать прогу с матрицей (сделать 2е проги)
    сначала с процедурами
    а втораю с функциями

    народ выручайте позарез как надо

    задание:
    сост прогу формирования вектора елементы которого = среднему значению положительных елементов строки матрицы

    готовая с матрицами
    program TP5;
    uses crt;
    type
    mat=array [1..100,1..100] of real;
    var
    a:mat;
    n,m,i,j,k:integer;
    s,src:real;
    Begin
    clrscr;
    writeln('введите количество строк');
    readln(n);
    writeln('введите количество столбцов');
    readln(m);
    clrscr;
    for i:=1 to n do
    for j:=1 to m do
    begin
    Write('введите a[',i,',',j,']','=');
    readln (a[i,j]);
    end;
    s:=0;
    k:=0;
    for i:=1 to n do
    for j:=1 to m do
    if a[i,j]>0 then
    begin
    s:=s+a[i,j];
    k:=k+1;
    end;
    for i:=1 to n do
    BEGIN
    if k>0 then
    src:=s/k
    else src:=0;
    END;
    clrscr;
    writeln('начальные данные');
    writeln('n=',n);
    writeln('m=',m,#10#13,'матрица а');
    for i:=1 to n do
    begin
    for j:=1 to m do
    write(' ',a[i,j]:6:3);
    writeln
    end;
    writeln('результаты решения');
    writeln('сумма положительных елементов s=',s:6:3);
    writeln('количество положительных елементов k=',k);
    writeln('src=',src:6:3);
    END.
     
Загрузка...
Похожие Темы - Помогите Переделать Прогу
  1. Alexey075
    Ответов:
    0
    Просмотров:
    876
  2. Alexey075
    Ответов:
    1
    Просмотров:
    940
  3. natali75675
    Ответов:
    1
    Просмотров:
    938
  4. samurai
    Ответов:
    1
    Просмотров:
    1.816
  5. warwar
    Ответов:
    0
    Просмотров:
    2.025

Поделиться этой страницей