Составить Схему Алгоритма И Программу Циклического Вычислительного Про

Тема в разделе "Pascal and Delphi", создана пользователем Sabishka13, 23 янв 2013.

  1. Sabishka13

    Sabishka13 New Member

    Регистрация:
    23 янв 2013
    Сообщения:
    2
    Симпатии:
    0
    Написать программу в Turbo Pascal
    Составить схему алгоритма и программу циклического вычислительного процесса.
    Ввод данных выполнить с помощью оператора For. Для реализации циклических процедур использовать операторы цикла, указанные в задании. Программу снабдить комментариями.
    Дана целочисленная матрица А(4x4). Подсчитать сумму и количество четных чисел. Перебор элементов исходной матрицы вести по столбцам. Использовать два оператора While.
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Код (Delphi):
    var i,j,sum,mod2count:integer;
    a:array[1..4,1..4] of integer;
    begin
    for i:=1 to 4 do //цикл перебора строк
    for j:=1 to 4 do //цикл перебора столбцов
    begin
    write('A[',i,',',j,']=');  //Выводим надпись вида "А[i,j]="
    read(a[i,j]); end;    //Считываем число в матрицу
    end;
    //К этому моменту матрица введена.
    //Перебираем для подсчета суммы и количества четных чисел
    i:=1;
    mod2count:=0; //здесь будет количество четных элементов
    sum:=0;         //Здесь будет сумма четных элементов
    while i<5 do
    begin
    j:=1;
    while j<5 do
    begin
    if a[j,i] mod 2 = 0 then  //смотрим по столбцу
    begin
    mod2count:=mod2count+1; //нашли четное число и суммируем :-)
    sum:=sum+a[j,i];
    end;
    j:=j+1; //двигаем счетчик второго цикла
    end;
    i:=i+1; //двигаем счетчик первого цикла
    end;
    writeln('Сумма четных=Sum=',sum);
    writeln('Количество четных=',mod2count);
    end.
     
  3. Sabishka13

    Sabishka13 New Member

    Регистрация:
    23 янв 2013
    Сообщения:
    2
    Симпатии:
    0
    Помогите пожалуйста.
     

    Вложения:

    • 13.bmp
      Размер файла:
      35,6 КБ
      Просмотров:
      6
Загрузка...
Похожие Темы - Составить Схему Алгоритма
  1. Sabishka13
    Ответов:
    0
    Просмотров:
    1.187
  2. Acute97
    Ответов:
    1
    Просмотров:
    1.126
  3. Olli1988
    Ответов:
    0
    Просмотров:
    1.785
  4. mrtg
    Ответов:
    14
    Просмотров:
    210
  5. FaRReLL
    Ответов:
    1
    Просмотров:
    1.440

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