На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> сумма четных элементов строк , матрица
    Помогите пожалуйста дописать программу ,чтобы она считала сумму четных элементов строк ,которые содержать хотя бы один нулевой элемент.Никак не могу придумать как это сделать .вот моя исходная программа.( при этом оставить перестановку столбцов и ввод с клавиатуры элементов матрицы ).
    Program zadacha1; {caaaiea 1 aa?eaio 30}
    USES
    CRT;
    CONST
    a=4;
    b=4;
    VAR
    C:array[1..a,1..b] of integer;
    m,n,n1,n2:integer;
    t:integer;
    BEGIN
    Writeln('Введите элементы матрцы C:');
    for m:=1 to a do
    for n:=1 to b do
    Readln(C[m,n]);
    ClrScr;
    Writeln('матрица C:');
    for m:=1 to a do
    begin
    for n:=1 to b do
    Write(C[m,n]:8);
    Writeln;
    end;
    repeat
    writeln('введите номера столбцов для обмена ');
    readln(n1,n2);
    until(n1 in [1..b])and(n2 in [1..b])and(n1<>n2);
    for m:=1 to a do
    begin
    t:=c[m,n1];
    c[m,n1]:=c[m,n2];
    c[m,n2]:=t;
    end;
    writeln('Преобразованный массив:');
    for m:=1 to a do
    begin
    for n:=1 to b do
    write(c[m,n]:4);
    writeln;
    end;
    readln;
    end.
      Обойти в цикле все строки
      Обойти во внутреннем цикле элементы строки, проверяя, на равны ли они нулю.
      Если найден нулевой, остановить цикл, и обойти в цикле четные элементы, сложив их.

      Вроде все по логике задания...
        Нет, MBo. первое, что должен сделать топикстартер - правильно оформить код + добавить отступы, а не давать эту простыню несвязного текста!
        Сообщение отредактировано: Новичок-прог -
          Ещё актуально?
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0209 ]   [ 15 queries used ]   [ Generated: 28.03.24, 14:51 GMT ]