Решите Задачу

Тема в разделе "Pascal and Delphi", создана пользователем saimon1719, 30 май 2012.

  1. saimon1719

    saimon1719 Гость

    program zad1;

    uses
    Windows;

    {$APPTYPE CONSOLE}
    const
    N=10;
    EPS=0.000001;
    var
    A:array [1..N] of real;
    i,j,First,Second:integer;
    Sum,Max:real;
    cnt:integer;
    begin
    SetConsoleCP(1251);
    SetConsoleOutputCp(1251);
    writeln('введите элементы массива (макс. число 10)');
    for i:=1 to N do
    begin
    writeln('Enter A[',i,']=');
    readln(A);
    end;
    Sum:=0.0;
    Max:=A[1];
    First:=0;
    Second:=0;
    for i:=1 to N do
    begin
    if abs(A)>abs(Max) then Max:=A;
    if A>0.0 then
    begin
    if First=0 then First:=i
    else if Second=0 then Second:=i;
    end;
    end;
    for i:=First to Second do Sum:=Sum+A;
    writeln('Макс. элемент массива = ',Max:6:2);
    writeln('Сумма = ',Sum:6:2);
    cnt:=0;
    for i:=1 to N do
    begin
    while abs(A-0.0)<EPS do
    begin
    inc(cnt);
    for j:=i to N-1 do
    begin
    A[j]:=A[j+1];
    end;
    end;
    end;
    for i:=N downto N+1-cnt do A:=0.0;
    for i:=1 to N do write(A:6:2,' ');
    readln;
    end.



    В одномерном массиве, состоящем из п вещественных элементов, вычислить:
    1) максимальный по модулю элемент массива;
    2) сумму элементов массива, расположенных между первым и вторым положи-тельными элементами.
    Преобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных.


    это сделано
    Задача №1. Оформить решение задач (задача №1 работы №6) в виде подпрограммы функции. Привести решения этих задач различными способами, используя в качестве фактических параметров: параметры-значения, параметры-переменные и параметры-константы. Объясните различия.

    Delphi програмирование
    терь надо сделать функции, до пятницы,плиз
     
Загрузка...
Похожие Темы - Решите Задачу
  1. Adel
    Ответов:
    0
    Просмотров:
    1.039
  2. sniper16
    Ответов:
    1
    Просмотров:
    1.526
  3. GREED
    Ответов:
    1
    Просмотров:
    544
  4. vovanabali
    Ответов:
    0
    Просмотров:
    536
  5. zolotco
    Ответов:
    0
    Просмотров:
    984

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