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

3a9Ic

141 / 129 / 113

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

Сообщений: 245

14.05.2012, 23:08

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

14.05.2012, 23:08. Показов 10175. Ответов 17

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

Сообщение было отмечено Памирыч как решение

Решение

На PascalABC работает прекрасно, на Turbo Pascal сейчас пытаюсь исправить условия, почему-то не проходят.

Добавлено через 14 минут
Изменения и проверка специально под TP.

Pascal

Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,j,t:integer;
Procedure Ra;
begin
     Randomize;
     for i:=1 to n do
     begin
          a[i]:=Random(31);
          write(' a[',i,']=',a[i]);
     end;
end;
Function Te(matr:array of integer):integer;
begin
t:=0;
for i:=1 to n do
begin
for j:=i to n do
      if a[j] <= a[i] then
      begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t
      end;
end;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);
end;
Begin
     ClrScr;
     Ra;
     Te(a);
     readln;
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.05.2012, 23:08

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

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

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

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

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

	14.05.2012, 23:08

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.05.2012, 23:08

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

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

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

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

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

Наверх