Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Даны массивы A(8), F(8),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формуле uses crt; type mas=array of integer; var A,F,Q,C:mas; i,s:integer; begin clrscr; writeln('Массив первый:'); for i:=1 to 98 do begin A:=random(100)-2; https://www.cyberforum.ru/ pascalabc/ thread1157666.html	Сделать восьмиричный калькулятор из десятичного Pascal ABC Помогите сделать восьмеричный канкулятор пож из десятичногоuses vcl; //$VCLDESIGN+ var Form1: Form; Edit1: Edit; Button1: Button; Button2: Button; Button3: Button; Button4:...
Pascal ABC Сколькими способами можно рассадить гостей за столом Здравствуйте еще раз. Неделю назад писал олимпиаду по программированию. И попалась такая задачка которую не решил никто. Хотелось бы узнать возможно ли её решить вообще?.Условие: некий господин Х... https://www.cyberforum.ru/ pascalabc/ thread1157620.html	Pascal ABC Вычислить сумму ряда Помогите, пожалуйста. Никак не могу написать программу. y=\sum_{i=1}^{n}\left(-1 \right)^^i\ \frac{i!+7}{\left(3i+1 \right)x^^i} https://www.cyberforum.ru/ pascalabc/ thread1157606.html
Pascal ABC Вычислить значение косинуса квадрата заданного аргумента Вычислить значение косинуса квадрата заданного аргумента. Входные данные: Во входном потоке заданно единственное вещественное число по модулю не превышающее 30000. Выходные данные: В...	Pascal ABC Определить, какое из чисел больше https://www.cyberforum.ru/ pascalabc/ thread1157597.html Даны два числа. Определить, какое из них больше. Вывести знак '>' если первое число больше, или знак '<' в противном случае. Входные данные: Во входном потоке в первой строке через пробел...
Pascal ABC В файле типа char содержатся цифры и знаки '' и '/'. Эта последовательность представляет собой арифметическое выражение https://www.cyberforum.ru/ pascalabc/ thread1157573.html В файле типа char содержатся цифры и знаки '' и '/'. (файл должен быть создан программно) Эта последовательность представляет собой арифметическое выражение, которое нужно вычислить.	В текстовом файле хранится список служащих. Для каждого служащего указаны фамилия и инициалы, название занимаемой должно Pascal ABC В текстовом файле хранится список служащих. Для каждого служащего указаны фамилия и инициалы, название занимаемой должности, год поступления на работу и оклад. Написать программу, выполняющую...
Pascal ABC Определить остаток от деления заданного числа A на число В https://www.cyberforum.ru/ pascalabc/ thread1157531.html Определить остаток от деления заданного числа A на число В. Входные данные: Во входном потоке задано два натуральных числа A и B (0 < A, B < 30000). Выходные данные: В выходной поток...	Pascal ABC Сформировать последовательность, элементами которой являются каждые третьи четные значения заданной последовательности Помогите решить. В долгу не останусь! 5. Написать программу, которая формирует новую последовательность, элементами которой являются каждые третьи четные значения заданной последовательности. https://www.cyberforum.ru/ pascalabc/ thread1157518.html
Написать программу, которая заменяет все цифры в заданной строке соответствующим словесным названием (1 – one, 2 – two, Pascal ABC Помогите решить. В долгу не останусь! 4. Написать программу, которая заменяет все цифры в заданной строке соответствующим словесным названием (1 – one, 2 – two, 3 –three и т.д.)	Pascal ABC Написать программу, которая высчитывает наименьшую длину числовой оси, содержащей все элементы заданного линейного масси Помогите решить. В долгу не останусь! 3. Написать программу, которая высчитывает наименьшую длину числовой оси, содержащей все элементы заданного линейного массива. https://www.cyberforum.ru/ pascalabc/ thread1157516.html

Puporev

Почетный модератор

64277 / 47576 / 32739

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

Сообщений: 115,182

26.04.2014, 13:51

Получить целочисленную квадратную матрицу по правилу - Pascal ABC - Ответ 6090673

26.04.2014, 13:51. Показов 1683. Ответов 3

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

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

Решение

На главной диагонали будут 0, поскольку a[i,i] не больше a[i,i].

Добавлено через 7 минут

Pascal

uses crt;
const n=9;
var a:array[1..n,1..n] of real;
    b:array[1..n,1..n] of byte;
    i,j:integer;
begin
randomize;
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln('Матрица В:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j]>a[i,i] then b[i,j]:=1
    else b[i,j]:=0;
    write(b[i,j]:3);
   end;
  writeln
 end;
end.

Вернуться к обсуждению:
Получить целочисленную квадратную матрицу по правилу Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.04.2014, 13:51

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

Получить целочисленную квадратную матрицу
Дана вещественная квадратная матрица порядка N. Получить целочисленную квадратную матрицу того же...

Получить целочисленную матрицу по правилу
1) Даны натуральные числа n, q1, q2,…, qn. найти те члены qi последовательности q1, q2,…, qn...

Получить целочисленную матрицу по правилу
Помогите решить задачу

Получить квадратную матрицу по правилу
Получить квадратную матрицу n 0 0 0 ... 0 0 0 1 0 ... 0 0 0 2 0 ... 0 0 ...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.04.2014, 13:51

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

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

Получить квадратную матрицу по правилу
Получить квадратную матрицу порядка n:

Получить квадратную матрицу по правилу
Здравствуйте друзья, помогите получить квадратную матрицу порядка N:

Получить квадратную матрицу по правилу
Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка...

Наверх