Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Вычисление интеграла методом Монте-Карло https://www.cyberforum.ru/ pascalabc/ thread2143839.html
5.5. Вычисление интеграла методом Монте–Карло. Вычислить значения функции в заданных точках t1,t2,..tm . Значение интеграла вычисляется приближенно по методу Монте–Карло: в интервале случайно выбираются M точек x1,x2,..xm и Входными данными программы служат: числа m, M и массив значений i=1,2,…,m. В программе предусмотреть: – процедуру–функцию вычисления g(x) с формальным параметром...
Pascal показывает Program5.pas(14) : Нельзя преобразовать тип integer к boolean Pascal ABC
из задания program one; const n=10; var a:array of integer; i, max,min,k,imax,imin,summ:integer; begin for i:=1 to n do begin a:=random(100); write( a:4);
Pascal ABC Напечатать все слова, отличные от последнего слова. Если слово нечетной длины, заменить все строчные гласные буквы Дана строка содержащая любое количество слов на латинском , отделенные друг от друга пробелами. Напечатать все слова, отличные от последнего слова. Если слово нечетной длины, заменить все строчные гласные буквы прописными. https://www.cyberforum.ru/ pascalabc/ thread2143748.html Pascal ABC Вещественное деление на 0 https://www.cyberforum.ru/ pascalabc/ thread2143729.html
Pascal ABC ругается, что в 6 строке вещественное деление на 0 Program cls; var x,y1,y2:real; function cbrt(a:real):real; begin cbrt:=((ln (a) )/ 3); end; begin repeat
Напечатать те слова, отличные от последнего слова, в которых наименьшее количество букв, упорядоченных по алфавиту Pascal ABC
Дана строка символов S, состоящая из латинских букв. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Напечатать те слова, отличные от последнего слова, в которых наименьшее количество букв, упорядоченных по алфавиту. Помогите пожалуйста с этим заданием. Со строками вообще беда, а последнюю лабу сдавать надо.
Pascal ABC Движение троллейбуса https://www.cyberforum.ru/ pascalabc/ thread2143649.html
Помогити пожалуйста!!! я нарисовала троллейбус,но я не знаю,как заставить его двигаться. program P5; uses GraphABC; begin setbrushcolor(clskyblue); roundrect(150,100,500,250,50,100); setbrushcolor(clyellow); circle(420,250,40); circle(420,250,20);
Pascal ABC Найти все числа Амстронга от 1 до k https://www.cyberforum.ru/ pascalabc/ thread2143641.html
Натуральное число, в записи которого n цифр, называется числом Амстронга, если сумма его цифр, возведенная в степень n, равна самому числу. Найти все числа Амстронга от 1 до k. Составить программу с использованием функции
Pascal ABC Нужно отладить программу
Вот сама программа: Пример программы для заполнения массива из 20 элементов целыми случайными числами в диапазоне от 0 до 99. и сортировки элементов массива по возрастанию. Const n= 20 Var m :array of integer ; I,j temp for i :=1 to n do :integer ; Begin Writeln (‘исходный массив:’); For I:=1 to n do write (M), ‘ ‘); Writeln; A:=0;
Pascal ABC Вывод разложения бинома Ньютона Составить программу вывода разложения бинома Ньютона: (a+b)n = C(0,n)an b0 + C(1,n)an-1 b1 + ... + C(n,n)a0 bn , где n! C(0,n)=C(n,n)=1, C(m,n)= ––––––––– . (с помощью функции) m!(n-m)! https://www.cyberforum.ru/ pascalabc/ thread2143558.html Pascal ABC Вычисление суммы бесконечного ряда Бесконечная сумма: 1-\frac{1}{x^{\,}}+\frac{1}{x^2}-\frac{1}{x^3}+...+\left(-\frac{1}{x^{\,}} \right)^n+... Диапазон изменения x: |x| > 1 Выражение для проверки: https://www.cyberforum.ru/ pascalabc/ thread2143512.html
Pascal ABC Не могу понять где ошибка, неправильно считает
основная программаprogram name_lab6; uses matr_alg; var a,b,c,z,k:matrix; x,y,x1,m,t:vector; n:size; fin,fout:text; p:integer; begin assign(fin, 'name_lab6.in.txt'); reset(fin); assign(fout, 'name_lab6.out.txt'); rewrite(fout); read(fin,n); read_matrix_a(fin,a,n);
Pascal ABC Возврат массива из функции https://www.cyberforum.ru/ pascalabc/ thread2143221.html
Всем привет! Кто подскажет - можно ли в Паскале: 1. в функцию передавать массив? 2. из функции возвращать массив? Я попробовал сделать через процедуру, но там запарка вышла - в процедуре получается привязка к имени массива. А я хочу чтобы вызвал функцию и вернул созданный массив или передал в функцию, а она вывела массив: uses crt; const n=10; var i:integer; mas,mas1,mas2:array of...
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,440
26.11.2017, 18:36 0

Транспонировать заданую матрицу - Pascal ABC - Ответ 11884804

26.11.2017, 18:36. Показов 1379. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

bonhwa1,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program M3;
uses crt;
Const X=10;
var  M,MS : Array [1..X,1..X] Of Integer;
     I,C:integer;
Begin
randomize;
writeln('Исходная матрица:');
For I:=1 To X Do
  begin
   For C:=1 To X Do
    Begin
     M[I,C]:=random(50);
     write(M[I,C]:4);
    end;
   writeln;
  end;
For I:=1 To X Do
For C:=1 To X Do
MS[C,I]:=M[I,C];
writeln('Транспонированная матрица:');
For I:=1 To X Do
  begin
   For C:=1 To X Do
   write(MS[I,C]:4);
   Writeln;
  end;
end.


Вернуться к обсуждению:
Транспонировать заданую матрицу Pascal ABC
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2017, 18:36
Готовые ответы и решения:

Транспонировать матрицу и вывести полученную матрицу на экран
1. Построить матрицу размером n на n. Заполнить каждую строку матрицы одинаковыми числами, равными...

Транспонировать матрицу
Здравствуйте В данной программе мне нужно, чтобы были процедуры и функции. Транспонировать...

Транспонировать матрицу
Транспонировать матрицу А(6х6). Транспонирование матрицы заключается в замене i-ых строк j-ыми...

Транспонировать матрицу
Привет всем. Решите пожалуйста. Скрин обрезан. Матрицу нужно вывести на экран.

1
26.11.2017, 18:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2017, 18:36
Помогаю со студенческими работами здесь

Заполнить матрицу случайными числами и транспонировать ее
Заполнить двумерный массив 3x4 случайными целыми числами в диапазоне от 30 до 90. Вывести...

Транспонировать матрицу A (4х4) в матрицу B (4х4). Где ошибка?
Транспортировал матрицу А(4x4) в матрицу В (4x4).

Ту матрицу, где есть хотя бы одна гласная — транспонировать
Помогите пожалуйста Не успеваю сам по времени Даны три символьные матрицы. a) ту матрицу, где...

Описать процедуру Swap (x,y) меняющую содержимое переменных х и у. Транспонировать квадратную матрицу
Описать процедуру Swap (x,y) меняющую содержимое переменных х и у(х и y-вещественные...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru