Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Составить программу для нахождения суммы https://www.cyberforum.ru/ pascal/ thread734783.html помогите,пожалуйста :-[	Pascal перевести в pascal помогите пожалуйста перевести в паскаль следующее: #include <iostream> using namespace std; int main() { int n = 4; int summ = 0; int sum = 0,s = 0;
Pascal Задача. Матрицы Задана действительная матрица А{ai,j} , где i,j = 1,2,3,...,n. Нужно составить программу формирования вектора B = (b1,b2,b3,...,bn) , элементы которой определяются по формуле : n bj = Ʃ ai,j ; При ai,j < или = 0 i=1 Исходные данные : 1. значение переменной n=5 https://www.cyberforum.ru/ pascal/ thread734674.html	Pascal Сортировка без изменения порядка https://www.cyberforum.ru/ pascal/ thread734479.html Нужен алгоритм сортировки на паскале, который позволяет отсортировать линейный массив так, чтоб отрицательные были слева, положительные справа. Мой алгоритм почему-то не работает: i:=1; repeat if (B>=0) then begin buf:=B; for j:=i to n-1 do B:=B; B:=buf; for m:=1 to n do write(B,'# ');
Pascal Элементы главной диагонали заменить на элементы побочной диагонали. Элементы побочной диагонали сделать равными нулю, кроме элемента, на пересечении 4.1. Дана матрица А размера nn, где n<=15. Элементы матрицы вычисляются по формуле a(i,j)= ijsin(0.5i*j). Элементы главной диагонали заменить на элементы побочной диагонали. Элементы побоч. диагонали сделать равными нулю, кроме элемента, на пересечении диагоналей. 4.2. Оформить преобразование из п. 4.1 в виде функции или процедуры (на самостоятельный выбор). Вывести на экран исходную и...	Pascal Даны две матрицы: А и В, найти их сумму Помогите решить задачи по информатике. Заранее спасибо! 2. Даны две матрицы: А и В, найти их сумму. https://www.cyberforum.ru/ pascal/ thread734372.html
Pascal Вычислить сумму ряда Помогите решить задачи по информатике. Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread734370.html	Pascal Определить произведение суммы нечетных чисел и суммы чисел из диапазона от -30 до -10 Последовательно вводятся действительные отрицательные числа,пока не будет введено положительное число.Определить произведение суммы нечетных чисел и суммы чисел из диапазонаот -30 до -10
Pascal Найти среднее значение всех нечетных элементов массива Помогите решить задачи по информатике. Заранее спасибо! 1. Дан вектор, состоящий из п элементов, найти среднее значение всех нечетных элементов массива. https://www.cyberforum.ru/ pascal/ thread734360.html	Pascal В матрице с числами типа BYTE инвертировать каждое число. Например 0116=> 8016, 1116=>8816, 5516=>AA16 и т.д В матрице с числами типа BYTE инвертировать каждое число. Например 0116=> 8016, 1116=>8816, 5516=>AA16 и т.д. https://www.cyberforum.ru/ pascal/ thread734324.html
Текстовые файлы. Работа с текстовыми строчками Pascal Задан текстовый файл, который состоит из одной строчки. Длина строчки неограничена. Создать новый текстовый файл , строчками которого являются подстрочки входящего файла, которые разделяются запятой.	Pascal объектно ориентированное программирование https://www.cyberforum.ru/ pascal/ thread734317.html ПОМОГИТЕ ПОЖАЛУЙСТА uses Crt; type Win = Object x1, y1, x2, y2, cf: byte; procedure Init(Xn1, Yn1, Xn2, Yn2, Cfn: byte); procedure MakeWin; end; Procedure Win.Init(Xn1, Yn1, Xn2, Yn2, Cfn: byte);

Kepu4

0 / 0 / 0

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

Сообщений: 14

21.12.2012, 09:02 [ТС]

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10 - Pascal - Ответ 3893731

21.12.2012, 09:02. Показов 3371. Ответов 3

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

Ответ

вопрос есть

Pascal

procedure GenMatr (var z:matr);
var i,j:byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        z[i,j]:=random(9)+1;
end;
 
procedure PrintMatr(var z: matr);
var i,j: byte;
begin
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        write(z[i,j]:2);
    writeln;
    end;
end;

почему нельзя в одну процедуру поместить?

Вернуться к обсуждению:
Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10 Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.12.2012, 09:02

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

Даны целые числа а1,...,а4 и целочисленная матрица А(4х4). Заменить нулями в матрице элементы с четной суммой индексов, равные a1,...,a4.
1. Даны целые числа а1,...,а4 и целочисленная матрица А(4х4). Заменить нулями в матрице элементы с...

Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Условие: Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди a1, . ,a6
Помогите составить код пожалуйста. Даны целые числа a1, a2, ... , a6 и целочисленная...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива
Даны массив А=(а1,а2...а10) и матрица В(n*n). заменить нулями в матрице те элементы с четной суммой...

	21.12.2012, 09:02

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.12.2012, 09:02

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

Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10
Даны целые числа а1,...,а10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди a1,…, an.
Даны целые числа a1,…, an, целочисленная квадратная матрица B порядка m. заменить нулями в матрице...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные
Даны целые числа a1,...,a10 и целочисленная квадратная матрица порядка n. Заменить нулями в матрице...

Как осуществить замену нулями в матрице тех элементов с четной суммой индексов,для которых имеются равные среди a1,.a10
Даны целые числа a1, ... ,a10, целочисленная квадратная матрица порядка n. Заменить нулями в...

Наверх