Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal степень икс https://www.cyberforum.ru/ pascal/ thread394329.html
как записать Х^(i+2)?? выводит ошибку 121
Pascal квадратная матрица A(nхn)
Собственно задание : Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – среднее арифметическое отрицательных элементов i-ого столбца матрицы Вот я немного написал, а что дальше не представляю даже, не понимаю я этого. Помогите пожалуйсто продолжить. Зарание спасибо program matr; uses crt; var A:array of real;
Pascal Помогите пожалуйста решить задачу(Заполнить матрицу А(N,N) числами натурального ряда в последовательности указанной на рисунке и найти их сумму S) https://www.cyberforum.ru/ pascal/ thread394311.html
Напишите программу в PascalABC вот по этому рисунку.
Pascal Блок-схема для программы + отладка Уважаемые форумчане, имеется программа по ней необходимо сделать блок схему и возможные варианты отладки! uses DOS; { для pаботы функции FileExists } var fi, fo: Text; { входной и выходной файл } s: String; c, p: Integer; { счетчик стpок и стpаниц } https://www.cyberforum.ru/ pascal/ thread394288.html
Pascal поменять строчки,паскаль!
помогите пожалуйста!!! нужно поменять местами 1ые несколько элементов с последними в том же количестве. Program p1; var i,n:integer;s:real a:array of real; begin write('dlina_massive='); readln(n); if n>10 then n:=10;
Pascal Проверить блок-схему и подсказать с рандомом program good_day; var day:array of integer; bg:boolean; i,a,yn,sr: integer; sr_temp:real; begin a:=0; randomize; for i:=1 to 31 do begin yn:=random(2)+0; case yn of 1:bg:=true; 0:bg:=false; https://www.cyberforum.ru/ pascal/ thread394268.html
Pascal Есть задача, не могу разобраться Напечатайте все целые числа в диапазоне от 1 до 1600, которые представимы в виде x^2+y^2, но которые нельзя представить в виде xy=c^2, где с изменяется от 1 до 5. program rgr6; uses crt; var x,y,k:integer; begin for x:=1 to 40 do begin for y:=x to 40 do begin if sqr(x)+sqr(y)<1600 then if sqrt(x*y)<>round(sqrt(x*y)) then https://www.cyberforum.ru/ pascal/ thread394208.html Задачи на матрицу и работа с файлами(2 разных) Pascal
Помогите плиз решить две задачи 1 изложен текст, 2 скрин задачи ниже... 1)Переписать в текстовый файл result.txt сначала все данные из типизированного файла m.dat а затем из k.dat. 2)Скрин задачи
Pascal Записи мудрёная задачкаааа))) Даны описания переменных: type слово=packed array of char; номер телефона=100000..9999999; знакомый=record фамилия:слово; номер:номер телефона end; страница=array of знакомый; записная книжка=array of страница; Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с одной и той же буквы-индекса этой страницы, описать логическую функцию: https://www.cyberforum.ru/ pascal/ thread394190.html Pascal Строки, записи, множества Напечатайте все целые числа в диапазоне от 1 до 1600, которые представимы в виде x^2+y^2, но которые нельзя представить в виде xy=c^2, где с изменяется от 1 до 5. https://www.cyberforum.ru/ pascal/ thread394140.html
Даны значения четырёх величин... Pascal
Помогите, пожалуйста, решить задачу: Даны значения четырёх величин, выбрать наименьшее. Переменные a, b, c, d ввести с клавиатуры, значение большего присвоить F и вывести на экран. Использовать команды: if, then, else, readln, writeln, оператор "присвоить"
Pascal динамические переменные помогите пожалуйста Разработать алгоритм определения первой пары совпадающих элементов двух цепных списков https://www.cyberforum.ru/ pascal/ thread394018.html
16 / 16 / 23
Регистрация: 20.06.2011
Сообщений: 34
28.11.2011, 23:05 0

Формирование двухмерного массива и заполнение его случайными числами - Pascal - Ответ 2224593

28.11.2011, 23:05. Показов 1411. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do begin
 for j:=1 to n do begin
  a[i,j]:=random(21)-10;
  write(a[i,j]:3,' ');
 end;
writeln();
end;
end.


Вернуться к обсуждению:
Формирование двухмерного массива и заполнение его случайными числами Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2011, 23:05
Готовые ответы и решения:

Заполнение файла случайными числами и его последующая обработка
Заполнить двоичный файл N действительными числами, полученными с помощью генератора случайных...

Заполнение массива X(10) случайными числами в диапазоне от -15 до 10
1. Напишите программу для заполнения массива X(10) случайными числами в диапазоне от -15 до 10....

Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива
Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до ...

Заполнение матриц случайными числами
Помогите с заданием, пожалуйста: В процедуре заполните матрицу пятого порядка случайными числами....

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

Массивы: заполнение случайными числами
подскажите плиз как описать матрицу 8х8 и заполнить ее случайными числами от -n до n, где n - номер...

Заполнение двухмерного массива
Привет! Итак задача в том чтоб заполнить массив определённым образом. Массив 10 на 10, в первой...

Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами
2. Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами. Найти:...

Создать вещественный массив из 10 000 чисел , заполнить его случайными числами в диапазоне от 0 до 1 . Вычислить
Создать вещественный массив из 10 000 чисел , заполнить его случайными числами в диапазоне от 0 до...

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