1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Sabishka13, 23 янв 2013.

  1. Sabishka13

    Sabishka13 New Member

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

    Senset Well-Known Member

    Репутация:
    0
    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Код:
    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

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

    Вложения:

    • 13.bmp
      Размер файла:
      35,6 КБ
      Просмотров:
      11
Загрузка...

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