Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Среднее арифметическое в паскале https://www.cyberforum.ru/ pascal/ thread574403.html Написать программу считающая среднее арифметическое элементов массива. (паскаль)	составить программу ( динамическое программирование) Pascal Составить программу, которая имеет ряд сложности О (n3), решение производится при помощи динамического программирования.
Pascal Подпрограммы. Создать функцию поиска минимального и максимального значения В школе 2 класса. В каждом 15 учеников. Каждый ученик получил отметку на экзамене информатики. Определите, какой из 2-ух классов учится ровнее( будем считать, что рoвнее учится, тот класс, в котором разница между самой высокой и самой низкой отметкой меньше). Указание: создать функцию MIN (c : vector) и MAX (c : vector) https://www.cyberforum.ru/ pascal/ thread574380.html	Pascal Сдвинуть циклически значения разрядов целого числа на одну позицию влево https://www.cyberforum.ru/ pascal/ thread574287.html Добрый вечер, помогите мне пожалуйста решить задачку) Сдвинуть циклически значения разрядов целого числа на одну позицию влево. Например: Исходное число: 123456 Результат: 234561
Зашифровать текст Pascal Помогите написать программу для зашифровки и расшифровки текста Шифровка происходит по ключу с помощь криптограммы Буквы открытого текста записываются в клетки прямоугольной таблицы по ее строчкам. Буквы ключевого слова пишутся над столбцами и указывают порядок этих столбцов (по возрастанию номеров букв в алфавите). Чтобы получить зашифрованный текст, надо выписывать буквы по столбцам с...	Pascal Найти корни уравнения Помогите пожалуйста написать две программки, я просто не способен к этому. Но очень надо это сделать. https://www.cyberforum.ru/ pascal/ thread573590.html
Pascal Строки символов. Найти слова начинающиеся на букву "М" https://www.cyberforum.ru/ pascal/ thread573235.html Пропустил тему и теперь не могу ничего понять. Помогите если можете. Задача1. Дана строка символов. Найти слова начинающиеся на букву "М"	Заменить отрицательные числа массива на 0, а положительные на 1. Pascal Как заменить отрицательные числа массива на 0, а положительные на 1? Нужно использовать массив B, что бы заполнить массив A нулями и единицами. Прошу помощи. program kursach; uses crt; const m=10; n=15; var
Pascal почему не работает программа на паскале? https://www.cyberforum.ru/ pascal/ thread573213.html program Project2; {$APPTYPE CONSOLE} const cmNeg = -7; var PC: integer; K: array of integer; procedure Gen(Cmd: integer);	Pascal Получить значения амплитуд и разниц https://www.cyberforum.ru/ pascal/ thread573159.html Здравствуйте, помогите советом. Есть прога сжатия аудиофайла методом Хаффмана (курсовая на сессию), все кодирует и раскодирует, но нужно записать числовые значения амплитуд и разниц в отчет, каким образом их получить? Может кто подсказать? Извините если в тот раздел запостил. Код во вложении. Спасибо.
Pascal. Составить бок-схему. Pascal Program Hello; Var Name: String; BEGIN Write('Как тебя зовут ? '); ReadLn(Name); WriteLn('Привет, ', Name, '!'); ReadLn END. Пожалуйста, составьте бок-схему для этой программы.	Pascal Решение нелинейных уравнений методом Ньютона https://www.cyberforum.ru/ pascal/ thread572875.html решить методом касательных(метод ньютона). на промежутке (1;3) 2(ln(x))^2+6ln(x)-5

workout

0 / 0 / 0

Регистрация: 14.05.2012

Сообщений: 54

14.05.2012, 21:06 [ТС]

Найти сумму элементов каждой строки и сумму элементов каждого столбца - Pascal - Ответ 3030871

14.05.2012, 21:06. Показов 10175. Ответов 17

Метки (Все метки)

Ответ

Двумерный массив

Добавлено через 1 минуту
вот только для строк

Pascal

Program summastrok;
 
Uses summastrok.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..50, 1..50] Of integer;
  i : integer;
  j : integer;
  n : integer;
  m : integer;
  S : integer;
Begin
  Write(‘сколько строк?’);
  Readln(m);
  Write(‘сколько столбцов?’);
  Readln(n);
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      write(‘a[‘, i,’,’, j,’) = ’);
      readln (a[i, j]);
    End;
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
  Begin
    S := 0;
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
      S := S + a[i, j];
    Writeln(‘сумма элементов в ‘, i,’ строке равна  ‘, S);
  End;
  
End.

а нужно для строк и столбцов

Вернуться к обсуждению:
Найти сумму элементов каждой строки и сумму элементов каждого столбца Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.05.2012, 21:06

Готовые ответы и решения:

Определить сумму элементов каждого столбца левой половины и сумму элементов каждого четного столбца правой половины матрицы А.
Матрица A (М кратно 4) разделена по вертикали на две поло¬вины. Определить сумму элементов каждого...

Найти сумму элементов каждой четной строки матрицы и произведение элементов каждой нечетной
В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов ...

Блок-схема алгоритма для обработки элементов двумерных массивов. Найти сумму положительных элементов каждого столбца
Помогите пожалуйста это сделать. Составить блок-схему алгоритма и программу в среде PASCAL для...

Найти сумму элементов каждой строки и произведение элементов каждого столбца матрицы
Кто может в Паскале не силён, если можно коментарии что бы разобраться что к чему. Буду очень...

	14.05.2012, 21:06

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.05.2012, 21:06

Помогаю со студенческими работами здесь

Подсчитать сумму элементов каждой строки и сумму элементов каждого столбца
Сама задача: Дан двумерный массив. Найти: а)Суму элементов каждой строки; б)Суму элементов...

Определить сумму элементов каждой строки и сумму элементов каждого столбца
Всем доброго вечера. Посмотрите, что не так я написал в программе. Дана матрица A(6,5)....

Для каждой строки и столбца матрицы найти сумму элементов
Дана матрица размера MxN. Для каждой строки и столбца матрицы найти сумму элементов.

Найти и вывести сумму элементов каждой строки и максимальную сумму элементов матрицы
Ввести матрицу А(5,7). Найти и вывести сумму элементов каждой строки и максимальную сумму элементов...

Наверх